Home » Archimedes archive » Acorn User » AU 1995-02.adf » !Dark_DarkHorse » !DarkHorse/WorkHorses/Lines
!DarkHorse/WorkHorses/Lines
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/Lines |
| Read OK: | ✔ |
| File size: | 1E03 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > <Dark$Dir>.WorkHorses.Lines
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)=16 : REM arg2 - x1 step = 16
140!(code%+12)=8 : REM arg3 - y1 step = 8
150!(code%+16)=24 : REM arg4 - x2 step = 24
160!(code%+20)=16 : 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)
270CALL (code%+108)
280
290ENDPROC
300
310DEFPROCAssemble
320ncol=8:gcol=9:tint=10
330FOR pass=0 TO 3 STEP 3
340P%=code%
350[OPT pass
360
370.argtype
380EQUD 0 ;
390
400.args
410EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
420
430.help
440EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
450EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
460
461
462B init ; Jumps to the initialisation routine.
463 ; this is location code+100
464
465B shutdown ; Jumps to the shutdown routine.
466 ; this is location code+104
467
660.poll_ret
690
700ADR r0,regs
710STMIA r0!,{r1-r14}
720
730ADR r0,dims
740LDR r11,[r0]
750LDR r12,[r0,#4]
760
770ADR r6,vars
780
790MOV r5,r14:BL SetCol:MOV r14,r5
800MOV r0,#4:LDR r1,[r6]:LDR r2,[r6,#4]:SWI "OS_Plot"
810MOV r0,#5:LDR r1,[r6,#8]:LDR r2,[r6,#12]:SWI "OS_Plot"
820
830LDR r1,[r6]: LDR r2,[r6,#32]:ADD r1,r1,r2:STR r1,[r6]
840LDR r1,[r6,#4]: LDR r2,[r6,#36]:ADD r1,r1,r2:STR r1,[r6,#4]
850LDR r1,[r6,#8]: LDR r2,[r6,#40]:ADD r1,r1,r2:STR r1,[r6,#8]
860LDR r1,[r6,#12]:LDR r2,[r6,#44]:ADD r1,r1,r2:STR r1,[r6,#12]
870
880SWI 256+18:SWI 256:SWI 256
890SWI 256+23:SWI 256+17:SWI 256+2:SWI 256
900SWI 256:SWI 256:SWI 256:SWI 256:SWI 256:SWI 256
910
920MOV r0,#4:LDR r1,[r6,#16]:LDR r2,[r6,#20]:SWI "OS_Plot"
930MOV r0,#5:LDR r1,[r6,#24]:LDR r2,[r6,#28]:SWI "OS_Plot"
940
950LDR r1,[r6,#16]:LDR r2,[r6,#48]:ADD r1,r1,r2:STR r1,[r6,#16]
960LDR r1,[r6,#20]:LDR r2,[r6,#52]:ADD r1,r1,r2:STR r1,[r6,#20]
970LDR r1,[r6,#24]:LDR r2,[r6,#56]:ADD r1,r1,r2:STR r1,[r6,#24]
980LDR r1,[r6,#28]:LDR r2,[r6,#60]:ADD r1,r1,r2:STR r1,[r6,#28]
990
1000ADR r4,avars:STMIA r4,{r2-r11,r14}:BL Check :LDMIA r4,{r2-11,r14}
1010
1020ADR r0,regs
1030LDMIA r0!,{r1-r14}
1040MOV PC,r14
1050
1060.exit
1070ADR r6,vars
1080LDR r0,[r6,#0]:STR r0,[r6,#16]
1090LDR r0,[r6,#4]:STR r0,[r6,#20]
1100LDR r0,[r6,#8]:STR r0,[r6,#24]
1110LDR r0,[r6,#12]:STR r0,[r6,#28]
1120
1130ADR r0,regs
1140LDMIA r0!,{r1-r14}
1150
1160MOV PC,r14
1170
1180.init
1190
1200ADR r3,dims
1210STR r0,[r3]
1220STR r1,[r3,#4]
1230
1240MOV r11,r0
1250MOV r12,r1
1260
1270ADR r0,regs
1280STMIA r0!,{r1-r14}
1290
1300ADR r3,args
1310LDR r7,[r3] ; r7 = number of lines
1320ADR r6,vars ; r6 = address of store for line points
1330MOV r4,#50 :STR r4,[r6,#0]:STR r4,[r6,#16]
1340MOV r4,#200:STR r4,[r6,#4]:STR r4,[r6,#20]
1350MOV r4,#360:STR r4,[r6,#8]:STR r4,[r6,#24]
1360MOV r4,#400:STR r4,[r6,#12]:STR r4,[r6,#28]
1370LDR r4,[r3,#4] :STR r4,[r6,#32]:STR r4,[r6,#48]
1380LDR r4,[r3,#8] :STR r4,[r6,#36]:STR r4,[r6,#52]
1390LDR r4,[r3,#12]:STR r4,[r6,#40]:STR r4,[r6,#56]
1400LDR r4,[r3,#16]:STR r4,[r6,#44]:STR r4,[r6,#60]
1410
1420ADR r3,nocols
1430STR r2,[r3] ; store number of colours
1440
1450.mainagain
1460
1470MOV r5,r14:BL SetCol:MOV r14,r5
1480
1490ADR r6,vars
1500
1510MOV r0,#4:LDR r1,[r6]:LDR r2,[r6,#4]:SWI "OS_Plot"
1520MOV r0,#5:LDR r1,[r6,#8]:LDR r2,[r6,#12]:SWI "OS_Plot"
1530
1540LDR r1,[r6]:LDR r2,[r6,#32]:ADD r1,r1,r2:STR r1,[r6]
1550LDR r1,[r6,#4]:LDR r2,[r6,#36]:ADD r1,r1,r2:STR r1,[r6,#4]
1560LDR r1,[r6,#8]:LDR r2,[r6,#40]:ADD r1,r1,r2:STR r1,[r6,#8]
1570LDR r1,[r6,#12]:LDR r2,[r6,#44]:ADD r1,r1,r2:STR r1,[r6,#12]
1580MOV r5,r14:BL Check:MOV r14,r5
1590ADR r4,avars:STMIA r4,{r14,r0-r3,r5-11}:BL Scan:CMPS r10,#1
1600LDMIA r4,{r14,r0-r3,r5-11}:BEQ exit
1610SUBS r7,r7,#1
1620
1630BPL mainagain
1640
1650
1660MOV PC,r14
1670
1680.vars ; storage for program variables.
1690EQUD 50:EQUD 200:EQUD 350:EQUD 400:EQUD 50:EQUD 200:EQUD 350:EQUD 400
1700EQUD 16:EQUD 8:EQUD 24:EQUD 16:EQUD 16:EQUD 8:EQUD 24:EQUD 16
1710
1720.avars ; for reserving the registers.
1730EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
1740EQUD 0:EQUD 0:EQUD 0:EQUD 0
1750
1760.regs
1770EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
1780EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
1790
1800.dims
1810EQUD 0:EQUD 0
1820
1830;--------------------------------------------------------------------
1840
1850.Scan
1860; on return r10 will contain 1 = exit prog. 0 = don't exit.
1870
1880SWI "OS_Mouse":MOV r8,r0:MOV r9,r1:MOV r11,r2
1890MOV r10,#0:MOV r0,#121:MOV r1,#0:SWI "OS_Byte":CMPS r1,#255:MOVNE r10,#1
1900SWI "OS_Mouse":CMPS r0,r8:MOVNE r10,#1:CMPS r1,r9:MOVNE r10,#1
1910CMPS r2,r11::MOVNE r10,#1
1920MOV PC,r14
1930
1940;--------------------------------------------------------------------
1950
1960.Check
1970LDR r0,[r6]:LDR r1,[r6,#32]:CMPS r0,r11:SUBGT r1,r1,r1,LSL#1
1980STRGT r1,[r6,#32]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#32]
1990LDR r0,[r6,#4]:LDR r1,[r6,#36]:CMPS r0,r12:SUBGT r1,r1,r1,LSL#1
2000STRGT r1,[r6,#36]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#36]
2010LDR r0,[r6,#8]:LDR r1,[r6,#40]:CMPS r0,r11:SUBGT r1,r1,r1,LSL#1
2020STRGT r1,[r6,#40]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#40]
2030LDR r0,[r6,#12]:LDR r1,[r6,#44]:CMPS r0,r12:SUBGT r1,r1,r1,LSL#1
2040STRGT r1,[r6,#44]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#44]
2050LDR r0,[r6,#16]:LDR r1,[r6,#48]:CMPS r0,r11:SUBGT r1,r1,r1,LSL#1
2060STRGT r1,[r6,#48]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#48]
2070LDR r0,[r6,#20]:LDR r1,[r6,#52]:CMPS r0,r12:SUBGT r1,r1,r1,LSL#1
2080STRGT r1,[r6,#52]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#52]
2090LDR r0,[r6,#24]:LDR r1,[r6,#56]:CMPS r0,r11:SUBGT r1,r1,r1,LSL#1
2100STRGT r1,[r6,#56]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#56]
2110LDR r0,[r6,#28]:LDR r1,[r6,#60]:CMPS r0,r12:SUBGT r1,r1,r1,LSL#1
2120STRGT r1,[r6,#60]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#60]
2130MOV PC,r14
2140
2150;--------------------------------------------------------------------
2160
2170;-----------------------------------------------------------------
2180
2190.shutdown ; the shutdown code
2200
2210;--------------------------------------------------------------------
2220; ********************************************
2230; *** YOUR SHUTDOWN CODE STARTS HERE ***
2240; ********************************************
2250
2260; blah! blah! blah! blah! blah! blah! blah!
2270
2280; ********************************************
2290; *** YOUR SHUTDOWN CODE ENDS HERE ***
2300; ********************************************
2310;--------------------------------------------------------------------
2320MOV PC,r14 ; exit shutdown code.
2330
2340
2350
2360.nocols
2370EQUD 2 ; Actual No. of colours 2/4/16/256
2380EQUD 1 ; GCOL
2390EQUD 0 ; TINT
2400
2410.SetCol
2420
2430LDR ncol,[PC,#(-20)] ; Load No. of colours relative to PC.
2440LDR gcol,[PC,#(-20)] ; Load Current GCOL relative to PC.
2450LDR tint,[PC,#(-20)] ; Load Current TINT relative to PC.
2460
2470CMPS ncol,#256 ; If not a 256 colour mode ..
2480BLT lessthan256 ; .. goto .lessthan256
2490
2500; Set GCOL 0,gcol TINT tint
2510
2520SWI 256+18:SWI 256:MOV r0,gcol:SWI "OS_WriteC"
2530SWI 256+23:SWI 256+17:SWI 256+2:MOV r0,tint:SWI "OS_WriteC"
2540SWI 256:SWI 256:SWI 256:SWI 256:SWI 256:SWI 256
2550
2560ADD tint,tint,#64
2570CMPS tint,#256
2580MOVEQ tint,#0
2590ADDEQ gcol,gcol,#1
2600CMPS gcol,#64
2610MOVGE gcol,#1
2620STR gcol,[PC,#(-120)]
2630STR tint,[PC,#(-120)]
2640MOV PC,r14
2650
2660.lessthan256
2670SWI 256+18:SWI 256:MOV r0,gcol:SWI "OS_WriteC"
2680
2690ADD gcol,gcol,#1
2700CMPS gcol,ncol
2710MOVGE gcol,#1
2720STR gcol,[PC,#(-160)]
2730MOV PC,r14
2740
2750]
2760NEXT pass
2770PRINT P%-code%
2780REM A$=GET$
2790ENDPROC
#� > <Dark$Dir>.WorkHorses.Lines
� 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)=16 : � arg2 - x1 step = 16
�)!(code%+12)=8 : � arg3 - y1 step = 8
�*!(code%+16)=24 : � arg4 - x2 step = 24
�*!(code%+20)=16 : � 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)
� (code%+108)
"�
,
6��Assemble
@ncol=8:gcol=9:tint=10
J� pass=0 � 3 � 3
T P%=code%
^
[OPT pass
h
r .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
�
�ADR r0,regs
�STMIA r0!,{r1-r14}
�
�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"
4
><LDR r1,[r6]: LDR r2,[r6,#32]:ADD r1,r1,r2:STR r1,[r6]
H?LDR r1,[r6,#4]: LDR r2,[r6,#36]:ADD r1,r1,r2:STR r1,[r6,#4]
R?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]
f
p SWI 256+18:SWI 256:SWI 256
z+SWI 256+23:SWI 256+17:SWI 256+2:SWI 256
�3SWI 256:SWI 256:SWI 256:SWI 256:SWI 256:SWI 256
�
�;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
8"LDR r0,[r6,#0]:STR r0,[r6,#16]
B"LDR r0,[r6,#4]:STR r0,[r6,#20]
L"LDR r0,[r6,#8]:STR r0,[r6,#24]
V#LDR r0,[r6,#12]:STR r0,[r6,#28]
`
jADR r0,regs
tLDMIA r0!,{r1-r14}
~
�MOV PC,r14
�
� .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
2.MOV r4,#50 :STR r4,[r6,#0]:STR r4,[r6,#16]
<.MOV r4,#200:STR r4,[r6,#4]:STR r4,[r6,#20]
F.MOV r4,#360:STR r4,[r6,#8]:STR r4,[r6,#24]
P/MOV r4,#400:STR r4,[r6,#12]:STR r4,[r6,#28]
Z3LDR r4,[r3,#4] :STR r4,[r6,#32]:STR r4,[r6,#48]
d3LDR r4,[r3,#8] :STR r4,[r6,#36]:STR r4,[r6,#52]
n3LDR r4,[r3,#12]:STR r4,[r6,#40]:STR r4,[r6,#56]
x3LDR r4,[r3,#16]:STR r4,[r6,#44]:STR r4,[r6,#60]
�
�ADR 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
6?ADR r4,avars:STMIA r4,{r14,r0-r3,r5-11}:BL Scan:CMPS r10,#1
@'LDMIA r4,{r14,r0-r3,r5-11}:BEQ exit
JSUBS r7,r7,#1
T
^BPL mainagain
h
r
|MOV PC,r14
�
�*.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;--------------------------------------------------------------------
0
: .Scan
D?; on return r10 will contain 1 = exit prog. 0 = don't exit.
N
X1SWI "OS_Mouse":MOV r8,r0:MOV r9,r1:MOV r11,r2
bLMOV r10,#0:MOV r0,#121:MOV r1,#0:SWI "OS_Byte":CMPS r1,#255:MOVNE r10,#1
lBSWI "OS_Mouse":CMPS r0,r8:MOVNE r10,#1:CMPS r1,r9:MOVNE r10,#1
v CMPS r2,r11::MOVNE r10,#1
�MOV PC,r14
�
�I;--------------------------------------------------------------------
�
�
.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
4GSTRGT 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
HGSTRGT r1,[r6,#60]:CMPS r0,#0:SUBLT r1,r1,r1,LSL#1:STRLT r1,[r6,#60]
RMOV PC,r14
\
fI;--------------------------------------------------------------------
p
zF;-----------------------------------------------------------------
�
�!.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.
$
.
8 .nocols
B/EQUD 2 ; Actual No. of colours 2/4/16/256
LEQUD 1 ; �
VEQUD 0 ; Ȝ
`
j .SetCol
t
~>LDR ncol,[PC,#(-20)] ; Load No. of colours relative to PC.
�9LDR gcol,[PC,#(-20)] ; Load Current � relative to PC.
�: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
2MOVGE gcol,#1
<STR gcol,[PC,#(-120)]
FSTR tint,[PC,#(-120)]
PMOV PC,r14
Z
d.lessthan256
n2SWI 256+18:SWI 256:MOV r0,gcol:SWI "OS_WriteC"
x
�ADD gcol,gcol,#1
�CMPS gcol,ncol
�MOVGE gcol,#1
�STR gcol,[PC,#(-160)]
�MOV PC,r14
�
�]
�
� pass
�� P%-code%
�
� A$=GET$
��
� 00000000 0d 00 0a 23 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 4c 69 |r>.WorkHorses.Li|
00000020 6e 65 73 0d 00 14 04 0d 00 1e 10 de 20 63 6f 64 |nes......... cod|
00000030 65 25 20 34 30 39 36 0d 00 28 04 0d 00 32 0d f2 |e% 4096..(...2..|
00000040 41 73 73 65 6d 62 6c 65 0d 00 3c 09 f2 53 65 74 |Assemble..<..Set|
00000050 56 0d 00 46 07 f2 44 6f 0d 00 50 05 e0 0d 00 5a |V..F..Do..P....Z|
00000060 04 0d 00 64 0a dd f2 53 65 74 56 0d 00 6e 2a 21 |...d...SetV..n*!|
00000070 28 63 6f 64 65 25 2b 30 29 3d 35 20 20 20 3a 20 |(code%+0)=5 : |
00000080 f4 20 73 61 76 65 72 20 74 61 6b 65 73 20 35 20 |. saver takes 5 |
00000090 61 72 67 73 2e 0d 00 78 2f 21 28 63 6f 64 65 25 |args...x/!(code%|
000000a0 2b 34 29 3d 32 34 20 20 3a 20 f4 20 61 72 67 31 |+4)=24 : . arg1|
000000b0 20 2d 20 4e 6f 2e 20 6f 66 20 6c 69 6e 65 73 20 | - No. of lines |
000000c0 3d 20 33 30 0d 00 82 2a 21 28 63 6f 64 65 25 2b |= 30...*!(code%+|
000000d0 38 29 3d 31 36 20 20 3a 20 f4 20 61 72 67 32 20 |8)=16 : . arg2 |
000000e0 2d 20 78 31 20 73 74 65 70 20 3d 20 31 36 0d 00 |- x1 step = 16..|
000000f0 8c 29 21 28 63 6f 64 65 25 2b 31 32 29 3d 38 20 |.)!(code%+12)=8 |
00000100 20 3a 20 f4 20 61 72 67 33 20 2d 20 79 31 20 73 | : . arg3 - y1 s|
00000110 74 65 70 20 3d 20 38 0d 00 96 2a 21 28 63 6f 64 |tep = 8...*!(cod|
00000120 65 25 2b 31 36 29 3d 32 34 20 3a 20 f4 20 61 72 |e%+16)=24 : . ar|
00000130 67 34 20 2d 20 78 32 20 73 74 65 70 20 3d 20 32 |g4 - x2 step = 2|
00000140 34 0d 00 a0 2a 21 28 63 6f 64 65 25 2b 32 30 29 |4...*!(code%+20)|
00000150 3d 31 36 20 3a 20 f4 20 61 72 67 35 20 2d 20 79 |=16 : . arg5 - y|
00000160 32 20 73 74 65 70 20 3d 20 31 36 0d 00 aa 04 0d |2 step = 16.....|
00000170 00 b4 30 24 28 63 6f 64 65 25 2b 33 36 29 3d 22 |..0$(code%+36)="|
00000180 3c 6e 6f 2e 6c 69 6e 65 73 3e 20 3c 78 31 20 73 |<no.lines> <x1 s|
00000190 74 65 70 3e 20 3c 79 31 20 73 74 65 70 3e 22 0d |tep> <y1 step>".|
000001a0 00 be 25 24 28 63 6f 64 65 25 2b 36 38 29 3d 22 |..%$(code%+68)="|
000001b0 3c 78 32 20 73 74 65 70 3e 20 3c 79 32 20 73 74 |<x2 step> <y2 st|
000001c0 65 70 3e 22 0d 00 c8 04 0d 00 d2 05 e1 0d 00 dc |ep>"............|
000001d0 04 0d 00 e6 08 dd f2 44 6f 0d 00 f0 08 eb 20 31 |.......Do..... 1|
000001e0 32 0d 00 fa 19 41 25 3d 31 32 38 30 3a 42 25 3d |2....A%=1280:B%=|
000001f0 31 30 32 34 3a 43 25 3d 31 36 0d 01 04 11 d6 20 |1024:C%=16..... |
00000200 28 63 6f 64 65 25 2b 31 30 30 29 0d 01 0e 11 d6 |(code%+100).....|
00000210 20 28 63 6f 64 65 25 2b 31 30 38 29 0d 01 18 04 | (code%+108)....|
00000220 0d 01 22 05 e1 0d 01 2c 04 0d 01 36 0e dd f2 41 |.."....,...6...A|
00000230 73 73 65 6d 62 6c 65 0d 01 40 19 6e 63 6f 6c 3d |ssemble..@.ncol=|
00000240 38 3a 67 63 6f 6c 3d 39 3a 74 69 6e 74 3d 31 30 |8:gcol=9:tint=10|
00000250 0d 01 4a 14 e3 20 70 61 73 73 3d 30 20 b8 20 33 |..J.. pass=0 . 3|
00000260 20 88 20 33 0d 01 54 0c 50 25 3d 63 6f 64 65 25 | . 3..T.P%=code%|
00000270 0d 01 5e 0d 5b 4f 50 54 20 70 61 73 73 0d 01 68 |..^.[OPT pass..h|
00000280 04 0d 01 72 0c 2e 61 72 67 74 79 70 65 0d 01 7c |...r..argtype..||
00000290 0c 45 51 55 44 20 30 20 3b 0d 01 86 04 0d 01 90 |.EQUD 0 ;.......|
000002a0 09 2e 61 72 67 73 0d 01 9a 3b 45 51 55 44 20 30 |..args...;EQUD 0|
000002b0 3a 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a 45 |:EQUD 0:EQUD 0:E|
000002c0 51 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 55 |QUD 0:EQUD 0:EQU|
000002d0 44 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 20 |D 0:EQUD 0:EQUD |
000002e0 30 0d 01 a4 04 0d 01 ae 09 2e 68 65 6c 70 0d 01 |0.........help..|
000002f0 b8 3b 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a |.;EQUD 0:EQUD 0:|
00000300 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 |EQUD 0:EQUD 0:EQ|
00000310 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 |UD 0:EQUD 0:EQUD|
00000320 20 30 3a 45 51 55 44 20 30 0d 01 c2 3b 45 51 55 | 0:EQUD 0...;EQU|
00000330 44 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 20 |D 0:EQUD 0:EQUD |
00000340 30 3a 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a |0:EQUD 0:EQUD 0:|
00000350 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 |EQUD 0:EQUD 0:EQ|
00000360 55 44 20 30 0d 01 cc 04 0d 01 cd 04 0d 01 ce 35 |UD 0...........5|
00000370 42 20 69 6e 69 74 20 20 20 20 20 3b 20 4a 75 6d |B init ; Jum|
00000380 70 73 20 74 6f 20 74 68 65 20 69 6e 69 74 69 61 |ps to the initia|
00000390 6c 69 73 61 74 69 6f 6e 20 72 6f 75 74 69 6e 65 |lisation routine|
000003a0 2e 0d 01 cf 2a 20 20 20 20 20 20 20 20 20 20 20 |....* |
000003b0 3b 20 74 68 69 73 20 69 73 20 6c 6f 63 61 74 69 |; this is locati|
000003c0 6f 6e 20 63 6f 64 65 2b 31 30 30 0d 01 d0 04 0d |on code+100.....|
000003d0 01 d1 2f 42 20 73 68 75 74 64 6f 77 6e 20 3b 20 |../B shutdown ; |
000003e0 4a 75 6d 70 73 20 74 6f 20 74 68 65 20 73 68 75 |Jumps to the shu|
000003f0 74 64 6f 77 6e 20 72 6f 75 74 69 6e 65 2e 0d 01 |tdown routine...|
00000400 d2 2a 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 |.* ; t|
00000410 68 69 73 20 69 73 20 6c 6f 63 61 74 69 6f 6e 20 |his is location |
00000420 63 6f 64 65 2b 31 30 34 0d 01 d3 04 0d 02 94 0d |code+104........|
00000430 2e 70 6f 6c 6c 5f 72 65 74 0d 02 b2 04 0d 02 bc |.poll_ret.......|
00000440 0f 41 44 52 20 72 30 2c 72 65 67 73 0d 02 c6 16 |.ADR r0,regs....|
00000450 53 54 4d 49 41 20 72 30 21 2c 7b 72 31 2d 72 31 |STMIA r0!,{r1-r1|
00000460 34 7d 0d 02 d0 04 0d 02 da 0f 41 44 52 20 72 30 |4}........ADR r0|
00000470 2c 64 69 6d 73 0d 02 e4 10 4c 44 52 20 72 31 31 |,dims....LDR r11|
00000480 2c 5b 72 30 5d 0d 02 ee 13 4c 44 52 20 72 31 32 |,[r0]....LDR r12|
00000490 2c 5b 72 30 2c 23 34 5d 0d 02 f8 04 0d 03 02 0f |,[r0,#4]........|
000004a0 41 44 52 20 72 36 2c 76 61 72 73 0d 03 0c 04 0d |ADR r6,vars.....|
000004b0 03 16 23 4d 4f 56 20 72 35 2c 72 31 34 3a 42 4c |..#MOV r5,r14:BL|
000004c0 20 53 65 74 43 6f 6c 3a 4d 4f 56 20 72 31 34 2c | SetCol:MOV r14,|
000004d0 72 35 0d 03 20 36 4d 4f 56 20 72 30 2c 23 34 3a |r5.. 6MOV r0,#4:|
000004e0 4c 44 52 20 72 31 2c 5b 72 36 5d 3a 4c 44 52 20 |LDR r1,[r6]:LDR |
000004f0 72 32 2c 5b 72 36 2c 23 34 5d 3a 53 57 49 20 22 |r2,[r6,#4]:SWI "|
00000500 4f 53 5f 50 6c 6f 74 22 0d 03 2a 3a 4d 4f 56 20 |OS_Plot"..*:MOV |
00000510 72 30 2c 23 35 3a 4c 44 52 20 72 31 2c 5b 72 36 |r0,#5:LDR r1,[r6|
00000520 2c 23 38 5d 3a 4c 44 52 20 72 32 2c 5b 72 36 2c |,#8]:LDR r2,[r6,|
00000530 23 31 32 5d 3a 53 57 49 20 22 4f 53 5f 50 6c 6f |#12]:SWI "OS_Plo|
00000540 74 22 0d 03 34 04 0d 03 3e 3c 4c 44 52 20 72 31 |t"..4...><LDR r1|
00000550 2c 5b 72 36 5d 3a 20 20 20 20 4c 44 52 20 72 32 |,[r6]: LDR r2|
00000560 2c 5b 72 36 2c 23 33 32 5d 3a 41 44 44 20 72 31 |,[r6,#32]:ADD r1|
00000570 2c 72 31 2c 72 32 3a 53 54 52 20 72 31 2c 5b 72 |,r1,r2:STR r1,[r|
00000580 36 5d 0d 03 48 3f 4c 44 52 20 72 31 2c 5b 72 36 |6]..H?LDR r1,[r6|
00000590 2c 23 34 5d 3a 20 4c 44 52 20 72 32 2c 5b 72 36 |,#4]: LDR r2,[r6|
000005a0 2c 23 33 36 5d 3a 41 44 44 20 72 31 2c 72 31 2c |,#36]:ADD r1,r1,|
000005b0 72 32 3a 53 54 52 20 72 31 2c 5b 72 36 2c 23 34 |r2:STR r1,[r6,#4|
000005c0 5d 0d 03 52 3f 4c 44 52 20 72 31 2c 5b 72 36 2c |]..R?LDR r1,[r6,|
000005d0 23 38 5d 3a 20 4c 44 52 20 72 32 2c 5b 72 36 2c |#8]: LDR r2,[r6,|
000005e0 23 34 30 5d 3a 41 44 44 20 72 31 2c 72 31 2c 72 |#40]:ADD r1,r1,r|
000005f0 32 3a 53 54 52 20 72 31 2c 5b 72 36 2c 23 38 5d |2:STR r1,[r6,#8]|
00000600 0d 03 5c 40 4c 44 52 20 72 31 2c 5b 72 36 2c 23 |..\@LDR r1,[r6,#|
00000610 31 32 5d 3a 4c 44 52 20 72 32 2c 5b 72 36 2c 23 |12]:LDR r2,[r6,#|
00000620 34 34 5d 3a 41 44 44 20 72 31 2c 72 31 2c 72 32 |44]:ADD r1,r1,r2|
00000630 3a 53 54 52 20 72 31 2c 5b 72 36 2c 23 31 32 5d |:STR r1,[r6,#12]|
00000640 0d 03 66 04 0d 03 70 1e 53 57 49 20 32 35 36 2b |..f...p.SWI 256+|
00000650 31 38 3a 53 57 49 20 32 35 36 3a 53 57 49 20 32 |18:SWI 256:SWI 2|
00000660 35 36 0d 03 7a 2b 53 57 49 20 32 35 36 2b 32 33 |56..z+SWI 256+23|
00000670 3a 53 57 49 20 32 35 36 2b 31 37 3a 53 57 49 20 |:SWI 256+17:SWI |
00000680 32 35 36 2b 32 3a 53 57 49 20 32 35 36 0d 03 84 |256+2:SWI 256...|
00000690 33 53 57 49 20 32 35 36 3a 53 57 49 20 32 35 36 |3SWI 256:SWI 256|
000006a0 3a 53 57 49 20 32 35 36 3a 53 57 49 20 32 35 36 |:SWI 256:SWI 256|
*
000006c0 0d 03 8e 04 0d 03 98 3b 4d 4f 56 20 72 30 2c 23 |.......;MOV r0,#|
000006d0 34 3a 4c 44 52 20 72 31 2c 5b 72 36 2c 23 31 36 |4:LDR r1,[r6,#16|
000006e0 5d 3a 4c 44 52 20 72 32 2c 5b 72 36 2c 23 32 30 |]:LDR r2,[r6,#20|
000006f0 5d 3a 53 57 49 20 22 4f 53 5f 50 6c 6f 74 22 0d |]:SWI "OS_Plot".|
00000700 03 a2 3b 4d 4f 56 20 72 30 2c 23 35 3a 4c 44 52 |..;MOV r0,#5:LDR|
00000710 20 72 31 2c 5b 72 36 2c 23 32 34 5d 3a 4c 44 52 | r1,[r6,#24]:LDR|
00000720 20 72 32 2c 5b 72 36 2c 23 32 38 5d 3a 53 57 49 | r2,[r6,#28]:SWI|
00000730 20 22 4f 53 5f 50 6c 6f 74 22 0d 03 ac 04 0d 03 | "OS_Plot"......|
00000740 b6 40 4c 44 52 20 72 31 2c 5b 72 36 2c 23 31 36 |.@LDR r1,[r6,#16|
00000750 5d 3a 4c 44 52 20 72 32 2c 5b 72 36 2c 23 34 38 |]:LDR r2,[r6,#48|
00000760 5d 3a 41 44 44 20 72 31 2c 72 31 2c 72 32 3a 53 |]:ADD r1,r1,r2:S|
00000770 54 52 20 72 31 2c 5b 72 36 2c 23 31 36 5d 0d 03 |TR r1,[r6,#16]..|
00000780 c0 40 4c 44 52 20 72 31 2c 5b 72 36 2c 23 32 30 |.@LDR r1,[r6,#20|
00000790 5d 3a 4c 44 52 20 72 32 2c 5b 72 36 2c 23 35 32 |]:LDR r2,[r6,#52|
000007a0 5d 3a 41 44 44 20 72 31 2c 72 31 2c 72 32 3a 53 |]:ADD r1,r1,r2:S|
000007b0 54 52 20 72 31 2c 5b 72 36 2c 23 32 30 5d 0d 03 |TR r1,[r6,#20]..|
000007c0 ca 40 4c 44 52 20 72 31 2c 5b 72 36 2c 23 32 34 |.@LDR r1,[r6,#24|
000007d0 5d 3a 4c 44 52 20 72 32 2c 5b 72 36 2c 23 35 36 |]:LDR r2,[r6,#56|
000007e0 5d 3a 41 44 44 20 72 31 2c 72 31 2c 72 32 3a 53 |]:ADD r1,r1,r2:S|
000007f0 54 52 20 72 31 2c 5b 72 36 2c 23 32 34 5d 0d 03 |TR r1,[r6,#24]..|
00000800 d4 40 4c 44 52 20 72 31 2c 5b 72 36 2c 23 32 38 |.@LDR r1,[r6,#28|
00000810 5d 3a 4c 44 52 20 72 32 2c 5b 72 36 2c 23 36 30 |]:LDR r2,[r6,#60|
00000820 5d 3a 41 44 44 20 72 31 2c 72 31 2c 72 32 3a 53 |]:ADD r1,r1,r2:S|
00000830 54 52 20 72 31 2c 5b 72 36 2c 23 32 38 5d 0d 03 |TR r1,[r6,#28]..|
00000840 de 04 0d 03 e8 45 41 44 52 20 72 34 2c 61 76 61 |.....EADR r4,ava|
00000850 72 73 3a 53 54 4d 49 41 20 72 34 2c 7b 72 32 2d |rs:STMIA r4,{r2-|
00000860 72 31 31 2c 72 31 34 7d 3a 42 4c 20 43 68 65 63 |r11,r14}:BL Chec|
00000870 6b 20 3a 4c 44 4d 49 41 20 72 34 2c 7b 72 32 2d |k :LDMIA r4,{r2-|
00000880 31 31 2c 72 31 34 7d 0d 03 f2 04 0d 03 fc 0f 41 |11,r14}........A|
00000890 44 52 20 72 30 2c 72 65 67 73 0d 04 06 16 4c 44 |DR r0,regs....LD|
000008a0 4d 49 41 20 72 30 21 2c 7b 72 31 2d 72 31 34 7d |MIA r0!,{r1-r14}|
000008b0 0d 04 10 0e 4d 4f 56 20 50 43 2c 72 31 34 0d 04 |....MOV PC,r14..|
000008c0 1a 04 0d 04 24 09 2e 65 78 69 74 0d 04 2e 0f 41 |....$..exit....A|
000008d0 44 52 20 72 36 2c 76 61 72 73 0d 04 38 22 4c 44 |DR r6,vars..8"LD|
000008e0 52 20 72 30 2c 5b 72 36 2c 23 30 5d 3a 53 54 52 |R r0,[r6,#0]:STR|
000008f0 20 72 30 2c 5b 72 36 2c 23 31 36 5d 0d 04 42 22 | r0,[r6,#16]..B"|
00000900 4c 44 52 20 72 30 2c 5b 72 36 2c 23 34 5d 3a 53 |LDR r0,[r6,#4]:S|
00000910 54 52 20 72 30 2c 5b 72 36 2c 23 32 30 5d 0d 04 |TR r0,[r6,#20]..|
00000920 4c 22 4c 44 52 20 72 30 2c 5b 72 36 2c 23 38 5d |L"LDR r0,[r6,#8]|
00000930 3a 53 54 52 20 72 30 2c 5b 72 36 2c 23 32 34 5d |:STR r0,[r6,#24]|
00000940 0d 04 56 23 4c 44 52 20 72 30 2c 5b 72 36 2c 23 |..V#LDR r0,[r6,#|
00000950 31 32 5d 3a 53 54 52 20 72 30 2c 5b 72 36 2c 23 |12]:STR r0,[r6,#|
00000960 32 38 5d 0d 04 60 04 0d 04 6a 0f 41 44 52 20 72 |28]..`...j.ADR r|
00000970 30 2c 72 65 67 73 0d 04 74 16 4c 44 4d 49 41 20 |0,regs..t.LDMIA |
00000980 72 30 21 2c 7b 72 31 2d 72 31 34 7d 0d 04 7e 04 |r0!,{r1-r14}..~.|
00000990 0d 04 88 0e 4d 4f 56 20 50 43 2c 72 31 34 0d 04 |....MOV PC,r14..|
000009a0 92 04 0d 04 9c 09 2e 69 6e 69 74 0d 04 a6 04 0d |.......init.....|
000009b0 04 b0 0f 41 44 52 20 72 33 2c 64 69 6d 73 0d 04 |...ADR r3,dims..|
000009c0 ba 0f 53 54 52 20 72 30 2c 5b 72 33 5d 0d 04 c4 |..STR r0,[r3]...|
000009d0 12 53 54 52 20 72 31 2c 5b 72 33 2c 23 34 5d 0d |.STR r1,[r3,#4].|
000009e0 04 ce 04 0d 04 d8 0e 4d 4f 56 20 72 31 31 2c 72 |.......MOV r11,r|
000009f0 30 0d 04 e2 0e 4d 4f 56 20 72 31 32 2c 72 31 0d |0....MOV r12,r1.|
00000a00 04 ec 04 0d 04 f6 0f 41 44 52 20 72 30 2c 72 65 |.......ADR r0,re|
00000a10 67 73 0d 05 00 16 53 54 4d 49 41 20 72 30 21 2c |gs....STMIA r0!,|
00000a20 7b 72 31 2d 72 31 34 7d 0d 05 0a 04 0d 05 14 0f |{r1-r14}........|
00000a30 41 44 52 20 72 33 2c 61 72 67 73 0d 05 1e 26 4c |ADR r3,args...&L|
00000a40 44 52 20 72 37 2c 5b 72 33 5d 20 3b 20 72 37 20 |DR r7,[r3] ; r7 |
00000a50 3d 20 6e 75 6d 62 65 72 20 6f 66 20 6c 69 6e 65 |= number of line|
00000a60 73 0d 05 28 37 41 44 52 20 72 36 2c 76 61 72 73 |s..(7ADR r6,vars|
00000a70 20 3b 20 72 36 20 3d 20 61 64 64 72 65 73 73 20 | ; r6 = address |
00000a80 6f 66 20 73 74 6f 72 65 20 66 6f 72 20 6c 69 6e |of store for lin|
00000a90 65 20 70 6f 69 6e 74 73 0d 05 32 2e 4d 4f 56 20 |e points..2.MOV |
00000aa0 72 34 2c 23 35 30 20 3a 53 54 52 20 72 34 2c 5b |r4,#50 :STR r4,[|
00000ab0 72 36 2c 23 30 5d 3a 53 54 52 20 72 34 2c 5b 72 |r6,#0]:STR r4,[r|
00000ac0 36 2c 23 31 36 5d 0d 05 3c 2e 4d 4f 56 20 72 34 |6,#16]..<.MOV r4|
00000ad0 2c 23 32 30 30 3a 53 54 52 20 72 34 2c 5b 72 36 |,#200:STR r4,[r6|
00000ae0 2c 23 34 5d 3a 53 54 52 20 72 34 2c 5b 72 36 2c |,#4]:STR r4,[r6,|
00000af0 23 32 30 5d 0d 05 46 2e 4d 4f 56 20 72 34 2c 23 |#20]..F.MOV r4,#|
00000b00 33 36 30 3a 53 54 52 20 72 34 2c 5b 72 36 2c 23 |360:STR r4,[r6,#|
00000b10 38 5d 3a 53 54 52 20 72 34 2c 5b 72 36 2c 23 32 |8]:STR r4,[r6,#2|
00000b20 34 5d 0d 05 50 2f 4d 4f 56 20 72 34 2c 23 34 30 |4]..P/MOV r4,#40|
00000b30 30 3a 53 54 52 20 72 34 2c 5b 72 36 2c 23 31 32 |0:STR r4,[r6,#12|
00000b40 5d 3a 53 54 52 20 72 34 2c 5b 72 36 2c 23 32 38 |]:STR r4,[r6,#28|
00000b50 5d 0d 05 5a 33 4c 44 52 20 72 34 2c 5b 72 33 2c |]..Z3LDR r4,[r3,|
00000b60 23 34 5d 20 3a 53 54 52 20 72 34 2c 5b 72 36 2c |#4] :STR r4,[r6,|
00000b70 23 33 32 5d 3a 53 54 52 20 72 34 2c 5b 72 36 2c |#32]:STR r4,[r6,|
00000b80 23 34 38 5d 0d 05 64 33 4c 44 52 20 72 34 2c 5b |#48]..d3LDR r4,[|
00000b90 72 33 2c 23 38 5d 20 3a 53 54 52 20 72 34 2c 5b |r3,#8] :STR r4,[|
00000ba0 72 36 2c 23 33 36 5d 3a 53 54 52 20 72 34 2c 5b |r6,#36]:STR r4,[|
00000bb0 72 36 2c 23 35 32 5d 0d 05 6e 33 4c 44 52 20 72 |r6,#52]..n3LDR r|
00000bc0 34 2c 5b 72 33 2c 23 31 32 5d 3a 53 54 52 20 72 |4,[r3,#12]:STR r|
00000bd0 34 2c 5b 72 36 2c 23 34 30 5d 3a 53 54 52 20 72 |4,[r6,#40]:STR r|
00000be0 34 2c 5b 72 36 2c 23 35 36 5d 0d 05 78 33 4c 44 |4,[r6,#56]..x3LD|
00000bf0 52 20 72 34 2c 5b 72 33 2c 23 31 36 5d 3a 53 54 |R r4,[r3,#16]:ST|
00000c00 52 20 72 34 2c 5b 72 36 2c 23 34 34 5d 3a 53 54 |R r4,[r6,#44]:ST|
00000c10 52 20 72 34 2c 5b 72 36 2c 23 36 30 5d 0d 05 82 |R r4,[r6,#60]...|
00000c20 04 0d 05 8c 11 41 44 52 20 72 33 2c 6e 6f 63 6f |.....ADR r3,noco|
00000c30 6c 73 0d 05 96 29 53 54 52 20 72 32 2c 5b 72 33 |ls...)STR r2,[r3|
00000c40 5d 20 3b 20 73 74 6f 72 65 20 6e 75 6d 62 65 72 |] ; store number|
00000c50 20 6f 66 20 63 6f 6c 6f 75 72 73 0d 05 a0 04 0d | of colours.....|
00000c60 05 aa 0e 2e 6d 61 69 6e 61 67 61 69 6e 0d 05 b4 |....mainagain...|
00000c70 04 0d 05 be 23 4d 4f 56 20 72 35 2c 72 31 34 3a |....#MOV r5,r14:|
00000c80 42 4c 20 53 65 74 43 6f 6c 3a 4d 4f 56 20 72 31 |BL SetCol:MOV r1|
00000c90 34 2c 72 35 0d 05 c8 04 0d 05 d2 0f 41 44 52 20 |4,r5........ADR |
00000ca0 72 36 2c 76 61 72 73 0d 05 dc 04 0d 05 e6 36 4d |r6,vars.......6M|
00000cb0 4f 56 20 72 30 2c 23 34 3a 4c 44 52 20 72 31 2c |OV r0,#4:LDR r1,|
00000cc0 5b 72 36 5d 3a 4c 44 52 20 72 32 2c 5b 72 36 2c |[r6]:LDR r2,[r6,|
00000cd0 23 34 5d 3a 53 57 49 20 22 4f 53 5f 50 6c 6f 74 |#4]:SWI "OS_Plot|
00000ce0 22 0d 05 f0 3a 4d 4f 56 20 72 30 2c 23 35 3a 4c |"...:MOV r0,#5:L|
00000cf0 44 52 20 72 31 2c 5b 72 36 2c 23 38 5d 3a 4c 44 |DR r1,[r6,#8]:LD|
00000d00 52 20 72 32 2c 5b 72 36 2c 23 31 32 5d 3a 53 57 |R r2,[r6,#12]:SW|
00000d10 49 20 22 4f 53 5f 50 6c 6f 74 22 0d 05 fa 04 0d |I "OS_Plot".....|
00000d20 06 04 38 4c 44 52 20 72 31 2c 5b 72 36 5d 3a 4c |..8LDR r1,[r6]:L|
00000d30 44 52 20 72 32 2c 5b 72 36 2c 23 33 32 5d 3a 41 |DR r2,[r6,#32]:A|
00000d40 44 44 20 72 31 2c 72 31 2c 72 32 3a 53 54 52 20 |DD r1,r1,r2:STR |
00000d50 72 31 2c 5b 72 36 5d 0d 06 0e 3e 4c 44 52 20 72 |r1,[r6]...>LDR r|
00000d60 31 2c 5b 72 36 2c 23 34 5d 3a 4c 44 52 20 72 32 |1,[r6,#4]:LDR r2|
00000d70 2c 5b 72 36 2c 23 33 36 5d 3a 41 44 44 20 72 31 |,[r6,#36]:ADD r1|
00000d80 2c 72 31 2c 72 32 3a 53 54 52 20 72 31 2c 5b 72 |,r1,r2:STR r1,[r|
00000d90 36 2c 23 34 5d 0d 06 18 3e 4c 44 52 20 72 31 2c |6,#4]...>LDR r1,|
00000da0 5b 72 36 2c 23 38 5d 3a 4c 44 52 20 72 32 2c 5b |[r6,#8]:LDR r2,[|
00000db0 72 36 2c 23 34 30 5d 3a 41 44 44 20 72 31 2c 72 |r6,#40]:ADD r1,r|
00000dc0 31 2c 72 32 3a 53 54 52 20 72 31 2c 5b 72 36 2c |1,r2:STR r1,[r6,|
00000dd0 23 38 5d 0d 06 22 40 4c 44 52 20 72 31 2c 5b 72 |#8].."@LDR r1,[r|
00000de0 36 2c 23 31 32 5d 3a 4c 44 52 20 72 32 2c 5b 72 |6,#12]:LDR r2,[r|
00000df0 36 2c 23 34 34 5d 3a 41 44 44 20 72 31 2c 72 31 |6,#44]:ADD r1,r1|
00000e00 2c 72 32 3a 53 54 52 20 72 31 2c 5b 72 36 2c 23 |,r2:STR r1,[r6,#|
00000e10 31 32 5d 0d 06 2c 22 4d 4f 56 20 72 35 2c 72 31 |12]..,"MOV r5,r1|
00000e20 34 3a 42 4c 20 43 68 65 63 6b 3a 4d 4f 56 20 72 |4:BL Check:MOV r|
00000e30 31 34 2c 72 35 0d 06 36 3f 41 44 52 20 72 34 2c |14,r5..6?ADR r4,|
00000e40 61 76 61 72 73 3a 53 54 4d 49 41 20 72 34 2c 7b |avars:STMIA r4,{|
00000e50 72 31 34 2c 72 30 2d 72 33 2c 72 35 2d 31 31 7d |r14,r0-r3,r5-11}|
00000e60 3a 42 4c 20 53 63 61 6e 3a 43 4d 50 53 20 72 31 |:BL Scan:CMPS r1|
00000e70 30 2c 23 31 0d 06 40 27 4c 44 4d 49 41 20 72 34 |0,#1..@'LDMIA r4|
00000e80 2c 7b 72 31 34 2c 72 30 2d 72 33 2c 72 35 2d 31 |,{r14,r0-r3,r5-1|
00000e90 31 7d 3a 42 45 51 20 65 78 69 74 0d 06 4a 11 53 |1}:BEQ exit..J.S|
00000ea0 55 42 53 20 72 37 2c 72 37 2c 23 31 0d 06 54 04 |UBS r7,r7,#1..T.|
00000eb0 0d 06 5e 11 42 50 4c 20 6d 61 69 6e 61 67 61 69 |..^.BPL mainagai|
00000ec0 6e 0d 06 68 04 0d 06 72 04 0d 06 7c 0e 4d 4f 56 |n..h...r...|.MOV|
00000ed0 20 50 43 2c 72 31 34 0d 06 86 04 0d 06 90 2a 2e | PC,r14.......*.|
00000ee0 76 61 72 73 20 3b 20 73 74 6f 72 61 67 65 20 66 |vars ; storage f|
00000ef0 6f 72 20 70 72 6f 67 72 61 6d 20 76 61 72 69 61 |or program varia|
00000f00 62 6c 65 73 2e 0d 06 9a 49 45 51 55 44 20 35 30 |bles....IEQUD 50|
00000f10 3a 45 51 55 44 20 32 30 30 3a 45 51 55 44 20 33 |:EQUD 200:EQUD 3|
00000f20 35 30 3a 45 51 55 44 20 34 30 30 3a 45 51 55 44 |50:EQUD 400:EQUD|
00000f30 20 35 30 3a 45 51 55 44 20 32 30 30 3a 45 51 55 | 50:EQUD 200:EQU|
00000f40 44 20 33 35 30 3a 45 51 55 44 20 34 30 30 0d 06 |D 350:EQUD 400..|
00000f50 a4 41 45 51 55 44 20 31 36 3a 45 51 55 44 20 38 |.AEQUD 16:EQUD 8|
00000f60 3a 45 51 55 44 20 32 34 3a 45 51 55 44 20 31 36 |:EQUD 24:EQUD 16|
00000f70 3a 45 51 55 44 20 31 36 3a 45 51 55 44 20 38 3a |:EQUD 16:EQUD 8:|
00000f80 45 51 55 44 20 32 34 3a 45 51 55 44 20 31 36 0d |EQUD 24:EQUD 16.|
00000f90 06 ae 04 0d 06 b8 29 2e 61 76 61 72 73 20 3b 20 |......).avars ; |
00000fa0 66 6f 72 20 72 65 73 65 72 76 69 6e 67 20 74 68 |for reserving th|
00000fb0 65 20 72 65 67 69 73 74 65 72 73 2e 0d 06 c2 3b |e registers....;|
00000fc0 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 |EQUD 0:EQUD 0:EQ|
00000fd0 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 |UD 0:EQUD 0:EQUD|
00000fe0 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 20 30 | 0:EQUD 0:EQUD 0|
00000ff0 3a 45 51 55 44 20 30 0d 06 cc 1f 45 51 55 44 20 |:EQUD 0....EQUD |
00001000 30 3a 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a |0:EQUD 0:EQUD 0:|
00001010 45 51 55 44 20 30 0d 06 d6 04 0d 06 e0 09 2e 72 |EQUD 0.........r|
00001020 65 67 73 0d 06 ea 3b 45 51 55 44 20 30 3a 45 51 |egs...;EQUD 0:EQ|
00001030 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 |UD 0:EQUD 0:EQUD|
00001040 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 20 30 | 0:EQUD 0:EQUD 0|
00001050 3a 45 51 55 44 20 30 3a 45 51 55 44 20 30 0d 06 |:EQUD 0:EQUD 0..|
00001060 f4 3b 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a |.;EQUD 0:EQUD 0:|
00001070 45 51 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 |EQUD 0:EQUD 0:EQ|
00001080 55 44 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 |UD 0:EQUD 0:EQUD|
00001090 20 30 3a 45 51 55 44 20 30 0d 06 fe 04 0d 07 08 | 0:EQUD 0.......|
000010a0 09 2e 64 69 6d 73 0d 07 12 11 45 51 55 44 20 30 |..dims....EQUD 0|
000010b0 3a 45 51 55 44 20 30 0d 07 1c 04 0d 07 26 49 3b |:EQUD 0......&I;|
000010c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00001100 2d 2d 2d 2d 0d 07 30 04 0d 07 3a 09 2e 53 63 61 |----..0...:..Sca|
00001110 6e 0d 07 44 3f 3b 20 6f 6e 20 72 65 74 75 72 6e |n..D?; on return|
00001120 20 72 31 30 20 77 69 6c 6c 20 63 6f 6e 74 61 69 | r10 will contai|
00001130 6e 20 31 20 3d 20 65 78 69 74 20 70 72 6f 67 2e |n 1 = exit prog.|
00001140 20 30 20 3d 20 64 6f 6e 27 74 20 65 78 69 74 2e | 0 = don't exit.|
00001150 0d 07 4e 04 0d 07 58 31 53 57 49 20 22 4f 53 5f |..N...X1SWI "OS_|
00001160 4d 6f 75 73 65 22 3a 4d 4f 56 20 72 38 2c 72 30 |Mouse":MOV r8,r0|
00001170 3a 4d 4f 56 20 72 39 2c 72 31 3a 4d 4f 56 20 72 |:MOV r9,r1:MOV r|
00001180 31 31 2c 72 32 0d 07 62 4c 4d 4f 56 20 72 31 30 |11,r2..bLMOV r10|
00001190 2c 23 30 3a 4d 4f 56 20 72 30 2c 23 31 32 31 3a |,#0:MOV r0,#121:|
000011a0 4d 4f 56 20 72 31 2c 23 30 3a 53 57 49 20 22 4f |MOV r1,#0:SWI "O|
000011b0 53 5f 42 79 74 65 22 3a 43 4d 50 53 20 72 31 2c |S_Byte":CMPS r1,|
000011c0 23 32 35 35 3a 4d 4f 56 4e 45 20 72 31 30 2c 23 |#255:MOVNE r10,#|
000011d0 31 0d 07 6c 42 53 57 49 20 22 4f 53 5f 4d 6f 75 |1..lBSWI "OS_Mou|
000011e0 73 65 22 3a 43 4d 50 53 20 72 30 2c 72 38 3a 4d |se":CMPS r0,r8:M|
000011f0 4f 56 4e 45 20 72 31 30 2c 23 31 3a 43 4d 50 53 |OVNE r10,#1:CMPS|
00001200 20 72 31 2c 72 39 3a 4d 4f 56 4e 45 20 72 31 30 | r1,r9:MOVNE r10|
00001210 2c 23 31 0d 07 76 1d 43 4d 50 53 20 72 32 2c 72 |,#1..v.CMPS r2,r|
00001220 31 31 3a 3a 4d 4f 56 4e 45 20 72 31 30 2c 23 31 |11::MOVNE r10,#1|
00001230 0d 07 80 0e 4d 4f 56 20 50 43 2c 72 31 34 0d 07 |....MOV PC,r14..|
00001240 8a 04 0d 07 94 49 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d |.....I;---------|
00001250 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00001280 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 07 9e 04 0d |-----------.....|
00001290 07 a8 0a 2e 43 68 65 63 6b 0d 07 b2 40 4c 44 52 |....Check...@LDR|
000012a0 20 72 30 2c 5b 72 36 5d 3a 4c 44 52 20 72 31 2c | r0,[r6]:LDR r1,|
000012b0 5b 72 36 2c 23 33 32 5d 3a 43 4d 50 53 20 72 30 |[r6,#32]:CMPS r0|
000012c0 2c 72 31 31 3a 53 55 42 47 54 20 72 31 2c 72 31 |,r11:SUBGT r1,r1|
000012d0 2c 72 31 2c 4c 53 4c 23 31 0d 07 bc 47 53 54 52 |,r1,LSL#1...GSTR|
000012e0 47 54 20 72 31 2c 5b 72 36 2c 23 33 32 5d 3a 43 |GT r1,[r6,#32]:C|
000012f0 4d 50 53 20 72 30 2c 23 30 3a 53 55 42 4c 54 20 |MPS r0,#0:SUBLT |
00001300 72 31 2c 72 31 2c 72 31 2c 4c 53 4c 23 31 3a 53 |r1,r1,r1,LSL#1:S|
00001310 54 52 4c 54 20 72 31 2c 5b 72 36 2c 23 33 32 5d |TRLT r1,[r6,#32]|
00001320 0d 07 c6 43 4c 44 52 20 72 30 2c 5b 72 36 2c 23 |...CLDR r0,[r6,#|
00001330 34 5d 3a 4c 44 52 20 72 31 2c 5b 72 36 2c 23 33 |4]:LDR r1,[r6,#3|
00001340 36 5d 3a 43 4d 50 53 20 72 30 2c 72 31 32 3a 53 |6]:CMPS r0,r12:S|
00001350 55 42 47 54 20 72 31 2c 72 31 2c 72 31 2c 4c 53 |UBGT r1,r1,r1,LS|
00001360 4c 23 31 0d 07 d0 47 53 54 52 47 54 20 72 31 2c |L#1...GSTRGT r1,|
00001370 5b 72 36 2c 23 33 36 5d 3a 43 4d 50 53 20 72 30 |[r6,#36]:CMPS r0|
00001380 2c 23 30 3a 53 55 42 4c 54 20 72 31 2c 72 31 2c |,#0:SUBLT r1,r1,|
00001390 72 31 2c 4c 53 4c 23 31 3a 53 54 52 4c 54 20 72 |r1,LSL#1:STRLT r|
000013a0 31 2c 5b 72 36 2c 23 33 36 5d 0d 07 da 43 4c 44 |1,[r6,#36]...CLD|
000013b0 52 20 72 30 2c 5b 72 36 2c 23 38 5d 3a 4c 44 52 |R r0,[r6,#8]:LDR|
000013c0 20 72 31 2c 5b 72 36 2c 23 34 30 5d 3a 43 4d 50 | r1,[r6,#40]:CMP|
000013d0 53 20 72 30 2c 72 31 31 3a 53 55 42 47 54 20 72 |S r0,r11:SUBGT r|
000013e0 31 2c 72 31 2c 72 31 2c 4c 53 4c 23 31 0d 07 e4 |1,r1,r1,LSL#1...|
000013f0 47 53 54 52 47 54 20 72 31 2c 5b 72 36 2c 23 34 |GSTRGT r1,[r6,#4|
00001400 30 5d 3a 43 4d 50 53 20 72 30 2c 23 30 3a 53 55 |0]:CMPS r0,#0:SU|
00001410 42 4c 54 20 72 31 2c 72 31 2c 72 31 2c 4c 53 4c |BLT r1,r1,r1,LSL|
00001420 23 31 3a 53 54 52 4c 54 20 72 31 2c 5b 72 36 2c |#1:STRLT r1,[r6,|
00001430 23 34 30 5d 0d 07 ee 44 4c 44 52 20 72 30 2c 5b |#40]...DLDR r0,[|
00001440 72 36 2c 23 31 32 5d 3a 4c 44 52 20 72 31 2c 5b |r6,#12]:LDR r1,[|
00001450 72 36 2c 23 34 34 5d 3a 43 4d 50 53 20 72 30 2c |r6,#44]:CMPS r0,|
00001460 72 31 32 3a 53 55 42 47 54 20 72 31 2c 72 31 2c |r12:SUBGT r1,r1,|
00001470 72 31 2c 4c 53 4c 23 31 0d 07 f8 47 53 54 52 47 |r1,LSL#1...GSTRG|
00001480 54 20 72 31 2c 5b 72 36 2c 23 34 34 5d 3a 43 4d |T r1,[r6,#44]:CM|
00001490 50 53 20 72 30 2c 23 30 3a 53 55 42 4c 54 20 72 |PS r0,#0:SUBLT r|
000014a0 31 2c 72 31 2c 72 31 2c 4c 53 4c 23 31 3a 53 54 |1,r1,r1,LSL#1:ST|
000014b0 52 4c 54 20 72 31 2c 5b 72 36 2c 23 34 34 5d 0d |RLT r1,[r6,#44].|
000014c0 08 02 44 4c 44 52 20 72 30 2c 5b 72 36 2c 23 31 |..DLDR r0,[r6,#1|
000014d0 36 5d 3a 4c 44 52 20 72 31 2c 5b 72 36 2c 23 34 |6]:LDR r1,[r6,#4|
000014e0 38 5d 3a 43 4d 50 53 20 72 30 2c 72 31 31 3a 53 |8]:CMPS r0,r11:S|
000014f0 55 42 47 54 20 72 31 2c 72 31 2c 72 31 2c 4c 53 |UBGT r1,r1,r1,LS|
00001500 4c 23 31 0d 08 0c 47 53 54 52 47 54 20 72 31 2c |L#1...GSTRGT r1,|
00001510 5b 72 36 2c 23 34 38 5d 3a 43 4d 50 53 20 72 30 |[r6,#48]:CMPS r0|
00001520 2c 23 30 3a 53 55 42 4c 54 20 72 31 2c 72 31 2c |,#0:SUBLT r1,r1,|
00001530 72 31 2c 4c 53 4c 23 31 3a 53 54 52 4c 54 20 72 |r1,LSL#1:STRLT r|
00001540 31 2c 5b 72 36 2c 23 34 38 5d 0d 08 16 44 4c 44 |1,[r6,#48]...DLD|
00001550 52 20 72 30 2c 5b 72 36 2c 23 32 30 5d 3a 4c 44 |R r0,[r6,#20]:LD|
00001560 52 20 72 31 2c 5b 72 36 2c 23 35 32 5d 3a 43 4d |R r1,[r6,#52]:CM|
00001570 50 53 20 72 30 2c 72 31 32 3a 53 55 42 47 54 20 |PS r0,r12:SUBGT |
00001580 72 31 2c 72 31 2c 72 31 2c 4c 53 4c 23 31 0d 08 |r1,r1,r1,LSL#1..|
00001590 20 47 53 54 52 47 54 20 72 31 2c 5b 72 36 2c 23 | GSTRGT r1,[r6,#|
000015a0 35 32 5d 3a 43 4d 50 53 20 72 30 2c 23 30 3a 53 |52]:CMPS r0,#0:S|
000015b0 55 42 4c 54 20 72 31 2c 72 31 2c 72 31 2c 4c 53 |UBLT r1,r1,r1,LS|
000015c0 4c 23 31 3a 53 54 52 4c 54 20 72 31 2c 5b 72 36 |L#1:STRLT r1,[r6|
000015d0 2c 23 35 32 5d 0d 08 2a 44 4c 44 52 20 72 30 2c |,#52]..*DLDR r0,|
000015e0 5b 72 36 2c 23 32 34 5d 3a 4c 44 52 20 72 31 2c |[r6,#24]:LDR r1,|
000015f0 5b 72 36 2c 23 35 36 5d 3a 43 4d 50 53 20 72 30 |[r6,#56]:CMPS r0|
00001600 2c 72 31 31 3a 53 55 42 47 54 20 72 31 2c 72 31 |,r11:SUBGT r1,r1|
00001610 2c 72 31 2c 4c 53 4c 23 31 0d 08 34 47 53 54 52 |,r1,LSL#1..4GSTR|
00001620 47 54 20 72 31 2c 5b 72 36 2c 23 35 36 5d 3a 43 |GT r1,[r6,#56]:C|
00001630 4d 50 53 20 72 30 2c 23 30 3a 53 55 42 4c 54 20 |MPS r0,#0:SUBLT |
00001640 72 31 2c 72 31 2c 72 31 2c 4c 53 4c 23 31 3a 53 |r1,r1,r1,LSL#1:S|
00001650 54 52 4c 54 20 72 31 2c 5b 72 36 2c 23 35 36 5d |TRLT r1,[r6,#56]|
00001660 0d 08 3e 44 4c 44 52 20 72 30 2c 5b 72 36 2c 23 |..>DLDR r0,[r6,#|
00001670 32 38 5d 3a 4c 44 52 20 72 31 2c 5b 72 36 2c 23 |28]:LDR r1,[r6,#|
00001680 36 30 5d 3a 43 4d 50 53 20 72 30 2c 72 31 32 3a |60]:CMPS r0,r12:|
00001690 53 55 42 47 54 20 72 31 2c 72 31 2c 72 31 2c 4c |SUBGT r1,r1,r1,L|
000016a0 53 4c 23 31 0d 08 48 47 53 54 52 47 54 20 72 31 |SL#1..HGSTRGT r1|
000016b0 2c 5b 72 36 2c 23 36 30 5d 3a 43 4d 50 53 20 72 |,[r6,#60]:CMPS r|
000016c0 30 2c 23 30 3a 53 55 42 4c 54 20 72 31 2c 72 31 |0,#0:SUBLT r1,r1|
000016d0 2c 72 31 2c 4c 53 4c 23 31 3a 53 54 52 4c 54 20 |,r1,LSL#1:STRLT |
000016e0 72 31 2c 5b 72 36 2c 23 36 30 5d 0d 08 52 0e 4d |r1,[r6,#60]..R.M|
000016f0 4f 56 20 50 43 2c 72 31 34 0d 08 5c 04 0d 08 66 |OV PC,r14..\...f|
00001700 49 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |I;--------------|
00001710 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00001740 2d 2d 2d 2d 2d 2d 0d 08 70 04 0d 08 7a 46 3b 2d |------..p...zF;-|
00001750 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00001790 0d 08 84 04 0d 08 8e 21 2e 73 68 75 74 64 6f 77 |.......!.shutdow|
000017a0 6e 20 3b 20 74 68 65 20 73 68 75 74 64 6f 77 6e |n ; the shutdown|
000017b0 20 63 6f 64 65 0d 08 98 04 0d 08 a2 49 3b 2d 2d | code.......I;--|
000017c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00001800 2d 2d 0d 08 ac 3c 3b 20 20 20 20 20 20 20 20 20 |--...<; |
00001810 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | **************|
00001820 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
00001830 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 08 |**************..|
00001840 b6 3c 3b 20 20 20 20 20 20 20 20 20 20 20 2a 2a |.<; **|
00001850 2a 20 20 20 20 59 4f 55 52 20 53 48 55 54 44 4f |* YOUR SHUTDO|
00001860 57 4e 20 43 4f 44 45 20 53 54 41 52 54 53 20 48 |WN CODE STARTS H|
00001870 45 52 45 20 20 20 20 2a 2a 2a 0d 08 c0 3c 3b 20 |ERE ***...<; |
00001880 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a | ******|
00001890 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000018b0 2a 2a 2a 2a 2a 2a 0d 08 ca 04 0d 08 d4 3a 3b 20 |******.......:; |
000018c0 20 20 20 20 20 20 20 20 20 20 20 62 6c 61 68 21 | blah!|
000018d0 20 62 6c 61 68 21 20 62 6c 61 68 21 20 62 6c 61 | blah! blah! bla|
000018e0 68 21 20 62 6c 61 68 21 20 62 6c 61 68 21 20 62 |h! blah! blah! b|
000018f0 6c 61 68 21 0d 08 de 04 0d 08 e8 3c 3b 20 20 20 |lah!.......<; |
00001900 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a | ********|
00001910 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00001930 2a 2a 2a 2a 0d 08 f2 3c 3b 20 20 20 20 20 20 20 |****...<; |
00001940 20 20 20 20 2a 2a 2a 20 20 20 20 20 59 4f 55 52 | *** YOUR|
00001950 20 53 48 55 54 44 4f 57 4e 20 43 4f 44 45 20 45 | SHUTDOWN CODE E|
00001960 4e 44 53 20 48 45 52 45 20 20 20 20 20 2a 2a 2a |NDS HERE ***|
00001970 0d 08 fc 3c 3b 20 20 20 20 20 20 20 20 20 20 20 |...<; |
00001980 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000019a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 09 06 49 |************...I|
000019b0 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |;---------------|
000019c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
000019f0 2d 2d 2d 2d 2d 0d 09 10 24 4d 4f 56 20 50 43 2c |-----...$MOV PC,|
00001a00 72 31 34 20 3b 20 65 78 69 74 20 73 68 75 74 64 |r14 ; exit shutd|
00001a10 6f 77 6e 20 63 6f 64 65 2e 0d 09 1a 04 0d 09 24 |own code.......$|
00001a20 04 0d 09 2e 04 0d 09 38 0b 2e 6e 6f 63 6f 6c 73 |.......8..nocols|
00001a30 0d 09 42 2f 45 51 55 44 20 32 20 20 20 3b 20 41 |..B/EQUD 2 ; A|
00001a40 63 74 75 61 6c 20 4e 6f 2e 20 6f 66 20 63 6f 6c |ctual No. of col|
00001a50 6f 75 72 73 20 32 2f 34 2f 31 36 2f 32 35 36 0d |ours 2/4/16/256.|
00001a60 09 4c 11 45 51 55 44 20 31 20 20 20 20 3b 20 e6 |.L.EQUD 1 ; .|
00001a70 0d 09 56 12 45 51 55 44 20 30 20 20 20 20 3b 20 |..V.EQUD 0 ; |
00001a80 c8 9c 0d 09 60 04 0d 09 6a 0b 2e 53 65 74 43 6f |....`...j..SetCo|
00001a90 6c 0d 09 74 04 0d 09 7e 3e 4c 44 52 20 6e 63 6f |l..t...~>LDR nco|
00001aa0 6c 2c 5b 50 43 2c 23 28 2d 32 30 29 5d 20 3b 20 |l,[PC,#(-20)] ; |
00001ab0 4c 6f 61 64 20 4e 6f 2e 20 6f 66 20 63 6f 6c 6f |Load No. of colo|
00001ac0 75 72 73 20 72 65 6c 61 74 69 76 65 20 74 6f 20 |urs relative to |
00001ad0 50 43 2e 0d 09 88 39 4c 44 52 20 67 63 6f 6c 2c |PC....9LDR gcol,|
00001ae0 5b 50 43 2c 23 28 2d 32 30 29 5d 20 3b 20 4c 6f |[PC,#(-20)] ; Lo|
00001af0 61 64 20 43 75 72 72 65 6e 74 20 e6 20 72 65 6c |ad Current . rel|
00001b00 61 74 69 76 65 20 74 6f 20 50 43 2e 0d 09 92 3a |ative to PC....:|
00001b10 4c 44 52 20 74 69 6e 74 2c 5b 50 43 2c 23 28 2d |LDR tint,[PC,#(-|
00001b20 32 30 29 5d 20 3b 20 4c 6f 61 64 20 43 75 72 72 |20)] ; Load Curr|
00001b30 65 6e 74 20 c8 9c 20 72 65 6c 61 74 69 76 65 20 |ent .. relative |
00001b40 74 6f 20 50 43 2e 0d 09 9c 04 0d 09 a6 36 43 4d |to PC........6CM|
00001b50 50 53 20 6e 63 6f 6c 2c 23 32 35 36 20 20 20 20 |PS ncol,#256 |
00001b60 20 20 20 3b 20 49 66 20 6e 6f 74 20 61 20 32 35 | ; If not a 25|
00001b70 36 20 63 6f 6c 6f 75 72 20 6d 6f 64 65 20 2e 2e |6 colour mode ..|
00001b80 0d 09 b0 2f 42 4c 54 20 6c 65 73 73 74 68 61 6e |.../BLT lessthan|
00001b90 32 35 36 20 20 20 20 20 20 3b 20 2e 2e 20 67 6f |256 ; .. go|
00001ba0 74 6f 20 2e 6c 65 73 73 74 68 61 6e 32 35 36 0d |to .lessthan256.|
00001bb0 09 ba 04 0d 09 c4 1a 3b 20 53 65 74 20 e6 20 30 |.......; Set . 0|
00001bc0 2c 67 63 6f 6c 20 c8 9c 20 74 69 6e 74 0d 09 ce |,gcol .. tint...|
00001bd0 04 0d 09 d8 32 53 57 49 20 32 35 36 2b 31 38 3a |....2SWI 256+18:|
00001be0 53 57 49 20 32 35 36 3a 4d 4f 56 20 72 30 2c 67 |SWI 256:MOV r0,g|
00001bf0 63 6f 6c 3a 53 57 49 20 22 4f 53 5f 57 72 69 74 |col:SWI "OS_Writ|
00001c00 65 43 22 0d 09 e2 3f 53 57 49 20 32 35 36 2b 32 |eC"...?SWI 256+2|
00001c10 33 3a 53 57 49 20 32 35 36 2b 31 37 3a 53 57 49 |3:SWI 256+17:SWI|
00001c20 20 32 35 36 2b 32 3a 4d 4f 56 20 72 30 2c 74 69 | 256+2:MOV r0,ti|
00001c30 6e 74 3a 53 57 49 20 22 4f 53 5f 57 72 69 74 65 |nt:SWI "OS_Write|
00001c40 43 22 0d 09 ec 33 53 57 49 20 32 35 36 3a 53 57 |C"...3SWI 256:SW|
00001c50 49 20 32 35 36 3a 53 57 49 20 32 35 36 3a 53 57 |I 256:SWI 256:SW|
*
00001c70 49 20 32 35 36 0d 09 f6 04 0d 0a 00 15 41 44 44 |I 256........ADD|
00001c80 20 74 69 6e 74 2c 74 69 6e 74 2c 23 36 34 0d 0a | tint,tint,#64..|
00001c90 0a 12 43 4d 50 53 20 74 69 6e 74 2c 23 32 35 36 |..CMPS tint,#256|
00001ca0 0d 0a 14 0e ec 51 20 74 69 6e 74 2c 23 30 0d 0a |.....Q tint,#0..|
00001cb0 1e 16 41 44 44 45 51 20 67 63 6f 6c 2c 67 63 6f |..ADDEQ gcol,gco|
00001cc0 6c 2c 23 31 0d 0a 28 11 43 4d 50 53 20 67 63 6f |l,#1..(.CMPS gco|
00001cd0 6c 2c 23 36 34 0d 0a 32 11 4d 4f 56 47 45 20 67 |l,#64..2.MOVGE g|
00001ce0 63 6f 6c 2c 23 31 0d 0a 3c 19 53 54 52 20 67 63 |col,#1..<.STR gc|
00001cf0 6f 6c 2c 5b 50 43 2c 23 28 2d 31 32 30 29 5d 0d |ol,[PC,#(-120)].|
00001d00 0a 46 19 53 54 52 20 74 69 6e 74 2c 5b 50 43 2c |.F.STR tint,[PC,|
00001d10 23 28 2d 31 32 30 29 5d 0d 0a 50 0e 4d 4f 56 20 |#(-120)]..P.MOV |
00001d20 50 43 2c 72 31 34 0d 0a 5a 04 0d 0a 64 10 2e 6c |PC,r14..Z...d..l|
00001d30 65 73 73 74 68 61 6e 32 35 36 0d 0a 6e 32 53 57 |essthan256..n2SW|
00001d40 49 20 32 35 36 2b 31 38 3a 53 57 49 20 32 35 36 |I 256+18:SWI 256|
00001d50 3a 4d 4f 56 20 72 30 2c 67 63 6f 6c 3a 53 57 49 |:MOV r0,gcol:SWI|
00001d60 20 22 4f 53 5f 57 72 69 74 65 43 22 0d 0a 78 04 | "OS_WriteC"..x.|
00001d70 0d 0a 82 14 41 44 44 20 67 63 6f 6c 2c 67 63 6f |....ADD gcol,gco|
00001d80 6c 2c 23 31 0d 0a 8c 12 43 4d 50 53 20 67 63 6f |l,#1....CMPS gco|
00001d90 6c 2c 6e 63 6f 6c 0d 0a 96 11 4d 4f 56 47 45 20 |l,ncol....MOVGE |
00001da0 67 63 6f 6c 2c 23 31 0d 0a a0 19 53 54 52 20 67 |gcol,#1....STR g|
00001db0 63 6f 6c 2c 5b 50 43 2c 23 28 2d 31 36 30 29 5d |col,[PC,#(-160)]|
00001dc0 0d 0a aa 0e 4d 4f 56 20 50 43 2c 72 31 34 0d 0a |....MOV PC,r14..|
00001dd0 b4 04 0d 0a be 05 5d 0d 0a c8 0a ed 20 70 61 73 |......]..... pas|
00001de0 73 0d 0a d2 0e f1 20 50 25 2d 63 6f 64 65 25 0d |s..... P%-code%.|
00001df0 0a dc 0d f4 20 41 24 3d 47 45 54 24 0d 0a e6 05 |.... A$=GET$....|
00001e00 e1 0d ff |...|
00001e03 
.