2018-08-07 02:14:36 +00:00
|
|
|
#ifndef __COMMON_H
|
|
|
|
#define __COMMON_H
|
|
|
|
|
2018-08-07 13:30:11 +00:00
|
|
|
; Using four byte quantities aabbccdd with sign bit, overflow bit, 20 bits significand, 10 bits
|
|
|
|
; fraction. The quantity is valid if the overflow bit agrees with the sign bit. The intent is
|
2018-08-07 10:38:40 +00:00
|
|
|
; to be able to recognize an overflow/underflow situation, rescale the arguments, and repeat the
|
|
|
|
; calculation.
|
2018-08-07 02:14:36 +00:00
|
|
|
|
2018-08-15 11:38:49 +00:00
|
|
|
; Largest value: $3fffffff or +1048575.999(5)
|
2018-08-14 01:01:18 +00:00
|
|
|
; Smallest value: $c0000000 or -1048576.000(0)
|
2018-08-15 11:38:49 +00:00
|
|
|
; Largest value for DEC/HEX: $3d08ffff or +999999.999
|
2018-08-14 01:01:18 +00:00
|
|
|
; Smallest value for DEC/HEX: $c2f70001 or -999999.999
|
2018-08-07 02:14:36 +00:00
|
|
|
|
|
|
|
; Instructions
|
|
|
|
|
|
|
|
; SET r aabbcc.dd 1r dd cc bb aa Rr <- aabbccdd - set register
|
2018-08-08 00:19:52 +00:00
|
|
|
; PSH r 2r RS <- Rr - push onto stack
|
|
|
|
; POP r 3r Rr <- RS - pop from stack
|
2018-08-07 02:14:36 +00:00
|
|
|
; EXC r 4r Rr <-> RS - exchange Rr with stack
|
|
|
|
; INR r 5r Rr <- Rr + 1.0 - increment register
|
|
|
|
; DCR r 6r Rr <- Rr - 1.0 - decrement register
|
|
|
|
; TST r 7r F <- Rr <=> 0.0 - test register
|
|
|
|
; DEC r 8r Rr <- dec(Rr) - convert Rr from hex aabbccdd to decimal #########
|
|
|
|
; HEX r 9r Rr <- hex(Rr) - convert Rr from decimal ######### to hex aabbccdd
|
|
|
|
; ADD r pq ar pq Rr <- Rp + Rq - addition
|
|
|
|
; SUB r pq br pq Rr <- Rp - Rq - subtraction
|
|
|
|
; MUL r pq cr pq Rr <- Rp * Rq - multiplication
|
|
|
|
; DIV r pq dr pq Rr <- Rp / Rq - division
|
|
|
|
; MOD r pq er pq Rr <- Rp % Rq - modulus
|
|
|
|
; EXT z ... fz ... - system and user defined functions
|
|
|
|
|
|
|
|
; ESC 00 - escape back into regular assembler
|
|
|
|
; RTN 01 - return from subroutine
|
|
|
|
; BRS xxyy 02 yy xx PC <- PC + xxyy - branch to subroutine
|
|
|
|
; BRA xxyy 03 yy xx PC <- PC + xxyy - branch always
|
|
|
|
; BRE xxyy 04 yy xx PC <- PC + xxyy - branch if Rp = Rq (after CMR)
|
|
|
|
; BRG xxyy 05 yy xx PC <- PC + xxyy - branch if Rp > Rq (after CMR)
|
|
|
|
; BRL xxyy 06 yy xx PC <- PC + xxyy - branch if Rp < Rq (after CMR)
|
|
|
|
; BRZ xxyy 07 yy xx PC <- PC + xxyy - branch if Rr = 0.0 (after TST)
|
|
|
|
; BRP xxyy 08 yy xx PC <- PC + xxyy - branch if Rr > 0.0 (after TST)
|
|
|
|
; BRN xxyy 09 yy xx PC <- PC + xxyy - branch if Rr < 0.0 (after TST)
|
|
|
|
; BRO xxyy 0a yy xx PC <- PC + xxyy - branch if overflow (after arithmetic operations)
|
|
|
|
; BRU xxyy 0b yy xx PC <- PC + xxyy - branch if underflow (after arithmetic operations)
|
|
|
|
; CPR pq 0c pq Rp <- Rq - copy register
|
|
|
|
; LDI pq 0d pq Rp <- (int(Rq)) - load indirect from memory
|
|
|
|
; SVI pq 0e pq (int(Rp)) <- Rq - save indirect to memory
|
|
|
|
; CMR pq 0f pq F <- Rp <=> Rq - compare registers
|
|
|
|
|
2018-08-21 13:14:16 +00:00
|
|
|
; 40 bytes in page zero for common registers
|
|
|
|
_R0 = $b8
|
2018-08-07 02:14:36 +00:00
|
|
|
_R1 = _R0 + 4
|
|
|
|
_R2 = _R1 + 4
|
|
|
|
_R3 = _R2 + 4
|
|
|
|
_R4 = _R3 + 4
|
|
|
|
_R5 = _R4 + 4
|
|
|
|
_R6 = _R5 + 4
|
|
|
|
_R7 = _R6 + 4
|
|
|
|
_R8 = _R7 + 4
|
|
|
|
_R9 = _R8 + 4
|
|
|
|
|
2018-08-21 13:14:16 +00:00
|
|
|
; 32 bytes in page zero for internal registers
|
|
|
|
_I0 = $e0 ; workspace for ADD, SUB, MUL, DIV, MOD, EXC
|
|
|
|
_I1 = _I0 + 4
|
|
|
|
_I2 = _I1 + 4
|
|
|
|
_I3 = _I2 + 4
|
|
|
|
_I4 = _I3 + 4
|
|
|
|
_I5 = _I4 + 4
|
|
|
|
_I6 = _I5 + 4 ; register I6 maintains common status
|
|
|
|
_I7 = _I6 + 4 ; register I7 saves/restores processor status
|
|
|
|
|
|
|
|
; register I6 maintains common status
|
2018-08-07 02:14:36 +00:00
|
|
|
; (dd cc bb aa) aa: index for register stack RS / ccbb: program counter PC / dd: flags F UONPZLGE
|
2018-08-21 13:14:16 +00:00
|
|
|
_RSI = _I6 ; register stack index
|
2018-08-07 02:14:36 +00:00
|
|
|
_PCL = _RSI + 1 ; program counter low
|
|
|
|
_PCH = _PCL + 1 ; program counter high
|
|
|
|
_F = _PCH + 1 ; flags
|
|
|
|
_PC = _PCL ; program counter
|
|
|
|
|
|
|
|
; bits for flags
|
|
|
|
_F_E = 1 ; if Rp = Rq (after CMP)
|
|
|
|
_F_G = 2 ; if Rp > Rq (after CMP)
|
|
|
|
_F_L = 4 ; if Rp < Rq (after CMP)
|
|
|
|
_F_Z = 8 ; if Rr = 0.0 (after TST)
|
|
|
|
_F_P = 16 ; if Rr > 0.0 (after TST)
|
|
|
|
_F_N = 32 ; if Rr < 0.0 (after TST)
|
|
|
|
_F_O = 64 ; if overflow (after arithmetic operations)
|
|
|
|
_F_U = 128 ; if underflow (after arithmetic operations)
|
|
|
|
|
2018-08-21 13:14:16 +00:00
|
|
|
; register I7 saves/restores processor status
|
2018-08-07 02:14:36 +00:00
|
|
|
; (dd cc bb aa) aa: accumulator, bb: index X, cc: index Y, dd: processor status
|
2018-08-21 13:14:16 +00:00
|
|
|
_ACC = _I7 ; saved accumulator to restore
|
2018-08-07 02:14:36 +00:00
|
|
|
_IDX = _ACC + 1 ; saved index X to restore
|
|
|
|
_IDY = _IDX + 1 ; saved index Y to restore
|
|
|
|
_PS = _IDY + 1 ; saved processor status to restore
|
|
|
|
|
2018-08-08 00:14:24 +00:00
|
|
|
; 224 bytes of page two
|
2018-08-07 02:14:36 +00:00
|
|
|
_RS = $200 ; register stack
|
2018-08-08 00:14:24 +00:00
|
|
|
_RSS = (FN_FX - _RS) ; register stack size
|
2018-08-07 02:14:36 +00:00
|
|
|
|
2018-08-08 00:14:24 +00:00
|
|
|
; last 32 bytes of page two
|
2018-08-14 01:01:18 +00:00
|
|
|
FN_FX = $2e0 ; list of system and user functions
|
2018-08-07 02:14:36 +00:00
|
|
|
|
|
|
|
; function constants
|
|
|
|
_ESC_C = $00
|
|
|
|
_RTN_C = $01
|
|
|
|
_BRS_C = $02
|
|
|
|
_BRA_C = $03
|
|
|
|
_BRE_C = $04
|
|
|
|
_BRG_C = $05
|
|
|
|
_BRL_C = $06
|
|
|
|
_BRZ_C = $07
|
|
|
|
_BRP_C = $08
|
|
|
|
_BRN_C = $09
|
|
|
|
_BRO_C = $0a
|
|
|
|
_BRU_C = $0b
|
|
|
|
_CPR_C = $0c
|
|
|
|
_LDI_C = $0d
|
|
|
|
_SVI_C = $0e
|
|
|
|
_CMR_C = $0f
|
|
|
|
|
|
|
|
_SET_C = $10
|
2018-08-08 00:19:52 +00:00
|
|
|
_PSH_C = $20
|
|
|
|
_POP_C = $30
|
2018-08-07 02:14:36 +00:00
|
|
|
_EXC_C = $40
|
|
|
|
_INR_C = $50
|
|
|
|
_DCR_C = $60
|
|
|
|
_TST_C = $70
|
|
|
|
_DEC_C = $80
|
|
|
|
_HEX_C = $90
|
|
|
|
_ADD_C = $a0
|
|
|
|
_SUB_C = $b0
|
|
|
|
_MUL_C = $c0
|
|
|
|
_DIV_C = $d0
|
|
|
|
_MOD_C = $e0
|
|
|
|
_EXT_C = $f0
|
|
|
|
|
|
|
|
; common constants
|
2018-08-18 02:57:44 +00:00
|
|
|
_MAX_V = $3f ; i.e. the $3f part of $3fffffff
|
2018-08-07 02:14:36 +00:00
|
|
|
|
|
|
|
; plus and minus 1 for increment and decrement
|
|
|
|
_PLS_1 = %00000100 ; i.e. the $04 part of $00000400
|
2018-08-14 01:01:18 +00:00
|
|
|
_MNS_1 = %11111100 ; i.e. the $fc part of $fffffc00
|
2018-08-07 02:14:36 +00:00
|
|
|
|
|
|
|
_MSK_O = %11000000 ; mask for overflow
|
2018-08-14 01:01:18 +00:00
|
|
|
_MSK_R = %00111100 ; mask for registers
|
2018-08-07 02:14:36 +00:00
|
|
|
|
2018-08-08 01:36:06 +00:00
|
|
|
; mask for TST
|
2018-08-14 01:01:18 +00:00
|
|
|
_MSK_T = (_F_Z + _F_P + _F_N)^$ff
|
2018-08-08 01:36:06 +00:00
|
|
|
|
2018-08-07 02:14:36 +00:00
|
|
|
#endif /* __COMMON_H */
|