Home » Archimedes archive » Acorn User » AU 1995-02.adf » !Dark_DarkHorse » !DarkHorse/WorkHorses/Phaser
!DarkHorse/WorkHorses/Phaser
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1995-02.adf » !Dark_DarkHorse |
| Filename: | !DarkHorse/WorkHorses/Phaser |
| Read OK: | ✔ |
| File size: | 20E5 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > <Dark$Dir>.WorkHorses.Phaser
20
30DIM code% 4096
40
50PROCAssemble
60PROCSetV
70PROCDo
80END
90
100DEFPROCSetV
110!(code%+0)=5 : REM saver takes 5 args.
120!(code%+4)=24 : REM arg1 - No. of lines = 30
130!(code%+8)=12 : REM arg2 - x1 step = 16
140!(code%+12)=16 : REM arg3 - y1 step = 8
150!(code%+16)=16 : REM arg4 - x2 step = 24
160!(code%+20)=24 : REM arg5 - y2 step = 16
170
180$(code%+36)="<no.lines> <x1 step> <y1 step>"
190$(code%+68)="<x2 step> <y2 step>"
200
210ENDPROC
220
230DEFPROCDo
240MODE 12
250A%=1280:B%=1024:C%=16
260CALL (code%+100)
270REPEAT
280A%=RND(1280):B%=RND(1024)
290CALL (code%+108)
300UNTIL 0
310
320ENDPROC
330
340DEFPROCAssemble
350ncol=8:gcol=9:tint=10
360FOR pass=0 TO 3 STEP 3
370P%=code%
380[OPT pass
390
400.argtype
410EQUD 0 ;
420
430.args
440EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
450
460.help
470EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
480EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
690
691
692B init ; Jumps to the initialisation routine.
693 ; this is location code+100
694
695B shutdown ; Jumps to the shutdown routine.
696 ; this is location code+104
697
700
701
710.poll_ret
720
730MOV r11,r0
740MOV r12,r1
750
760ADR r0,regs
770STMIA r0!,{r1-r14}
780
790MOV r0,#188:MOV r1,r11:MOV r2,r12:SWI "OS_Plot"
800MOV r0,#188:MOV r1,#4096:MOV r2,#4096:SWI "OS_Plot"
810MOV r0,#190:ADD r1,r11,#4:ADD r2,r12,#4:SWI "OS_Plot"
820
830MOV r0,#188:MOV r1,#0:MOV r2,r12:SWI "OS_Plot"
840MOV r0,#188:MOV r1,r11:MOV r2,#4096:SWI "OS_Plot"
850MOV r0,#190:SUB r1,r0,#194:ADD r2,r12,#4:SWI "OS_Plot"
860
870MOV r0,#188:MOV r1,#0:MOV r2,#0:SWI "OS_Plot"
880MOV r0,#188:MOV r1,r11:MOV r2,r12:SWI "OS_Plot"
890MOV r0,#190:SUB r1,r0,#194:MOV r2,r1:SWI "OS_Plot"
900
910MOV r0,#188:MOV r1,r11:MOV r2,#0:SWI "OS_Plot"
920MOV r0,#188:MOV r1,#4096:MOV r2,r12:SWI "OS_Plot"
930MOV r0,#190:ADD r1,r11,#4:SUB r2,r0,#194:SWI "OS_Plot"
940
950ADR r0,dims
960LDR r11,[r0]
970LDR r12,[r0,#4]
980
990ADR r6,vars
1000
1010MOV r5,r14:BL SetCol:MOV r14,r5
1020MOV r0,#4:LDR r1,[r6]:LDR r2,[r6,#4]:SWI "OS_Plot"
1030MOV r0,#5:LDR r1,[r6,#8]:LDR r2,[r6,#12]:SWI "OS_Plot"
1040
1050LDR r1,[r6]: LDR r2,[r6,#32]:ADD r1,r1,r2:STR r1,[r6]
1060LDR r1,[r6,#4]: LDR r2,[r6,#36]:ADD r1,r1,r2:STR r1,[r6,#4]
1070LDR r1,[r6,#8]: LDR r2,[r6,#40]:ADD r1,r1,r2:STR r1,[r6,#8]
1080LDR r1,[r6,#12]:LDR r2,[r6,#44]:ADD r1,r1,r2:STR r1,[r6,#12]
1090
1100SWI 256+18:SWI 256:SWI 256
1110SWI 256+23:SWI 256+17:SWI 256+2:SWI 256
1120SWI 256:SWI 256:SWI 256:SWI 256:SWI 256:SWI 256
1130
1140MOV r0,#4:LDR r1,[r6,#16]:LDR r2,[r6,#20]:SWI "OS_Plot"
1150MOV r0,#5:LDR r1,[r6,#24]:LDR r2,[r6,#28]:SWI "OS_Plot"
1160
1170LDR r1,[r6,#16]:LDR r2,[r6,#48]:ADD r1,r1,r2:STR r1,[r6,#16]
1180LDR r1,[r6,#20]:LDR r2,[r6,#52]:ADD r1,r1,r2:STR r1,[r6,#20]
1190LDR r1,[r6,#24]:LDR r2,[r6,#56]:ADD r1,r1,r2:STR r1,[r6,#24]
1200LDR r1,[r6,#28]:LDR r2,[r6,#60]:ADD r1,r1,r2:STR r1,[r6,#28]
1210
1220ADR r4,avars:STMIA r4,{r2-r11,r14}:BL Check :LDMIA r4,{r2-11,r14}
1230
1240
1250ADR r0,regs
1260LDMIA r0!,{r1-r14}
1270MOV PC,r14
1280
1290.exit
1300ADR r6,vars
1310LDR r0,[r6,#0]:STR r0,[r6,#16]
1320LDR r0,[r6,#4]:STR r0,[r6,#20]
1330LDR r0,[r6,#8]:STR r0,[r6,#24]
1340LDR r0,[r6,#12]:STR r0,[r6,#28]
1350
1360ADR r0,regs
1370LDMIA r0!,{r1-r14}
1380
1390MOV PC,r14
1400
1410.init
1420
1430ADR r3,dims
1440STR r0,[r3]
1450STR r1,[r3,#4]
1460
1470MOV r11,r0
1480MOV r12,r1
1490
1500ADR r0,regs
1510STMIA r0!,{r1-r14}
1520
1530ADR r3,args
1540LDR r7,[r3] ; r7 = number of lines
1550ADR r6,vars ; r6 = address of store for line points
1560MOV r4,#50 :STR r4,[r6,#0]:STR r4,[r6,#16]
1570MOV r4,#200:STR r4,[r6,#4]:STR r4,[r6,#20]
1580MOV r4,#360:STR r4,[r6,#8]:STR r4,[r6,#24]
1590MOV r4,#400:STR r4,[r6,#12]:STR r4,[r6,#28]
1600LDR r4,[r3,#4] :STR r4,[r6,#32]:STR r4,[r6,#48]
1610LDR r4,[r3,#8] :STR r4,[r6,#36]:STR r4,[r6,#52]
1620LDR r4,[r3,#12]:STR r4,[r6,#40]:STR r4,[r6,#56]
1630LDR r4,[r3,#16]:STR r4,[r6,#44]:STR r4,[r6,#60]
1640
1650ADR r3,nocols
1660STR r2,[r3] ; store number of colours
1670
1680.mainagain
1690
1700MOV r5,r14:BL SetCol:MOV r14,r5
1710
1720ADR r6,vars
1730
1740MOV r0,#4:LDR r1,[r6]:LDR r2,[r6,#4]:SWI "OS_Plot"
1750MOV r0,#5:LDR r1,[r6,#8]:LDR r2,[r6,#12]:SWI "OS_Plot"
1760
1770LDR r1,[r6]:LDR r2,[r6,#32]:ADD r1,r1,r2:STR r1,[r6]
1780LDR r1,[r6,#4]:LDR r2,[r6,#36]:ADD r1,r1,r2:STR r1,[r6,#4]
1790LDR r1,[r6,#8]:LDR r2,[r6,#40]:ADD r1,r1,r2:STR r1,[r6,#8]
1800LDR r1,[r6,#12]:LDR r2,[r6,#44]:ADD r1,r1,r2:STR r1,[r6,#12]
1810MOV r5,r14:BL Check:MOV r14,r5
1820ADR r4,avars:STMIA r4,{r14,r0-r3,r5-11}:BL Scan:CMPS r10,#1
1830LDMIA r4,{r14,r0-r3,r5-11}:BEQ exit
1840SUBS r7,r7,#1
1850
1860BPL mainagain
1870
1880
1890MOV PC,r14
1900
1910.vars ; storage for program variables.
1920EQUD 50:EQUD 200:EQUD 350:EQUD 400:EQUD 50:EQUD 200:EQUD 350:EQUD 400
1930EQUD 16:EQUD 8:EQUD 24:EQUD 16:EQUD 16:EQUD 8:EQUD 24:EQUD 16
1940
1950.avars ; for reserving the registers.
1960EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
1970EQUD 0:EQUD 0:EQUD 0:EQUD 0
1980
1990.regs
2000EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
2010EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
2020
2030.dims
2040EQUD 0:EQUD 0
2050
2060;--------------------------------------------------------------------
2070
2080.Scan
2090; on return r10 will contain 1 = exit prog. 0 = don't exit.
2100
2110SWI "OS_Mouse":MOV r8,r0:MOV r9,r1:MOV r11,r2
2120MOV r10,#0:MOV r0,#121:MOV r1,#0:SWI "OS_Byte":CMPS r1,#255:MOVNE r10,#1
2130SWI "OS_Mouse":CMPS r0,r8:MOVNE r10,#1:CMPS r1,r9:MOVNE r10,#1
2140CMPS r2,r11::MOVNE r10,#1
2150MOV PC,r14
2160
2170;--------------------------------------------------------------------
2180
2190.Check
2200LDR r0,[r6]:LDR r1,[r6,#32]:CMPS r0,r11:SUBGT r1,r1,r1,LSL#1
2210STRGT r1,[r6,#32]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#32]
2220LDR r0,[r6,#4]:LDR r1,[r6,#36]:CMPS r0,r12:SUBGT r1,r1,r1,LSL#1
2230STRGT r1,[r6,#36]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#36]
2240LDR r0,[r6,#8]:LDR r1,[r6,#40]:CMPS r0,r11:SUBGT r1,r1,r1,LSL#1
2250STRGT r1,[r6,#40]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#40]
2260LDR r0,[r6,#12]:LDR r1,[r6,#44]:CMPS r0,r12:SUBGT r1,r1,r1,LSL#1
2270STRGT r1,[r6,#44]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#44]
2280LDR r0,[r6,#16]:LDR r1,[r6,#48]:CMPS r0,r11:SUBGT r1,r1,r1,LSL#1
2290STRGT r1,[r6,#48]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#48]
2300LDR r0,[r6,#20]:LDR r1,[r6,#52]:CMPS r0,r12:SUBGT r1,r1,r1,LSL#1
2310STRGT r1,[r6,#52]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#52]
2320LDR r0,[r6,#24]:LDR r1,[r6,#56]:CMPS r0,r11:SUBGT r1,r1,r1,LSL#1
2330STRGT r1,[r6,#56]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#56]
2340LDR r0,[r6,#28]:LDR r1,[r6,#60]:CMPS r0,r12:SUBGT r1,r1,r1,LSL#1
2350STRGT r1,[r6,#60]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#60]
2360MOV PC,r14
2370
2380;--------------------------------------------------------------------
2390
2400;-----------------------------------------------------------------
2410
2420.shutdown ; the shutdown code
2430
2440;--------------------------------------------------------------------
2450; ********************************************
2460; *** YOUR SHUTDOWN CODE STARTS HERE ***
2470; ********************************************
2480
2490; blah! blah! blah! blah! blah! blah! blah!
2500
2510; ********************************************
2520; *** YOUR SHUTDOWN CODE ENDS HERE ***
2530; ********************************************
2540;--------------------------------------------------------------------
2550MOV PC,r14 ; exit shutdown code.
2560
2570
2580
2590.nocols
2600EQUD 2 ; Actual No. of colours 2/4/16/256
2610EQUD 1 ; GCOL
2620EQUD 0 ; TINT
2630
2640.SetCol
2650
2660LDR ncol,[PC,#(-20)] ; Load No. of colours relative to PC.
2670LDR gcol,[PC,#(-20)] ; Load Current GCOL relative to PC.
2680LDR tint,[PC,#(-20)] ; Load Current TINT relative to PC.
2690
2700CMPS ncol,#256 ; If not a 256 colour mode ..
2710BLT lessthan256 ; .. goto .lessthan256
2720
2730; Set GCOL 0,gcol TINT tint
2740
2750SWI 256+18:SWI 256:MOV r0,gcol:SWI "OS_WriteC"
2760SWI 256+23:SWI 256+17:SWI 256+2:MOV r0,tint:SWI "OS_WriteC"
2770SWI 256:SWI 256:SWI 256:SWI 256:SWI 256:SWI 256
2780
2790ADD tint,tint,#64
2800CMPS tint,#256
2810MOVEQ tint,#0
2820ADDEQ gcol,gcol,#1
2830CMPS gcol,#64
2840MOVGE gcol,#1
2850STR gcol,[PC,#(-120)]
2860STR tint,[PC,#(-120)]
2870MOV PC,r14
2880
2890.lessthan256
2900SWI 256+18:SWI 256:MOV r0,gcol:SWI "OS_WriteC"
2910
2920ADD gcol,gcol,#1
2930CMPS gcol,ncol
2940MOVGE gcol,#1
2950STR gcol,[PC,#(-160)]
2960MOV PC,r14
2970
2980]
2990NEXT pass
3000PRINT P%-code%
3010REM A$=GET$
3020ENDPROC
$� > <Dark$Dir>.WorkHorses.Phaser
� code% 4096
(
2
�Assemble
< �SetV
F�Do
P�
Z
d
��SetV
n*!(code%+0)=5 : � saver takes 5 args.
x/!(code%+4)=24 : � arg1 - No. of lines = 30
�*!(code%+8)=12 : � arg2 - x1 step = 16
�*!(code%+12)=16 : � arg3 - y1 step = 8
�*!(code%+16)=16 : � arg4 - x2 step = 24
�*!(code%+20)=24 : � arg5 - y2 step = 16
�
�0$(code%+36)="<no.lines> <x1 step> <y1 step>"
�%$(code%+68)="<x2 step> <y2 step>"
�
��
�
���Do
�� 12
�A%=1280:B%=1024:C%=16
� (code%+100)
�
A%=�(1280):B%=�(1024)
"� (code%+108)
,� 0
6
@�
J
T��Assemble
^ncol=8:gcol=9:tint=10
h� pass=0 � 3 � 3
r P%=code%
|
[OPT pass
�
� .argtype
� EQUD 0 ;
�
� .args
�;EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�
� .help
�;EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�;EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�
�
�5B init ; Jumps to the initialisation routine.
�* ; this is location code+100
�
�/B shutdown ; Jumps to the shutdown routine.
�* ; this is location code+104
�
�
�
�
.poll_ret
�
�MOV r11,r0
�MOV r12,r1
�
�ADR r0,regs
STMIA r0!,{r1-r14}
3MOV r0,#188:MOV r1,r11:MOV r2,r12:SWI "OS_Plot"
7MOV r0,#188:MOV r1,#4096:MOV r2,#4096:SWI "OS_Plot"
*9MOV r0,#190:ADD r1,r11,#4:ADD r2,r12,#4:SWI "OS_Plot"
4
>2MOV r0,#188:MOV r1,#0:MOV r2,r12:SWI "OS_Plot"
H5MOV r0,#188:MOV r1,r11:MOV r2,#4096:SWI "OS_Plot"
R:MOV r0,#190:SUB r1,r0,#194:ADD r2,r12,#4:SWI "OS_Plot"
\
f1MOV r0,#188:MOV r1,#0:MOV r2,#0:SWI "OS_Plot"
p3MOV r0,#188:MOV r1,r11:MOV r2,r12:SWI "OS_Plot"
z6MOV r0,#190:SUB r1,r0,#194:MOV r2,r1:SWI "OS_Plot"
�
�2MOV r0,#188:MOV r1,r11:MOV r2,#0:SWI "OS_Plot"
�5MOV r0,#188:MOV r1,#4096:MOV r2,r12:SWI "OS_Plot"
�:MOV r0,#190:ADD r1,r11,#4:SUB r2,r0,#194:SWI "OS_Plot"
�
�ADR r0,dims
�LDR r11,[r0]
�LDR r12,[r0,#4]
�
�ADR r6,vars
�
�#MOV r5,r14:BL SetCol:MOV r14,r5
�6MOV r0,#4:LDR r1,[r6]:LDR r2,[r6,#4]:SWI "OS_Plot"
:MOV r0,#5:LDR r1,[r6,#8]:LDR r2,[r6,#12]:SWI "OS_Plot"
<LDR r1,[r6]: LDR r2,[r6,#32]:ADD r1,r1,r2:STR r1,[r6]
$?LDR r1,[r6,#4]: LDR r2,[r6,#36]:ADD r1,r1,r2:STR r1,[r6,#4]
.?LDR r1,[r6,#8]: LDR r2,[r6,#40]:ADD r1,r1,r2:STR r1,[r6,#8]
8@LDR r1,[r6,#12]:LDR r2,[r6,#44]:ADD r1,r1,r2:STR r1,[r6,#12]
B
L SWI 256+18:SWI 256:SWI 256
V+SWI 256+23:SWI 256+17:SWI 256+2:SWI 256
`3SWI 256:SWI 256:SWI 256:SWI 256:SWI 256:SWI 256
j
t;MOV r0,#4:LDR r1,[r6,#16]:LDR r2,[r6,#20]:SWI "OS_Plot"
~;MOV r0,#5:LDR r1,[r6,#24]:LDR r2,[r6,#28]:SWI "OS_Plot"
�
�@LDR r1,[r6,#16]:LDR r2,[r6,#48]:ADD r1,r1,r2:STR r1,[r6,#16]
�@LDR r1,[r6,#20]:LDR r2,[r6,#52]:ADD r1,r1,r2:STR r1,[r6,#20]
�@LDR r1,[r6,#24]:LDR r2,[r6,#56]:ADD r1,r1,r2:STR r1,[r6,#24]
�@LDR r1,[r6,#28]:LDR r2,[r6,#60]:ADD r1,r1,r2:STR r1,[r6,#28]
�
�EADR r4,avars:STMIA r4,{r2-r11,r14}:BL Check :LDMIA r4,{r2-11,r14}
�
�
�ADR r0,regs
�LDMIA r0!,{r1-r14}
�MOV PC,r14
.exit
ADR r6,vars
"LDR r0,[r6,#0]:STR r0,[r6,#16]
("LDR r0,[r6,#4]:STR r0,[r6,#20]
2"LDR r0,[r6,#8]:STR r0,[r6,#24]
<#LDR r0,[r6,#12]:STR r0,[r6,#28]
F
PADR r0,regs
ZLDMIA r0!,{r1-r14}
d
nMOV PC,r14
x
� .init
�
�ADR r3,dims
�STR r0,[r3]
�STR r1,[r3,#4]
�
�MOV r11,r0
�MOV r12,r1
�
�ADR r0,regs
�STMIA r0!,{r1-r14}
�
�ADR r3,args
&LDR r7,[r3] ; r7 = number of lines
7ADR r6,vars ; r6 = address of store for line points
.MOV r4,#50 :STR r4,[r6,#0]:STR r4,[r6,#16]
".MOV r4,#200:STR r4,[r6,#4]:STR r4,[r6,#20]
,.MOV r4,#360:STR r4,[r6,#8]:STR r4,[r6,#24]
6/MOV r4,#400:STR r4,[r6,#12]:STR r4,[r6,#28]
@3LDR r4,[r3,#4] :STR r4,[r6,#32]:STR r4,[r6,#48]
J3LDR r4,[r3,#8] :STR r4,[r6,#36]:STR r4,[r6,#52]
T3LDR r4,[r3,#12]:STR r4,[r6,#40]:STR r4,[r6,#56]
^3LDR r4,[r3,#16]:STR r4,[r6,#44]:STR r4,[r6,#60]
h
rADR r3,nocols
|)STR r2,[r3] ; store number of colours
�
�.mainagain
�
�#MOV r5,r14:BL SetCol:MOV r14,r5
�
�ADR r6,vars
�
�6MOV r0,#4:LDR r1,[r6]:LDR r2,[r6,#4]:SWI "OS_Plot"
�:MOV r0,#5:LDR r1,[r6,#8]:LDR r2,[r6,#12]:SWI "OS_Plot"
�
�8LDR r1,[r6]:LDR r2,[r6,#32]:ADD r1,r1,r2:STR r1,[r6]
�>LDR r1,[r6,#4]:LDR r2,[r6,#36]:ADD r1,r1,r2:STR r1,[r6,#4]
�>LDR r1,[r6,#8]:LDR r2,[r6,#40]:ADD r1,r1,r2:STR r1,[r6,#8]
@LDR r1,[r6,#12]:LDR r2,[r6,#44]:ADD r1,r1,r2:STR r1,[r6,#12]
"MOV r5,r14:BL Check:MOV r14,r5
?ADR r4,avars:STMIA r4,{r14,r0-r3,r5-11}:BL Scan:CMPS r10,#1
&'LDMIA r4,{r14,r0-r3,r5-11}:BEQ exit
0SUBS r7,r7,#1
:
DBPL mainagain
N
X
bMOV PC,r14
l
v*.vars ; storage for program variables.
�IEQUD 50:EQUD 200:EQUD 350:EQUD 400:EQUD 50:EQUD 200:EQUD 350:EQUD 400
�AEQUD 16:EQUD 8:EQUD 24:EQUD 16:EQUD 16:EQUD 8:EQUD 24:EQUD 16
�
�).avars ; for reserving the registers.
�;EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
� EQUD 0:EQUD 0:EQUD 0:EQUD 0
�
� .regs
�;EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�;EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�
� .dims
�EQUD 0:EQUD 0
I;--------------------------------------------------------------------
.Scan
*?; on return r10 will contain 1 = exit prog. 0 = don't exit.
4
>1SWI "OS_Mouse":MOV r8,r0:MOV r9,r1:MOV r11,r2
HLMOV r10,#0:MOV r0,#121:MOV r1,#0:SWI "OS_Byte":CMPS r1,#255:MOVNE r10,#1
RBSWI "OS_Mouse":CMPS r0,r8:MOVNE r10,#1:CMPS r1,r9:MOVNE r10,#1
\ CMPS r2,r11::MOVNE r10,#1
fMOV PC,r14
p
zI;--------------------------------------------------------------------
�
�
.Check
�@LDR r0,[r6]:LDR r1,[r6,#32]:CMPS r0,r11:SUBGT r1,r1,r1,LSL#1
�GSTRGT r1,[r6,#32]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#32]
�CLDR r0,[r6,#4]:LDR r1,[r6,#36]:CMPS r0,r12:SUBGT r1,r1,r1,LSL#1
�GSTRGT r1,[r6,#36]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#36]
�CLDR r0,[r6,#8]:LDR r1,[r6,#40]:CMPS r0,r11:SUBGT r1,r1,r1,LSL#1
�GSTRGT r1,[r6,#40]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#40]
�DLDR r0,[r6,#12]:LDR r1,[r6,#44]:CMPS r0,r12:SUBGT r1,r1,r1,LSL#1
�GSTRGT r1,[r6,#44]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#44]
�DLDR r0,[r6,#16]:LDR r1,[r6,#48]:CMPS r0,r11:SUBGT r1,r1,r1,LSL#1
�GSTRGT r1,[r6,#48]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#48]
�DLDR r0,[r6,#20]:LDR r1,[r6,#52]:CMPS r0,r12:SUBGT r1,r1,r1,LSL#1
GSTRGT r1,[r6,#52]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#52]
DLDR r0,[r6,#24]:LDR r1,[r6,#56]:CMPS r0,r11:SUBGT r1,r1,r1,LSL#1
GSTRGT r1,[r6,#56]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#56]
$DLDR r0,[r6,#28]:LDR r1,[r6,#60]:CMPS r0,r12:SUBGT r1,r1,r1,LSL#1
.GSTRGT r1,[r6,#60]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#60]
8MOV PC,r14
B
LI;--------------------------------------------------------------------
V
`F;-----------------------------------------------------------------
j
t!.shutdown ; the shutdown code
~
�I;--------------------------------------------------------------------
�<; ********************************************
�<; *** YOUR SHUTDOWN CODE STARTS HERE ***
�<; ********************************************
�
�:; blah! blah! blah! blah! blah! blah! blah!
�
�<; ********************************************
�<; *** YOUR SHUTDOWN CODE ENDS HERE ***
�<; ********************************************
�I;--------------------------------------------------------------------
�$MOV PC,r14 ; exit shutdown code.
.nocols
(/EQUD 2 ; Actual No. of colours 2/4/16/256
2EQUD 1 ; �
<EQUD 0 ; Ȝ
F
P .SetCol
Z
d>LDR ncol,[PC,#(-20)] ; Load No. of colours relative to PC.
n9LDR gcol,[PC,#(-20)] ; Load Current � relative to PC.
x:LDR tint,[PC,#(-20)] ; Load Current Ȝ relative to PC.
�
�6CMPS ncol,#256 ; If not a 256 colour mode ..
�/BLT lessthan256 ; .. goto .lessthan256
�
�; Set � 0,gcol Ȝ tint
�
�2SWI 256+18:SWI 256:MOV r0,gcol:SWI "OS_WriteC"
�?SWI 256+23:SWI 256+17:SWI 256+2:MOV r0,tint:SWI "OS_WriteC"
�3SWI 256:SWI 256:SWI 256:SWI 256:SWI 256:SWI 256
�
�ADD tint,tint,#64
�CMPS tint,#256
��Q tint,#0
ADDEQ gcol,gcol,#1
CMPS gcol,#64
MOVGE gcol,#1
"STR gcol,[PC,#(-120)]
,STR tint,[PC,#(-120)]
6MOV PC,r14
@
J.lessthan256
T2SWI 256+18:SWI 256:MOV r0,gcol:SWI "OS_WriteC"
^
hADD gcol,gcol,#1
rCMPS gcol,ncol
|MOVGE gcol,#1
�STR gcol,[PC,#(-160)]
�MOV PC,r14
�
�]
�
� pass
�� P%-code%
�
� A$=GET$
��
� 00000000 0d 00 0a 24 f4 20 3e 20 3c 44 61 72 6b 24 44 69 |...$. > <Dark$Di|
00000010 72 3e 2e 57 6f 72 6b 48 6f 72 73 65 73 2e 50 68 |r>.WorkHorses.Ph|
00000020 61 73 65 72 0d 00 14 04 0d 00 1e 10 de 20 63 6f |aser......... co|
00000030 64 65 25 20 34 30 39 36 0d 00 28 04 0d 00 32 0d |de% 4096..(...2.|
00000040 f2 41 73 73 65 6d 62 6c 65 0d 00 3c 09 f2 53 65 |.Assemble..<..Se|
00000050 74 56 0d 00 46 07 f2 44 6f 0d 00 50 05 e0 0d 00 |tV..F..Do..P....|
00000060 5a 04 0d 00 64 0a dd f2 53 65 74 56 0d 00 6e 2a |Z...d...SetV..n*|
00000070 21 28 63 6f 64 65 25 2b 30 29 3d 35 20 20 20 3a |!(code%+0)=5 :|
00000080 20 f4 20 73 61 76 65 72 20 74 61 6b 65 73 20 35 | . saver takes 5|
00000090 20 61 72 67 73 2e 0d 00 78 2f 21 28 63 6f 64 65 | args...x/!(code|
000000a0 25 2b 34 29 3d 32 34 20 20 3a 20 f4 20 61 72 67 |%+4)=24 : . arg|
000000b0 31 20 2d 20 4e 6f 2e 20 6f 66 20 6c 69 6e 65 73 |1 - No. of lines|
000000c0 20 3d 20 33 30 0d 00 82 2a 21 28 63 6f 64 65 25 | = 30...*!(code%|
000000d0 2b 38 29 3d 31 32 20 20 3a 20 f4 20 61 72 67 32 |+8)=12 : . arg2|
000000e0 20 2d 20 78 31 20 73 74 65 70 20 3d 20 31 36 0d | - x1 step = 16.|
000000f0 00 8c 2a 21 28 63 6f 64 65 25 2b 31 32 29 3d 31 |..*!(code%+12)=1|
00000100 36 20 20 3a 20 f4 20 61 72 67 33 20 2d 20 79 31 |6 : . arg3 - y1|
00000110 20 73 74 65 70 20 3d 20 38 0d 00 96 2a 21 28 63 | step = 8...*!(c|
00000120 6f 64 65 25 2b 31 36 29 3d 31 36 20 3a 20 f4 20 |ode%+16)=16 : . |
00000130 61 72 67 34 20 2d 20 78 32 20 73 74 65 70 20 3d |arg4 - x2 step =|
00000140 20 32 34 0d 00 a0 2a 21 28 63 6f 64 65 25 2b 32 | 24...*!(code%+2|
00000150 30 29 3d 32 34 20 3a 20 f4 20 61 72 67 35 20 2d |0)=24 : . arg5 -|
00000160 20 79 32 20 73 74 65 70 20 3d 20 31 36 0d 00 aa | y2 step = 16...|
00000170 04 0d 00 b4 30 24 28 63 6f 64 65 25 2b 33 36 29 |....0$(code%+36)|
00000180 3d 22 3c 6e 6f 2e 6c 69 6e 65 73 3e 20 3c 78 31 |="<no.lines> <x1|
00000190 20 73 74 65 70 3e 20 3c 79 31 20 73 74 65 70 3e | step> <y1 step>|
000001a0 22 0d 00 be 25 24 28 63 6f 64 65 25 2b 36 38 29 |"...%$(code%+68)|
000001b0 3d 22 3c 78 32 20 73 74 65 70 3e 20 3c 79 32 20 |="<x2 step> <y2 |
000001c0 73 74 65 70 3e 22 0d 00 c8 04 0d 00 d2 05 e1 0d |step>"..........|
000001d0 00 dc 04 0d 00 e6 08 dd f2 44 6f 0d 00 f0 08 eb |.........Do.....|
000001e0 20 31 32 0d 00 fa 19 41 25 3d 31 32 38 30 3a 42 | 12....A%=1280:B|
000001f0 25 3d 31 30 32 34 3a 43 25 3d 31 36 0d 01 04 11 |%=1024:C%=16....|
00000200 d6 20 28 63 6f 64 65 25 2b 31 30 30 29 0d 01 0e |. (code%+100)...|
00000210 05 f5 0d 01 18 19 41 25 3d b3 28 31 32 38 30 29 |......A%=.(1280)|
00000220 3a 42 25 3d b3 28 31 30 32 34 29 0d 01 22 11 d6 |:B%=.(1024).."..|
00000230 20 28 63 6f 64 65 25 2b 31 30 38 29 0d 01 2c 07 | (code%+108)..,.|
00000240 fd 20 30 0d 01 36 04 0d 01 40 05 e1 0d 01 4a 04 |. 0..6...@....J.|
00000250 0d 01 54 0e dd f2 41 73 73 65 6d 62 6c 65 0d 01 |..T...Assemble..|
00000260 5e 19 6e 63 6f 6c 3d 38 3a 67 63 6f 6c 3d 39 3a |^.ncol=8:gcol=9:|
00000270 74 69 6e 74 3d 31 30 0d 01 68 14 e3 20 70 61 73 |tint=10..h.. pas|
00000280 73 3d 30 20 b8 20 33 20 88 20 33 0d 01 72 0c 50 |s=0 . 3 . 3..r.P|
00000290 25 3d 63 6f 64 65 25 0d 01 7c 0d 5b 4f 50 54 20 |%=code%..|.[OPT |
000002a0 70 61 73 73 0d 01 86 04 0d 01 90 0c 2e 61 72 67 |pass.........arg|
000002b0 74 79 70 65 0d 01 9a 0c 45 51 55 44 20 30 20 3b |type....EQUD 0 ;|
000002c0 0d 01 a4 04 0d 01 ae 09 2e 61 72 67 73 0d 01 b8 |.........args...|
000002d0 3b 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a 45 |;EQUD 0:EQUD 0:E|
000002e0 51 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 55 |QUD 0:EQUD 0:EQU|
000002f0 44 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 20 |D 0:EQUD 0:EQUD |
00000300 30 3a 45 51 55 44 20 30 0d 01 c2 04 0d 01 cc 09 |0:EQUD 0........|
00000310 2e 68 65 6c 70 0d 01 d6 3b 45 51 55 44 20 30 3a |.help...;EQUD 0:|
00000320 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 |EQUD 0:EQUD 0:EQ|
00000330 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 |UD 0:EQUD 0:EQUD|
00000340 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 20 30 | 0:EQUD 0:EQUD 0|
00000350 0d 01 e0 3b 45 51 55 44 20 30 3a 45 51 55 44 20 |...;EQUD 0:EQUD |
00000360 30 3a 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a |0:EQUD 0:EQUD 0:|
00000370 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 |EQUD 0:EQUD 0:EQ|
00000380 55 44 20 30 3a 45 51 55 44 20 30 0d 02 b2 04 0d |UD 0:EQUD 0.....|
00000390 02 b3 04 0d 02 b4 35 42 20 69 6e 69 74 20 20 20 |......5B init |
000003a0 20 20 3b 20 4a 75 6d 70 73 20 74 6f 20 74 68 65 | ; Jumps to the|
000003b0 20 69 6e 69 74 69 61 6c 69 73 61 74 69 6f 6e 20 | initialisation |
000003c0 72 6f 75 74 69 6e 65 2e 0d 02 b5 2a 20 20 20 20 |routine....* |
000003d0 20 20 20 20 20 20 20 3b 20 74 68 69 73 20 69 73 | ; this is|
000003e0 20 6c 6f 63 61 74 69 6f 6e 20 63 6f 64 65 2b 31 | location code+1|
000003f0 30 30 0d 02 b6 04 0d 02 b7 2f 42 20 73 68 75 74 |00......./B shut|
00000400 64 6f 77 6e 20 3b 20 4a 75 6d 70 73 20 74 6f 20 |down ; Jumps to |
00000410 74 68 65 20 73 68 75 74 64 6f 77 6e 20 72 6f 75 |the shutdown rou|
00000420 74 69 6e 65 2e 0d 02 b8 2a 20 20 20 20 20 20 20 |tine....* |
00000430 20 20 20 20 3b 20 74 68 69 73 20 69 73 20 6c 6f | ; this is lo|
00000440 63 61 74 69 6f 6e 20 63 6f 64 65 2b 31 30 34 0d |cation code+104.|
00000450 02 b9 04 0d 02 bc 04 0d 02 bd 04 0d 02 c6 0d 2e |................|
00000460 70 6f 6c 6c 5f 72 65 74 0d 02 d0 04 0d 02 da 0e |poll_ret........|
00000470 4d 4f 56 20 72 31 31 2c 72 30 0d 02 e4 0e 4d 4f |MOV r11,r0....MO|
00000480 56 20 72 31 32 2c 72 31 0d 02 ee 04 0d 02 f8 0f |V r12,r1........|
00000490 41 44 52 20 72 30 2c 72 65 67 73 0d 03 02 16 53 |ADR r0,regs....S|
000004a0 54 4d 49 41 20 72 30 21 2c 7b 72 31 2d 72 31 34 |TMIA r0!,{r1-r14|
000004b0 7d 0d 03 0c 04 0d 03 16 33 4d 4f 56 20 72 30 2c |}.......3MOV r0,|
000004c0 23 31 38 38 3a 4d 4f 56 20 72 31 2c 72 31 31 3a |#188:MOV r1,r11:|
000004d0 4d 4f 56 20 72 32 2c 72 31 32 3a 53 57 49 20 22 |MOV r2,r12:SWI "|
000004e0 4f 53 5f 50 6c 6f 74 22 0d 03 20 37 4d 4f 56 20 |OS_Plot".. 7MOV |
000004f0 72 30 2c 23 31 38 38 3a 4d 4f 56 20 72 31 2c 23 |r0,#188:MOV r1,#|
00000500 34 30 39 36 3a 4d 4f 56 20 72 32 2c 23 34 30 39 |4096:MOV r2,#409|
00000510 36 3a 53 57 49 20 22 4f 53 5f 50 6c 6f 74 22 0d |6:SWI "OS_Plot".|
00000520 03 2a 39 4d 4f 56 20 72 30 2c 23 31 39 30 3a 41 |.*9MOV r0,#190:A|
00000530 44 44 20 72 31 2c 72 31 31 2c 23 34 3a 41 44 44 |DD r1,r11,#4:ADD|
00000540 20 72 32 2c 72 31 32 2c 23 34 3a 53 57 49 20 22 | r2,r12,#4:SWI "|
00000550 4f 53 5f 50 6c 6f 74 22 0d 03 34 04 0d 03 3e 32 |OS_Plot"..4...>2|
00000560 4d 4f 56 20 72 30 2c 23 31 38 38 3a 4d 4f 56 20 |MOV r0,#188:MOV |
00000570 72 31 2c 23 30 3a 4d 4f 56 20 72 32 2c 72 31 32 |r1,#0:MOV r2,r12|
00000580 3a 53 57 49 20 22 4f 53 5f 50 6c 6f 74 22 0d 03 |:SWI "OS_Plot"..|
00000590 48 35 4d 4f 56 20 72 30 2c 23 31 38 38 3a 4d 4f |H5MOV r0,#188:MO|
000005a0 56 20 72 31 2c 72 31 31 3a 4d 4f 56 20 72 32 2c |V r1,r11:MOV r2,|
000005b0 23 34 30 39 36 3a 53 57 49 20 22 4f 53 5f 50 6c |#4096:SWI "OS_Pl|
000005c0 6f 74 22 0d 03 52 3a 4d 4f 56 20 72 30 2c 23 31 |ot"..R:MOV r0,#1|
000005d0 39 30 3a 53 55 42 20 72 31 2c 72 30 2c 23 31 39 |90:SUB r1,r0,#19|
000005e0 34 3a 41 44 44 20 72 32 2c 72 31 32 2c 23 34 3a |4:ADD r2,r12,#4:|
000005f0 53 57 49 20 22 4f 53 5f 50 6c 6f 74 22 0d 03 5c |SWI "OS_Plot"..\|
00000600 04 0d 03 66 31 4d 4f 56 20 72 30 2c 23 31 38 38 |...f1MOV r0,#188|
00000610 3a 4d 4f 56 20 72 31 2c 23 30 3a 4d 4f 56 20 72 |:MOV r1,#0:MOV r|
00000620 32 2c 23 30 3a 53 57 49 20 22 4f 53 5f 50 6c 6f |2,#0:SWI "OS_Plo|
00000630 74 22 0d 03 70 33 4d 4f 56 20 72 30 2c 23 31 38 |t"..p3MOV r0,#18|
00000640 38 3a 4d 4f 56 20 72 31 2c 72 31 31 3a 4d 4f 56 |8:MOV r1,r11:MOV|
00000650 20 72 32 2c 72 31 32 3a 53 57 49 20 22 4f 53 5f | r2,r12:SWI "OS_|
00000660 50 6c 6f 74 22 0d 03 7a 36 4d 4f 56 20 72 30 2c |Plot"..z6MOV r0,|
00000670 23 31 39 30 3a 53 55 42 20 72 31 2c 72 30 2c 23 |#190:SUB r1,r0,#|
00000680 31 39 34 3a 4d 4f 56 20 72 32 2c 72 31 3a 53 57 |194:MOV r2,r1:SW|
00000690 49 20 22 4f 53 5f 50 6c 6f 74 22 0d 03 84 04 0d |I "OS_Plot".....|
000006a0 03 8e 32 4d 4f 56 20 72 30 2c 23 31 38 38 3a 4d |..2MOV r0,#188:M|
000006b0 4f 56 20 72 31 2c 72 31 31 3a 4d 4f 56 20 72 32 |OV r1,r11:MOV r2|
000006c0 2c 23 30 3a 53 57 49 20 22 4f 53 5f 50 6c 6f 74 |,#0:SWI "OS_Plot|
000006d0 22 0d 03 98 35 4d 4f 56 20 72 30 2c 23 31 38 38 |"...5MOV r0,#188|
000006e0 3a 4d 4f 56 20 72 31 2c 23 34 30 39 36 3a 4d 4f |:MOV r1,#4096:MO|
000006f0 56 20 72 32 2c 72 31 32 3a 53 57 49 20 22 4f 53 |V r2,r12:SWI "OS|
00000700 5f 50 6c 6f 74 22 0d 03 a2 3a 4d 4f 56 20 72 30 |_Plot"...:MOV r0|
00000710 2c 23 31 39 30 3a 41 44 44 20 72 31 2c 72 31 31 |,#190:ADD r1,r11|
00000720 2c 23 34 3a 53 55 42 20 72 32 2c 72 30 2c 23 31 |,#4:SUB r2,r0,#1|
00000730 39 34 3a 53 57 49 20 22 4f 53 5f 50 6c 6f 74 22 |94:SWI "OS_Plot"|
00000740 0d 03 ac 04 0d 03 b6 0f 41 44 52 20 72 30 2c 64 |........ADR r0,d|
00000750 69 6d 73 0d 03 c0 10 4c 44 52 20 72 31 31 2c 5b |ims....LDR r11,[|
00000760 72 30 5d 0d 03 ca 13 4c 44 52 20 72 31 32 2c 5b |r0]....LDR r12,[|
00000770 72 30 2c 23 34 5d 0d 03 d4 04 0d 03 de 0f 41 44 |r0,#4]........AD|
00000780 52 20 72 36 2c 76 61 72 73 0d 03 e8 04 0d 03 f2 |R r6,vars.......|
00000790 23 4d 4f 56 20 72 35 2c 72 31 34 3a 42 4c 20 53 |#MOV r5,r14:BL S|
000007a0 65 74 43 6f 6c 3a 4d 4f 56 20 72 31 34 2c 72 35 |etCol:MOV r14,r5|
000007b0 0d 03 fc 36 4d 4f 56 20 72 30 2c 23 34 3a 4c 44 |...6MOV r0,#4:LD|
000007c0 52 20 72 31 2c 5b 72 36 5d 3a 4c 44 52 20 72 32 |R r1,[r6]:LDR r2|
000007d0 2c 5b 72 36 2c 23 34 5d 3a 53 57 49 20 22 4f 53 |,[r6,#4]:SWI "OS|
000007e0 5f 50 6c 6f 74 22 0d 04 06 3a 4d 4f 56 20 72 30 |_Plot"...:MOV r0|
000007f0 2c 23 35 3a 4c 44 52 20 72 31 2c 5b 72 36 2c 23 |,#5:LDR r1,[r6,#|
00000800 38 5d 3a 4c 44 52 20 72 32 2c 5b 72 36 2c 23 31 |8]:LDR r2,[r6,#1|
00000810 32 5d 3a 53 57 49 20 22 4f 53 5f 50 6c 6f 74 22 |2]:SWI "OS_Plot"|
00000820 0d 04 10 04 0d 04 1a 3c 4c 44 52 20 72 31 2c 5b |.......<LDR r1,[|
00000830 72 36 5d 3a 20 20 20 20 4c 44 52 20 72 32 2c 5b |r6]: LDR r2,[|
00000840 72 36 2c 23 33 32 5d 3a 41 44 44 20 72 31 2c 72 |r6,#32]:ADD r1,r|
00000850 31 2c 72 32 3a 53 54 52 20 72 31 2c 5b 72 36 5d |1,r2:STR r1,[r6]|
00000860 0d 04 24 3f 4c 44 52 20 72 31 2c 5b 72 36 2c 23 |..$?LDR r1,[r6,#|
00000870 34 5d 3a 20 4c 44 52 20 72 32 2c 5b 72 36 2c 23 |4]: LDR r2,[r6,#|
00000880 33 36 5d 3a 41 44 44 20 72 31 2c 72 31 2c 72 32 |36]:ADD r1,r1,r2|
00000890 3a 53 54 52 20 72 31 2c 5b 72 36 2c 23 34 5d 0d |:STR r1,[r6,#4].|
000008a0 04 2e 3f 4c 44 52 20 72 31 2c 5b 72 36 2c 23 38 |..?LDR r1,[r6,#8|
000008b0 5d 3a 20 4c 44 52 20 72 32 2c 5b 72 36 2c 23 34 |]: LDR r2,[r6,#4|
000008c0 30 5d 3a 41 44 44 20 72 31 2c 72 31 2c 72 32 3a |0]:ADD r1,r1,r2:|
000008d0 53 54 52 20 72 31 2c 5b 72 36 2c 23 38 5d 0d 04 |STR r1,[r6,#8]..|
000008e0 38 40 4c 44 52 20 72 31 2c 5b 72 36 2c 23 31 32 |8@LDR r1,[r6,#12|
000008f0 5d 3a 4c 44 52 20 72 32 2c 5b 72 36 2c 23 34 34 |]:LDR r2,[r6,#44|
00000900 5d 3a 41 44 44 20 72 31 2c 72 31 2c 72 32 3a 53 |]:ADD r1,r1,r2:S|
00000910 54 52 20 72 31 2c 5b 72 36 2c 23 31 32 5d 0d 04 |TR r1,[r6,#12]..|
00000920 42 04 0d 04 4c 1e 53 57 49 20 32 35 36 2b 31 38 |B...L.SWI 256+18|
00000930 3a 53 57 49 20 32 35 36 3a 53 57 49 20 32 35 36 |:SWI 256:SWI 256|
00000940 0d 04 56 2b 53 57 49 20 32 35 36 2b 32 33 3a 53 |..V+SWI 256+23:S|
00000950 57 49 20 32 35 36 2b 31 37 3a 53 57 49 20 32 35 |WI 256+17:SWI 25|
00000960 36 2b 32 3a 53 57 49 20 32 35 36 0d 04 60 33 53 |6+2:SWI 256..`3S|
00000970 57 49 20 32 35 36 3a 53 57 49 20 32 35 36 3a 53 |WI 256:SWI 256:S|
*
00000990 57 49 20 32 35 36 3a 53 57 49 20 32 35 36 0d 04 |WI 256:SWI 256..|
000009a0 6a 04 0d 04 74 3b 4d 4f 56 20 72 30 2c 23 34 3a |j...t;MOV r0,#4:|
000009b0 4c 44 52 20 72 31 2c 5b 72 36 2c 23 31 36 5d 3a |LDR r1,[r6,#16]:|
000009c0 4c 44 52 20 72 32 2c 5b 72 36 2c 23 32 30 5d 3a |LDR r2,[r6,#20]:|
000009d0 53 57 49 20 22 4f 53 5f 50 6c 6f 74 22 0d 04 7e |SWI "OS_Plot"..~|
000009e0 3b 4d 4f 56 20 72 30 2c 23 35 3a 4c 44 52 20 72 |;MOV r0,#5:LDR r|
000009f0 31 2c 5b 72 36 2c 23 32 34 5d 3a 4c 44 52 20 72 |1,[r6,#24]:LDR r|
00000a00 32 2c 5b 72 36 2c 23 32 38 5d 3a 53 57 49 20 22 |2,[r6,#28]:SWI "|
00000a10 4f 53 5f 50 6c 6f 74 22 0d 04 88 04 0d 04 92 40 |OS_Plot".......@|
00000a20 4c 44 52 20 72 31 2c 5b 72 36 2c 23 31 36 5d 3a |LDR r1,[r6,#16]:|
00000a30 4c 44 52 20 72 32 2c 5b 72 36 2c 23 34 38 5d 3a |LDR r2,[r6,#48]:|
00000a40 41 44 44 20 72 31 2c 72 31 2c 72 32 3a 53 54 52 |ADD r1,r1,r2:STR|
00000a50 20 72 31 2c 5b 72 36 2c 23 31 36 5d 0d 04 9c 40 | r1,[r6,#16]...@|
00000a60 4c 44 52 20 72 31 2c 5b 72 36 2c 23 32 30 5d 3a |LDR r1,[r6,#20]:|
00000a70 4c 44 52 20 72 32 2c 5b 72 36 2c 23 35 32 5d 3a |LDR r2,[r6,#52]:|
00000a80 41 44 44 20 72 31 2c 72 31 2c 72 32 3a 53 54 52 |ADD r1,r1,r2:STR|
00000a90 20 72 31 2c 5b 72 36 2c 23 32 30 5d 0d 04 a6 40 | r1,[r6,#20]...@|
00000aa0 4c 44 52 20 72 31 2c 5b 72 36 2c 23 32 34 5d 3a |LDR r1,[r6,#24]:|
00000ab0 4c 44 52 20 72 32 2c 5b 72 36 2c 23 35 36 5d 3a |LDR r2,[r6,#56]:|
00000ac0 41 44 44 20 72 31 2c 72 31 2c 72 32 3a 53 54 52 |ADD r1,r1,r2:STR|
00000ad0 20 72 31 2c 5b 72 36 2c 23 32 34 5d 0d 04 b0 40 | r1,[r6,#24]...@|
00000ae0 4c 44 52 20 72 31 2c 5b 72 36 2c 23 32 38 5d 3a |LDR r1,[r6,#28]:|
00000af0 4c 44 52 20 72 32 2c 5b 72 36 2c 23 36 30 5d 3a |LDR r2,[r6,#60]:|
00000b00 41 44 44 20 72 31 2c 72 31 2c 72 32 3a 53 54 52 |ADD r1,r1,r2:STR|
00000b10 20 72 31 2c 5b 72 36 2c 23 32 38 5d 0d 04 ba 04 | r1,[r6,#28]....|
00000b20 0d 04 c4 45 41 44 52 20 72 34 2c 61 76 61 72 73 |...EADR r4,avars|
00000b30 3a 53 54 4d 49 41 20 72 34 2c 7b 72 32 2d 72 31 |:STMIA r4,{r2-r1|
00000b40 31 2c 72 31 34 7d 3a 42 4c 20 43 68 65 63 6b 20 |1,r14}:BL Check |
00000b50 3a 4c 44 4d 49 41 20 72 34 2c 7b 72 32 2d 31 31 |:LDMIA r4,{r2-11|
00000b60 2c 72 31 34 7d 0d 04 ce 04 0d 04 d8 04 0d 04 e2 |,r14}...........|
00000b70 0f 41 44 52 20 72 30 2c 72 65 67 73 0d 04 ec 16 |.ADR r0,regs....|
00000b80 4c 44 4d 49 41 20 72 30 21 2c 7b 72 31 2d 72 31 |LDMIA r0!,{r1-r1|
00000b90 34 7d 0d 04 f6 0e 4d 4f 56 20 50 43 2c 72 31 34 |4}....MOV PC,r14|
00000ba0 0d 05 00 04 0d 05 0a 09 2e 65 78 69 74 0d 05 14 |.........exit...|
00000bb0 0f 41 44 52 20 72 36 2c 76 61 72 73 0d 05 1e 22 |.ADR r6,vars..."|
00000bc0 4c 44 52 20 72 30 2c 5b 72 36 2c 23 30 5d 3a 53 |LDR r0,[r6,#0]:S|
00000bd0 54 52 20 72 30 2c 5b 72 36 2c 23 31 36 5d 0d 05 |TR r0,[r6,#16]..|
00000be0 28 22 4c 44 52 20 72 30 2c 5b 72 36 2c 23 34 5d |("LDR r0,[r6,#4]|
00000bf0 3a 53 54 52 20 72 30 2c 5b 72 36 2c 23 32 30 5d |:STR r0,[r6,#20]|
00000c00 0d 05 32 22 4c 44 52 20 72 30 2c 5b 72 36 2c 23 |..2"LDR r0,[r6,#|
00000c10 38 5d 3a 53 54 52 20 72 30 2c 5b 72 36 2c 23 32 |8]:STR r0,[r6,#2|
00000c20 34 5d 0d 05 3c 23 4c 44 52 20 72 30 2c 5b 72 36 |4]..<#LDR r0,[r6|
00000c30 2c 23 31 32 5d 3a 53 54 52 20 72 30 2c 5b 72 36 |,#12]:STR r0,[r6|
00000c40 2c 23 32 38 5d 0d 05 46 04 0d 05 50 0f 41 44 52 |,#28]..F...P.ADR|
00000c50 20 72 30 2c 72 65 67 73 0d 05 5a 16 4c 44 4d 49 | r0,regs..Z.LDMI|
00000c60 41 20 72 30 21 2c 7b 72 31 2d 72 31 34 7d 0d 05 |A r0!,{r1-r14}..|
00000c70 64 04 0d 05 6e 0e 4d 4f 56 20 50 43 2c 72 31 34 |d...n.MOV PC,r14|
00000c80 0d 05 78 04 0d 05 82 09 2e 69 6e 69 74 0d 05 8c |..x......init...|
00000c90 04 0d 05 96 0f 41 44 52 20 72 33 2c 64 69 6d 73 |.....ADR r3,dims|
00000ca0 0d 05 a0 0f 53 54 52 20 72 30 2c 5b 72 33 5d 0d |....STR r0,[r3].|
00000cb0 05 aa 12 53 54 52 20 72 31 2c 5b 72 33 2c 23 34 |...STR r1,[r3,#4|
00000cc0 5d 0d 05 b4 04 0d 05 be 0e 4d 4f 56 20 72 31 31 |]........MOV r11|
00000cd0 2c 72 30 0d 05 c8 0e 4d 4f 56 20 72 31 32 2c 72 |,r0....MOV r12,r|
00000ce0 31 0d 05 d2 04 0d 05 dc 0f 41 44 52 20 72 30 2c |1........ADR r0,|
00000cf0 72 65 67 73 0d 05 e6 16 53 54 4d 49 41 20 72 30 |regs....STMIA r0|
00000d00 21 2c 7b 72 31 2d 72 31 34 7d 0d 05 f0 04 0d 05 |!,{r1-r14}......|
00000d10 fa 0f 41 44 52 20 72 33 2c 61 72 67 73 0d 06 04 |..ADR r3,args...|
00000d20 26 4c 44 52 20 72 37 2c 5b 72 33 5d 20 3b 20 72 |&LDR r7,[r3] ; r|
00000d30 37 20 3d 20 6e 75 6d 62 65 72 20 6f 66 20 6c 69 |7 = number of li|
00000d40 6e 65 73 0d 06 0e 37 41 44 52 20 72 36 2c 76 61 |nes...7ADR r6,va|
00000d50 72 73 20 3b 20 72 36 20 3d 20 61 64 64 72 65 73 |rs ; r6 = addres|
00000d60 73 20 6f 66 20 73 74 6f 72 65 20 66 6f 72 20 6c |s of store for l|
00000d70 69 6e 65 20 70 6f 69 6e 74 73 0d 06 18 2e 4d 4f |ine points....MO|
00000d80 56 20 72 34 2c 23 35 30 20 3a 53 54 52 20 72 34 |V r4,#50 :STR r4|
00000d90 2c 5b 72 36 2c 23 30 5d 3a 53 54 52 20 72 34 2c |,[r6,#0]:STR r4,|
00000da0 5b 72 36 2c 23 31 36 5d 0d 06 22 2e 4d 4f 56 20 |[r6,#16]..".MOV |
00000db0 72 34 2c 23 32 30 30 3a 53 54 52 20 72 34 2c 5b |r4,#200:STR r4,[|
00000dc0 72 36 2c 23 34 5d 3a 53 54 52 20 72 34 2c 5b 72 |r6,#4]:STR r4,[r|
00000dd0 36 2c 23 32 30 5d 0d 06 2c 2e 4d 4f 56 20 72 34 |6,#20]..,.MOV r4|
00000de0 2c 23 33 36 30 3a 53 54 52 20 72 34 2c 5b 72 36 |,#360:STR r4,[r6|
00000df0 2c 23 38 5d 3a 53 54 52 20 72 34 2c 5b 72 36 2c |,#8]:STR r4,[r6,|
00000e00 23 32 34 5d 0d 06 36 2f 4d 4f 56 20 72 34 2c 23 |#24]..6/MOV r4,#|
00000e10 34 30 30 3a 53 54 52 20 72 34 2c 5b 72 36 2c 23 |400:STR r4,[r6,#|
00000e20 31 32 5d 3a 53 54 52 20 72 34 2c 5b 72 36 2c 23 |12]:STR r4,[r6,#|
00000e30 32 38 5d 0d 06 40 33 4c 44 52 20 72 34 2c 5b 72 |28]..@3LDR r4,[r|
00000e40 33 2c 23 34 5d 20 3a 53 54 52 20 72 34 2c 5b 72 |3,#4] :STR r4,[r|
00000e50 36 2c 23 33 32 5d 3a 53 54 52 20 72 34 2c 5b 72 |6,#32]:STR r4,[r|
00000e60 36 2c 23 34 38 5d 0d 06 4a 33 4c 44 52 20 72 34 |6,#48]..J3LDR r4|
00000e70 2c 5b 72 33 2c 23 38 5d 20 3a 53 54 52 20 72 34 |,[r3,#8] :STR r4|
00000e80 2c 5b 72 36 2c 23 33 36 5d 3a 53 54 52 20 72 34 |,[r6,#36]:STR r4|
00000e90 2c 5b 72 36 2c 23 35 32 5d 0d 06 54 33 4c 44 52 |,[r6,#52]..T3LDR|
00000ea0 20 72 34 2c 5b 72 33 2c 23 31 32 5d 3a 53 54 52 | r4,[r3,#12]:STR|
00000eb0 20 72 34 2c 5b 72 36 2c 23 34 30 5d 3a 53 54 52 | r4,[r6,#40]:STR|
00000ec0 20 72 34 2c 5b 72 36 2c 23 35 36 5d 0d 06 5e 33 | r4,[r6,#56]..^3|
00000ed0 4c 44 52 20 72 34 2c 5b 72 33 2c 23 31 36 5d 3a |LDR r4,[r3,#16]:|
00000ee0 53 54 52 20 72 34 2c 5b 72 36 2c 23 34 34 5d 3a |STR r4,[r6,#44]:|
00000ef0 53 54 52 20 72 34 2c 5b 72 36 2c 23 36 30 5d 0d |STR r4,[r6,#60].|
00000f00 06 68 04 0d 06 72 11 41 44 52 20 72 33 2c 6e 6f |.h...r.ADR r3,no|
00000f10 63 6f 6c 73 0d 06 7c 29 53 54 52 20 72 32 2c 5b |cols..|)STR r2,[|
00000f20 72 33 5d 20 3b 20 73 74 6f 72 65 20 6e 75 6d 62 |r3] ; store numb|
00000f30 65 72 20 6f 66 20 63 6f 6c 6f 75 72 73 0d 06 86 |er of colours...|
00000f40 04 0d 06 90 0e 2e 6d 61 69 6e 61 67 61 69 6e 0d |......mainagain.|
00000f50 06 9a 04 0d 06 a4 23 4d 4f 56 20 72 35 2c 72 31 |......#MOV r5,r1|
00000f60 34 3a 42 4c 20 53 65 74 43 6f 6c 3a 4d 4f 56 20 |4:BL SetCol:MOV |
00000f70 72 31 34 2c 72 35 0d 06 ae 04 0d 06 b8 0f 41 44 |r14,r5........AD|
00000f80 52 20 72 36 2c 76 61 72 73 0d 06 c2 04 0d 06 cc |R r6,vars.......|
00000f90 36 4d 4f 56 20 72 30 2c 23 34 3a 4c 44 52 20 72 |6MOV r0,#4:LDR r|
00000fa0 31 2c 5b 72 36 5d 3a 4c 44 52 20 72 32 2c 5b 72 |1,[r6]:LDR r2,[r|
00000fb0 36 2c 23 34 5d 3a 53 57 49 20 22 4f 53 5f 50 6c |6,#4]:SWI "OS_Pl|
00000fc0 6f 74 22 0d 06 d6 3a 4d 4f 56 20 72 30 2c 23 35 |ot"...:MOV r0,#5|
00000fd0 3a 4c 44 52 20 72 31 2c 5b 72 36 2c 23 38 5d 3a |:LDR r1,[r6,#8]:|
00000fe0 4c 44 52 20 72 32 2c 5b 72 36 2c 23 31 32 5d 3a |LDR r2,[r6,#12]:|
00000ff0 53 57 49 20 22 4f 53 5f 50 6c 6f 74 22 0d 06 e0 |SWI "OS_Plot"...|
00001000 04 0d 06 ea 38 4c 44 52 20 72 31 2c 5b 72 36 5d |....8LDR r1,[r6]|
00001010 3a 4c 44 52 20 72 32 2c 5b 72 36 2c 23 33 32 5d |:LDR r2,[r6,#32]|
00001020 3a 41 44 44 20 72 31 2c 72 31 2c 72 32 3a 53 54 |:ADD r1,r1,r2:ST|
00001030 52 20 72 31 2c 5b 72 36 5d 0d 06 f4 3e 4c 44 52 |R r1,[r6]...>LDR|
00001040 20 72 31 2c 5b 72 36 2c 23 34 5d 3a 4c 44 52 20 | r1,[r6,#4]:LDR |
00001050 72 32 2c 5b 72 36 2c 23 33 36 5d 3a 41 44 44 20 |r2,[r6,#36]:ADD |
00001060 72 31 2c 72 31 2c 72 32 3a 53 54 52 20 72 31 2c |r1,r1,r2:STR r1,|
00001070 5b 72 36 2c 23 34 5d 0d 06 fe 3e 4c 44 52 20 72 |[r6,#4]...>LDR r|
00001080 31 2c 5b 72 36 2c 23 38 5d 3a 4c 44 52 20 72 32 |1,[r6,#8]:LDR r2|
00001090 2c 5b 72 36 2c 23 34 30 5d 3a 41 44 44 20 72 31 |,[r6,#40]:ADD r1|
000010a0 2c 72 31 2c 72 32 3a 53 54 52 20 72 31 2c 5b 72 |,r1,r2:STR r1,[r|
000010b0 36 2c 23 38 5d 0d 07 08 40 4c 44 52 20 72 31 2c |6,#8]...@LDR r1,|
000010c0 5b 72 36 2c 23 31 32 5d 3a 4c 44 52 20 72 32 2c |[r6,#12]:LDR r2,|
000010d0 5b 72 36 2c 23 34 34 5d 3a 41 44 44 20 72 31 2c |[r6,#44]:ADD r1,|
000010e0 72 31 2c 72 32 3a 53 54 52 20 72 31 2c 5b 72 36 |r1,r2:STR r1,[r6|
000010f0 2c 23 31 32 5d 0d 07 12 22 4d 4f 56 20 72 35 2c |,#12]..."MOV r5,|
00001100 72 31 34 3a 42 4c 20 43 68 65 63 6b 3a 4d 4f 56 |r14:BL Check:MOV|
00001110 20 72 31 34 2c 72 35 0d 07 1c 3f 41 44 52 20 72 | r14,r5...?ADR r|
00001120 34 2c 61 76 61 72 73 3a 53 54 4d 49 41 20 72 34 |4,avars:STMIA r4|
00001130 2c 7b 72 31 34 2c 72 30 2d 72 33 2c 72 35 2d 31 |,{r14,r0-r3,r5-1|
00001140 31 7d 3a 42 4c 20 53 63 61 6e 3a 43 4d 50 53 20 |1}:BL Scan:CMPS |
00001150 72 31 30 2c 23 31 0d 07 26 27 4c 44 4d 49 41 20 |r10,#1..&'LDMIA |
00001160 72 34 2c 7b 72 31 34 2c 72 30 2d 72 33 2c 72 35 |r4,{r14,r0-r3,r5|
00001170 2d 31 31 7d 3a 42 45 51 20 65 78 69 74 0d 07 30 |-11}:BEQ exit..0|
00001180 11 53 55 42 53 20 72 37 2c 72 37 2c 23 31 0d 07 |.SUBS r7,r7,#1..|
00001190 3a 04 0d 07 44 11 42 50 4c 20 6d 61 69 6e 61 67 |:...D.BPL mainag|
000011a0 61 69 6e 0d 07 4e 04 0d 07 58 04 0d 07 62 0e 4d |ain..N...X...b.M|
000011b0 4f 56 20 50 43 2c 72 31 34 0d 07 6c 04 0d 07 76 |OV PC,r14..l...v|
000011c0 2a 2e 76 61 72 73 20 3b 20 73 74 6f 72 61 67 65 |*.vars ; storage|
000011d0 20 66 6f 72 20 70 72 6f 67 72 61 6d 20 76 61 72 | for program var|
000011e0 69 61 62 6c 65 73 2e 0d 07 80 49 45 51 55 44 20 |iables....IEQUD |
000011f0 35 30 3a 45 51 55 44 20 32 30 30 3a 45 51 55 44 |50:EQUD 200:EQUD|
00001200 20 33 35 30 3a 45 51 55 44 20 34 30 30 3a 45 51 | 350:EQUD 400:EQ|
00001210 55 44 20 35 30 3a 45 51 55 44 20 32 30 30 3a 45 |UD 50:EQUD 200:E|
00001220 51 55 44 20 33 35 30 3a 45 51 55 44 20 34 30 30 |QUD 350:EQUD 400|
00001230 0d 07 8a 41 45 51 55 44 20 31 36 3a 45 51 55 44 |...AEQUD 16:EQUD|
00001240 20 38 3a 45 51 55 44 20 32 34 3a 45 51 55 44 20 | 8:EQUD 24:EQUD |
00001250 31 36 3a 45 51 55 44 20 31 36 3a 45 51 55 44 20 |16:EQUD 16:EQUD |
00001260 38 3a 45 51 55 44 20 32 34 3a 45 51 55 44 20 31 |8:EQUD 24:EQUD 1|
00001270 36 0d 07 94 04 0d 07 9e 29 2e 61 76 61 72 73 20 |6.......).avars |
00001280 3b 20 66 6f 72 20 72 65 73 65 72 76 69 6e 67 20 |; for reserving |
00001290 74 68 65 20 72 65 67 69 73 74 65 72 73 2e 0d 07 |the registers...|
000012a0 a8 3b 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a |.;EQUD 0:EQUD 0:|
000012b0 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 |EQUD 0:EQUD 0:EQ|
000012c0 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 |UD 0:EQUD 0:EQUD|
000012d0 20 30 3a 45 51 55 44 20 30 0d 07 b2 1f 45 51 55 | 0:EQUD 0....EQU|
000012e0 44 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 20 |D 0:EQUD 0:EQUD |
000012f0 30 3a 45 51 55 44 20 30 0d 07 bc 04 0d 07 c6 09 |0:EQUD 0........|
00001300 2e 72 65 67 73 0d 07 d0 3b 45 51 55 44 20 30 3a |.regs...;EQUD 0:|
00001310 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 |EQUD 0:EQUD 0:EQ|
00001320 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 |UD 0:EQUD 0:EQUD|
00001330 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 20 30 | 0:EQUD 0:EQUD 0|
00001340 0d 07 da 3b 45 51 55 44 20 30 3a 45 51 55 44 20 |...;EQUD 0:EQUD |
00001350 30 3a 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a |0:EQUD 0:EQUD 0:|
00001360 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 |EQUD 0:EQUD 0:EQ|
00001370 55 44 20 30 3a 45 51 55 44 20 30 0d 07 e4 04 0d |UD 0:EQUD 0.....|
00001380 07 ee 09 2e 64 69 6d 73 0d 07 f8 11 45 51 55 44 |....dims....EQUD|
00001390 20 30 3a 45 51 55 44 20 30 0d 08 02 04 0d 08 0c | 0:EQUD 0.......|
000013a0 49 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |I;--------------|
000013b0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
000013e0 2d 2d 2d 2d 2d 2d 0d 08 16 04 0d 08 20 09 2e 53 |------...... ..S|
000013f0 63 61 6e 0d 08 2a 3f 3b 20 6f 6e 20 72 65 74 75 |can..*?; on retu|
00001400 72 6e 20 72 31 30 20 77 69 6c 6c 20 63 6f 6e 74 |rn r10 will cont|
00001410 61 69 6e 20 31 20 3d 20 65 78 69 74 20 70 72 6f |ain 1 = exit pro|
00001420 67 2e 20 30 20 3d 20 64 6f 6e 27 74 20 65 78 69 |g. 0 = don't exi|
00001430 74 2e 0d 08 34 04 0d 08 3e 31 53 57 49 20 22 4f |t...4...>1SWI "O|
00001440 53 5f 4d 6f 75 73 65 22 3a 4d 4f 56 20 72 38 2c |S_Mouse":MOV r8,|
00001450 72 30 3a 4d 4f 56 20 72 39 2c 72 31 3a 4d 4f 56 |r0:MOV r9,r1:MOV|
00001460 20 72 31 31 2c 72 32 0d 08 48 4c 4d 4f 56 20 72 | r11,r2..HLMOV r|
00001470 31 30 2c 23 30 3a 4d 4f 56 20 72 30 2c 23 31 32 |10,#0:MOV r0,#12|
00001480 31 3a 4d 4f 56 20 72 31 2c 23 30 3a 53 57 49 20 |1:MOV r1,#0:SWI |
00001490 22 4f 53 5f 42 79 74 65 22 3a 43 4d 50 53 20 72 |"OS_Byte":CMPS r|
000014a0 31 2c 23 32 35 35 3a 4d 4f 56 4e 45 20 72 31 30 |1,#255:MOVNE r10|
000014b0 2c 23 31 0d 08 52 42 53 57 49 20 22 4f 53 5f 4d |,#1..RBSWI "OS_M|
000014c0 6f 75 73 65 22 3a 43 4d 50 53 20 72 30 2c 72 38 |ouse":CMPS r0,r8|
000014d0 3a 4d 4f 56 4e 45 20 72 31 30 2c 23 31 3a 43 4d |:MOVNE r10,#1:CM|
000014e0 50 53 20 72 31 2c 72 39 3a 4d 4f 56 4e 45 20 72 |PS r1,r9:MOVNE r|
000014f0 31 30 2c 23 31 0d 08 5c 1d 43 4d 50 53 20 72 32 |10,#1..\.CMPS r2|
00001500 2c 72 31 31 3a 3a 4d 4f 56 4e 45 20 72 31 30 2c |,r11::MOVNE r10,|
00001510 23 31 0d 08 66 0e 4d 4f 56 20 50 43 2c 72 31 34 |#1..f.MOV PC,r14|
00001520 0d 08 70 04 0d 08 7a 49 3b 2d 2d 2d 2d 2d 2d 2d |..p...zI;-------|
00001530 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00001560 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 08 84 |-------------...|
00001570 04 0d 08 8e 0a 2e 43 68 65 63 6b 0d 08 98 40 4c |......Check...@L|
00001580 44 52 20 72 30 2c 5b 72 36 5d 3a 4c 44 52 20 72 |DR r0,[r6]:LDR r|
00001590 31 2c 5b 72 36 2c 23 33 32 5d 3a 43 4d 50 53 20 |1,[r6,#32]:CMPS |
000015a0 72 30 2c 72 31 31 3a 53 55 42 47 54 20 72 31 2c |r0,r11:SUBGT r1,|
000015b0 72 31 2c 72 31 2c 4c 53 4c 23 31 0d 08 a2 47 53 |r1,r1,LSL#1...GS|
000015c0 54 52 47 54 20 72 31 2c 5b 72 36 2c 23 33 32 5d |TRGT r1,[r6,#32]|
000015d0 3a 43 4d 50 53 20 72 30 2c 23 30 3a 53 55 42 4c |:CMPS r0,#0:SUBL|
000015e0 54 20 72 31 2c 72 31 2c 72 31 2c 4c 53 4c 23 31 |T r1,r1,r1,LSL#1|
000015f0 3a 53 54 52 4c 54 20 72 31 2c 5b 72 36 2c 23 33 |:STRLT r1,[r6,#3|
00001600 32 5d 0d 08 ac 43 4c 44 52 20 72 30 2c 5b 72 36 |2]...CLDR r0,[r6|
00001610 2c 23 34 5d 3a 4c 44 52 20 72 31 2c 5b 72 36 2c |,#4]:LDR r1,[r6,|
00001620 23 33 36 5d 3a 43 4d 50 53 20 72 30 2c 72 31 32 |#36]:CMPS r0,r12|
00001630 3a 53 55 42 47 54 20 72 31 2c 72 31 2c 72 31 2c |:SUBGT r1,r1,r1,|
00001640 4c 53 4c 23 31 0d 08 b6 47 53 54 52 47 54 20 72 |LSL#1...GSTRGT r|
00001650 31 2c 5b 72 36 2c 23 33 36 5d 3a 43 4d 50 53 20 |1,[r6,#36]:CMPS |
00001660 72 30 2c 23 30 3a 53 55 42 4c 54 20 72 31 2c 72 |r0,#0:SUBLT r1,r|
00001670 31 2c 72 31 2c 4c 53 4c 23 31 3a 53 54 52 4c 54 |1,r1,LSL#1:STRLT|
00001680 20 72 31 2c 5b 72 36 2c 23 33 36 5d 0d 08 c0 43 | r1,[r6,#36]...C|
00001690 4c 44 52 20 72 30 2c 5b 72 36 2c 23 38 5d 3a 4c |LDR r0,[r6,#8]:L|
000016a0 44 52 20 72 31 2c 5b 72 36 2c 23 34 30 5d 3a 43 |DR r1,[r6,#40]:C|
000016b0 4d 50 53 20 72 30 2c 72 31 31 3a 53 55 42 47 54 |MPS r0,r11:SUBGT|
000016c0 20 72 31 2c 72 31 2c 72 31 2c 4c 53 4c 23 31 0d | r1,r1,r1,LSL#1.|
000016d0 08 ca 47 53 54 52 47 54 20 72 31 2c 5b 72 36 2c |..GSTRGT r1,[r6,|
000016e0 23 34 30 5d 3a 43 4d 50 53 20 72 30 2c 23 30 3a |#40]:CMPS r0,#0:|
000016f0 53 55 42 4c 54 20 72 31 2c 72 31 2c 72 31 2c 4c |SUBLT r1,r1,r1,L|
00001700 53 4c 23 31 3a 53 54 52 4c 54 20 72 31 2c 5b 72 |SL#1:STRLT r1,[r|
00001710 36 2c 23 34 30 5d 0d 08 d4 44 4c 44 52 20 72 30 |6,#40]...DLDR r0|
00001720 2c 5b 72 36 2c 23 31 32 5d 3a 4c 44 52 20 72 31 |,[r6,#12]:LDR r1|
00001730 2c 5b 72 36 2c 23 34 34 5d 3a 43 4d 50 53 20 72 |,[r6,#44]:CMPS r|
00001740 30 2c 72 31 32 3a 53 55 42 47 54 20 72 31 2c 72 |0,r12:SUBGT r1,r|
00001750 31 2c 72 31 2c 4c 53 4c 23 31 0d 08 de 47 53 54 |1,r1,LSL#1...GST|
00001760 52 47 54 20 72 31 2c 5b 72 36 2c 23 34 34 5d 3a |RGT r1,[r6,#44]:|
00001770 43 4d 50 53 20 72 30 2c 23 30 3a 53 55 42 4c 54 |CMPS r0,#0:SUBLT|
00001780 20 72 31 2c 72 31 2c 72 31 2c 4c 53 4c 23 31 3a | r1,r1,r1,LSL#1:|
00001790 53 54 52 4c 54 20 72 31 2c 5b 72 36 2c 23 34 34 |STRLT r1,[r6,#44|
000017a0 5d 0d 08 e8 44 4c 44 52 20 72 30 2c 5b 72 36 2c |]...DLDR r0,[r6,|
000017b0 23 31 36 5d 3a 4c 44 52 20 72 31 2c 5b 72 36 2c |#16]:LDR r1,[r6,|
000017c0 23 34 38 5d 3a 43 4d 50 53 20 72 30 2c 72 31 31 |#48]:CMPS r0,r11|
000017d0 3a 53 55 42 47 54 20 72 31 2c 72 31 2c 72 31 2c |:SUBGT r1,r1,r1,|
000017e0 4c 53 4c 23 31 0d 08 f2 47 53 54 52 47 54 20 72 |LSL#1...GSTRGT r|
000017f0 31 2c 5b 72 36 2c 23 34 38 5d 3a 43 4d 50 53 20 |1,[r6,#48]:CMPS |
00001800 72 30 2c 23 30 3a 53 55 42 4c 54 20 72 31 2c 72 |r0,#0:SUBLT r1,r|
00001810 31 2c 72 31 2c 4c 53 4c 23 31 3a 53 54 52 4c 54 |1,r1,LSL#1:STRLT|
00001820 20 72 31 2c 5b 72 36 2c 23 34 38 5d 0d 08 fc 44 | r1,[r6,#48]...D|
00001830 4c 44 52 20 72 30 2c 5b 72 36 2c 23 32 30 5d 3a |LDR r0,[r6,#20]:|
00001840 4c 44 52 20 72 31 2c 5b 72 36 2c 23 35 32 5d 3a |LDR r1,[r6,#52]:|
00001850 43 4d 50 53 20 72 30 2c 72 31 32 3a 53 55 42 47 |CMPS r0,r12:SUBG|
00001860 54 20 72 31 2c 72 31 2c 72 31 2c 4c 53 4c 23 31 |T r1,r1,r1,LSL#1|
00001870 0d 09 06 47 53 54 52 47 54 20 72 31 2c 5b 72 36 |...GSTRGT r1,[r6|
00001880 2c 23 35 32 5d 3a 43 4d 50 53 20 72 30 2c 23 30 |,#52]:CMPS r0,#0|
00001890 3a 53 55 42 4c 54 20 72 31 2c 72 31 2c 72 31 2c |:SUBLT r1,r1,r1,|
000018a0 4c 53 4c 23 31 3a 53 54 52 4c 54 20 72 31 2c 5b |LSL#1:STRLT r1,[|
000018b0 72 36 2c 23 35 32 5d 0d 09 10 44 4c 44 52 20 72 |r6,#52]...DLDR r|
000018c0 30 2c 5b 72 36 2c 23 32 34 5d 3a 4c 44 52 20 72 |0,[r6,#24]:LDR r|
000018d0 31 2c 5b 72 36 2c 23 35 36 5d 3a 43 4d 50 53 20 |1,[r6,#56]:CMPS |
000018e0 72 30 2c 72 31 31 3a 53 55 42 47 54 20 72 31 2c |r0,r11:SUBGT r1,|
000018f0 72 31 2c 72 31 2c 4c 53 4c 23 31 0d 09 1a 47 53 |r1,r1,LSL#1...GS|
00001900 54 52 47 54 20 72 31 2c 5b 72 36 2c 23 35 36 5d |TRGT r1,[r6,#56]|
00001910 3a 43 4d 50 53 20 72 30 2c 23 30 3a 53 55 42 4c |:CMPS r0,#0:SUBL|
00001920 54 20 72 31 2c 72 31 2c 72 31 2c 4c 53 4c 23 31 |T r1,r1,r1,LSL#1|
00001930 3a 53 54 52 4c 54 20 72 31 2c 5b 72 36 2c 23 35 |:STRLT r1,[r6,#5|
00001940 36 5d 0d 09 24 44 4c 44 52 20 72 30 2c 5b 72 36 |6]..$DLDR r0,[r6|
00001950 2c 23 32 38 5d 3a 4c 44 52 20 72 31 2c 5b 72 36 |,#28]:LDR r1,[r6|
00001960 2c 23 36 30 5d 3a 43 4d 50 53 20 72 30 2c 72 31 |,#60]:CMPS r0,r1|
00001970 32 3a 53 55 42 47 54 20 72 31 2c 72 31 2c 72 31 |2:SUBGT r1,r1,r1|
00001980 2c 4c 53 4c 23 31 0d 09 2e 47 53 54 52 47 54 20 |,LSL#1...GSTRGT |
00001990 72 31 2c 5b 72 36 2c 23 36 30 5d 3a 43 4d 50 53 |r1,[r6,#60]:CMPS|
000019a0 20 72 30 2c 23 30 3a 53 55 42 4c 54 20 72 31 2c | r0,#0:SUBLT r1,|
000019b0 72 31 2c 72 31 2c 4c 53 4c 23 31 3a 53 54 52 4c |r1,r1,LSL#1:STRL|
000019c0 54 20 72 31 2c 5b 72 36 2c 23 36 30 5d 0d 09 38 |T r1,[r6,#60]..8|
000019d0 0e 4d 4f 56 20 50 43 2c 72 31 34 0d 09 42 04 0d |.MOV PC,r14..B..|
000019e0 09 4c 49 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |.LI;------------|
000019f0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00001a20 2d 2d 2d 2d 2d 2d 2d 2d 0d 09 56 04 0d 09 60 46 |--------..V...`F|
00001a30 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |;---------------|
00001a40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00001a70 2d 2d 0d 09 6a 04 0d 09 74 21 2e 73 68 75 74 64 |--..j...t!.shutd|
00001a80 6f 77 6e 20 3b 20 74 68 65 20 73 68 75 74 64 6f |own ; the shutdo|
00001a90 77 6e 20 63 6f 64 65 0d 09 7e 04 0d 09 88 49 3b |wn code..~....I;|
00001aa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00001ae0 2d 2d 2d 2d 0d 09 92 3c 3b 20 20 20 20 20 20 20 |----...<; |
00001af0 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ************|
00001b00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00001b20 0d 09 9c 3c 3b 20 20 20 20 20 20 20 20 20 20 20 |...<; |
00001b30 2a 2a 2a 20 20 20 20 59 4f 55 52 20 53 48 55 54 |*** YOUR SHUT|
00001b40 44 4f 57 4e 20 43 4f 44 45 20 53 54 41 52 54 53 |DOWN CODE STARTS|
00001b50 20 48 45 52 45 20 20 20 20 2a 2a 2a 0d 09 a6 3c | HERE ***...<|
00001b60 3b 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a |; ****|
00001b70 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00001b90 2a 2a 2a 2a 2a 2a 2a 2a 0d 09 b0 04 0d 09 ba 3a |********.......:|
00001ba0 3b 20 20 20 20 20 20 20 20 20 20 20 20 62 6c 61 |; bla|
00001bb0 68 21 20 62 6c 61 68 21 20 62 6c 61 68 21 20 62 |h! blah! blah! b|
00001bc0 6c 61 68 21 20 62 6c 61 68 21 20 62 6c 61 68 21 |lah! blah! blah!|
00001bd0 20 62 6c 61 68 21 0d 09 c4 04 0d 09 ce 3c 3b 20 | blah!.......<; |
00001be0 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a | ******|
00001bf0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00001c10 2a 2a 2a 2a 2a 2a 0d 09 d8 3c 3b 20 20 20 20 20 |******...<; |
00001c20 20 20 20 20 20 20 2a 2a 2a 20 20 20 20 20 59 4f | *** YO|
00001c30 55 52 20 53 48 55 54 44 4f 57 4e 20 43 4f 44 45 |UR SHUTDOWN CODE|
00001c40 20 45 4e 44 53 20 48 45 52 45 20 20 20 20 20 2a | ENDS HERE *|
00001c50 2a 2a 0d 09 e2 3c 3b 20 20 20 20 20 20 20 20 20 |**...<; |
00001c60 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | **************|
00001c70 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
00001c80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 09 |**************..|
00001c90 ec 49 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |.I;-------------|
00001ca0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00001cd0 2d 2d 2d 2d 2d 2d 2d 0d 09 f6 24 4d 4f 56 20 50 |-------...$MOV P|
00001ce0 43 2c 72 31 34 20 3b 20 65 78 69 74 20 73 68 75 |C,r14 ; exit shu|
00001cf0 74 64 6f 77 6e 20 63 6f 64 65 2e 0d 0a 00 04 0d |tdown code......|
00001d00 0a 0a 04 0d 0a 14 04 0d 0a 1e 0b 2e 6e 6f 63 6f |............noco|
00001d10 6c 73 0d 0a 28 2f 45 51 55 44 20 32 20 20 20 3b |ls..(/EQUD 2 ;|
00001d20 20 41 63 74 75 61 6c 20 4e 6f 2e 20 6f 66 20 63 | Actual No. of c|
00001d30 6f 6c 6f 75 72 73 20 32 2f 34 2f 31 36 2f 32 35 |olours 2/4/16/25|
00001d40 36 0d 0a 32 11 45 51 55 44 20 31 20 20 20 20 3b |6..2.EQUD 1 ;|
00001d50 20 e6 0d 0a 3c 12 45 51 55 44 20 30 20 20 20 20 | ...<.EQUD 0 |
00001d60 3b 20 c8 9c 0d 0a 46 04 0d 0a 50 0b 2e 53 65 74 |; ....F...P..Set|
00001d70 43 6f 6c 0d 0a 5a 04 0d 0a 64 3e 4c 44 52 20 6e |Col..Z...d>LDR n|
00001d80 63 6f 6c 2c 5b 50 43 2c 23 28 2d 32 30 29 5d 20 |col,[PC,#(-20)] |
00001d90 3b 20 4c 6f 61 64 20 4e 6f 2e 20 6f 66 20 63 6f |; Load No. of co|
00001da0 6c 6f 75 72 73 20 72 65 6c 61 74 69 76 65 20 74 |lours relative t|
00001db0 6f 20 50 43 2e 0d 0a 6e 39 4c 44 52 20 67 63 6f |o PC...n9LDR gco|
00001dc0 6c 2c 5b 50 43 2c 23 28 2d 32 30 29 5d 20 3b 20 |l,[PC,#(-20)] ; |
00001dd0 4c 6f 61 64 20 43 75 72 72 65 6e 74 20 e6 20 72 |Load Current . r|
00001de0 65 6c 61 74 69 76 65 20 74 6f 20 50 43 2e 0d 0a |elative to PC...|
00001df0 78 3a 4c 44 52 20 74 69 6e 74 2c 5b 50 43 2c 23 |x:LDR tint,[PC,#|
00001e00 28 2d 32 30 29 5d 20 3b 20 4c 6f 61 64 20 43 75 |(-20)] ; Load Cu|
00001e10 72 72 65 6e 74 20 c8 9c 20 72 65 6c 61 74 69 76 |rrent .. relativ|
00001e20 65 20 74 6f 20 50 43 2e 0d 0a 82 04 0d 0a 8c 36 |e to PC........6|
00001e30 43 4d 50 53 20 6e 63 6f 6c 2c 23 32 35 36 20 20 |CMPS ncol,#256 |
00001e40 20 20 20 20 20 3b 20 49 66 20 6e 6f 74 20 61 20 | ; If not a |
00001e50 32 35 36 20 63 6f 6c 6f 75 72 20 6d 6f 64 65 20 |256 colour mode |
00001e60 2e 2e 0d 0a 96 2f 42 4c 54 20 6c 65 73 73 74 68 |...../BLT lessth|
00001e70 61 6e 32 35 36 20 20 20 20 20 20 3b 20 2e 2e 20 |an256 ; .. |
00001e80 67 6f 74 6f 20 2e 6c 65 73 73 74 68 61 6e 32 35 |goto .lessthan25|
00001e90 36 0d 0a a0 04 0d 0a aa 1a 3b 20 53 65 74 20 e6 |6........; Set .|
00001ea0 20 30 2c 67 63 6f 6c 20 c8 9c 20 74 69 6e 74 0d | 0,gcol .. tint.|
00001eb0 0a b4 04 0d 0a be 32 53 57 49 20 32 35 36 2b 31 |......2SWI 256+1|
00001ec0 38 3a 53 57 49 20 32 35 36 3a 4d 4f 56 20 72 30 |8:SWI 256:MOV r0|
00001ed0 2c 67 63 6f 6c 3a 53 57 49 20 22 4f 53 5f 57 72 |,gcol:SWI "OS_Wr|
00001ee0 69 74 65 43 22 0d 0a c8 3f 53 57 49 20 32 35 36 |iteC"...?SWI 256|
00001ef0 2b 32 33 3a 53 57 49 20 32 35 36 2b 31 37 3a 53 |+23:SWI 256+17:S|
00001f00 57 49 20 32 35 36 2b 32 3a 4d 4f 56 20 72 30 2c |WI 256+2:MOV r0,|
00001f10 74 69 6e 74 3a 53 57 49 20 22 4f 53 5f 57 72 69 |tint:SWI "OS_Wri|
00001f20 74 65 43 22 0d 0a d2 33 53 57 49 20 32 35 36 3a |teC"...3SWI 256:|
00001f30 53 57 49 20 32 35 36 3a 53 57 49 20 32 35 36 3a |SWI 256:SWI 256:|
*
00001f50 53 57 49 20 32 35 36 0d 0a dc 04 0d 0a e6 15 41 |SWI 256........A|
00001f60 44 44 20 74 69 6e 74 2c 74 69 6e 74 2c 23 36 34 |DD tint,tint,#64|
00001f70 0d 0a f0 12 43 4d 50 53 20 74 69 6e 74 2c 23 32 |....CMPS tint,#2|
00001f80 35 36 0d 0a fa 0e ec 51 20 74 69 6e 74 2c 23 30 |56.....Q tint,#0|
00001f90 0d 0b 04 16 41 44 44 45 51 20 67 63 6f 6c 2c 67 |....ADDEQ gcol,g|
00001fa0 63 6f 6c 2c 23 31 0d 0b 0e 11 43 4d 50 53 20 67 |col,#1....CMPS g|
00001fb0 63 6f 6c 2c 23 36 34 0d 0b 18 11 4d 4f 56 47 45 |col,#64....MOVGE|
00001fc0 20 67 63 6f 6c 2c 23 31 0d 0b 22 19 53 54 52 20 | gcol,#1..".STR |
00001fd0 67 63 6f 6c 2c 5b 50 43 2c 23 28 2d 31 32 30 29 |gcol,[PC,#(-120)|
00001fe0 5d 0d 0b 2c 19 53 54 52 20 74 69 6e 74 2c 5b 50 |]..,.STR tint,[P|
00001ff0 43 2c 23 28 2d 31 32 30 29 5d 0d 0b 36 0e 4d 4f |C,#(-120)]..6.MO|
00002000 56 20 50 43 2c 72 31 34 0d 0b 40 04 0d 0b 4a 10 |V PC,r14..@...J.|
00002010 2e 6c 65 73 73 74 68 61 6e 32 35 36 0d 0b 54 32 |.lessthan256..T2|
00002020 53 57 49 20 32 35 36 2b 31 38 3a 53 57 49 20 32 |SWI 256+18:SWI 2|
00002030 35 36 3a 4d 4f 56 20 72 30 2c 67 63 6f 6c 3a 53 |56:MOV r0,gcol:S|
00002040 57 49 20 22 4f 53 5f 57 72 69 74 65 43 22 0d 0b |WI "OS_WriteC"..|
00002050 5e 04 0d 0b 68 14 41 44 44 20 67 63 6f 6c 2c 67 |^...h.ADD gcol,g|
00002060 63 6f 6c 2c 23 31 0d 0b 72 12 43 4d 50 53 20 67 |col,#1..r.CMPS g|
00002070 63 6f 6c 2c 6e 63 6f 6c 0d 0b 7c 11 4d 4f 56 47 |col,ncol..|.MOVG|
00002080 45 20 67 63 6f 6c 2c 23 31 0d 0b 86 19 53 54 52 |E gcol,#1....STR|
00002090 20 67 63 6f 6c 2c 5b 50 43 2c 23 28 2d 31 36 30 | gcol,[PC,#(-160|
000020a0 29 5d 0d 0b 90 0e 4d 4f 56 20 50 43 2c 72 31 34 |)]....MOV PC,r14|
000020b0 0d 0b 9a 04 0d 0b a4 05 5d 0d 0b ae 0a ed 20 70 |........]..... p|
000020c0 61 73 73 0d 0b b8 0e f1 20 50 25 2d 63 6f 64 65 |ass..... P%-code|
000020d0 25 0d 0b c2 0d f4 20 41 24 3d 47 45 54 24 0d 0b |%..... A$=GET$..|
000020e0 cc 05 e1 0d ff |.....|
000020e5 
.