$A65E/42590: Perform [clr] A65E: D0 2D BNE $A68D Jump from $A87D: A660: 20 E7 FF JSR $FFE7 ; Close All Channels And Files Jump from $E101: A663: A5 37 LDA $37 ; Pointer: Highest Address available to BASIC A665: A4 38 LDY $38 ; Pointer: Highest Address available to BASIC A667: 85 33 STA $33 ; Pointer: Bottom of String space A669: 84 34 STY $34 ; Pointer: Bottom of String space A66B: A5 2D LDA $2D ; Pointer: Start of BASIC Variables A66D: A4 2E LDY $2E ; Pointer: Start of BASIC Variables A66F: 85 2F STA $2F ; Pointer: Start of BASIC Arrays A671: 84 30 STY $30 ; Pointer: Start of BASIC Arrays A673: 85 31 STA $31 ; Pointer: End of BASIC Arrays + 1 A675: 84 32 STY $32 ; Pointer: End of BASIC Arrays + 1 Jump from $E1BB: A677: 20 1D A8 JSR $A81D ; Perform [restore] Jump from $A462, $E382: A67A: A2 19 LDX #$19 A67C: 86 16 STX $16 ; Pointer: Temporary String Stack A67E: 68 PLA A67F: A8 TAY A680: 68 PLA A681: A2 FA LDX #$FA A683: 9A TXS A684: 48 PHA A685: 98 TYA A686: 48 PHA A687: A9 00 LDA #$00 A689: 85 3E STA $3E ; Pointer: BASIC Statement for CONT A68B: 85 10 STA $10 ; Flag: Subscript reference/User Function call Jump from $A65E, $A6A2: A68D: 60 RTS Previous Page / Next Page |