$E12A/57642:   Perform [sys]

E12A: 20 8A AD  JSR $AD8A     ; Confirm Result
E12D: 20 F7 B7  JSR $B7F7     ; Convert FAC#1 to Integer in LINNUM
E130: A9 E1     LDA #$E1
E132: 48        PHA
E133: A9 46     LDA #$46
E135: 48        PHA
E136: AD 0F 03  LDA $030F     ; Storage for 6510 Status Register during SYS
E139: 48        PHA
E13A: AD 0C 03  LDA $030C     ; Storage for 6510 Accumulator during SYS
E13D: AE 0D 03  LDX $030D     ; Storage for 6510 X-Register during SYS
E140: AC 0E 03  LDY $030E     ; Storage for 6510 Y-Register during SYS
E143: 28        PLP
E144: 6C 14 00  JMP ($0014)   ; Temporary: Integer value
E147: 08        PHP
E148: 8D 0C 03  STA $030C     ; Storage for 6510 Accumulator during SYS
E14B: 8E 0D 03  STX $030D     ; Storage for 6510 X-Register during SYS
E14E: 8C 0E 03  STY $030E     ; Storage for 6510 Y-Register during SYS
E151: 68        PLA
E152: 8D 0F 03  STA $030F     ; Storage for 6510 Status Register during SYS
E155: 60        RTS

    Previous Page / Next Page