Atom Nieuws 2000 nr 2
../../../images/back.gif ../../../images/exit.gif ../../../images/forward.gif
pagina 8
Rom reader for the Acorn Atom
ingezonden door Janny Looyenga

Note van de redactie: dit artikel is door Janny gevonden op het Internet. De tekst is niet in zuiver Atomformaat. Wegens tijdgebrek heb ik dit niet om kunnen zetten. Aan een ieder de uitnodiging om deze listing te bewerken zodat deze draait op een Atom (emulator). Het lijkt er zelfs op dat hiervoor een stukje hardware nodig is.
REM rom reader for the acorn atom
Q = #B801
M =#80, D = #81, L = #82, H = #L+1
DIM LL20:
F.N=1TO 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
../../../images/back.gif ../../../images/exit.gif ../../../images/forward.gif