$B4F4/46324: Allocate Space for String
Jump from $B47D:
B4F4: 46 0F LSR $0F ; Flag: DATA scan/List Quote/Garbage collection
Jump from $B524:
B4F6: 48 PHA
B4F7: 49 FF EOR #$FF
B4F9: 38 SEC
B4FA: 65 33 ADC $33 ; Pointer: Bottom of String space
B4FC: A4 34 LDY $34 ; Pointer: Bottom of String space
B4FE: B0 01 BCS $B501
B500: 88 DEY
Jump from $B4FE:
B501: C4 32 CPY $32 ; Pointer: End of BASIC Arrays + 1
B503: 90 11 BCC $B516
B505: D0 04 BNE $B50B
B507: C5 31 CMP $31 ; Pointer: End of BASIC Arrays + 1
B509: 90 0B BCC $B516
Jump from $B505:
B50B: 85 33 STA $33 ; Pointer: Bottom of String space
B50D: 84 34 STY $34 ; Pointer: Bottom of String space
B50F: 85 35 STA $35 ; Utility String Pointer
B511: 84 36 STY $36 ; Utility String Pointer
B513: AA TAX
B514: 68 PLA
B515: 60 RTS
Jump from $B503, $B509:
B516: A2 10 LDX #$10
B518: A5 0F LDA $0F ; Flag: DATA scan/List Quote/Garbage collection
B51A: 30 B6 BMI $B4D2 ; Set Up String
B51C: 20 26 B5 JSR $B526 ; Garbage Collection
B51F: A9 80 LDA #$80
B521: 85 0F STA $0F ; Flag: DATA scan/List Quote/Garbage collection
B523: 68 PLA
B524: D0 D0 BNE $B4F6
Previous Page / Next Page