Home » Archimedes archive » Archimedes World » AW Readers Services Special FebMar 92.adf » !ArcWorld/Goodies/ScrnGrab/SCRSAVE
!ArcWorld/Goodies/ScrnGrab/SCRSAVE
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 » Archimedes World » AW Readers Services Special FebMar 92.adf |
| Filename: | !ArcWorld/Goodies/ScrnGrab/SCRSAVE |
| Read OK: | ✔ |
| File size: | 1B95 bytes |
| Load address: | FFFFFB42 |
| Exec address: | 42DFEF68 |
File contents
10
20
30
40REM > ScrSave
50REM === Manifest definitions ===
60R0=0:r0=0
70R1=1:r1=1
80R2=2:r2=2
90R3=3:r3=3
100R4=4:r4=4
110R5=5:r5=5
120R6=6:r6=6
130R7=7:r7=7
140R8=8:r8=8
150R9=9
160R10=10
170R11=11
180R12=12:wp=12
190R13=13:sp=13
200R14=14:lr=14
210R15=15:PC=R15:pc=15:psr=15
220ModHandReason_Claim = 6
230Service_Reset = &27
240EventV = &10
250Event_Keyboard = 11
260SVC_mode=1
270cr%=13
280keytodump = &5E :REM left-ALT
290ctrlkey = &3B :REM left-CTRL
300VIDC =&03400000
310REM Some Workspace offsets
320LastCtrlEvent = 0
330LastDumpEvent = 4
340interlock = 8
350Test_WorkspaceSize= &100
360REM ===
370DIM code% 100*1024
380PROCDOIT
390END
400DEFPROCDOIT
410Module_Title$="ScreenGrab"
420Module_Help$ =Module_Title$+CHR$9+"0.10 ("+MID$(TIME$,5,LEN("04 Jul 1989"))+")"
430saveas$="$.ScrGrab"
440REM ===
450PRINT"Assembling "+saveas$
460REM PROCworkspace
470pass%=0
480FORopt%=0TO2STEP2:REM :opt%=opt% OR 1
490P%=code%
500pass%+=1
510PRINT"Pass ";pass%
520PROClibrary
530NEXT
540OSCLI("SAVE "+saveas$+" "+STR$~code%+" "+STR$~P%)
550OSCLI("SETTYPE "+saveas$+" FFA")
560ENDPROC
570DEFPROClibrary
580[OPTopt%
590.Module_BaseAddr
600 EQUD 0
610 EQUD Test_Init -Module_BaseAddr
620 EQUD Test_Die -Module_BaseAddr
630 EQUD Test_Service -Module_BaseAddr
640 EQUD Test_Title -Module_BaseAddr
650 EQUD Test_HelpStr -Module_BaseAddr
660 EQUD 0
670.Test_Title
680 EQUS Module_Title$:EQUB 0
690.Test_HelpStr
700 EQUS Module_Help$:EQUB 0
710 ALIGN
720; r0-r6 may be corrupted
730.Test_Init
740 STMFD R13!,{R14}
750 LDR r2, [r12] ; Coming from hard reset ?
760 TEQ r2, #0
770 BNE ll001
780 MOV r0, #ModHandReason_Claim
790 MOV r3, #Test_WorkspaceSize
800 SWI "XOS_Module"
810 ; 'No room in RMA' is acceptable message
820 LDMVSFD R13!,{PC}
830 STR r2, [r12]
840 FNADDR(r0, setupthevariable)
850 SWI "XOS_CLI"
860 BVS ll001
870 FNADDR(r0, setupthenumber)
880 SWI "XOS_CLI"
890.ll001
900 MOV wp, r2 ; Dereference on all resets !
910 BL Test_Service_Reset
920 LDMFD R13!,{PC}
930.Test_Service
940 TEQ r1, #Service_Reset
950 MOVNE pc, lr
960 LDR wp, [r12] ; Dereference on service
970.Test_Service_Reset
980 STMFD R13!,{r0-r2,R14}
990 MOV r14, #0
1000 STR r14, [R12,#LastCtrlEvent]
1010 STR r14, [R12,#LastDumpEvent]
1020 MOV r0, #EventV
1030 ADR r1, EventCode
1040 BL ClaimVector
1050 MOV r0, #14 ; Enable event
1060 MOV r1, #Event_Keyboard
1070 SWI "XOS_Byte"
1080 MOV r0, #0
1090 STRB r0, [R12,#interlock ]
1100 LDMFD R13!,{r0-r2,PC}
1110; Let Module handler take care of removing our workspace on fatal death
1120; Or shunting it around on Tidy - none of it is absolute
1130.Test_Die
1140 STMFD R13!,{r0-r2,R14}
1150 MOV r0, #13 ; Disable event
1160 MOV r1, #Event_Keyboard
1170 SWI "XOS_Byte"
1180 LDR wp, [r12] ; Dereference on death
1190 MOV r0, #EventV
1200 ADR r1, EventCode
1210 BL DelinkVector
1220 LDMFD R13!,{r0-r2,PC}
1230.ClaimVector
1240 STMFD R13!,{r2,R14}
1250 BL DelinkVector
1260 MOV r2, wp ; Use wp itself - saves dereferencing
1270 SWI "XOS_Claim" ; on actual code entries
1280 LDMFD R13!,{r2,PC}^
1290.DelinkVector
1300 STMFD R13!,{r0-r2,R14}
1310.ll002
1320 LDMIA R13,{R0,R1}
1330 MOV r2, wp
1340 SWI "XOS_Release"
1350 BVC ll002
1360 CMP PC,#0
1370 LDMFD R13!,{r0-r2,PC}
1380; Entered in some mode or other, probably IRQ
1390.EventCode
1400 CMP r0, #Event_Keyboard
1410 MOVNE pc, lr ; Pass it on if wrong event
1420 ; In r1 = key down = 1, key up = 0
1430 ; r2 = key number
1440 STMFD R13!,{r0-r1,r4-r5,R14}
1450 MOV r14, #ctrlkey
1460 CMP r2, r14
1470 STREQ r1,[R12,#LastCtrlEvent] ; 0 -> key is now up
1480 BEQ ll003
1490 MOV r14, #keytodump
1500 CMP r2, r14
1510 STREQ r1, [R12,#LastDumpEvent] ; 0 -> key is now up
1520; Pass it on if not one of our keys
1530 LDMNEFD R13!,{r0-r1,r4-r5,PC}
1540; Abort on first keystroke if ctrl is down too
1550.ll003
1560 LDR R14,[R12,#LastCtrlEvent] ; Is CTRL key down ?
1570 TEQ r14, #0
1580 LDMEQFD R13!,{r0-r1,r4-r5,PC} ; Ignore
1590 LDR r14, [R12,#LastDumpEvent ] ; Is ALT key down as well ?
1600 TEQ r14, #0
1610 LDMEQFD R13!,{r0-r1,r4-r5,PC} ; Ignore
1620; Into SVC mode so we can call SWI's
1630 MOV r5, psr ; Remember mode + flags
1640 BIC r4, r5, #SVC_mode
1650 TEQP r4, #SVC_mode ; Force SVC mode
1660 MOV R0,R0
1670 STMFD R13!,{R14} \\ lr_svc
1680 MOV r14, #VIDC
1690; Set border cyan
1700 MOV r4,#&40000000
1710 ORR r4,r4,#&CC0
1720 STR r4, [r14]
1730; Set the CallBackHandler up NOW !!!
1740 LDRB r0, [R12,#interlock ]
1750 TEQ r0, #0
1760 BNE ll004 ; [already requested]
1770 ADR r0, CallBackCode
1780 MOV r1, wp
1790 SWI "XOS_AddCallBack"
1800 MOVVC r0, #1
1810 STRVCB r0, [R12,#interlock ]
1820
1830.ll004
1840 LDMFD R13!,{R14} \\ lr_svc
1850 TEQP r5, #0 ; Back to caller's mode
1860 MOV R0,R0
1870 LDMFD R13!,{r0-r1,r4-r5,PC} ; Pass it on
1880; In r0-r6 may be corrupted
1890; wp valid
1900; SVC mode, IRQ enabled
1910.CallBackCode
1920 STMFD R13!, {R14}
1930 MOV r14, #VIDC
1940 MOV r0, #&40000000 ; Set border black
1950 STR r0, [r14]
1960 SWI 256+26 \\ VDU 26
1970 ADR r0, savethescreen
1980 SWI "XOS_CLI" ; Ignore errors !
1990 ADRVC r0, addtothenumber ; Increment the file number
2000 SWIVC "XOS_CLI"
2010 ADDVS r0, r0, #4 ; Errors just have to be printed
2020 SWIVS "XOS_Write0"
2030 ADDVS r0, r0, #4
2040 SWIVS "XOS_Write0"
2050 MOV r0, #0
2060 STRB r0, [R12,#interlock ]
2070 LDMFD R13!,{PC}
2080.savethescreen
2090 EQUS "ScreenSave <ScreenDump$Name>":EQUB 13
2100.addtothenumber
2110 EQUS "SetEval ScreenDump$Number <ScreenDump$Number>+1":EQUB 13
2120.setupthevariable
2130 EQUS "SetMacro ScreenDump$Name ScrDump<ScreenDump$Number>":EQUB 13
2140.setupthenumber
2150 EQUS "SetEval ScreenDump$Number 1":EQUB 13
2160.tracename%
2170 EQUS "HostVdu:"
2180 EQUB 0
2190 ALIGN
2200]
2210ENDPROC
2220DEFFNADDR(reg,dest)
2230IF (dest - P% - 8) >=0 THEN
2240 IF (dest - P% - 8) < &10000 THEN
2250 [OPTopt%
2260 ADD reg,PC,#(dest - P% - 8 ) AND &FF
2270 ADD reg,reg,#(dest - P% - 4) AND &FF00
2280 ]
2290 ELSE
2300 IF (dest - P% - 8) < &1000000 THEN
2310 [OPTopt%
2320 ADD reg,PC,#(dest - P% - 8 ) AND &FF
2330 ADD reg,reg,#(dest - P% - 4) AND &FF00
2340 ADD reg,reg,#(dest - P% - 0) AND &FF0000
2350 ]
2360 ELSE
2370 ERROR 0,"ADR out of range"
2380 ENDIF
2390 ENDIF
2400ELSE
2410 IF (0-(dest - P% - 8)) < &10000 THEN
2420 [OPTopt%
2430 SUB reg,PC,#(0-(dest - P% - 8 )) AND &FF
2440 SUB reg,reg,#(0-(dest - P% - 4)) AND &FF00
2450 ]
2460 ELSE
2470 IF (0-(dest - P% - 8)) < &1000000 THEN
2480 [OPTopt%
2490 SUB reg,PC,#(0-(dest - P% - 8 )) AND &FF
2500 SUB reg,reg,#(0-(dest - P% - 4)) AND &FF00
2510 SUB reg,reg,#(0-(dest - P% - 0)) AND &FF0000
2520 ]
2530 ELSE
2540 ERROR 0,"ADR out of range"
2550 ENDIF
2560 ENDIF
2570ENDIF
2580=""
2590END
2600
(� > ScrSave
2"� === Manifest definitions ===
<
R0=0:r0=0
F
R1=1:r1=1
P
R2=2:r2=2
Z
R3=3:r3=3
d
R4=4:r4=4
n
R5=5:r5=5
x
R6=6:r6=6
�
R7=7:r7=7
�
R8=8:r8=8
�R9=9
�
R10=10
�
R11=11
�R12=12:wp=12
�R13=13:sp=13
�R14=14:lr=14
� R15=15:PC=R15:pc=15:psr=15
�ModHandReason_Claim = 6
�Service_Reset = &27
�EventV = &10
�Event_Keyboard = 11
SVC_mode=1
cr%=13
$keytodump = &5E :� left-ALT
"%ctrlkey = &3B :� left-CTRL
,VIDC =&03400000
6 � Some Workspace offsets
@LastCtrlEvent = 0
JLastDumpEvent = 4
Tinterlock = 8
^ Test_WorkspaceSize= &100
h � ===
r� code% 100*1024
| �DOIT
��
�
��DOIT
� Module_Title$="ScreenGrab"
�GModule_Help$ =Module_Title$+�9+"0.10 ("+��$,5,�("04 Jul 1989"))+")"
�saveas$="$.ScrGrab"
� � ===
��"Assembling "+saveas$
�� PROCworkspace
� pass%=0
�!�opt%=0�2�2:� :opt%=opt% OR 1
� P%=code%
� pass%+=1
��"Pass ";pass%
�library
�
+�("SAVE "+saveas$+" "+�~code%+" "+�~P%)
& �("SETTYPE "+saveas$+" FFA")
0�
:
��library
D [OPTopt%
N.Module_BaseAddr
X EQUD 0
b( EQUD Test_Init -Module_BaseAddr
l( EQUD Test_Die -Module_BaseAddr
v( EQUD Test_Service -Module_BaseAddr
�( EQUD Test_Title -Module_BaseAddr
�( EQUD Test_HelpStr -Module_BaseAddr
� EQUD 0
�.Test_Title
�! EQUS Module_Title$:EQUB 0
�.Test_HelpStr
� EQUS Module_Help$:EQUB 0
� ALIGN
� ; r0-r6 may be corrupted
�.Test_Init
� STMFD R13!,{R14}
�@ LDR r2, [r12] ; Coming from hard reset ?
� TEQ r2, #0
BNE ll001
& MOV r0, #ModHandReason_Claim
% MOV r3, #Test_WorkspaceSize
SWI "XOS_Module"
*. ; 'No room in RMA' is acceptable message
4 LDMVSFD R13!,{PC}
> STR r2, [r12]
H! �ADDR(r0, setupthevariable)
R SWI "XOS_CLI"
\ BVS ll001
f �ADDR(r0, setupthenumber)
p SWI "XOS_CLI"
z
.ll001
�C MOV wp, r2 ; Dereference on all resets !
� BL Test_Service_Reset
� LDMFD R13!,{PC}
�.Test_Service
� TEQ r1, #Service_Reset
� MOVNE pc, lr
�> LDR wp, [r12] ; Dereference on service
�.Test_Service_Reset
� STMFD R13!,{r0-r2,R14}
� MOV r14, #0
�' STR r14, [R12,#LastCtrlEvent]
�' STR r14, [R12,#LastDumpEvent]
� MOV r0, #EventV
ADR r1, EventCode
BL ClaimVector
4 MOV r0, #14 ; Enable event
$! MOV r1, #Event_Keyboard
. SWI "XOS_Byte"
8 MOV r0, #0
B# STRB r0, [R12,#interlock ]
L LDMFD R13!,{r0-r2,PC}
VK; Let Module handler take care of removing our workspace on fatal death
`<; Or shunting it around on Tidy - none of it is absolute
j
.Test_Die
t STMFD R13!,{r0-r2,R14}
~5 MOV r0, #13 ; Disable event
�! MOV r1, #Event_Keyboard
� SWI "XOS_Byte"
�< LDR wp, [r12] ; Dereference on death
� MOV r0, #EventV
� ADR r1, EventCode
� BL DelinkVector
� LDMFD R13!,{r0-r2,PC}
�.ClaimVector
� STMFD R13!,{r2,R14}
� BL DelinkVector
�A MOV r2, wp ; Use wp itself - saves dereferencing
�6 SWI "XOS_Claim" ; on actual code entries
LDMFD R13!,{r2,PC}^
.DelinkVector
STMFD R13!,{r0-r2,R14}
.ll002
( LDMIA R13,{R0,R1}
2 MOV r2, wp
< SWI "XOS_Release"
F BVC ll002
P CMP PC,#0
Z LDMFD R13!,{r0-r2,PC}
d1; Entered in some mode or other, probably IRQ
n.EventCode
x! CMP r0, #Event_Keyboard
�A MOVNE pc, lr ; Pass it on if wrong event
�+ ; In r1 = key down = 1, key up = 0
� ; r2 = key number
�" STMFD R13!,{r0-r1,r4-r5,R14}
� MOV r14, #ctrlkey
� CMP r2, r14
�; STREQ r1,[R12,#LastCtrlEvent] ; 0 -> key is now up
� BEQ ll003
� MOV r14, #keytodump
� CMP r2, r14
�> STREQ r1, [R12,#LastDumpEvent] ; 0 -> key is now up
�'; Pass it on if not one of our keys
�# LDMNEFD R13!,{r0-r1,r4-r5,PC}
2; Abort on first keystroke if ctrl is down too
.ll003
7 LDR R14,[R12,#LastCtrlEvent] ; Is CTRL key down ?
" TEQ r14, #0
,. LDMEQFD R13!,{r0-r1,r4-r5,PC} ; Ignore
6H LDR r14, [R12,#LastDumpEvent ] ; Is ALT key down as well ?
@ TEQ r14, #0
J. LDMEQFD R13!,{r0-r1,r4-r5,PC} ; Ignore
T(; Into SVC mode so we can call SWI's
^= MOV r5, psr ; Remember mode + flags
h BIC r4, r5, #SVC_mode
r6 TEQP r4, #SVC_mode ; Force SVC mode
| MOV R0,R0
� STMFD R13!,{R14} \\ lr_svc
� MOV r14, #VIDC
�; Set border cyan
� MOV r4,#&40000000
� �R r4,r4,#&CC0
� STR r4, [r14]
�(; Set the CallBackHandler up NOW !!!
�% LDRB r0, [R12,#interlock ]
� TEQ r0, #0
�; BNE ll004 ; [already requested]
� ADR r0, CallBackCode
� MOV r1, wp
� SWI "XOS_AddCallBack"
MOVVC r0, #1
$ STRVCB r0, [R12,#interlock ]
&
.ll004
0 LDMFD R13!,{R14} \\ lr_svc
:= TEQP r5, #0 ; Back to caller's mode
D MOV R0,R0
N0 LDMFD R13!,{r0-r1,r4-r5,PC} ; Pass it on
X"; In r0-r6 may be corrupted
b; wp valid
l!; SVC mode, IRQ enabled
v.CallBackCode
� STMFD R13!, {R14}
� MOV r14, #VIDC
�8 MOV r0, #&40000000 ; Set border black
� STR r0, [r14]
� SWI 256+26 \\ � 26
� ADR r0, savethescreen
�7 SWI "XOS_CLI" ; Ignore errors !
�A ADRVC r0, addtothenumber ; Increment the file number
� SWIVC "XOS_CLI"
�F ADDVS r0, r0, #4 ; Errors just have to be printed
� SWIVS "XOS_Write0"
� ADDVS r0, r0, #4
� SWIVS "XOS_Write0"
MOV r0, #0
# STRB r0, [R12,#interlock ]
LDMFD R13!,{PC}
.savethescreen
*1 EQUS "ScreenSave <ScreenDump$Name>":EQUB 13
4.addtothenumber
>D EQUS "SetEval ScreenDump$Number <ScreenDump$Number>+1":EQUB 13
H.setupthevariable
RH EQUS "SetMacro ScreenDump$Name ScrDump<ScreenDump$Number>":EQUB 13
\.setupthenumber
f0 EQUS "SetEval ScreenDump$Number 1":EQUB 13
p.tracename%
z EQUS "HostVdu:"
� EQUB 0
� ALIGN
�]
��
�ݤADDR(reg,dest)
�� (dest - P% - 8) >=0 �
�" � (dest - P% - 8) < &10000 �
� [OPTopt%
�* ADD reg,PC,#(dest - P% - 8 ) � &FF
�, ADD reg,reg,#(dest - P% - 4) � &FF00
� ]
� �
�$ � (dest - P% - 8) < &1000000 �
[OPTopt%
* ADD reg,PC,#(dest - P% - 8 ) � &FF
, ADD reg,reg,#(dest - P% - 4) � &FF00
$. ADD reg,reg,#(dest - P% - 0) � &FF0000
. ]
8 �
B � 0,"ADR out of range"
L �
V �
`�
j& � (0-(dest - P% - 8)) < &10000 �
t [OPTopt%
~. SUB reg,PC,#(0-(dest - P% - 8 )) � &FF
�0 SUB reg,reg,#(0-(dest - P% - 4)) � &FF00
� ]
� �
�( � (0-(dest - P% - 8)) < &1000000 �
� [OPTopt%
�. SUB reg,PC,#(0-(dest - P% - 8 )) � &FF
�0 SUB reg,reg,#(0-(dest - P% - 4)) � &FF00
�2 SUB reg,reg,#(0-(dest - P% - 0)) � &FF0000
� ]
� �
� � 0,"ADR out of range"
� �
�
�
=""
�
(
� 00000000 0d 00 0a 04 0d 00 14 04 0d 00 1e 04 0d 00 28 0f |..............(.|
00000010 f4 20 3e 20 53 63 72 53 61 76 65 0d 00 32 22 f4 |. > ScrSave..2".|
00000020 20 3d 3d 3d 20 4d 61 6e 69 66 65 73 74 20 64 65 | === Manifest de|
00000030 66 69 6e 69 74 69 6f 6e 73 20 3d 3d 3d 0d 00 3c |finitions ===..<|
00000040 0d 52 30 3d 30 3a 72 30 3d 30 0d 00 46 0d 52 31 |.R0=0:r0=0..F.R1|
00000050 3d 31 3a 72 31 3d 31 0d 00 50 0d 52 32 3d 32 3a |=1:r1=1..P.R2=2:|
00000060 72 32 3d 32 0d 00 5a 0d 52 33 3d 33 3a 72 33 3d |r2=2..Z.R3=3:r3=|
00000070 33 0d 00 64 0d 52 34 3d 34 3a 72 34 3d 34 0d 00 |3..d.R4=4:r4=4..|
00000080 6e 0d 52 35 3d 35 3a 72 35 3d 35 0d 00 78 0d 52 |n.R5=5:r5=5..x.R|
00000090 36 3d 36 3a 72 36 3d 36 0d 00 82 0d 52 37 3d 37 |6=6:r6=6....R7=7|
000000a0 3a 72 37 3d 37 0d 00 8c 0d 52 38 3d 38 3a 72 38 |:r7=7....R8=8:r8|
000000b0 3d 38 0d 00 96 08 52 39 3d 39 0d 00 a0 0a 52 31 |=8....R9=9....R1|
000000c0 30 3d 31 30 0d 00 aa 0a 52 31 31 3d 31 31 0d 00 |0=10....R11=11..|
000000d0 b4 10 52 31 32 3d 31 32 3a 77 70 3d 31 32 0d 00 |..R12=12:wp=12..|
000000e0 be 10 52 31 33 3d 31 33 3a 73 70 3d 31 33 0d 00 |..R13=13:sp=13..|
000000f0 c8 10 52 31 34 3d 31 34 3a 6c 72 3d 31 34 0d 00 |..R14=14:lr=14..|
00000100 d2 1e 52 31 35 3d 31 35 3a 50 43 3d 52 31 35 3a |..R15=15:PC=R15:|
00000110 70 63 3d 31 35 3a 70 73 72 3d 31 35 0d 00 dc 1b |pc=15:psr=15....|
00000120 4d 6f 64 48 61 6e 64 52 65 61 73 6f 6e 5f 43 6c |ModHandReason_Cl|
00000130 61 69 6d 20 3d 20 36 0d 00 e6 17 53 65 72 76 69 |aim = 6....Servi|
00000140 63 65 5f 52 65 73 65 74 20 3d 20 26 32 37 0d 00 |ce_Reset = &27..|
00000150 f0 10 45 76 65 6e 74 56 20 3d 20 26 31 30 0d 00 |..EventV = &10..|
00000160 fa 17 45 76 65 6e 74 5f 4b 65 79 62 6f 61 72 64 |..Event_Keyboard|
00000170 20 3d 20 31 31 0d 01 04 0e 53 56 43 5f 6d 6f 64 | = 11....SVC_mod|
00000180 65 3d 31 0d 01 0e 0a 63 72 25 3d 31 33 0d 01 18 |e=1....cr%=13...|
00000190 24 6b 65 79 74 6f 64 75 6d 70 20 20 20 3d 20 26 |$keytodump = &|
000001a0 35 45 20 20 20 20 3a f4 20 6c 65 66 74 2d 41 4c |5E :. left-AL|
000001b0 54 0d 01 22 25 63 74 72 6c 6b 65 79 20 20 20 20 |T.."%ctrlkey |
000001c0 20 3d 20 26 33 42 20 20 20 20 3a f4 20 6c 65 66 | = &3B :. lef|
000001d0 74 2d 43 54 52 4c 0d 01 2c 13 56 49 44 43 20 3d |t-CTRL..,.VIDC =|
000001e0 26 30 33 34 30 30 30 30 30 0d 01 36 1c f4 20 53 |&03400000..6.. S|
000001f0 6f 6d 65 20 57 6f 72 6b 73 70 61 63 65 20 6f 66 |ome Workspace of|
00000200 66 73 65 74 73 0d 01 40 17 4c 61 73 74 43 74 72 |fsets..@.LastCtr|
00000210 6c 45 76 65 6e 74 20 20 20 3d 20 30 0d 01 4a 17 |lEvent = 0..J.|
00000220 4c 61 73 74 44 75 6d 70 45 76 65 6e 74 20 20 20 |LastDumpEvent |
00000230 3d 20 34 0d 01 54 17 69 6e 74 65 72 6c 6f 63 6b |= 4..T.interlock|
00000240 20 20 20 20 20 20 20 3d 20 38 0d 01 5e 1c 54 65 | = 8..^.Te|
00000250 73 74 5f 57 6f 72 6b 73 70 61 63 65 53 69 7a 65 |st_WorkspaceSize|
00000260 3d 20 26 31 30 30 0d 01 68 09 f4 20 3d 3d 3d 0d |= &100..h.. ===.|
00000270 01 72 14 de 20 63 6f 64 65 25 20 31 30 30 2a 31 |.r.. code% 100*1|
00000280 30 32 34 0d 01 7c 09 f2 44 4f 49 54 0d 01 86 05 |024..|..DOIT....|
00000290 e0 0d 01 90 0a dd f2 44 4f 49 54 0d 01 9a 1e 4d |.......DOIT....M|
000002a0 6f 64 75 6c 65 5f 54 69 74 6c 65 24 3d 22 53 63 |odule_Title$="Sc|
000002b0 72 65 65 6e 47 72 61 62 22 0d 01 a4 47 4d 6f 64 |reenGrab"...GMod|
000002c0 75 6c 65 5f 48 65 6c 70 24 20 3d 4d 6f 64 75 6c |ule_Help$ =Modul|
000002d0 65 5f 54 69 74 6c 65 24 2b bd 39 2b 22 30 2e 31 |e_Title$+.9+"0.1|
000002e0 30 20 28 22 2b c1 91 24 2c 35 2c a9 28 22 30 34 |0 ("+..$,5,.("04|
000002f0 20 4a 75 6c 20 31 39 38 39 22 29 29 2b 22 29 22 | Jul 1989"))+")"|
00000300 0d 01 ae 17 73 61 76 65 61 73 24 3d 22 24 2e 53 |....saveas$="$.S|
00000310 63 72 47 72 61 62 22 0d 01 b8 09 f4 20 3d 3d 3d |crGrab"..... ===|
00000320 0d 01 c2 1a f1 22 41 73 73 65 6d 62 6c 69 6e 67 |....."Assembling|
00000330 20 22 2b 73 61 76 65 61 73 24 0d 01 cc 13 f4 20 | "+saveas$..... |
00000340 50 52 4f 43 77 6f 72 6b 73 70 61 63 65 0d 01 d6 |PROCworkspace...|
00000350 0b 70 61 73 73 25 3d 30 0d 01 e0 21 e3 6f 70 74 |.pass%=0...!.opt|
00000360 25 3d 30 b8 32 88 32 3a f4 20 3a 6f 70 74 25 3d |%=0.2.2:. :opt%=|
00000370 6f 70 74 25 20 4f 52 20 31 0d 01 ea 0c 50 25 3d |opt% OR 1....P%=|
00000380 63 6f 64 65 25 0d 01 f4 0c 70 61 73 73 25 2b 3d |code%....pass%+=|
00000390 31 0d 01 fe 12 f1 22 50 61 73 73 20 22 3b 70 61 |1....."Pass ";pa|
000003a0 73 73 25 0d 02 08 0c f2 6c 69 62 72 61 72 79 0d |ss%.....library.|
000003b0 02 12 05 ed 0d 02 1c 2b ff 28 22 53 41 56 45 20 |.......+.("SAVE |
000003c0 22 2b 73 61 76 65 61 73 24 2b 22 20 22 2b c3 7e |"+saveas$+" "+.~|
000003d0 63 6f 64 65 25 2b 22 20 22 2b c3 7e 50 25 29 0d |code%+" "+.~P%).|
000003e0 02 26 20 ff 28 22 53 45 54 54 59 50 45 20 22 2b |.& .("SETTYPE "+|
000003f0 73 61 76 65 61 73 24 2b 22 20 46 46 41 22 29 0d |saveas$+" FFA").|
00000400 02 30 05 e1 0d 02 3a 0d dd f2 6c 69 62 72 61 72 |.0....:...librar|
00000410 79 0d 02 44 0c 5b 4f 50 54 6f 70 74 25 0d 02 4e |y..D.[OPTopt%..N|
00000420 14 2e 4d 6f 64 75 6c 65 5f 42 61 73 65 41 64 64 |..Module_BaseAdd|
00000430 72 0d 02 58 0c 20 20 45 51 55 44 20 30 0d 02 62 |r..X. EQUD 0..b|
00000440 28 20 20 45 51 55 44 20 54 65 73 74 5f 49 6e 69 |( EQUD Test_Ini|
00000450 74 20 20 20 20 2d 4d 6f 64 75 6c 65 5f 42 61 73 |t -Module_Bas|
00000460 65 41 64 64 72 0d 02 6c 28 20 20 45 51 55 44 20 |eAddr..l( EQUD |
00000470 54 65 73 74 5f 44 69 65 20 20 20 20 20 2d 4d 6f |Test_Die -Mo|
00000480 64 75 6c 65 5f 42 61 73 65 41 64 64 72 0d 02 76 |dule_BaseAddr..v|
00000490 28 20 20 45 51 55 44 20 54 65 73 74 5f 53 65 72 |( EQUD Test_Ser|
000004a0 76 69 63 65 20 2d 4d 6f 64 75 6c 65 5f 42 61 73 |vice -Module_Bas|
000004b0 65 41 64 64 72 0d 02 80 28 20 20 45 51 55 44 20 |eAddr...( EQUD |
000004c0 54 65 73 74 5f 54 69 74 6c 65 20 20 20 2d 4d 6f |Test_Title -Mo|
000004d0 64 75 6c 65 5f 42 61 73 65 41 64 64 72 0d 02 8a |dule_BaseAddr...|
000004e0 28 20 20 45 51 55 44 20 54 65 73 74 5f 48 65 6c |( EQUD Test_Hel|
000004f0 70 53 74 72 20 2d 4d 6f 64 75 6c 65 5f 42 61 73 |pStr -Module_Bas|
00000500 65 41 64 64 72 0d 02 94 0c 20 20 45 51 55 44 20 |eAddr.... EQUD |
00000510 30 0d 02 9e 0f 2e 54 65 73 74 5f 54 69 74 6c 65 |0.....Test_Title|
00000520 0d 02 a8 21 20 20 45 51 55 53 20 20 20 4d 6f 64 |...! EQUS Mod|
00000530 75 6c 65 5f 54 69 74 6c 65 24 3a 45 51 55 42 20 |ule_Title$:EQUB |
00000540 30 0d 02 b2 11 2e 54 65 73 74 5f 48 65 6c 70 53 |0.....Test_HelpS|
00000550 74 72 0d 02 bc 20 20 20 45 51 55 53 20 20 20 4d |tr... EQUS M|
00000560 6f 64 75 6c 65 5f 48 65 6c 70 24 3a 45 51 55 42 |odule_Help$:EQUB|
00000570 20 30 0d 02 c6 0b 20 20 41 4c 49 47 4e 0d 02 d0 | 0.... ALIGN...|
00000580 1c 3b 20 72 30 2d 72 36 20 6d 61 79 20 62 65 20 |.; r0-r6 may be |
00000590 63 6f 72 72 75 70 74 65 64 0d 02 da 0e 2e 54 65 |corrupted.....Te|
000005a0 73 74 5f 49 6e 69 74 0d 02 e4 16 20 20 53 54 4d |st_Init.... STM|
000005b0 46 44 20 52 31 33 21 2c 7b 52 31 34 7d 0d 02 ee |FD R13!,{R14}...|
000005c0 40 20 20 4c 44 52 20 20 20 20 20 72 32 2c 20 5b |@ LDR r2, [|
000005d0 72 31 32 5d 20 20 20 20 20 20 20 20 20 20 20 20 |r12] |
000005e0 20 20 20 3b 20 43 6f 6d 69 6e 67 20 66 72 6f 6d | ; Coming from|
000005f0 20 68 61 72 64 20 72 65 73 65 74 20 3f 0d 02 f8 | hard reset ?...|
00000600 14 20 20 54 45 51 20 20 20 20 20 72 32 2c 20 23 |. TEQ r2, #|
00000610 30 0d 03 02 13 20 20 42 4e 45 20 20 20 20 20 6c |0.... BNE l|
00000620 6c 30 30 31 0d 03 0c 26 20 20 4d 4f 56 20 20 20 |l001...& MOV |
00000630 20 20 72 30 2c 20 23 4d 6f 64 48 61 6e 64 52 65 | r0, #ModHandRe|
00000640 61 73 6f 6e 5f 43 6c 61 69 6d 0d 03 16 25 20 20 |ason_Claim...% |
00000650 4d 4f 56 20 20 20 20 20 72 33 2c 20 23 54 65 73 |MOV r3, #Tes|
00000660 74 5f 57 6f 72 6b 73 70 61 63 65 53 69 7a 65 0d |t_WorkspaceSize.|
00000670 03 20 1a 20 20 53 57 49 20 20 20 20 20 22 58 4f |. . SWI "XO|
00000680 53 5f 4d 6f 64 75 6c 65 22 0d 03 2a 2e 20 20 3b |S_Module"..*. ;|
00000690 20 27 4e 6f 20 72 6f 6f 6d 20 69 6e 20 52 4d 41 | 'No room in RMA|
000006a0 27 20 69 73 20 61 63 63 65 70 74 61 62 6c 65 20 |' is acceptable |
000006b0 6d 65 73 73 61 67 65 0d 03 34 17 20 20 4c 44 4d |message..4. LDM|
000006c0 56 53 46 44 20 52 31 33 21 2c 7b 50 43 7d 0d 03 |VSFD R13!,{PC}..|
000006d0 3e 17 20 20 53 54 52 20 20 20 20 20 72 32 2c 20 |>. STR r2, |
000006e0 5b 72 31 32 5d 0d 03 48 21 20 20 a4 41 44 44 52 |[r12]..H! .ADDR|
000006f0 28 72 30 2c 20 73 65 74 75 70 74 68 65 76 61 72 |(r0, setupthevar|
00000700 69 61 62 6c 65 29 0d 03 52 16 20 20 53 57 49 20 |iable)..R. SWI |
00000710 20 20 20 22 58 4f 53 5f 43 4c 49 22 0d 03 5c 0f | "XOS_CLI"..\.|
00000720 20 20 42 56 53 20 6c 6c 30 30 31 0d 03 66 1f 20 | BVS ll001..f. |
00000730 20 a4 41 44 44 52 28 72 30 2c 20 73 65 74 75 70 | .ADDR(r0, setup|
00000740 74 68 65 6e 75 6d 62 65 72 29 0d 03 70 14 20 20 |thenumber)..p. |
00000750 53 57 49 20 20 22 58 4f 53 5f 43 4c 49 22 0d 03 |SWI "XOS_CLI"..|
00000760 7a 0a 2e 6c 6c 30 30 31 0d 03 84 43 20 20 4d 4f |z..ll001...C MO|
00000770 56 20 20 20 20 20 77 70 2c 20 72 32 20 20 20 20 |V wp, r2 |
00000780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 | ; |
00000790 44 65 72 65 66 65 72 65 6e 63 65 20 6f 6e 20 61 |Dereference on a|
000007a0 6c 6c 20 72 65 73 65 74 73 20 21 0d 03 8e 20 20 |ll resets !... |
000007b0 20 42 4c 20 20 20 20 20 20 54 65 73 74 5f 53 65 | BL Test_Se|
000007c0 72 76 69 63 65 5f 52 65 73 65 74 0d 03 98 15 20 |rvice_Reset.... |
000007d0 20 4c 44 4d 46 44 20 52 31 33 21 2c 7b 50 43 7d | LDMFD R13!,{PC}|
000007e0 0d 03 a2 11 2e 54 65 73 74 5f 53 65 72 76 69 63 |.....Test_Servic|
000007f0 65 0d 03 ac 20 20 20 54 45 51 20 20 20 20 20 72 |e... TEQ r|
00000800 31 2c 20 23 53 65 72 76 69 63 65 5f 52 65 73 65 |1, #Service_Rese|
00000810 74 0d 03 b6 14 20 20 4d 4f 56 4e 45 20 20 20 70 |t.... MOVNE p|
00000820 63 2c 20 6c 72 0d 03 c0 3e 20 20 4c 44 52 20 20 |c, lr...> LDR |
00000830 20 20 20 77 70 2c 20 5b 72 31 32 5d 20 20 20 20 | wp, [r12] |
00000840 20 20 20 20 20 20 20 20 20 20 20 3b 20 44 65 72 | ; Der|
00000850 65 66 65 72 65 6e 63 65 20 6f 6e 20 73 65 72 76 |eference on serv|
00000860 69 63 65 0d 03 ca 17 2e 54 65 73 74 5f 53 65 72 |ice.....Test_Ser|
00000870 76 69 63 65 5f 52 65 73 65 74 0d 03 d4 1c 20 20 |vice_Reset.... |
00000880 53 54 4d 46 44 20 52 31 33 21 2c 7b 72 30 2d 72 |STMFD R13!,{r0-r|
00000890 32 2c 52 31 34 7d 0d 03 de 15 20 20 4d 4f 56 20 |2,R14}.... MOV |
000008a0 20 20 20 20 72 31 34 2c 20 23 30 0d 03 e8 27 20 | r14, #0...' |
000008b0 20 53 54 52 20 20 20 20 20 72 31 34 2c 20 5b 52 | STR r14, [R|
000008c0 31 32 2c 23 4c 61 73 74 43 74 72 6c 45 76 65 6e |12,#LastCtrlEven|
000008d0 74 5d 0d 03 f2 27 20 20 53 54 52 20 20 20 20 20 |t]...' STR |
000008e0 72 31 34 2c 20 5b 52 31 32 2c 23 4c 61 73 74 44 |r14, [R12,#LastD|
000008f0 75 6d 70 45 76 65 6e 74 5d 0d 03 fc 19 20 20 4d |umpEvent].... M|
00000900 4f 56 20 20 20 20 20 72 30 2c 20 23 45 76 65 6e |OV r0, #Even|
00000910 74 56 0d 04 06 1b 20 20 41 44 52 20 20 20 20 20 |tV.... ADR |
00000920 72 31 2c 20 45 76 65 6e 74 43 6f 64 65 0d 04 10 |r1, EventCode...|
00000930 19 20 20 42 4c 20 20 20 20 20 20 43 6c 61 69 6d |. BL Claim|
00000940 56 65 63 74 6f 72 0d 04 1a 34 20 20 4d 4f 56 20 |Vector...4 MOV |
00000950 20 20 20 20 72 30 2c 20 23 31 34 20 20 20 20 20 | r0, #14 |
00000960 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 45 6e | ; En|
00000970 61 62 6c 65 20 65 76 65 6e 74 0d 04 24 21 20 20 |able event..$! |
00000980 4d 4f 56 20 20 20 20 20 72 31 2c 20 23 45 76 65 |MOV r1, #Eve|
00000990 6e 74 5f 4b 65 79 62 6f 61 72 64 0d 04 2e 18 20 |nt_Keyboard.... |
000009a0 20 53 57 49 20 20 20 20 20 22 58 4f 53 5f 42 79 | SWI "XOS_By|
000009b0 74 65 22 0d 04 38 14 20 20 4d 4f 56 20 20 20 20 |te"..8. MOV |
000009c0 20 72 30 2c 20 23 30 0d 04 42 23 20 20 53 54 52 | r0, #0..B# STR|
000009d0 42 20 20 20 20 72 30 2c 20 5b 52 31 32 2c 23 69 |B r0, [R12,#i|
000009e0 6e 74 65 72 6c 6f 63 6b 20 5d 0d 04 4c 1b 20 20 |nterlock ]..L. |
000009f0 4c 44 4d 46 44 20 52 31 33 21 2c 7b 72 30 2d 72 |LDMFD R13!,{r0-r|
00000a00 32 2c 50 43 7d 0d 04 56 4b 3b 20 4c 65 74 20 4d |2,PC}..VK; Let M|
00000a10 6f 64 75 6c 65 20 68 61 6e 64 6c 65 72 20 74 61 |odule handler ta|
00000a20 6b 65 20 63 61 72 65 20 6f 66 20 72 65 6d 6f 76 |ke care of remov|
00000a30 69 6e 67 20 6f 75 72 20 77 6f 72 6b 73 70 61 63 |ing our workspac|
00000a40 65 20 6f 6e 20 66 61 74 61 6c 20 64 65 61 74 68 |e on fatal death|
00000a50 0d 04 60 3c 3b 20 4f 72 20 73 68 75 6e 74 69 6e |..`<; Or shuntin|
00000a60 67 20 69 74 20 61 72 6f 75 6e 64 20 6f 6e 20 54 |g it around on T|
00000a70 69 64 79 20 2d 20 6e 6f 6e 65 20 6f 66 20 69 74 |idy - none of it|
00000a80 20 69 73 20 61 62 73 6f 6c 75 74 65 0d 04 6a 0d | is absolute..j.|
00000a90 2e 54 65 73 74 5f 44 69 65 0d 04 74 1c 20 20 53 |.Test_Die..t. S|
00000aa0 54 4d 46 44 20 52 31 33 21 2c 7b 72 30 2d 72 32 |TMFD R13!,{r0-r2|
00000ab0 2c 52 31 34 7d 0d 04 7e 35 20 20 4d 4f 56 20 20 |,R14}..~5 MOV |
00000ac0 20 20 20 72 30 2c 20 23 31 33 20 20 20 20 20 20 | r0, #13 |
00000ad0 20 20 20 20 20 20 20 20 20 20 20 3b 20 44 69 73 | ; Dis|
00000ae0 61 62 6c 65 20 65 76 65 6e 74 0d 04 88 21 20 20 |able event...! |
00000af0 4d 4f 56 20 20 20 20 20 72 31 2c 20 23 45 76 65 |MOV r1, #Eve|
00000b00 6e 74 5f 4b 65 79 62 6f 61 72 64 0d 04 92 18 20 |nt_Keyboard.... |
00000b10 20 53 57 49 20 20 20 20 20 22 58 4f 53 5f 42 79 | SWI "XOS_By|
00000b20 74 65 22 0d 04 9c 3c 20 20 4c 44 52 20 20 20 20 |te"...< LDR |
00000b30 20 77 70 2c 20 5b 72 31 32 5d 20 20 20 20 20 20 | wp, [r12] |
00000b40 20 20 20 20 20 20 20 20 20 3b 20 44 65 72 65 66 | ; Deref|
00000b50 65 72 65 6e 63 65 20 6f 6e 20 64 65 61 74 68 0d |erence on death.|
00000b60 04 a6 19 20 20 4d 4f 56 20 20 20 20 20 72 30 2c |... MOV r0,|
00000b70 20 23 45 76 65 6e 74 56 0d 04 b0 1b 20 20 41 44 | #EventV.... AD|
00000b80 52 20 20 20 20 20 72 31 2c 20 45 76 65 6e 74 43 |R r1, EventC|
00000b90 6f 64 65 0d 04 ba 1a 20 20 42 4c 20 20 20 20 20 |ode.... BL |
00000ba0 20 44 65 6c 69 6e 6b 56 65 63 74 6f 72 0d 04 c4 | DelinkVector...|
00000bb0 1b 20 20 4c 44 4d 46 44 20 52 31 33 21 2c 7b 72 |. LDMFD R13!,{r|
00000bc0 30 2d 72 32 2c 50 43 7d 0d 04 ce 10 2e 43 6c 61 |0-r2,PC}.....Cla|
00000bd0 69 6d 56 65 63 74 6f 72 0d 04 d8 19 20 20 53 54 |imVector.... ST|
00000be0 4d 46 44 20 52 31 33 21 2c 7b 72 32 2c 52 31 34 |MFD R13!,{r2,R14|
00000bf0 7d 0d 04 e2 1a 20 20 42 4c 20 20 20 20 20 20 44 |}.... BL D|
00000c00 65 6c 69 6e 6b 56 65 63 74 6f 72 0d 04 ec 41 20 |elinkVector...A |
00000c10 20 4d 4f 56 20 20 20 20 20 72 32 2c 20 77 70 20 | MOV r2, wp |
00000c20 20 20 20 20 20 20 20 3b 20 55 73 65 20 77 70 20 | ; Use wp |
00000c30 69 74 73 65 6c 66 20 2d 20 73 61 76 65 73 20 64 |itself - saves d|
00000c40 65 72 65 66 65 72 65 6e 63 69 6e 67 0d 04 f6 36 |ereferencing...6|
00000c50 20 20 53 57 49 20 20 20 20 20 22 58 4f 53 5f 43 | SWI "XOS_C|
00000c60 6c 61 69 6d 22 20 20 20 20 20 3b 20 6f 6e 20 61 |laim" ; on a|
00000c70 63 74 75 61 6c 20 63 6f 64 65 20 65 6e 74 72 69 |ctual code entri|
00000c80 65 73 0d 05 00 19 20 20 4c 44 4d 46 44 20 52 31 |es.... LDMFD R1|
00000c90 33 21 2c 7b 72 32 2c 50 43 7d 5e 0d 05 0a 11 2e |3!,{r2,PC}^.....|
00000ca0 44 65 6c 69 6e 6b 56 65 63 74 6f 72 0d 05 14 1c |DelinkVector....|
00000cb0 20 20 53 54 4d 46 44 20 52 31 33 21 2c 7b 72 30 | STMFD R13!,{r0|
00000cc0 2d 72 32 2c 52 31 34 7d 0d 05 1e 0a 2e 6c 6c 30 |-r2,R14}.....ll0|
00000cd0 30 32 0d 05 28 17 20 20 4c 44 4d 49 41 20 52 31 |02..(. LDMIA R1|
00000ce0 33 2c 7b 52 30 2c 52 31 7d 0d 05 32 14 20 20 4d |3,{R0,R1}..2. M|
00000cf0 4f 56 20 20 20 20 20 72 32 2c 20 77 70 0d 05 3c |OV r2, wp..<|
00000d00 1b 20 20 53 57 49 20 20 20 20 20 22 58 4f 53 5f |. SWI "XOS_|
00000d10 52 65 6c 65 61 73 65 22 0d 05 46 13 20 20 42 56 |Release"..F. BV|
00000d20 43 20 20 20 20 20 6c 6c 30 30 32 0d 05 50 13 20 |C ll002..P. |
00000d30 20 43 4d 50 20 20 20 20 20 50 43 2c 23 30 0d 05 | CMP PC,#0..|
00000d40 5a 1b 20 20 4c 44 4d 46 44 20 52 31 33 21 2c 7b |Z. LDMFD R13!,{|
00000d50 72 30 2d 72 32 2c 50 43 7d 0d 05 64 31 3b 20 45 |r0-r2,PC}..d1; E|
00000d60 6e 74 65 72 65 64 20 69 6e 20 73 6f 6d 65 20 6d |ntered in some m|
00000d70 6f 64 65 20 6f 72 20 6f 74 68 65 72 2c 20 70 72 |ode or other, pr|
00000d80 6f 62 61 62 6c 79 20 49 52 51 0d 05 6e 0e 2e 45 |obably IRQ..n..E|
00000d90 76 65 6e 74 43 6f 64 65 0d 05 78 21 20 20 43 4d |ventCode..x! CM|
00000da0 50 20 20 20 20 20 72 30 2c 20 23 45 76 65 6e 74 |P r0, #Event|
00000db0 5f 4b 65 79 62 6f 61 72 64 0d 05 82 41 20 20 4d |_Keyboard...A M|
00000dc0 4f 56 4e 45 20 20 20 70 63 2c 20 6c 72 20 20 20 |OVNE pc, lr |
00000dd0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b | ;|
00000de0 20 50 61 73 73 20 69 74 20 6f 6e 20 69 66 20 77 | Pass it on if w|
00000df0 72 6f 6e 67 20 65 76 65 6e 74 0d 05 8c 2b 20 20 |rong event...+ |
00000e00 3b 20 49 6e 20 20 20 20 72 31 20 3d 20 6b 65 79 |; In r1 = key|
00000e10 20 64 6f 77 6e 20 3d 20 31 2c 20 6b 65 79 20 75 | down = 1, key u|
00000e20 70 20 3d 20 30 0d 05 96 1d 20 20 3b 20 20 20 20 |p = 0.... ; |
00000e30 20 20 20 72 32 20 3d 20 6b 65 79 20 6e 75 6d 62 | r2 = key numb|
00000e40 65 72 0d 05 a0 22 20 20 53 54 4d 46 44 20 52 31 |er..." STMFD R1|
00000e50 33 21 2c 7b 72 30 2d 72 31 2c 72 34 2d 72 35 2c |3!,{r0-r1,r4-r5,|
00000e60 52 31 34 7d 0d 05 aa 1b 20 20 4d 4f 56 20 20 20 |R14}.... MOV |
00000e70 20 20 72 31 34 2c 20 23 63 74 72 6c 6b 65 79 0d | r14, #ctrlkey.|
00000e80 05 b4 15 20 20 43 4d 50 20 20 20 20 20 72 32 2c |... CMP r2,|
00000e90 20 72 31 34 0d 05 be 3b 20 20 53 54 52 45 51 20 | r14...; STREQ |
00000ea0 20 20 72 31 2c 5b 52 31 32 2c 23 4c 61 73 74 43 | r1,[R12,#LastC|
00000eb0 74 72 6c 45 76 65 6e 74 5d 20 20 3b 20 30 20 2d |trlEvent] ; 0 -|
00000ec0 3e 20 6b 65 79 20 69 73 20 6e 6f 77 20 75 70 0d |> key is now up.|
00000ed0 05 c8 13 20 20 42 45 51 20 20 20 20 20 6c 6c 30 |... BEQ ll0|
00000ee0 30 33 0d 05 d2 1d 20 20 4d 4f 56 20 20 20 20 20 |03.... MOV |
00000ef0 72 31 34 2c 20 23 6b 65 79 74 6f 64 75 6d 70 0d |r14, #keytodump.|
00000f00 05 dc 15 20 20 43 4d 50 20 20 20 20 20 72 32 2c |... CMP r2,|
00000f10 20 72 31 34 0d 05 e6 3e 20 20 53 54 52 45 51 20 | r14...> STREQ |
00000f20 20 20 72 31 2c 20 5b 52 31 32 2c 23 4c 61 73 74 | r1, [R12,#Last|
00000f30 44 75 6d 70 45 76 65 6e 74 5d 20 20 20 20 3b 20 |DumpEvent] ; |
00000f40 30 20 2d 3e 20 6b 65 79 20 69 73 20 6e 6f 77 20 |0 -> key is now |
00000f50 75 70 0d 05 f0 27 3b 20 50 61 73 73 20 69 74 20 |up...'; Pass it |
00000f60 6f 6e 20 69 66 20 6e 6f 74 20 6f 6e 65 20 6f 66 |on if not one of|
00000f70 20 6f 75 72 20 6b 65 79 73 0d 05 fa 23 20 20 4c | our keys...# L|
00000f80 44 4d 4e 45 46 44 20 52 31 33 21 2c 7b 72 30 2d |DMNEFD R13!,{r0-|
00000f90 72 31 2c 72 34 2d 72 35 2c 50 43 7d 0d 06 04 32 |r1,r4-r5,PC}...2|
00000fa0 3b 20 41 62 6f 72 74 20 6f 6e 20 66 69 72 73 74 |; Abort on first|
00000fb0 20 6b 65 79 73 74 72 6f 6b 65 20 69 66 20 63 74 | keystroke if ct|
00000fc0 72 6c 20 69 73 20 64 6f 77 6e 20 74 6f 6f 0d 06 |rl is down too..|
00000fd0 0e 0a 2e 6c 6c 30 30 33 0d 06 18 37 20 20 4c 44 |...ll003...7 LD|
00000fe0 52 20 52 31 34 2c 5b 52 31 32 2c 23 4c 61 73 74 |R R14,[R12,#Last|
00000ff0 43 74 72 6c 45 76 65 6e 74 5d 20 3b 20 49 73 20 |CtrlEvent] ; Is |
00001000 43 54 52 4c 20 6b 65 79 20 64 6f 77 6e 20 3f 0d |CTRL key down ?.|
00001010 06 22 15 20 20 54 45 51 20 20 20 20 20 72 31 34 |.". TEQ r14|
00001020 2c 20 23 30 0d 06 2c 2e 20 20 4c 44 4d 45 51 46 |, #0..,. LDMEQF|
00001030 44 20 52 31 33 21 2c 7b 72 30 2d 72 31 2c 72 34 |D R13!,{r0-r1,r4|
00001040 2d 72 35 2c 50 43 7d 20 20 20 3b 20 49 67 6e 6f |-r5,PC} ; Igno|
00001050 72 65 0d 06 36 48 20 20 4c 44 52 20 20 20 20 20 |re..6H LDR |
00001060 72 31 34 2c 20 5b 52 31 32 2c 23 4c 61 73 74 44 |r14, [R12,#LastD|
00001070 75 6d 70 45 76 65 6e 74 20 20 5d 20 20 20 20 3b |umpEvent ] ;|
00001080 20 49 73 20 41 4c 54 20 6b 65 79 20 64 6f 77 6e | Is ALT key down|
00001090 20 61 73 20 77 65 6c 6c 20 3f 0d 06 40 15 20 20 | as well ?..@. |
000010a0 54 45 51 20 20 20 20 20 72 31 34 2c 20 23 30 0d |TEQ r14, #0.|
000010b0 06 4a 2e 20 20 4c 44 4d 45 51 46 44 20 52 31 33 |.J. LDMEQFD R13|
000010c0 21 2c 7b 72 30 2d 72 31 2c 72 34 2d 72 35 2c 50 |!,{r0-r1,r4-r5,P|
000010d0 43 7d 20 20 20 3b 20 49 67 6e 6f 72 65 0d 06 54 |C} ; Ignore..T|
000010e0 28 3b 20 49 6e 74 6f 20 53 56 43 20 6d 6f 64 65 |(; Into SVC mode|
000010f0 20 73 6f 20 77 65 20 63 61 6e 20 63 61 6c 6c 20 | so we can call |
00001100 53 57 49 27 73 0d 06 5e 3d 20 20 4d 4f 56 20 20 |SWI's..^= MOV |
00001110 20 20 20 72 35 2c 20 70 73 72 20 20 20 20 20 20 | r5, psr |
00001120 20 20 20 20 20 20 20 20 20 20 20 3b 20 52 65 6d | ; Rem|
00001130 65 6d 62 65 72 20 6d 6f 64 65 20 2b 20 66 6c 61 |ember mode + fla|
00001140 67 73 0d 06 68 1f 20 20 42 49 43 20 20 20 20 20 |gs..h. BIC |
00001150 72 34 2c 20 72 35 2c 20 23 53 56 43 5f 6d 6f 64 |r4, r5, #SVC_mod|
00001160 65 0d 06 72 36 20 20 54 45 51 50 20 20 20 20 72 |e..r6 TEQP r|
00001170 34 2c 20 23 53 56 43 5f 6d 6f 64 65 20 20 20 20 |4, #SVC_mode |
00001180 20 20 20 20 20 20 20 3b 20 46 6f 72 63 65 20 53 | ; Force S|
00001190 56 43 20 6d 6f 64 65 0d 06 7c 0f 20 20 4d 4f 56 |VC mode..|. MOV|
000011a0 20 52 30 2c 52 30 0d 06 86 20 20 20 53 54 4d 46 | R0,R0... STMF|
000011b0 44 20 52 31 33 21 2c 7b 52 31 34 7d 20 5c 5c 20 |D R13!,{R14} \\ |
000011c0 6c 72 5f 73 76 63 0d 06 90 18 20 20 4d 4f 56 20 |lr_svc.... MOV |
000011d0 20 20 20 20 72 31 34 2c 20 23 56 49 44 43 0d 06 | r14, #VIDC..|
000011e0 9a 15 3b 20 53 65 74 20 62 6f 72 64 65 72 20 63 |..; Set border c|
000011f0 79 61 6e 0d 06 a4 1b 20 20 4d 4f 56 20 20 20 20 |yan.... MOV |
00001200 20 72 34 2c 23 26 34 30 30 30 30 30 30 30 0d 06 | r4,#&40000000..|
00001210 ae 18 20 20 84 52 20 20 20 20 20 72 34 2c 72 34 |.. .R r4,r4|
00001220 2c 23 26 43 43 30 0d 06 b8 17 20 20 53 54 52 20 |,#&CC0.... STR |
00001230 20 20 20 20 72 34 2c 20 5b 72 31 34 5d 0d 06 c2 | r4, [r14]...|
00001240 28 3b 20 53 65 74 20 74 68 65 20 43 61 6c 6c 42 |(; Set the CallB|
00001250 61 63 6b 48 61 6e 64 6c 65 72 20 75 70 20 4e 4f |ackHandler up NO|
00001260 57 20 21 21 21 0d 06 cc 25 20 20 4c 44 52 42 20 |W !!!...% LDRB |
00001270 20 20 20 72 30 2c 20 5b 52 31 32 2c 23 69 6e 74 | r0, [R12,#int|
00001280 65 72 6c 6f 63 6b 20 20 20 5d 0d 06 d6 14 20 20 |erlock ].... |
00001290 54 45 51 20 20 20 20 20 72 30 2c 20 23 30 0d 06 |TEQ r0, #0..|
000012a0 e0 3b 20 20 42 4e 45 20 20 20 20 20 6c 6c 30 30 |.; BNE ll00|
000012b0 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |4 |
000012c0 20 20 20 20 3b 20 5b 61 6c 72 65 61 64 79 20 72 | ; [already r|
000012d0 65 71 75 65 73 74 65 64 5d 0d 06 ea 1e 20 20 41 |equested].... A|
000012e0 44 52 20 20 20 20 20 72 30 2c 20 43 61 6c 6c 42 |DR r0, CallB|
000012f0 61 63 6b 43 6f 64 65 0d 06 f4 14 20 20 4d 4f 56 |ackCode.... MOV|
00001300 20 20 20 20 20 72 31 2c 20 77 70 0d 06 fe 1f 20 | r1, wp.... |
00001310 20 53 57 49 20 20 20 20 20 22 58 4f 53 5f 41 64 | SWI "XOS_Ad|
00001320 64 43 61 6c 6c 42 61 63 6b 22 0d 07 08 14 20 20 |dCallBack".... |
00001330 4d 4f 56 56 43 20 20 20 72 30 2c 20 23 31 0d 07 |MOVVC r0, #1..|
00001340 12 24 20 20 53 54 52 56 43 42 20 20 72 30 2c 20 |.$ STRVCB r0, |
00001350 5b 52 31 32 2c 23 69 6e 74 65 72 6c 6f 63 6b 20 |[R12,#interlock |
00001360 20 5d 0d 07 1c 05 20 0d 07 26 0a 2e 6c 6c 30 30 | ].... ..&..ll00|
00001370 34 0d 07 30 20 20 20 4c 44 4d 46 44 20 52 31 33 |4..0 LDMFD R13|
00001380 21 2c 7b 52 31 34 7d 20 5c 5c 20 6c 72 5f 73 76 |!,{R14} \\ lr_sv|
00001390 63 0d 07 3a 3d 20 20 54 45 51 50 20 20 20 20 72 |c..:= TEQP r|
000013a0 35 2c 20 23 30 20 20 20 20 20 20 20 20 20 20 20 |5, #0 |
000013b0 20 20 20 20 20 20 20 3b 20 42 61 63 6b 20 74 6f | ; Back to|
000013c0 20 63 61 6c 6c 65 72 27 73 20 6d 6f 64 65 0d 07 | caller's mode..|
000013d0 44 0f 20 20 4d 4f 56 20 52 30 2c 52 30 0d 07 4e |D. MOV R0,R0..N|
000013e0 30 20 20 4c 44 4d 46 44 20 52 31 33 21 2c 7b 72 |0 LDMFD R13!,{r|
000013f0 30 2d 72 31 2c 72 34 2d 72 35 2c 50 43 7d 20 20 |0-r1,r4-r5,PC} |
00001400 20 3b 20 50 61 73 73 20 69 74 20 6f 6e 0d 07 58 | ; Pass it on..X|
00001410 22 3b 20 49 6e 20 20 20 20 72 30 2d 72 36 20 6d |"; In r0-r6 m|
00001420 61 79 20 62 65 20 63 6f 72 72 75 70 74 65 64 0d |ay be corrupted.|
00001430 07 62 14 3b 20 20 20 20 20 20 20 77 70 20 76 61 |.b.; wp va|
00001440 6c 69 64 0d 07 6c 21 3b 20 20 20 20 20 20 20 53 |lid..l!; S|
00001450 56 43 20 6d 6f 64 65 2c 20 49 52 51 20 65 6e 61 |VC mode, IRQ ena|
00001460 62 6c 65 64 0d 07 76 11 2e 43 61 6c 6c 42 61 63 |bled..v..CallBac|
00001470 6b 43 6f 64 65 0d 07 80 17 20 20 53 54 4d 46 44 |kCode.... STMFD|
00001480 20 52 31 33 21 2c 20 7b 52 31 34 7d 0d 07 8a 18 | R13!, {R14}....|
00001490 20 20 4d 4f 56 20 20 20 20 20 72 31 34 2c 20 23 | MOV r14, #|
000014a0 56 49 44 43 0d 07 94 38 20 20 4d 4f 56 20 20 20 |VIDC...8 MOV |
000014b0 20 20 72 30 2c 20 23 26 34 30 30 30 30 30 30 30 | r0, #&40000000|
000014c0 20 20 20 20 20 20 20 20 20 20 3b 20 53 65 74 20 | ; Set |
000014d0 62 6f 72 64 65 72 20 62 6c 61 63 6b 0d 07 9e 17 |border black....|
000014e0 20 20 53 54 52 20 20 20 20 20 72 30 2c 20 5b 72 | STR r0, [r|
000014f0 31 34 5d 0d 07 a8 18 20 20 53 57 49 20 32 35 36 |14].... SWI 256|
00001500 2b 32 36 20 5c 5c 20 ef 20 32 36 0d 07 b2 1f 20 |+26 \\ . 26.... |
00001510 20 41 44 52 20 20 20 20 20 72 30 2c 20 73 61 76 | ADR r0, sav|
00001520 65 74 68 65 73 63 72 65 65 6e 0d 07 bc 37 20 20 |ethescreen...7 |
00001530 53 57 49 20 20 20 20 20 22 58 4f 53 5f 43 4c 49 |SWI "XOS_CLI|
00001540 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00001550 3b 20 49 67 6e 6f 72 65 20 65 72 72 6f 72 73 20 |; Ignore errors |
00001560 21 0d 07 c6 41 20 20 41 44 52 56 43 20 20 72 30 |!...A ADRVC r0|
00001570 2c 20 61 64 64 74 6f 74 68 65 6e 75 6d 62 65 72 |, addtothenumber|
00001580 20 20 20 20 20 20 20 3b 20 49 6e 63 72 65 6d 65 | ; Increme|
00001590 6e 74 20 74 68 65 20 66 69 6c 65 20 6e 75 6d 62 |nt the file numb|
000015a0 65 72 0d 07 d0 17 20 20 53 57 49 56 43 20 20 20 |er.... SWIVC |
000015b0 22 58 4f 53 5f 43 4c 49 22 0d 07 da 46 20 20 41 |"XOS_CLI"...F A|
000015c0 44 44 56 53 20 20 20 72 30 2c 20 72 30 2c 20 23 |DDVS r0, r0, #|
000015d0 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b |4 ;|
000015e0 20 45 72 72 6f 72 73 20 6a 75 73 74 20 68 61 76 | Errors just hav|
000015f0 65 20 74 6f 20 62 65 20 70 72 69 6e 74 65 64 0d |e to be printed.|
00001600 07 e4 1a 20 20 53 57 49 56 53 20 20 20 22 58 4f |... SWIVS "XO|
00001610 53 5f 57 72 69 74 65 30 22 0d 07 ee 18 20 20 41 |S_Write0".... A|
00001620 44 44 56 53 20 20 20 72 30 2c 20 72 30 2c 20 23 |DDVS r0, r0, #|
00001630 34 0d 07 f8 1a 20 20 53 57 49 56 53 20 20 20 22 |4.... SWIVS "|
00001640 58 4f 53 5f 57 72 69 74 65 30 22 0d 08 02 14 20 |XOS_Write0".... |
00001650 20 4d 4f 56 20 20 20 20 20 72 30 2c 20 23 30 0d | MOV r0, #0.|
00001660 08 0c 23 20 20 53 54 52 42 20 20 20 20 72 30 2c |..# STRB r0,|
00001670 20 5b 52 31 32 2c 23 69 6e 74 65 72 6c 6f 63 6b | [R12,#interlock|
00001680 20 5d 0d 08 16 15 20 20 4c 44 4d 46 44 20 52 31 | ].... LDMFD R1|
00001690 33 21 2c 7b 50 43 7d 0d 08 20 12 2e 73 61 76 65 |3!,{PC}.. ..save|
000016a0 74 68 65 73 63 72 65 65 6e 0d 08 2a 31 20 20 45 |thescreen..*1 E|
000016b0 51 55 53 20 22 53 63 72 65 65 6e 53 61 76 65 20 |QUS "ScreenSave |
000016c0 3c 53 63 72 65 65 6e 44 75 6d 70 24 4e 61 6d 65 |<ScreenDump$Name|
000016d0 3e 22 3a 45 51 55 42 20 31 33 0d 08 34 13 2e 61 |>":EQUB 13..4..a|
000016e0 64 64 74 6f 74 68 65 6e 75 6d 62 65 72 0d 08 3e |ddtothenumber..>|
000016f0 44 20 20 45 51 55 53 20 22 53 65 74 45 76 61 6c |D EQUS "SetEval|
00001700 20 53 63 72 65 65 6e 44 75 6d 70 24 4e 75 6d 62 | ScreenDump$Numb|
00001710 65 72 20 3c 53 63 72 65 65 6e 44 75 6d 70 24 4e |er <ScreenDump$N|
00001720 75 6d 62 65 72 3e 2b 31 22 3a 45 51 55 42 20 31 |umber>+1":EQUB 1|
00001730 33 0d 08 48 15 2e 73 65 74 75 70 74 68 65 76 61 |3..H..setuptheva|
00001740 72 69 61 62 6c 65 0d 08 52 48 20 20 45 51 55 53 |riable..RH EQUS|
00001750 20 22 53 65 74 4d 61 63 72 6f 20 53 63 72 65 65 | "SetMacro Scree|
00001760 6e 44 75 6d 70 24 4e 61 6d 65 20 53 63 72 44 75 |nDump$Name ScrDu|
00001770 6d 70 3c 53 63 72 65 65 6e 44 75 6d 70 24 4e 75 |mp<ScreenDump$Nu|
00001780 6d 62 65 72 3e 22 3a 45 51 55 42 20 31 33 0d 08 |mber>":EQUB 13..|
00001790 5c 13 2e 73 65 74 75 70 74 68 65 6e 75 6d 62 65 |\..setupthenumbe|
000017a0 72 0d 08 66 30 20 20 45 51 55 53 20 22 53 65 74 |r..f0 EQUS "Set|
000017b0 45 76 61 6c 20 53 63 72 65 65 6e 44 75 6d 70 24 |Eval ScreenDump$|
000017c0 4e 75 6d 62 65 72 20 31 22 3a 45 51 55 42 20 31 |Number 1":EQUB 1|
000017d0 33 0d 08 70 0f 2e 74 72 61 63 65 6e 61 6d 65 25 |3..p..tracename%|
000017e0 0d 08 7a 15 20 20 45 51 55 53 20 22 48 6f 73 74 |..z. EQUS "Host|
000017f0 56 64 75 3a 22 0d 08 84 0c 20 20 45 51 55 42 20 |Vdu:".... EQUB |
00001800 30 0d 08 8e 0b 20 20 41 4c 49 47 4e 0d 08 98 05 |0.... ALIGN....|
00001810 5d 0d 08 a2 05 e1 0d 08 ac 14 dd a4 41 44 44 52 |]...........ADDR|
00001820 28 72 65 67 2c 64 65 73 74 29 0d 08 b6 1b e7 20 |(reg,dest)..... |
00001830 28 64 65 73 74 20 2d 20 50 25 20 2d 20 38 29 20 |(dest - P% - 8) |
00001840 3e 3d 30 20 8c 0d 08 c0 22 20 20 e7 20 28 64 65 |>=0 ...." . (de|
00001850 73 74 20 2d 20 50 25 20 2d 20 38 29 20 3c 20 26 |st - P% - 8) < &|
00001860 31 30 30 30 30 20 8c 0d 08 ca 10 20 20 20 20 5b |10000 ..... [|
00001870 4f 50 54 6f 70 74 25 0d 08 d4 2a 20 20 20 20 41 |OPTopt%...* A|
00001880 44 44 20 72 65 67 2c 50 43 2c 23 28 64 65 73 74 |DD reg,PC,#(dest|
00001890 20 2d 20 50 25 20 2d 20 38 20 29 20 80 20 26 46 | - P% - 8 ) . &F|
000018a0 46 0d 08 de 2c 20 20 20 20 41 44 44 20 72 65 67 |F..., ADD reg|
000018b0 2c 72 65 67 2c 23 28 64 65 73 74 20 2d 20 50 25 |,reg,#(dest - P%|
000018c0 20 2d 20 34 29 20 80 20 26 46 46 30 30 0d 08 e8 | - 4) . &FF00...|
000018d0 09 20 20 20 20 5d 0d 08 f2 07 20 20 cc 0d 08 fc |. ].... ....|
000018e0 24 20 20 e7 20 28 64 65 73 74 20 2d 20 50 25 20 |$ . (dest - P% |
000018f0 2d 20 38 29 20 3c 20 26 31 30 30 30 30 30 30 20 |- 8) < &1000000 |
00001900 8c 0d 09 06 10 20 20 20 20 5b 4f 50 54 6f 70 74 |..... [OPTopt|
00001910 25 0d 09 10 2a 20 20 20 20 41 44 44 20 72 65 67 |%...* ADD reg|
00001920 2c 50 43 2c 23 28 64 65 73 74 20 2d 20 50 25 20 |,PC,#(dest - P% |
00001930 2d 20 38 20 29 20 80 20 26 46 46 0d 09 1a 2c 20 |- 8 ) . &FF..., |
00001940 20 20 20 41 44 44 20 72 65 67 2c 72 65 67 2c 23 | ADD reg,reg,#|
00001950 28 64 65 73 74 20 2d 20 50 25 20 2d 20 34 29 20 |(dest - P% - 4) |
00001960 80 20 26 46 46 30 30 0d 09 24 2e 20 20 20 20 41 |. &FF00..$. A|
00001970 44 44 20 72 65 67 2c 72 65 67 2c 23 28 64 65 73 |DD reg,reg,#(des|
00001980 74 20 2d 20 50 25 20 2d 20 30 29 20 80 20 26 46 |t - P% - 0) . &F|
00001990 46 30 30 30 30 0d 09 2e 09 20 20 20 20 5d 0d 09 |F0000.... ]..|
000019a0 38 07 20 20 cc 0d 09 42 1e 20 20 20 20 85 20 30 |8. ...B. . 0|
000019b0 2c 22 41 44 52 20 6f 75 74 20 6f 66 20 72 61 6e |,"ADR out of ran|
000019c0 67 65 22 0d 09 4c 07 20 20 cd 0d 09 56 07 20 20 |ge"..L. ...V. |
000019d0 cd 0d 09 60 05 cc 0d 09 6a 26 20 20 e7 20 28 30 |...`....j& . (0|
000019e0 2d 28 64 65 73 74 20 2d 20 50 25 20 2d 20 38 29 |-(dest - P% - 8)|
000019f0 29 20 3c 20 26 31 30 30 30 30 20 8c 0d 09 74 10 |) < &10000 ...t.|
00001a00 20 20 20 20 5b 4f 50 54 6f 70 74 25 0d 09 7e 2e | [OPTopt%..~.|
00001a10 20 20 20 20 53 55 42 20 72 65 67 2c 50 43 2c 23 | SUB reg,PC,#|
00001a20 28 30 2d 28 64 65 73 74 20 2d 20 50 25 20 2d 20 |(0-(dest - P% - |
00001a30 38 20 29 29 20 80 20 26 46 46 0d 09 88 30 20 20 |8 )) . &FF...0 |
00001a40 20 20 53 55 42 20 72 65 67 2c 72 65 67 2c 23 28 | SUB reg,reg,#(|
00001a50 30 2d 28 64 65 73 74 20 2d 20 50 25 20 2d 20 34 |0-(dest - P% - 4|
00001a60 29 29 20 80 20 26 46 46 30 30 0d 09 92 09 20 20 |)) . &FF00.... |
00001a70 20 20 5d 0d 09 9c 07 20 20 cc 0d 09 a6 28 20 20 | ].... ....( |
00001a80 e7 20 28 30 2d 28 64 65 73 74 20 2d 20 50 25 20 |. (0-(dest - P% |
00001a90 2d 20 38 29 29 20 3c 20 26 31 30 30 30 30 30 30 |- 8)) < &1000000|
00001aa0 20 8c 0d 09 b0 10 20 20 20 20 5b 4f 50 54 6f 70 | ..... [OPTop|
00001ab0 74 25 0d 09 ba 2e 20 20 20 20 53 55 42 20 72 65 |t%.... SUB re|
00001ac0 67 2c 50 43 2c 23 28 30 2d 28 64 65 73 74 20 2d |g,PC,#(0-(dest -|
00001ad0 20 50 25 20 2d 20 38 20 29 29 20 80 20 26 46 46 | P% - 8 )) . &FF|
00001ae0 0d 09 c4 30 20 20 20 20 53 55 42 20 72 65 67 2c |...0 SUB reg,|
00001af0 72 65 67 2c 23 28 30 2d 28 64 65 73 74 20 2d 20 |reg,#(0-(dest - |
00001b00 50 25 20 2d 20 34 29 29 20 80 20 26 46 46 30 30 |P% - 4)) . &FF00|
00001b10 0d 09 ce 32 20 20 20 20 53 55 42 20 72 65 67 2c |...2 SUB reg,|
00001b20 72 65 67 2c 23 28 30 2d 28 64 65 73 74 20 2d 20 |reg,#(0-(dest - |
00001b30 50 25 20 2d 20 30 29 29 20 80 20 26 46 46 30 30 |P% - 0)) . &FF00|
00001b40 30 30 0d 09 d8 09 20 20 20 20 5d 0d 09 e2 07 20 |00.... ].... |
00001b50 20 cc 0d 09 ec 1e 20 20 20 20 85 20 30 2c 22 41 | ..... . 0,"A|
00001b60 44 52 20 6f 75 74 20 6f 66 20 72 61 6e 67 65 22 |DR out of range"|
00001b70 0d 09 f6 07 20 20 cd 0d 0a 00 07 20 20 cd 0d 0a |.... ..... ...|
00001b80 0a 05 cd 0d 0a 14 07 3d 22 22 0d 0a 1e 05 e0 0d |.......=""......|
00001b90 0a 28 04 0d ff |.(...|
00001b95 
.