$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