REM rom reader for the acorn atom Q = #B801 M = #80, D = #81, L = #82, H = #L+1 DIM LL20: F.N=1 TO 2: DIM P(-1): P.$21 [ LL1 LDX @#7F: STX Q+2 LDA @#F8 LL2 LDX @#10: CLC: BCC LL4 LL3 LDX @#20 LL4 STX M: STA D: LDX @7 LL5 TXA: ROL D: ROL a ORA @#70: STA Q EOR M: STA Q EOR M: STA Q DEX: BPL LL5: RTS LL6 LDA @#C8: JSR LL2 LDX @7 LL7 TXA: ROL A ORA @#70: STA Q LDA Q: ROL A: ROL D DEX: BPL LL7: RTS LL8 LDA D: JSR LL3 LDA @#F8: JSR LL2 LDA @#FA: JSR LL2 LDA @#F8: JSR LL2 LL9 LDA L: JSR LL3 LDA @#F8: JSR LL2 LDA @#FA: JSR LL2 LDA @#F8: JSR LL2 LL9 LDA H: JSR LL3 LDA @#F8: JSR LL2 LDA @#FA: JSR LL2 LDA @#F8: JSR LL2 ] N.:P$6,$7:LINK LL1 @=4: CLEAR 4 F. X = 0 TO 31: ?H = X F. Y = 0 TO 128: ?L = Y LINK LL9: REM address out LINK LL6: REM data in ?(32768+X+Y*32)=?D: REM data byte to screen N. N.