$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