f



ACORN ATOM


   REM THE 4 ACORNS
   DIM VV9;F.A=0TO9;VVA=-1;N.
   P."247 BYTES OPCODE, STARTING AT:"'
   IN.P; Q=P
   P."BUSY..."'
   P.$21
   GOS.a;GOS.a
   P.$6
   @=0
   P."START PROGRAM WITH 'LINK #"&Q"'."'
   P."PRESS CTRL-1/2/3/4"'
   END
  aP=Q;[
        LDA #209
        CMP @VV1/256
        BEQ VV0
        STA #28EE
        LDA #208
        STA #28ED
        LDA @VV1/256
        STA #209
        LDA @VV1&255
        STA #208
   :VV0 RTS
   :VV1 PHP
        CMP @#15
        BCS VV2
        CMP @#11
        BCC VV2
        JMP VV3
   :VV2 PLP
        JMP (#28ED)
   :VV3 STX #E4
        STY #E5
        TSX
        STX #23F
        LDX #B000
        STX #70
        LDX #2901
        STX #72
        LDX @#7B
        CPX #23E
        BEQ P+10
        STX #23E
        LDY @#11
        STY #23D
        CMP #23D
        BNE P+5
        JMP VV4
   :VV6 LDY @#92
        CMP #963D
        BEQ VV5
        LDY @#8C
        CMP #903D
        BEQ VV5
        LDY @#86
        CMP #8A3D
        BEQ VV5
        CPX #963E
        BEQ P+8
        STA #963D
        JMP VV6
        CPX #903E
        BEQ P+8
        STA #903D
        JMP VV6
        CPX #8A3E
        BEQ P-20
        STA #8A3D
        JMP VV6
        LDA #FF00,X
        TAY
        LDA #8000,X
        STA #FF00,X
        TYA
        STA #8000,X
        JMP P+23
   :VV5 LDX @#11
        LDA P-20,X
        STA #28EE,X
        DEX
        BNE P-7
        STY #28F1
        STY #28F8
        JMP #28EF
        INX
        BNE P-4
        INC #28F1
        INC #28F5
        INC #28F8
        INC #28FC
        LDA @#82
        CMP #28F5
        BNE P+8
        STX #28F5
        STX #28FC
        LDA @#4
        CMP #28F5
        BNE P-36
        LDX @#7B
        CPX #23E
        BEQ P+8
        STX #23E
        JMP #FF3F
   :VV4 LDX #70
        STX #B000
        LDX #72
        STX #2901
        LDX #23F
        TXS
        LDX #E4
        LDY #E5
        PLP
        PLA
        PLA
        JMP #CD18
  ]R.
�


Met vriendelijke groeten, Jawade.
-- 
Nieuw! hosts file manager, voor bewerken enz.  In 2012 veel vernieuwd.
http://jawade.nl/     HexEditor, Diskeditors+MBR-rebuilder, POP3lezer,
Bootmanager (+Linux, +Engels), ClrMBR, SDir(DIRsize), Website-updater,
Consolefilebrowsers, Kalender, USB-stick tester, Webtellers en IP-log.
0
3/21/2012 8:49:02 PM
comp.sys.acorn.misc 5707 articles. 0 followers. michael104 (366) is leader. Post Follow

1 Replies
483 Views

Similar Articles

[PageSpeed] 29

Jawade wrote:
> =A0 =A0REM THE 4 ACORNS
> =A0 =A0DIM VV9;F.A=3D0TO9;VVA=3D-1;N.
> =A0 =A0P."247 BYTES OPCODE, STARTING AT:"'

Every time I stumble over a bit of Atom Basic code it looks
so wierd.

JGH
0
jgh2 (975)
3/21/2012 10:33:20 PM
Reply: