44 lines
698 B
Plaintext
44 lines
698 B
Plaintext
RegA = $F0
|
|
RegF = RegA+1 ; Not used
|
|
RegBC = RegA+2 ; WORD
|
|
RegC = RegA+2
|
|
RegB = RegA+3
|
|
RegDE = RegA+4 ; WORD
|
|
RegE = RegA+4
|
|
RegD = RegA+5
|
|
RegHL = RegA+6 ; WORD
|
|
RegL = RegA+6
|
|
RegH = RegA+7
|
|
RegIX = RegA+8 ; WORD
|
|
|
|
TmpHL = RegA+10
|
|
TmpL = TmpHL
|
|
TmpH = TmpHL+1
|
|
|
|
MBBase = TmpHL+2 ; Mockingboard base (only used in INIT - not in INTERRUPT)
|
|
MBBaseL = MBBase
|
|
MBBaseH = MBBase+1
|
|
|
|
ZPSize = MBBaseH - RegA + 1
|
|
|
|
;--------------------------------------
|
|
|
|
!macro SaveRegs .block {
|
|
!set ZP = RegA
|
|
!do while ZP <= TmpH {
|
|
lda ZP
|
|
sta .block + ZP - RegA
|
|
!set ZP = ZP + 1
|
|
}
|
|
}
|
|
|
|
!macro RestoreRegs .block {
|
|
!set ZP = RegA
|
|
!do while ZP <= TmpH {
|
|
lda .block + ZP - RegA
|
|
sta ZP
|
|
!set ZP = ZP + 1
|
|
}
|
|
}
|
|
|