removed some obsolete code
This commit is contained in:
1 parent
31de810366
commit
cb851c9288
1 file changed
+2
-26
+2
-26
@@ -219,30 +219,6 @@ Mon_Exit:
|
|||||||
|
|
||||||
JMP (X_Vector)
|
JMP (X_Vector)
|
||||||
|
|
||||||
; ********
|
|
||||||
LAC_To_PC: ; XXX to be adapted
|
|
||||||
; ********
|
|
||||||
|
|
||||||
inc $D020 ; XXX for debug only
|
|
||||||
|
|
||||||
; called from Mon_Set_Register, Mon_Go and Mon_JSR
|
|
||||||
; as the first instruction. The carry flag was set from
|
|
||||||
; the routine Got_LAC if an error occured.
|
|
||||||
; Notice that the Bank, PCH and PCL values are stored
|
|
||||||
; high to low, reverse to the standard order.
|
|
||||||
|
|
||||||
; Bank, PCH and PCL are part of a list, that is used by
|
|
||||||
; the routines FAR_JMP and FAR_JSR of the operating system
|
|
||||||
|
|
||||||
BCS @error
|
|
||||||
;LDA Long_AC
|
|
||||||
;STA Bank+2
|
|
||||||
;LDA Long_AC+1
|
|
||||||
;STA Bank+1
|
|
||||||
;LDA Long_AC+2
|
|
||||||
;STA Bank
|
|
||||||
@error RTS
|
|
||||||
|
|
||||||
; *********
|
; *********
|
||||||
LAC_To_LPC:
|
LAC_To_LPC:
|
||||||
; *********
|
; *********
|
||||||
@@ -666,8 +642,6 @@ Mon_Assemble:
|
|||||||
|
|
||||||
@found STX Ix_Mne
|
@found STX Ix_Mne
|
||||||
|
|
||||||
; XXX start debugging from here
|
|
||||||
|
|
||||||
; find 1st. opcode for this mnemonic
|
; find 1st. opcode for this mnemonic
|
||||||
|
|
||||||
TXA
|
TXA
|
||||||
@@ -703,6 +677,8 @@ Mon_Assemble:
|
|||||||
|
|
||||||
; read operand
|
; read operand
|
||||||
|
|
||||||
|
; XXX start debugging from here
|
||||||
|
|
||||||
@labc LDA #0
|
@labc LDA #0
|
||||||
@labd STA Mode_Flags
|
@labd STA Mode_Flags
|
||||||
JSR Read_Number
|
JSR Read_Number
|
||||||
|
|||||||
Reference in new issue
Block a user