Home » Archimedes archive » Micro User » MU 1991-06.adf » PD-Stuff » Utilities/DisAsm
Utilities/DisAsm
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 » Micro User » MU 1991-06.adf » PD-Stuff |
| Filename: | Utilities/DisAsm |
| Read OK: | ✔ |
| File size: | 24B3 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >DisAsm
20REM
30REM - Written in frustration ...
40REM : Disassembles from file or memory
50REM : Output to screen, printer or file, WITHOUT control codes !
60REM : Decodes PC relative LDR/STR commands
70REM : Generates ADR directive from ADD/SUB R15,#n
80REM : NB ascii data is low byte first - to make strings readable
90REM - (c) Alan Glover 17/10/88
100REM
110REM Note co-processor opcodes are at variance between Debugger and
120REM Cockerell, with Toolkit avoiding the issue entirely. I have gone
130REM with Debugger's interpretation.
140
150DIM misc 16
160DIM immspace 100
170DIM swibuffer 100
180handle=0
190op=31 : REM Operand start position on line
200FOR opt=0 TO 2 STEP 2
210P%=immspace
220[OPT opt
230\This code is used to resolve immediate data in group one words
240\can't do it easily in Basic cos of only 32 bits, making wrap round
250\of bits shifted to bit 32 and above rather tricky!
260\It now also displays it, cos of problems with &80000000 and over
270LDR R0,immdata
280AND R1,R0,#&F00
290MOV R1,R1,LSR #7
300AND R0,R0,#&FF
310MOV R0,R0,ROR R1
320ADR R1,immdata
330MOV R2,#16
340CMP R0,#10
350ADDCC R0,R0,#&30
360SWICC "OS_WriteC"
370MOVCC R15,R14
380SWI &100+ASC"&"
390CMP R0,#&1000000
400SWIHS "OS_ConvertHex8"
410BHS converted
420CMP R0,#&10000
430SWIHS "OS_ConvertHex6"
440BHS converted
450CMP R0,#&100
460SWIHS "OS_ConvertHex4"
470SWILT "OS_ConvertHex2"
480.converted
490SWI "OS_Write0"
500MOV R15,R14
510.immdata EQUD 0:EQUD 0:EQUD 0:EQUD 0
520]
530NEXT
540MODE 12
550spool=FALSE
560ON ERROR GOTO 4280
570PRINT "ARM Disassembler"'
580PRINT "From File or Memory ? (F/M) :";
590REPEAT:key=GET AND &DF:UNTIL key=ASC"F" OR key=ASC"M"
600VDU 127,key,13,10
610
620CASE key OF
630WHEN ASC"M"
640
650INPUT "Code Start : &"start$
660start%=EVAL("&"+start$)
670INPUT "Code End, or +length : &"length$
680IF INSTR(length$,"+")>0 THEN end%=start%+EVAL("&"+MID$(length$,INSTR(length$,"+")+1,LEN(length$)-INSTR(length$,"+"))) ELSE end%=EVAL("&"+length$)
690start%=start% AND &FFFFFFFC:end%=end% AND &FFFFFFFC
700SYS "OS_ValidateAddress",start%,end% TO ;flag%
710IF flag% AND 2 THEN PRINT "No memory at that address!":GOTO 650
720
730WHEN ASC"F"
740INPUT "Filename "filename$
750handle=OPENUP filename$
760IF handle=0 THEN PRINT "Not found!":GOTO 740
770start%=0:end%=(EXT#handle AND &FFFFFFFC)-4
780
790ENDCASE
800
810PRINT
820PRINT "Output to a printer ? (Y/N) :";:IF FNgetyn THEN VDU 2
830PRINT "Output to a file ? (Y/N) :";
840
850IF FNgetyn THEN
860INPUT "Output Filename : "name$
870OSCLI("SPOOL "+name$)
880spool=TRUE
890ELSE
900spool=FALSE
910ENDIF
920
930TIME=0
940PRINT '"Disassembly from &";~start%;" to &";~end%:PRINT
950PRINT "Address. Content. ASC. Opcode Operands"
960FOR loc%=start% TO end% STEP 4
970inst%=FNget(loc%):REM for file disassembler later
980
990REM This is for testing, but remember that the SWI fouls up B/BL !
1000REM COLOUR 6:SYS "Debugger_Disassemble",inst% TO ,text:SYS "OS_Write0",text:VDU 13,10:COLOUR 3
1010
1020PROChex4(loc%):PROChex4(inst%)
1030PROCshow(inst%):PROCshow(inst%>>8):PROCshow(inst%>>16):PROCshow(inst%>>24)
1040VDU 32
1050
1060test1%=inst% AND &0FC00000:test2%=inst% AND &000000F0
1070test1%=test1%>>22:test2%=test2%>>4
1080
1090ON (test1%>>4)+1 PROCtype00,PROCtype01,PROCtype10,PROCtype11
1100
1110NEXT
1120
1130time=TIME
1140PRINT "Disassembly Finished (in ";time/100;" seconds)"
1150VDU 3
1160IF spool THEN *SPOOL
1170IF handle>0 THEN CLOSE #handle
1180END
1190
1200DEFPROCtype00
1210IF (test1%=0 AND (test2% AND 9)=9) THEN PROCtypeC:ENDPROC
1220IF ((test1% AND &C)=4 AND (test2% AND &9)=9) THEN PROCtypeJ:ENDPROC
1230PROCtypeA
1240ENDPROC
1250
1260DEFPROCtype01
1270IF ((test1% AND &8)=8 AND (test2% AND 1)=1) THEN PROCtypeK ELSE PROCtypeD
1280ENDPROC
1290
1300DEFPROCtype10
1310IF (test1% AND &8)=0 THEN PROCtypeE ELSE PROCtypeB
1320ENDPROC
1330
1340DEFPROCtype11
1350IF (test1% AND 8)=0 THEN PROCtypeH:ENDPROC
1360IF (test1% AND &C)=&C THEN PROCtypeF:ENDPROC
1370IF (test2% AND 1)=1 THEN PROCtypeG:ENDPROC
1380PROCtypeI
1390ENDPROC
1400
1410DEFPROCtypeA
1420opcode%=(inst% AND &01E00000)>>21
1430nodest%=FALSE:nolhs%=FALSE
1440IF NOT(opcode%=4 OR opcode%=2) THEN 1540
1450IF ((inst%>>16) AND 15)<>15 THEN 1540
1460IF (inst% AND 1<<25)=0 THEN 1540
1470PRINT "ADR";
1480PROCcond(inst%)
1490PROCtab
1500PROCdest(inst%)
1510offset%=inst% AND &FFF
1520IF opcode%=2 THEN inst%=inst% OR &800000 ELSE inst%=inst% AND &FFEFFFFF
1530PROCpcrel:GOTO 1800
1540CASE opcode% OF
1550WHEN 0:PRINT "AND";
1560WHEN 1:PRINT "EOR";
1570WHEN 2:PRINT "SUB";
1580WHEN 3:PRINT "RSB";
1590WHEN 4:PRINT "ADD";
1600WHEN 5:PRINT "ADC";
1610WHEN 6:PRINT "SBC";
1620WHEN 7:PRINT "RSC";
1630WHEN 8:PRINT "TST";:nodest%=TRUE
1640WHEN 9:PRINT "TEQ";:nodest%=TRUE
1650WHEN 10:PRINT"CMP";:nodest%=TRUE
1660WHEN 11:PRINT"CMN";:nodest%=TRUE
1670WHEN 12:PRINT"ORR";
1680WHEN 13:PRINT"MOV";:nolhs%=TRUE
1690WHEN 14:PRINT"BIC";
1700WHEN 15:PRINT"MVN";:nolhs%=TRUE
1710ENDCASE
1720IF nodest% AND ((inst% AND &C000)=&C000) THEN PRINT "P";
1730PROCcond(inst%)
1740IF NOT(nodest%) AND (inst% AND 1<<20)=&100000 THEN PRINT "S";
1750PROCtab
1760IF NOT(nodest%) THEN PROCdest(inst%)
1770IF NOT(nolhs%) THEN PROClhs(inst%)
1780type%=inst% AND 1<<25
1790IF type%=0 THEN PROCshiftedreg(inst%) ELSE PROCimmeddata(inst%)
1800VDU 13,10
1810ENDPROC
1820
1830DEFPROCtypeB
1840PRINT "B";
1850IF (inst% AND 1<<24)>0 THEN PRINT "L";
1860PROCcond(inst%)
1870PROCtab
1880dest%=(loc%+8)+4*(inst% AND &FFFFFF)
1890dest%=dest% AND &3FFFFFF:PRINT "&";~dest%;
1900VDU 13,10
1910ENDPROC
1920
1930DEFPROCtypeC
1940REM + Register positioning is derived, and differs from Cockerell
1950IF (inst% AND 1<<21)=0 THEN PRINT "MUL"; ELSE PRINT "MLA";
1960PROCcond(inst%)
1970IF (inst% AND 1<<20)>0 THEN PRINT "S";
1980PROCtab
1990PROClhs(inst%)
2000PRINT "R";(inst% AND 15);",";
2010PRINT "R";(inst%>>8 AND 15);
2020IF (inst% AND 1<<21)>0 THEN PRINT ",R";((inst%>>12) AND 15);
2030VDU 13,10
2040ENDPROC
2050
2060DEFPROCtypeD
2070IF (inst% AND 1<<20)>0 THEN PRINT "LDR"; ELSE PRINT "STR";
2080PROCcond(inst%)
2090IF (inst% AND 1<<22)>0 THEN PRINT "B";
2100IF (inst% AND 1<<24)=0 AND (inst% AND 1<<21)>0 THEN PRINT "T";
2110PROCtab
2120PROCdest(inst%)
2130base%=(inst%>>16) AND 15
2140IF (inst% AND 1<<24)=0 THEN PROCpost ELSE PROCpre
2150VDU 13,10
2160ENDPROC
2170
2180DEFPROCpre
2190offset%=inst% AND &FFF
2200IF base%=15 THEN PROCpcrel:ENDPROC
2210PRINT "[R";base%;
2220IF offset%=0 AND (inst% AND 1<<25)=0 THEN PRINT "]";:ENDPROC:REM no point checking write back!
2230PRINT ",";
2240IF ((inst% AND 1<<23)=0 AND (inst% AND 1<<25)>0) THEN PRINT "-";
2250IF (inst% AND 1<<25)>0 THEN PROCshiftedreg(inst%):PRINT "]";:GOTO 2290
2260PRINT "#";
2270IF (inst% AND 1<<23)=0 THEN PRINT "-";
2280PRINT "";(inst% AND &FFF);"]";
2290IF (inst% AND 1<<21)>1 THEN PRINT "!";
2300ENDPROC
2310
2320DEFPROCpost
2330offset%=inst% AND &FFF
2340IF base%=15 THEN PROCpcrel:ENDPROC
2350PRINT "[R";base%;"]";
2360IF offset%=0 AND (inst% AND 1<<25)=0 THEN ENDPROC
2370PRINT ",";
2380IF ((inst% AND 1<<23)=0 AND (inst% AND 1<<25)>0) THEN PRINT "-";
2390IF (inst% AND 1<<25)>0 THEN PROCshiftedreg(inst%):ENDPROC
2400PRINT "#";
2410IF (inst% AND 1<<23)=0 THEN PRINT "-";
2420PRINT "";(inst% AND &FFF);
2430ENDPROC
2440
2450DEFPROCpcrel
2460data%=loc%+8
2470IF (inst% AND 1<<23)=0 THEN data%=data%-offset% ELSE data%=data%+offset%
2480data%=data% AND &3FFFFFF
2490PRINT "&";~data%;
2500ENDPROC
2510
2520DEFPROCtypeE
2530IF (inst% AND 1<<20)=0 THEN PRINT "STM"; ELSE PRINT "LDM";
2540PROCcond(inst%)
2550IF (inst% AND 1<<23)>0 THEN PRINT "I"; ELSE PRINT "D";
2560IF (inst% AND 1<<24)=0 THEN PRINT "A"; ELSE PRINT "B";
2570PROCtab
2580PRINT "R";(inst%>>16 AND 15);
2590IF (inst% AND 1<<21)>0 THEN PRINT "!";
2600PRINT ",{";
2610veryfirst%=TRUE
2620first%=FALSE
2630sequence%=FALSE
2640reg%=0
2650state%=(inst% AND 1<<reg%)
2660CASE state% OF
2670WHEN 0
2680IF sequence% THEN PRINT "-R";reg%-1;
2690first%=FALSE:sequence%=FALSE
2700OTHERWISE
2710IF first% THEN 2740
2720IF sequence% THEN 2760
2730IF NOT veryfirst% THEN PRINT ",";:veryfirst%=FALSE:first%=TRUE:GOTO 2750
2740IF first% THEN first%=FALSE:sequence%=TRUE:GOTO 2760
2750PRINT "R";reg%;:veryfirst%=FALSE:first%=TRUE:sequence%=FALSE
2760ENDCASE
2770reg%=reg%+1
2780IF reg%<16 THEN 2650
2790IF sequence% THEN PRINT "-R15";
2800PRINT "}";
2810IF (inst% AND 1<<22)>0 THEN PRINT "^";
2820VDU 10,13
2830ENDPROC
2840
2850DEFPROCtypeF
2860PRINT "SWI";
2870PROCcond(inst%)
2880PROCtab
2890SYS "OS_SWINumberToString",inst% AND &FFFFF,swibuffer,100
2900SYS "OS_Write0",swibuffer
2910VDU 13,10
2920ENDPROC
2930
2940DEFPROCtypeG
2950IF (inst% AND 1<<20)=0 THEN PRINT "MRC"; ELSE PRINT "MCR";
2960PROCcond(inst%)
2970PROCtab
2980PRINT "";(inst%>>8)AND 15;",";(inst%>>20)AND 15;",R";(inst%>>12)AND 15;",C";(inst%>>16) AND 15;",C";inst% AND 15;",";(inst%>>5)AND 7;
2990REM + Like Debugger I have taken full four bit opcode% (ie with direction
3000REM + bit as lsb, b20)
3010VDU 13,10
3020ENDPROC
3030
3040DEFPROCtypeH
3050IF (inst% AND 1<<20)>0 THEN PRINT "LDC"; ELSE PRINT "STC";
3060PROCcond(inst%)
3070IF (inst% AND 1<<22)>0 THEN PRINT "L";
3080PROCtab
3090PRINT "";(inst%>>8)AND 15;",C";(inst%>>12)AND 15;",";
3100inst1%=inst% AND &FFFFF000 : REM sabotage it into LDR/STR form
3110inst%=inst1%+4*(inst% AND &FF)
3120base%=(inst%>>16) AND 15
3130IF (inst% AND 1<<24)=0 THEN PROCpost ELSE PROCpre
3140VDU 13,10
3150ENDPROC
3160
3170DEFPROCtypeI
3180PRINT "CDP";
3190PROCcond(inst%)
3200PROCtab
3210PRINT "";(inst%>>8) AND 15;",";(inst%>>20) AND 15;",C";(inst%>>12)AND 15;",C";(inst%>>16)AND 15;",C";inst% AND 15;",";(inst%>>5)AND 7
3220ENDPROC
3230
3240DEFPROCtypeJ
3250PRINT "Undefined"
3260ENDPROC
3270
3280DEFPROCtypeK
3290PRINT "Undefined"
3300ENDPROC
3310
3320DEFPROCshiftedreg(data%)
3330data%=data% AND &FFF
3340PRINT "R";data% AND 15;
3350shift%=(data%>>4) AND 7
3360CASE shift% OF
3370WHEN 0
3380by%=(data%>>7):IF by%>0 THEN PRINT ",LSL #";by%;
3390WHEN 1
3400PRINT ",LSL R";data%>>8;
3410WHEN 2
3420PRINT ",LSR #";data%>>7;
3430WHEN 3
3440PRINT ",LSR R";data%>>8;
3450WHEN 4
3460PRINT ",ASR #";data%>>7;
3470WHEN 5
3480PRINT ",ASR R";data%>>8;
3490WHEN 6
3500by%=data%>>7:IF by%=0 THEN PRINT ",RRX"; ELSE PRINT ",ROR #";by%;
3510WHEN 7
3520PRINT ",ROR R";data%>>8;
3530ENDCASE
3540ENDPROC
3550ENDPROC
3560
3570DEFPROCimmeddata(data%)
3580PRINT "#";
3590!immdata=data% AND &FFF:CALL immspace
3600ENDPROC
3610
3620DEFPROCdest(data%)
3630PRINT "R";((data%>>12) AND 15);
3640PRINT ",";
3650ENDPROC
3660
3670DEFPROClhs(data%)
3680PRINT "R";((data%>>16) AND 15);
3690PRINT ",";
3700ENDPROC
3710
3720DEFPROCcond(conddata%)
3730cdata%=conddata%>>28
3740CASE cdata% OF
3750WHEN 0:PRINT "EQ";
3760WHEN 1:PRINT "NE";
3770WHEN 2:PRINT "CS";
3780WHEN 3:PRINT "CC";
3790WHEN 4:PRINT "MI";
3800WHEN 5:PRINT "PL";
3810WHEN 6:PRINT "VS";
3820WHEN 7:PRINT "VC";
3830WHEN -8:PRINT "HI";
3840WHEN -7:PRINT "LS";
3850WHEN -6:PRINT"GE";
3860WHEN -5:PRINT"LT";
3870WHEN -4:PRINT"GT";
3880WHEN -3:PRINT"LE";
3890WHEN -2:PRINT"";:REM print nothing for AL
3900WHEN -1:PRINT"NV";
3910ENDCASE
3920ENDPROC
3930
3940DEFPROChex4(data%)
3950SYS "OS_ConvertHex8",data%,misc,16
3960SYS "OS_Write0",misc
3970VDU 32
3980ENDPROC
3990
4000DEFFNget(addr%)
4010IF handle=0 THEN
4020opc%=!addr%
4030ELSE
4040FOR F%=0 TO 3
4050swibuffer?F%=BGET#handle
4060NEXT
4070opc%=!swibuffer
4080ENDIF
4090=opc%
4100
4110DEFPROCtab
4120IF POS=op THEN ENDPROC
4130VDU 32:GOTO 4120
4140
4150DEFPROCshow(char%)
4160char%=char% AND 255
4170IF char%<127 AND char%>31 THEN VDU char% ELSE VDU ASC"."
4180ENDPROC
4190
4200DEFFNgetyn
4210REPEAT key=GET
4220key=key AND &DF
4230UNTIL key=ASC"N" OR key=ASC"Y"
4240VDU 127,key,10,13
4250IF key=ASC"Y" THEN =TRUE ELSE =FALSE
4260
4270REM * This is the error handler
4280VDU 3
4290IF spool THEN *SPOOL
4300IF handle>0 THEN CLOSE #handle
4310PRINT '"Disassembly terminated by error :";
4320REPORT:PRINT " at line ";ERL
4330END
� >DisAsm
�
"� - Written in frustration ...
((� : Disassembles from file or memory
2B� : Output to screen, printer or file, WITHOUT control codes !
<,� : Decodes PC relative LDR/STR commands
F3� : Generates ADR directive from ADD/SUB R15,#n
PB� : NB ascii data is low byte first - to make strings readable
Z � - (c) Alan Glover 17/10/88
d�
nD� Note co-processor opcodes are at variance between Debugger and
xF� Cockerell, with Toolkit avoiding the issue entirely. I have gone
�%� with Debugger's interpretation.
�
�
� misc 16
�� immspace 100
�� swibuffer 100
� handle=0
�,op=31 : � Operand start position on line
�� opt=0 � 2 � 2
�P%=immspace
� [OPT opt
�C\This code is used to resolve immediate data in group one words
�G\can't do it easily in Basic cos of only 32 bits, making wrap round
�7\of bits shifted to bit 32 and above rather tricky!
E\It now also displays it, cos of problems with &80000000 and over
LDR R0,immdata
� R1,R0,#&F00
"MOV R1,R1,LSR #7
,� R0,R0,#&FF
6MOV R0,R0,ROR R1
@ADR R1,immdata
JMOV R2,#16
TCMP R0,#10
^ADDCC R0,R0,#&30
hSWICC "OS_WriteC"
rMOVCC R15,R14
|SWI &100+�"&"
�CMP R0,#&1000000
�SWIHS "OS_ConvertHex8"
�BHS converted
�CMP R0,#&10000
�SWIHS "OS_ConvertHex6"
�BHS converted
�CMP R0,#&100
�SWIHS "OS_ConvertHex4"
�SWILT "OS_ConvertHex2"
�.converted
�SWI "OS_Write0"
�MOV R15,R14
�(.immdata EQUD 0:EQUD 0:EQUD 0:EQUD 0
]
�
� 12
& spool=�
0� � � �txP
:� "ARM Disassembler"'
D&� "From File or Memory ? (F/M) :";
N'�:key=� � &DF:� key=�"F" � key=�"M"
X� 127,key,13,10
b
l Ȏ key �
v
� �"M"
�
� � "Code Start : &"start$
�start%=�("&"+start$)
�'� "Code End, or +length : &"length$
�s� �length$,"+")>0 � end%=start%+�("&"+�length$,�length$,"+")+1,�(length$)-�length$,"+"))) � end%=�("&"+length$)
�3start%=start% � &FFFFFFFC:end%=end% � &FFFFFFFC
�0ș "OS_ValidateAddress",start%,end% � ;flag%
�7� flag% � 2 � � "No memory at that address!":� �tJB
�
�
� �"F"
�� "Filename "filename$
�handle=� filename$
�&� handle=0 � � "Not found!":� �ddB
*start%=0:end%=(�#handle � &FFFFFFFC)-4
�
*�
45� "Output to a printer ? (Y/N) :";:� �getyn � � 2
>#� "Output to a file ? (Y/N) :";
H
R� �getyn �
\ � "Output Filename : "name$
f�("SPOOL "+name$)
p spool=�
z�
� spool=�
��
�
��=0
�3� '"Disassembly from &";~start%;" to &";~end%:�
�/� "Address. Content. ASC. Opcode Operands"
� � loc%=start% � end% � 4
�2inst%=�get(loc%):� for file disassembler later
�
�D� This is for testing, but remember that the SWI fouls up B/BL !
�`� COLOUR 6:SYS "Debugger_Disassemble",inst% TO ,text:SYS "OS_Write0",text:VDU 13,10:COLOUR 3
�
� �hex4(loc%):�hex4(inst%)
B�show(inst%):�show(inst%>>8):�show(inst%>>16):�show(inst%>>24)
� 32
$5test1%=inst% � &0FC00000:test2%=inst% � &000000F0
.&test1%=test1%>>22:test2%=test2%>>4
8
B3� (test1%>>4)+1 �type00,�type01,�type10,�type11
L
V�
`
j
time=�
t6� "Disassembly Finished (in ";time/100;" seconds)"
~� 3
�� spool � *SPOOL
�� handle>0 � � #handle
��
�
� ��type00
�,� (test1%=0 � (test2% � 9)=9) � �typeC:�
�4� ((test1% � &C)=4 � (test2% � &9)=9) � �typeJ:�
�
�typeA
��
�
� ��type01
�:� ((test1% � &8)=8 � (test2% � 1)=1) � �typeK � �typeD
�
��type10
'� (test1% � &8)=0 � �typeE � �typeB
(�
2
< ��type11
F � (test1% � 8)=0 � �typeH:�
P!� (test1% � &C)=&C � �typeF:�
Z � (test2% � 1)=1 � �typeG:�
d
�typeI
n�
x
� ��typeA
�#opcode%=(inst% � &01E00000)>>21
�nodest%=�:nolhs%=�
�%� �(opcode%=4 � opcode%=2) � �TDF
�#� ((inst%>>16) � 15)<>15 � �TDF
� � (inst% � 1<<25)=0 � �TDF
� � "ADR";
��cond(inst%)
��tab
��dest(inst%)
�offset%=inst% � &FFF
�A� opcode%=2 � inst%=inst% � &800000 � inst%=inst% � &FFEFFFFF
��pcrel:� �THG
Ȏ opcode% �
� 0:� "AND";
� 1:� "EOR";
"� 2:� "SUB";
,� 3:� "RSB";
6� 4:� "ADD";
@� 5:� "ADC";
J� 6:� "SBC";
T� 7:� "RSC";
^� 8:� "TST";:nodest%=�
h� 9:� "TEQ";:nodest%=�
r� 10:�"CMP";:nodest%=�
|� 11:�"CMN";:nodest%=�
�� 12:�"ORR";
�� 13:�"MOV";:nolhs%=�
�� 14:�"BIC";
�� 15:�"MVN";:nolhs%=�
��
�0� nodest% � ((inst% � &C000)=&C000) � � "P";
��cond(inst%)
�3� �(nodest%) � (inst% � 1<<20)=&100000 � � "S";
��tab
� � �(nodest%) � �dest(inst%)
� � �(nolhs%) � �lhs(inst%)
�type%=inst% � 1<<25
�6� type%=0 � �shiftedreg(inst%) � �immeddata(inst%)
� 13,10
�
& ��typeB
0
� "B";
: � (inst% � 1<<24)>0 � � "L";
D�cond(inst%)
N�tab
X&dest%=(loc%+8)+4*(inst% � &FFFFFF)
b(dest%=dest% � &3FFFFFF:� "&";~dest%;
l � 13,10
v�
�
� ��typeC
�C� + Register positioning is derived, and differs from Cockerell
�-� (inst% � 1<<21)=0 � � "MUL"; � � "MLA";
��cond(inst%)
� � (inst% � 1<<20)>0 � � "S";
��tab
��lhs(inst%)
�� "R";(inst% � 15);",";
�� "R";(inst%>>8 � 15);
�4� (inst% � 1<<21)>0 � � ",R";((inst%>>12) � 15);
� � 13,10
��
��typeD
-� (inst% � 1<<20)>0 � � "LDR"; � � "STR";
�cond(inst%)
* � (inst% � 1<<22)>0 � � "B";
44� (inst% � 1<<24)=0 � (inst% � 1<<21)>0 � � "T";
>�tab
H�dest(inst%)
Rbase%=(inst%>>16) � 15
\&� (inst% � 1<<24)=0 � �post � �pre
f � 13,10
p�
z
� ��pre
�offset%=inst% � &FFF
�� base%=15 � �pcrel:�
�� "[R";base%;
�N� offset%=0 � (inst% � 1<<25)=0 � � "]";:�:� no point checking write back!
�
� ",";
�6� ((inst% � 1<<23)=0 � (inst% � 1<<25)>0) � � "-";
�:� (inst% � 1<<25)>0 � �shiftedreg(inst%):� "]";:� �drH
�
� "#";
� � (inst% � 1<<23)=0 � � "-";
� � "";(inst% � &FFF);"]";
� � (inst% � 1<<21)>1 � � "!";
��
��post
offset%=inst% � &FFF
$� base%=15 � �pcrel:�
.� "[R";base%;"]";
8'� offset%=0 � (inst% � 1<<25)=0 � �
B
� ",";
L6� ((inst% � 1<<23)=0 � (inst% � 1<<25)>0) � � "-";
V.� (inst% � 1<<25)>0 � �shiftedreg(inst%):�
`
� "#";
j � (inst% � 1<<23)=0 � � "-";
t� "";(inst% � &FFF);
~�
�
� ��pcrel
�data%=loc%+8
�C� (inst% � 1<<23)=0 � data%=data%-offset% � data%=data%+offset%
�data%=data% � &3FFFFFF
�� "&";~data%;
��
�
� ��typeE
�-� (inst% � 1<<20)=0 � � "STM"; � � "LDM";
��cond(inst%)
�)� (inst% � 1<<23)>0 � � "I"; � � "D";
)� (inst% � 1<<24)=0 � � "A"; � � "B";
�tab
� "R";(inst%>>16 � 15);
� (inst% � 1<<21)>0 � � "!";
( � ",{";
2veryfirst%=�
< first%=�
Fsequence%=�
P
reg%=0
Z state%=(inst% � 1<<reg%)
dȎ state% �
n� 0
x � sequence% � � "-R";reg%-1;
�first%=�:sequence%=�
�
�� first% � �ttJ
�� sequence% � �dHJ
�8� � veryfirst% � � ",";:veryfirst%=�:first%=�:� �t~J
�*� first% � first%=�:sequence%=�:� �dHJ
�1� "R";reg%;:veryfirst%=�:first%=�:sequence%=�
��
�reg%=reg%+1
�� reg%<16 � �DZJ
�� sequence% � � "-R15";
�
� "}";
� � (inst% � 1<<22)>0 � � "^";
� 10,13
�
" ��typeF
, � "SWI";
6�cond(inst%)
@�tab
J:ș "OS_SWINumberToString",inst% � &FFFFF,swibuffer,100
T ș "OS_Write0",swibuffer
^ � 13,10
h�
r
| ��typeG
�-� (inst% � 1<<20)=0 � � "MRC"; � � "MCR";
��cond(inst%)
��tab
�y� "";(inst%>>8)� 15;",";(inst%>>20)� 15;",R";(inst%>>12)� 15;",C";(inst%>>16) � 15;",C";inst% � 15;",";(inst%>>5)� 7;
�K� + Like Debugger I have taken full four bit opcode% (ie with direction
�� + bit as lsb, b20)
� � 13,10
��
�
� ��typeH
�-� (inst% � 1<<20)>0 � � "LDC"; � � "STC";
��cond(inst%)
� � (inst% � 1<<22)>0 � � "L";
�tab
1� "";(inst%>>8)� 15;",C";(inst%>>12)� 15;",";
>inst1%=inst% � &FFFFF000 : � sabotage it into LDR/STR form
& inst%=inst1%+4*(inst% � &FF)
0base%=(inst%>>16) � 15
:&� (inst% � 1<<24)=0 � �post � �pre
D � 13,10
N�
X
b ��typeI
l � "CDP";
v�cond(inst%)
��tab
�y� "";(inst%>>8) � 15;",";(inst%>>20) � 15;",C";(inst%>>12)� 15;",C";(inst%>>16)� 15;",C";inst% � 15;",";(inst%>>5)� 7
��
�
� ��typeJ
�� "Undefined"
��
�
� ��typeK
�� "Undefined"
��
�
���shiftedreg(data%)
data%=data% � &FFF
� "R";data% � 15;
shift%=(data%>>4) � 7
Ȏ shift% �
*� 0
4,by%=(data%>>7):� by%>0 � � ",LSL #";by%;
>� 1
H� ",LSL R";data%>>8;
R� 2
\� ",LSR #";data%>>7;
f� 3
p� ",LSR R";data%>>8;
z� 4
�� ",ASR #";data%>>7;
�� 5
�� ",ASR R";data%>>8;
�� 6
�6by%=data%>>7:� by%=0 � � ",RRX"; � � ",ROR #";by%;
�� 7
�� ",ROR R";data%>>8;
��
��
��
�
���immeddata(data%)
�
� "#";
$!immdata=data% � &FFF:� immspace
�
$��dest(data%)
. � "R";((data%>>12) � 15);
8
� ",";
B�
L
V��lhs(data%)
` � "R";((data%>>16) � 15);
j
� ",";
t�
~
���cond(conddata%)
�cdata%=conddata%>>28
�Ȏ cdata% �
�� 0:� "EQ";
�� 1:� "NE";
�� 2:� "CS";
�� 3:� "CC";
�� 4:� "MI";
�� 5:� "PL";
�� 6:� "VS";
�� 7:� "VC";
�� -8:� "HI";
� -7:� "LS";
� -6:�"GE";
� -5:�"LT";
� -4:�"GT";
(� -3:�"LE";
2$� -2:�"";:� print nothing for AL
<� -1:�"NV";
F�
P�
Z
d��hex4(data%)
n%ș "OS_ConvertHex8",data%,misc,16
xș "OS_Write0",misc
�� 32
��
�
�ݤget(addr%)
�� handle=0 �
�opc%=!addr%
��
�� F%=0 � 3
�swibuffer?F%=�#handle
��
�opc%=!swibuffer
��
� =opc%
��tab
� �=op � �
"� 32:� �TXP
,
6��show(char%)
@char%=char% � 255
J-� char%<127 � char%>31 � � char% � � �"."
T�
^
h ݤgetyn
r � key=�
|key=key � &DF
�� key=�"N" � key=�"Y"
�� 127,key,10,13
�� key=�"Y" � =� � =�
�
�!� * This is the error handler
�� 3
�� spool � *SPOOL
�� handle>0 � � #handle
�+� '"Disassembly terminated by error :";
��:� " at line ";�
��
� 00000000 0d 00 0a 0d f4 20 3e 44 69 73 41 73 6d 0d 00 14 |..... >DisAsm...|
00000010 05 f4 0d 00 1e 22 f4 20 2d 20 57 72 69 74 74 65 |.....". - Writte|
00000020 6e 20 69 6e 20 66 72 75 73 74 72 61 74 69 6f 6e |n in frustration|
00000030 20 2e 2e 2e 0d 00 28 28 f4 20 3a 20 44 69 73 61 | .....((. : Disa|
00000040 73 73 65 6d 62 6c 65 73 20 66 72 6f 6d 20 66 69 |ssembles from fi|
00000050 6c 65 20 6f 72 20 6d 65 6d 6f 72 79 0d 00 32 42 |le or memory..2B|
00000060 f4 20 3a 20 4f 75 74 70 75 74 20 74 6f 20 73 63 |. : Output to sc|
00000070 72 65 65 6e 2c 20 70 72 69 6e 74 65 72 20 6f 72 |reen, printer or|
00000080 20 66 69 6c 65 2c 20 57 49 54 48 4f 55 54 20 63 | file, WITHOUT c|
00000090 6f 6e 74 72 6f 6c 20 63 6f 64 65 73 20 21 0d 00 |ontrol codes !..|
000000a0 3c 2c f4 20 3a 20 44 65 63 6f 64 65 73 20 50 43 |<,. : Decodes PC|
000000b0 20 72 65 6c 61 74 69 76 65 20 4c 44 52 2f 53 54 | relative LDR/ST|
000000c0 52 20 63 6f 6d 6d 61 6e 64 73 0d 00 46 33 f4 20 |R commands..F3. |
000000d0 3a 20 47 65 6e 65 72 61 74 65 73 20 41 44 52 20 |: Generates ADR |
000000e0 64 69 72 65 63 74 69 76 65 20 66 72 6f 6d 20 41 |directive from A|
000000f0 44 44 2f 53 55 42 20 52 31 35 2c 23 6e 0d 00 50 |DD/SUB R15,#n..P|
00000100 42 f4 20 3a 20 4e 42 20 61 73 63 69 69 20 64 61 |B. : NB ascii da|
00000110 74 61 20 69 73 20 6c 6f 77 20 62 79 74 65 20 66 |ta is low byte f|
00000120 69 72 73 74 20 2d 20 74 6f 20 6d 61 6b 65 20 73 |irst - to make s|
00000130 74 72 69 6e 67 73 20 72 65 61 64 61 62 6c 65 0d |trings readable.|
00000140 00 5a 20 f4 20 2d 20 28 63 29 20 41 6c 61 6e 20 |.Z . - (c) Alan |
00000150 47 6c 6f 76 65 72 20 31 37 2f 31 30 2f 38 38 0d |Glover 17/10/88.|
00000160 00 64 05 f4 0d 00 6e 44 f4 20 4e 6f 74 65 20 63 |.d....nD. Note c|
00000170 6f 2d 70 72 6f 63 65 73 73 6f 72 20 6f 70 63 6f |o-processor opco|
00000180 64 65 73 20 61 72 65 20 61 74 20 76 61 72 69 61 |des are at varia|
00000190 6e 63 65 20 62 65 74 77 65 65 6e 20 44 65 62 75 |nce between Debu|
000001a0 67 67 65 72 20 61 6e 64 0d 00 78 46 f4 20 43 6f |gger and..xF. Co|
000001b0 63 6b 65 72 65 6c 6c 2c 20 77 69 74 68 20 54 6f |ckerell, with To|
000001c0 6f 6c 6b 69 74 20 61 76 6f 69 64 69 6e 67 20 74 |olkit avoiding t|
000001d0 68 65 20 69 73 73 75 65 20 65 6e 74 69 72 65 6c |he issue entirel|
000001e0 79 2e 20 49 20 68 61 76 65 20 67 6f 6e 65 0d 00 |y. I have gone..|
000001f0 82 25 f4 20 77 69 74 68 20 44 65 62 75 67 67 65 |.%. with Debugge|
00000200 72 27 73 20 69 6e 74 65 72 70 72 65 74 61 74 69 |r's interpretati|
00000210 6f 6e 2e 0d 00 8c 04 0d 00 96 0d de 20 6d 69 73 |on.......... mis|
00000220 63 20 31 36 0d 00 a0 12 de 20 69 6d 6d 73 70 61 |c 16..... immspa|
00000230 63 65 20 31 30 30 0d 00 aa 13 de 20 73 77 69 62 |ce 100..... swib|
00000240 75 66 66 65 72 20 31 30 30 0d 00 b4 0c 68 61 6e |uffer 100....han|
00000250 64 6c 65 3d 30 0d 00 be 2c 6f 70 3d 33 31 20 3a |dle=0...,op=31 :|
00000260 20 f4 20 4f 70 65 72 61 6e 64 20 73 74 61 72 74 | . Operand start|
00000270 20 70 6f 73 69 74 69 6f 6e 20 6f 6e 20 6c 69 6e | position on lin|
00000280 65 0d 00 c8 13 e3 20 6f 70 74 3d 30 20 b8 20 32 |e..... opt=0 . 2|
00000290 20 88 20 32 0d 00 d2 0f 50 25 3d 69 6d 6d 73 70 | . 2....P%=immsp|
000002a0 61 63 65 0d 00 dc 0c 5b 4f 50 54 20 6f 70 74 0d |ace....[OPT opt.|
000002b0 00 e6 43 5c 54 68 69 73 20 63 6f 64 65 20 69 73 |..C\This code is|
000002c0 20 75 73 65 64 20 74 6f 20 72 65 73 6f 6c 76 65 | used to resolve|
000002d0 20 69 6d 6d 65 64 69 61 74 65 20 64 61 74 61 20 | immediate data |
000002e0 69 6e 20 67 72 6f 75 70 20 6f 6e 65 20 77 6f 72 |in group one wor|
000002f0 64 73 0d 00 f0 47 5c 63 61 6e 27 74 20 64 6f 20 |ds...G\can't do |
00000300 69 74 20 65 61 73 69 6c 79 20 69 6e 20 42 61 73 |it easily in Bas|
00000310 69 63 20 63 6f 73 20 6f 66 20 6f 6e 6c 79 20 33 |ic cos of only 3|
00000320 32 20 62 69 74 73 2c 20 6d 61 6b 69 6e 67 20 77 |2 bits, making w|
00000330 72 61 70 20 72 6f 75 6e 64 0d 00 fa 37 5c 6f 66 |rap round...7\of|
00000340 20 62 69 74 73 20 73 68 69 66 74 65 64 20 74 6f | bits shifted to|
00000350 20 62 69 74 20 33 32 20 61 6e 64 20 61 62 6f 76 | bit 32 and abov|
00000360 65 20 72 61 74 68 65 72 20 74 72 69 63 6b 79 21 |e rather tricky!|
00000370 0d 01 04 45 5c 49 74 20 6e 6f 77 20 61 6c 73 6f |...E\It now also|
00000380 20 64 69 73 70 6c 61 79 73 20 69 74 2c 20 63 6f | displays it, co|
00000390 73 20 6f 66 20 70 72 6f 62 6c 65 6d 73 20 77 69 |s of problems wi|
000003a0 74 68 20 26 38 30 30 30 30 30 30 30 20 61 6e 64 |th &80000000 and|
000003b0 20 6f 76 65 72 0d 01 0e 12 4c 44 52 20 52 30 2c | over....LDR R0,|
000003c0 69 6d 6d 64 61 74 61 0d 01 18 11 80 20 52 31 2c |immdata..... R1,|
000003d0 52 30 2c 23 26 46 30 30 0d 01 22 14 4d 4f 56 20 |R0,#&F00..".MOV |
000003e0 52 31 2c 52 31 2c 4c 53 52 20 23 37 0d 01 2c 10 |R1,R1,LSR #7..,.|
000003f0 80 20 52 30 2c 52 30 2c 23 26 46 46 0d 01 36 14 |. R0,R0,#&FF..6.|
00000400 4d 4f 56 20 52 30 2c 52 30 2c 52 4f 52 20 52 31 |MOV R0,R0,ROR R1|
00000410 0d 01 40 12 41 44 52 20 52 31 2c 69 6d 6d 64 61 |..@.ADR R1,immda|
00000420 74 61 0d 01 4a 0e 4d 4f 56 20 52 32 2c 23 31 36 |ta..J.MOV R2,#16|
00000430 0d 01 54 0e 43 4d 50 20 52 30 2c 23 31 30 0d 01 |..T.CMP R0,#10..|
00000440 5e 14 41 44 44 43 43 20 52 30 2c 52 30 2c 23 26 |^.ADDCC R0,R0,#&|
00000450 33 30 0d 01 68 15 53 57 49 43 43 20 22 4f 53 5f |30..h.SWICC "OS_|
00000460 57 72 69 74 65 43 22 0d 01 72 11 4d 4f 56 43 43 |WriteC"..r.MOVCC|
00000470 20 52 31 35 2c 52 31 34 0d 01 7c 11 53 57 49 20 | R15,R14..|.SWI |
00000480 26 31 30 30 2b 97 22 26 22 0d 01 86 14 43 4d 50 |&100+."&"....CMP|
00000490 20 52 30 2c 23 26 31 30 30 30 30 30 30 0d 01 90 | R0,#&1000000...|
000004a0 1a 53 57 49 48 53 20 22 4f 53 5f 43 6f 6e 76 65 |.SWIHS "OS_Conve|
000004b0 72 74 48 65 78 38 22 0d 01 9a 11 42 48 53 20 63 |rtHex8"....BHS c|
000004c0 6f 6e 76 65 72 74 65 64 0d 01 a4 12 43 4d 50 20 |onverted....CMP |
000004d0 52 30 2c 23 26 31 30 30 30 30 0d 01 ae 1a 53 57 |R0,#&10000....SW|
000004e0 49 48 53 20 22 4f 53 5f 43 6f 6e 76 65 72 74 48 |IHS "OS_ConvertH|
000004f0 65 78 36 22 0d 01 b8 11 42 48 53 20 63 6f 6e 76 |ex6"....BHS conv|
00000500 65 72 74 65 64 0d 01 c2 10 43 4d 50 20 52 30 2c |erted....CMP R0,|
00000510 23 26 31 30 30 0d 01 cc 1a 53 57 49 48 53 20 22 |#&100....SWIHS "|
00000520 4f 53 5f 43 6f 6e 76 65 72 74 48 65 78 34 22 0d |OS_ConvertHex4".|
00000530 01 d6 1a 53 57 49 4c 54 20 22 4f 53 5f 43 6f 6e |...SWILT "OS_Con|
00000540 76 65 72 74 48 65 78 32 22 0d 01 e0 0e 2e 63 6f |vertHex2".....co|
00000550 6e 76 65 72 74 65 64 0d 01 ea 13 53 57 49 20 22 |nverted....SWI "|
00000560 4f 53 5f 57 72 69 74 65 30 22 0d 01 f4 0f 4d 4f |OS_Write0"....MO|
00000570 56 20 52 31 35 2c 52 31 34 0d 01 fe 28 2e 69 6d |V R15,R14...(.im|
00000580 6d 64 61 74 61 20 45 51 55 44 20 30 3a 45 51 55 |mdata EQUD 0:EQU|
00000590 44 20 30 3a 45 51 55 44 20 30 3a 45 51 55 44 20 |D 0:EQUD 0:EQUD |
000005a0 30 0d 02 08 05 5d 0d 02 12 05 ed 0d 02 1c 08 eb |0....]..........|
000005b0 20 31 32 0d 02 26 0b 73 70 6f 6f 6c 3d a3 0d 02 | 12..&.spool=...|
000005c0 30 0e ee 20 85 20 e5 20 8d 74 78 50 0d 02 3a 19 |0.. . . .txP..:.|
000005d0 f1 20 22 41 52 4d 20 44 69 73 61 73 73 65 6d 62 |. "ARM Disassemb|
000005e0 6c 65 72 22 27 0d 02 44 26 f1 20 22 46 72 6f 6d |ler"'..D&. "From|
000005f0 20 46 69 6c 65 20 6f 72 20 4d 65 6d 6f 72 79 20 | File or Memory |
00000600 3f 20 28 46 2f 4d 29 20 3a 22 3b 0d 02 4e 27 f5 |? (F/M) :";..N'.|
00000610 3a 6b 65 79 3d a5 20 80 20 26 44 46 3a fd 20 6b |:key=. . &DF:. k|
00000620 65 79 3d 97 22 46 22 20 84 20 6b 65 79 3d 97 22 |ey=."F" . key=."|
00000630 4d 22 0d 02 58 13 ef 20 31 32 37 2c 6b 65 79 2c |M"..X.. 127,key,|
00000640 31 33 2c 31 30 0d 02 62 04 0d 02 6c 0c c8 8e 20 |13,10..b...l... |
00000650 6b 65 79 20 ca 0d 02 76 0a c9 20 97 22 4d 22 0d |key ...v.. ."M".|
00000660 02 80 04 0d 02 8a 1c e8 20 22 43 6f 64 65 20 53 |........ "Code S|
00000670 74 61 72 74 20 3a 20 26 22 73 74 61 72 74 24 0d |tart : &"start$.|
00000680 02 94 18 73 74 61 72 74 25 3d a0 28 22 26 22 2b |...start%=.("&"+|
00000690 73 74 61 72 74 24 29 0d 02 9e 27 e8 20 22 43 6f |start$)...'. "Co|
000006a0 64 65 20 45 6e 64 2c 20 6f 72 20 2b 6c 65 6e 67 |de End, or +leng|
000006b0 74 68 20 3a 20 26 22 6c 65 6e 67 74 68 24 0d 02 |th : &"length$..|
000006c0 a8 73 e7 20 a7 6c 65 6e 67 74 68 24 2c 22 2b 22 |.s. .length$,"+"|
000006d0 29 3e 30 20 8c 20 65 6e 64 25 3d 73 74 61 72 74 |)>0 . end%=start|
000006e0 25 2b a0 28 22 26 22 2b c1 6c 65 6e 67 74 68 24 |%+.("&"+.length$|
000006f0 2c a7 6c 65 6e 67 74 68 24 2c 22 2b 22 29 2b 31 |,.length$,"+")+1|
00000700 2c a9 28 6c 65 6e 67 74 68 24 29 2d a7 6c 65 6e |,.(length$)-.len|
00000710 67 74 68 24 2c 22 2b 22 29 29 29 20 8b 20 65 6e |gth$,"+"))) . en|
00000720 64 25 3d a0 28 22 26 22 2b 6c 65 6e 67 74 68 24 |d%=.("&"+length$|
00000730 29 0d 02 b2 33 73 74 61 72 74 25 3d 73 74 61 72 |)...3start%=star|
00000740 74 25 20 80 20 26 46 46 46 46 46 46 46 43 3a 65 |t% . &FFFFFFFC:e|
00000750 6e 64 25 3d 65 6e 64 25 20 80 20 26 46 46 46 46 |nd%=end% . &FFFF|
00000760 46 46 46 43 0d 02 bc 30 c8 99 20 22 4f 53 5f 56 |FFFC...0.. "OS_V|
00000770 61 6c 69 64 61 74 65 41 64 64 72 65 73 73 22 2c |alidateAddress",|
00000780 73 74 61 72 74 25 2c 65 6e 64 25 20 b8 20 3b 66 |start%,end% . ;f|
00000790 6c 61 67 25 0d 02 c6 37 e7 20 66 6c 61 67 25 20 |lag%...7. flag% |
000007a0 80 20 32 20 8c 20 f1 20 22 4e 6f 20 6d 65 6d 6f |. 2 . . "No memo|
000007b0 72 79 20 61 74 20 74 68 61 74 20 61 64 64 72 65 |ry at that addre|
000007c0 73 73 21 22 3a e5 20 8d 74 4a 42 0d 02 d0 04 0d |ss!":. .tJB.....|
000007d0 02 da 0a c9 20 97 22 46 22 0d 02 e4 1a e8 20 22 |.... ."F"..... "|
000007e0 46 69 6c 65 6e 61 6d 65 20 22 66 69 6c 65 6e 61 |Filename "filena|
000007f0 6d 65 24 0d 02 ee 16 68 61 6e 64 6c 65 3d ad 20 |me$....handle=. |
00000800 66 69 6c 65 6e 61 6d 65 24 0d 02 f8 26 e7 20 68 |filename$...&. h|
00000810 61 6e 64 6c 65 3d 30 20 8c 20 f1 20 22 4e 6f 74 |andle=0 . . "Not|
00000820 20 66 6f 75 6e 64 21 22 3a e5 20 8d 64 64 42 0d | found!":. .ddB.|
00000830 03 02 2a 73 74 61 72 74 25 3d 30 3a 65 6e 64 25 |..*start%=0:end%|
00000840 3d 28 a2 23 68 61 6e 64 6c 65 20 80 20 26 46 46 |=(.#handle . &FF|
00000850 46 46 46 46 46 43 29 2d 34 0d 03 0c 04 0d 03 16 |FFFFFC)-4.......|
00000860 05 cb 0d 03 20 04 0d 03 2a 05 f1 0d 03 34 35 f1 |.... ...*....45.|
00000870 20 22 4f 75 74 70 75 74 20 74 6f 20 61 20 70 72 | "Output to a pr|
00000880 69 6e 74 65 72 20 3f 20 28 59 2f 4e 29 20 3a 22 |inter ? (Y/N) :"|
00000890 3b 3a e7 20 a4 67 65 74 79 6e 20 8c 20 ef 20 32 |;:. .getyn . . 2|
000008a0 0d 03 3e 23 f1 20 22 4f 75 74 70 75 74 20 74 6f |..>#. "Output to|
000008b0 20 61 20 66 69 6c 65 20 3f 20 28 59 2f 4e 29 20 | a file ? (Y/N) |
000008c0 3a 22 3b 0d 03 48 04 0d 03 52 0e e7 20 a4 67 65 |:";..H...R.. .ge|
000008d0 74 79 6e 20 8c 0d 03 5c 1f e8 20 22 4f 75 74 70 |tyn ...\.. "Outp|
000008e0 75 74 20 46 69 6c 65 6e 61 6d 65 20 3a 20 22 6e |ut Filename : "n|
000008f0 61 6d 65 24 0d 03 66 15 ff 28 22 53 50 4f 4f 4c |ame$..f..("SPOOL|
00000900 20 22 2b 6e 61 6d 65 24 29 0d 03 70 0b 73 70 6f | "+name$)..p.spo|
00000910 6f 6c 3d b9 0d 03 7a 05 cc 0d 03 84 0b 73 70 6f |ol=...z......spo|
00000920 6f 6c 3d a3 0d 03 8e 05 cd 0d 03 98 04 0d 03 a2 |ol=.............|
00000930 07 d1 3d 30 0d 03 ac 33 f1 20 27 22 44 69 73 61 |..=0...3. '"Disa|
00000940 73 73 65 6d 62 6c 79 20 66 72 6f 6d 20 26 22 3b |ssembly from &";|
00000950 7e 73 74 61 72 74 25 3b 22 20 74 6f 20 26 22 3b |~start%;" to &";|
00000960 7e 65 6e 64 25 3a f1 0d 03 b6 2f f1 20 22 41 64 |~end%:..../. "Ad|
00000970 64 72 65 73 73 2e 20 43 6f 6e 74 65 6e 74 2e 20 |dress. Content. |
00000980 41 53 43 2e 20 4f 70 63 6f 64 65 20 20 4f 70 65 |ASC. Opcode Ope|
00000990 72 61 6e 64 73 22 0d 03 c0 1c e3 20 6c 6f 63 25 |rands"..... loc%|
000009a0 3d 73 74 61 72 74 25 20 b8 20 65 6e 64 25 20 88 |=start% . end% .|
000009b0 20 34 0d 03 ca 32 69 6e 73 74 25 3d a4 67 65 74 | 4...2inst%=.get|
000009c0 28 6c 6f 63 25 29 3a f4 20 66 6f 72 20 66 69 6c |(loc%):. for fil|
000009d0 65 20 64 69 73 61 73 73 65 6d 62 6c 65 72 20 6c |e disassembler l|
000009e0 61 74 65 72 0d 03 d4 04 0d 03 de 44 f4 20 54 68 |ater.......D. Th|
000009f0 69 73 20 69 73 20 66 6f 72 20 74 65 73 74 69 6e |is is for testin|
00000a00 67 2c 20 62 75 74 20 72 65 6d 65 6d 62 65 72 20 |g, but remember |
00000a10 74 68 61 74 20 74 68 65 20 53 57 49 20 66 6f 75 |that the SWI fou|
00000a20 6c 73 20 75 70 20 42 2f 42 4c 20 21 0d 03 e8 60 |ls up B/BL !...`|
00000a30 f4 20 43 4f 4c 4f 55 52 20 36 3a 53 59 53 20 22 |. COLOUR 6:SYS "|
00000a40 44 65 62 75 67 67 65 72 5f 44 69 73 61 73 73 65 |Debugger_Disasse|
00000a50 6d 62 6c 65 22 2c 69 6e 73 74 25 20 54 4f 20 2c |mble",inst% TO ,|
00000a60 74 65 78 74 3a 53 59 53 20 22 4f 53 5f 57 72 69 |text:SYS "OS_Wri|
00000a70 74 65 30 22 2c 74 65 78 74 3a 56 44 55 20 31 33 |te0",text:VDU 13|
00000a80 2c 31 30 3a 43 4f 4c 4f 55 52 20 33 0d 03 f2 04 |,10:COLOUR 3....|
00000a90 0d 03 fc 1c f2 68 65 78 34 28 6c 6f 63 25 29 3a |.....hex4(loc%):|
00000aa0 f2 68 65 78 34 28 69 6e 73 74 25 29 0d 04 06 42 |.hex4(inst%)...B|
00000ab0 f2 73 68 6f 77 28 69 6e 73 74 25 29 3a f2 73 68 |.show(inst%):.sh|
00000ac0 6f 77 28 69 6e 73 74 25 3e 3e 38 29 3a f2 73 68 |ow(inst%>>8):.sh|
00000ad0 6f 77 28 69 6e 73 74 25 3e 3e 31 36 29 3a f2 73 |ow(inst%>>16):.s|
00000ae0 68 6f 77 28 69 6e 73 74 25 3e 3e 32 34 29 0d 04 |how(inst%>>24)..|
00000af0 10 08 ef 20 33 32 0d 04 1a 04 0d 04 24 35 74 65 |... 32......$5te|
00000b00 73 74 31 25 3d 69 6e 73 74 25 20 80 20 26 30 46 |st1%=inst% . &0F|
00000b10 43 30 30 30 30 30 3a 74 65 73 74 32 25 3d 69 6e |C00000:test2%=in|
00000b20 73 74 25 20 80 20 26 30 30 30 30 30 30 46 30 0d |st% . &000000F0.|
00000b30 04 2e 26 74 65 73 74 31 25 3d 74 65 73 74 31 25 |..&test1%=test1%|
00000b40 3e 3e 32 32 3a 74 65 73 74 32 25 3d 74 65 73 74 |>>22:test2%=test|
00000b50 32 25 3e 3e 34 0d 04 38 04 0d 04 42 33 ee 20 28 |2%>>4..8...B3. (|
00000b60 74 65 73 74 31 25 3e 3e 34 29 2b 31 20 f2 74 79 |test1%>>4)+1 .ty|
00000b70 70 65 30 30 2c f2 74 79 70 65 30 31 2c f2 74 79 |pe00,.type01,.ty|
00000b80 70 65 31 30 2c f2 74 79 70 65 31 31 0d 04 4c 04 |pe10,.type11..L.|
00000b90 0d 04 56 05 ed 0d 04 60 04 0d 04 6a 0a 74 69 6d |..V....`...j.tim|
00000ba0 65 3d 91 0d 04 74 36 f1 20 22 44 69 73 61 73 73 |e=...t6. "Disass|
00000bb0 65 6d 62 6c 79 20 46 69 6e 69 73 68 65 64 20 28 |embly Finished (|
00000bc0 69 6e 20 22 3b 74 69 6d 65 2f 31 30 30 3b 22 20 |in ";time/100;" |
00000bd0 73 65 63 6f 6e 64 73 29 22 0d 04 7e 07 ef 20 33 |seconds)"..~.. 3|
00000be0 0d 04 88 14 e7 20 73 70 6f 6f 6c 20 8c 20 2a 53 |..... spool . *S|
00000bf0 50 4f 4f 4c 0d 04 92 1a e7 20 68 61 6e 64 6c 65 |POOL..... handle|
00000c00 3e 30 20 8c 20 d9 20 23 68 61 6e 64 6c 65 0d 04 |>0 . . #handle..|
00000c10 9c 05 e0 0d 04 a6 04 0d 04 b0 0c dd f2 74 79 70 |.............typ|
00000c20 65 30 30 0d 04 ba 2c e7 20 28 74 65 73 74 31 25 |e00...,. (test1%|
00000c30 3d 30 20 80 20 28 74 65 73 74 32 25 20 80 20 39 |=0 . (test2% . 9|
00000c40 29 3d 39 29 20 8c 20 f2 74 79 70 65 43 3a e1 0d |)=9) . .typeC:..|
00000c50 04 c4 34 e7 20 28 28 74 65 73 74 31 25 20 80 20 |..4. ((test1% . |
00000c60 26 43 29 3d 34 20 80 20 28 74 65 73 74 32 25 20 |&C)=4 . (test2% |
00000c70 80 20 26 39 29 3d 39 29 20 8c 20 f2 74 79 70 65 |. &9)=9) . .type|
00000c80 4a 3a e1 0d 04 ce 0a f2 74 79 70 65 41 0d 04 d8 |J:......typeA...|
00000c90 05 e1 0d 04 e2 04 0d 04 ec 0c dd f2 74 79 70 65 |............type|
00000ca0 30 31 0d 04 f6 3a e7 20 28 28 74 65 73 74 31 25 |01...:. ((test1%|
00000cb0 20 80 20 26 38 29 3d 38 20 80 20 28 74 65 73 74 | . &8)=8 . (test|
00000cc0 32 25 20 80 20 31 29 3d 31 29 20 8c 20 f2 74 79 |2% . 1)=1) . .ty|
00000cd0 70 65 4b 20 8b 20 f2 74 79 70 65 44 0d 05 00 05 |peK . .typeD....|
00000ce0 e1 0d 05 0a 04 0d 05 14 0c dd f2 74 79 70 65 31 |...........type1|
00000cf0 30 0d 05 1e 27 e7 20 28 74 65 73 74 31 25 20 80 |0...'. (test1% .|
00000d00 20 26 38 29 3d 30 20 8c 20 f2 74 79 70 65 45 20 | &8)=0 . .typeE |
00000d10 8b 20 f2 74 79 70 65 42 0d 05 28 05 e1 0d 05 32 |. .typeB..(....2|
00000d20 04 0d 05 3c 0c dd f2 74 79 70 65 31 31 0d 05 46 |...<...type11..F|
00000d30 1f e7 20 28 74 65 73 74 31 25 20 80 20 38 29 3d |.. (test1% . 8)=|
00000d40 30 20 8c 20 f2 74 79 70 65 48 3a e1 0d 05 50 21 |0 . .typeH:...P!|
00000d50 e7 20 28 74 65 73 74 31 25 20 80 20 26 43 29 3d |. (test1% . &C)=|
00000d60 26 43 20 8c 20 f2 74 79 70 65 46 3a e1 0d 05 5a |&C . .typeF:...Z|
00000d70 1f e7 20 28 74 65 73 74 32 25 20 80 20 31 29 3d |.. (test2% . 1)=|
00000d80 31 20 8c 20 f2 74 79 70 65 47 3a e1 0d 05 64 0a |1 . .typeG:...d.|
00000d90 f2 74 79 70 65 49 0d 05 6e 05 e1 0d 05 78 04 0d |.typeI..n....x..|
00000da0 05 82 0b dd f2 74 79 70 65 41 0d 05 8c 23 6f 70 |.....typeA...#op|
00000db0 63 6f 64 65 25 3d 28 69 6e 73 74 25 20 80 20 26 |code%=(inst% . &|
00000dc0 30 31 45 30 30 30 30 30 29 3e 3e 32 31 0d 05 96 |01E00000)>>21...|
00000dd0 16 6e 6f 64 65 73 74 25 3d a3 3a 6e 6f 6c 68 73 |.nodest%=.:nolhs|
00000de0 25 3d a3 0d 05 a0 25 e7 20 ac 28 6f 70 63 6f 64 |%=....%. .(opcod|
00000df0 65 25 3d 34 20 84 20 6f 70 63 6f 64 65 25 3d 32 |e%=4 . opcode%=2|
00000e00 29 20 8c 20 8d 54 44 46 0d 05 aa 23 e7 20 28 28 |) . .TDF...#. ((|
00000e10 69 6e 73 74 25 3e 3e 31 36 29 20 80 20 31 35 29 |inst%>>16) . 15)|
00000e20 3c 3e 31 35 20 8c 20 8d 54 44 46 0d 05 b4 1e e7 |<>15 . .TDF.....|
00000e30 20 28 69 6e 73 74 25 20 80 20 31 3c 3c 32 35 29 | (inst% . 1<<25)|
00000e40 3d 30 20 8c 20 8d 54 44 46 0d 05 be 0c f1 20 22 |=0 . .TDF..... "|
00000e50 41 44 52 22 3b 0d 05 c8 10 f2 63 6f 6e 64 28 69 |ADR";.....cond(i|
00000e60 6e 73 74 25 29 0d 05 d2 08 f2 74 61 62 0d 05 dc |nst%).....tab...|
00000e70 10 f2 64 65 73 74 28 69 6e 73 74 25 29 0d 05 e6 |..dest(inst%)...|
00000e80 18 6f 66 66 73 65 74 25 3d 69 6e 73 74 25 20 80 |.offset%=inst% .|
00000e90 20 26 46 46 46 0d 05 f0 41 e7 20 6f 70 63 6f 64 | &FFF...A. opcod|
00000ea0 65 25 3d 32 20 8c 20 69 6e 73 74 25 3d 69 6e 73 |e%=2 . inst%=ins|
00000eb0 74 25 20 84 20 26 38 30 30 30 30 30 20 8b 20 69 |t% . &800000 . i|
00000ec0 6e 73 74 25 3d 69 6e 73 74 25 20 80 20 26 46 46 |nst%=inst% . &FF|
00000ed0 45 46 46 46 46 46 0d 05 fa 11 f2 70 63 72 65 6c |EFFFFF.....pcrel|
00000ee0 3a e5 20 8d 54 48 47 0d 06 04 10 c8 8e 20 6f 70 |:. .THG...... op|
00000ef0 63 6f 64 65 25 20 ca 0d 06 0e 10 c9 20 30 3a f1 |code% ...... 0:.|
00000f00 20 22 41 4e 44 22 3b 0d 06 18 10 c9 20 31 3a f1 | "AND";..... 1:.|
00000f10 20 22 45 4f 52 22 3b 0d 06 22 10 c9 20 32 3a f1 | "EOR";..".. 2:.|
00000f20 20 22 53 55 42 22 3b 0d 06 2c 10 c9 20 33 3a f1 | "SUB";..,.. 3:.|
00000f30 20 22 52 53 42 22 3b 0d 06 36 10 c9 20 34 3a f1 | "RSB";..6.. 4:.|
00000f40 20 22 41 44 44 22 3b 0d 06 40 10 c9 20 35 3a f1 | "ADD";..@.. 5:.|
00000f50 20 22 41 44 43 22 3b 0d 06 4a 10 c9 20 36 3a f1 | "ADC";..J.. 6:.|
00000f60 20 22 53 42 43 22 3b 0d 06 54 10 c9 20 37 3a f1 | "SBC";..T.. 7:.|
00000f70 20 22 52 53 43 22 3b 0d 06 5e 1a c9 20 38 3a f1 | "RSC";..^.. 8:.|
00000f80 20 22 54 53 54 22 3b 3a 6e 6f 64 65 73 74 25 3d | "TST";:nodest%=|
00000f90 b9 0d 06 68 1a c9 20 39 3a f1 20 22 54 45 51 22 |...h.. 9:. "TEQ"|
00000fa0 3b 3a 6e 6f 64 65 73 74 25 3d b9 0d 06 72 1a c9 |;:nodest%=...r..|
00000fb0 20 31 30 3a f1 22 43 4d 50 22 3b 3a 6e 6f 64 65 | 10:."CMP";:node|
00000fc0 73 74 25 3d b9 0d 06 7c 1a c9 20 31 31 3a f1 22 |st%=...|.. 11:."|
00000fd0 43 4d 4e 22 3b 3a 6e 6f 64 65 73 74 25 3d b9 0d |CMN";:nodest%=..|
00000fe0 06 86 10 c9 20 31 32 3a f1 22 4f 52 52 22 3b 0d |.... 12:."ORR";.|
00000ff0 06 90 19 c9 20 31 33 3a f1 22 4d 4f 56 22 3b 3a |.... 13:."MOV";:|
00001000 6e 6f 6c 68 73 25 3d b9 0d 06 9a 10 c9 20 31 34 |nolhs%=...... 14|
00001010 3a f1 22 42 49 43 22 3b 0d 06 a4 19 c9 20 31 35 |:."BIC";..... 15|
00001020 3a f1 22 4d 56 4e 22 3b 3a 6e 6f 6c 68 73 25 3d |:."MVN";:nolhs%=|
00001030 b9 0d 06 ae 05 cb 0d 06 b8 30 e7 20 6e 6f 64 65 |.........0. node|
00001040 73 74 25 20 80 20 28 28 69 6e 73 74 25 20 80 20 |st% . ((inst% . |
00001050 26 43 30 30 30 29 3d 26 43 30 30 30 29 20 8c 20 |&C000)=&C000) . |
00001060 f1 20 22 50 22 3b 0d 06 c2 10 f2 63 6f 6e 64 28 |. "P";.....cond(|
00001070 69 6e 73 74 25 29 0d 06 cc 33 e7 20 ac 28 6e 6f |inst%)...3. .(no|
00001080 64 65 73 74 25 29 20 80 20 28 69 6e 73 74 25 20 |dest%) . (inst% |
00001090 80 20 31 3c 3c 32 30 29 3d 26 31 30 30 30 30 30 |. 1<<20)=&100000|
000010a0 20 8c 20 f1 20 22 53 22 3b 0d 06 d6 08 f2 74 61 | . . "S";.....ta|
000010b0 62 0d 06 e0 1f e7 20 ac 28 6e 6f 64 65 73 74 25 |b..... .(nodest%|
000010c0 29 20 8c 20 f2 64 65 73 74 28 69 6e 73 74 25 29 |) . .dest(inst%)|
000010d0 0d 06 ea 1d e7 20 ac 28 6e 6f 6c 68 73 25 29 20 |..... .(nolhs%) |
000010e0 8c 20 f2 6c 68 73 28 69 6e 73 74 25 29 0d 06 f4 |. .lhs(inst%)...|
000010f0 17 74 79 70 65 25 3d 69 6e 73 74 25 20 80 20 31 |.type%=inst% . 1|
00001100 3c 3c 32 35 0d 06 fe 36 e7 20 74 79 70 65 25 3d |<<25...6. type%=|
00001110 30 20 8c 20 f2 73 68 69 66 74 65 64 72 65 67 28 |0 . .shiftedreg(|
00001120 69 6e 73 74 25 29 20 8b 20 f2 69 6d 6d 65 64 64 |inst%) . .immedd|
00001130 61 74 61 28 69 6e 73 74 25 29 0d 07 08 0b ef 20 |ata(inst%)..... |
00001140 31 33 2c 31 30 0d 07 12 05 e1 0d 07 1c 04 0d 07 |13,10...........|
00001150 26 0b dd f2 74 79 70 65 42 0d 07 30 0a f1 20 22 |&...typeB..0.. "|
00001160 42 22 3b 0d 07 3a 20 e7 20 28 69 6e 73 74 25 20 |B";..: . (inst% |
00001170 80 20 31 3c 3c 32 34 29 3e 30 20 8c 20 f1 20 22 |. 1<<24)>0 . . "|
00001180 4c 22 3b 0d 07 44 10 f2 63 6f 6e 64 28 69 6e 73 |L";..D..cond(ins|
00001190 74 25 29 0d 07 4e 08 f2 74 61 62 0d 07 58 26 64 |t%)..N..tab..X&d|
000011a0 65 73 74 25 3d 28 6c 6f 63 25 2b 38 29 2b 34 2a |est%=(loc%+8)+4*|
000011b0 28 69 6e 73 74 25 20 80 20 26 46 46 46 46 46 46 |(inst% . &FFFFFF|
000011c0 29 0d 07 62 28 64 65 73 74 25 3d 64 65 73 74 25 |)..b(dest%=dest%|
000011d0 20 80 20 26 33 46 46 46 46 46 46 3a f1 20 22 26 | . &3FFFFFF:. "&|
000011e0 22 3b 7e 64 65 73 74 25 3b 0d 07 6c 0b ef 20 31 |";~dest%;..l.. 1|
000011f0 33 2c 31 30 0d 07 76 05 e1 0d 07 80 04 0d 07 8a |3,10..v.........|
00001200 0b dd f2 74 79 70 65 43 0d 07 94 43 f4 20 2b 20 |...typeC...C. + |
00001210 52 65 67 69 73 74 65 72 20 70 6f 73 69 74 69 6f |Register positio|
00001220 6e 69 6e 67 20 69 73 20 64 65 72 69 76 65 64 2c |ning is derived,|
00001230 20 61 6e 64 20 64 69 66 66 65 72 73 20 66 72 6f | and differs fro|
00001240 6d 20 43 6f 63 6b 65 72 65 6c 6c 0d 07 9e 2d e7 |m Cockerell...-.|
00001250 20 28 69 6e 73 74 25 20 80 20 31 3c 3c 32 31 29 | (inst% . 1<<21)|
00001260 3d 30 20 8c 20 f1 20 22 4d 55 4c 22 3b 20 8b 20 |=0 . . "MUL"; . |
00001270 f1 20 22 4d 4c 41 22 3b 0d 07 a8 10 f2 63 6f 6e |. "MLA";.....con|
00001280 64 28 69 6e 73 74 25 29 0d 07 b2 20 e7 20 28 69 |d(inst%)... . (i|
00001290 6e 73 74 25 20 80 20 31 3c 3c 32 30 29 3e 30 20 |nst% . 1<<20)>0 |
000012a0 8c 20 f1 20 22 53 22 3b 0d 07 bc 08 f2 74 61 62 |. . "S";.....tab|
000012b0 0d 07 c6 0f f2 6c 68 73 28 69 6e 73 74 25 29 0d |.....lhs(inst%).|
000012c0 07 d0 1b f1 20 22 52 22 3b 28 69 6e 73 74 25 20 |.... "R";(inst% |
000012d0 80 20 31 35 29 3b 22 2c 22 3b 0d 07 da 1a f1 20 |. 15);",";..... |
000012e0 22 52 22 3b 28 69 6e 73 74 25 3e 3e 38 20 80 20 |"R";(inst%>>8 . |
000012f0 31 35 29 3b 0d 07 e4 34 e7 20 28 69 6e 73 74 25 |15);...4. (inst%|
00001300 20 80 20 31 3c 3c 32 31 29 3e 30 20 8c 20 f1 20 | . 1<<21)>0 . . |
00001310 22 2c 52 22 3b 28 28 69 6e 73 74 25 3e 3e 31 32 |",R";((inst%>>12|
00001320 29 20 80 20 31 35 29 3b 0d 07 ee 0b ef 20 31 33 |) . 15);..... 13|
00001330 2c 31 30 0d 07 f8 05 e1 0d 08 02 04 0d 08 0c 0b |,10.............|
00001340 dd f2 74 79 70 65 44 0d 08 16 2d e7 20 28 69 6e |..typeD...-. (in|
00001350 73 74 25 20 80 20 31 3c 3c 32 30 29 3e 30 20 8c |st% . 1<<20)>0 .|
00001360 20 f1 20 22 4c 44 52 22 3b 20 8b 20 f1 20 22 53 | . "LDR"; . . "S|
00001370 54 52 22 3b 0d 08 20 10 f2 63 6f 6e 64 28 69 6e |TR";.. ..cond(in|
00001380 73 74 25 29 0d 08 2a 20 e7 20 28 69 6e 73 74 25 |st%)..* . (inst%|
00001390 20 80 20 31 3c 3c 32 32 29 3e 30 20 8c 20 f1 20 | . 1<<22)>0 . . |
000013a0 22 42 22 3b 0d 08 34 34 e7 20 28 69 6e 73 74 25 |"B";..44. (inst%|
000013b0 20 80 20 31 3c 3c 32 34 29 3d 30 20 80 20 28 69 | . 1<<24)=0 . (i|
000013c0 6e 73 74 25 20 80 20 31 3c 3c 32 31 29 3e 30 20 |nst% . 1<<21)>0 |
000013d0 8c 20 f1 20 22 54 22 3b 0d 08 3e 08 f2 74 61 62 |. . "T";..>..tab|
000013e0 0d 08 48 10 f2 64 65 73 74 28 69 6e 73 74 25 29 |..H..dest(inst%)|
000013f0 0d 08 52 1a 62 61 73 65 25 3d 28 69 6e 73 74 25 |..R.base%=(inst%|
00001400 3e 3e 31 36 29 20 80 20 31 35 0d 08 5c 26 e7 20 |>>16) . 15..\&. |
00001410 28 69 6e 73 74 25 20 80 20 31 3c 3c 32 34 29 3d |(inst% . 1<<24)=|
00001420 30 20 8c 20 f2 70 6f 73 74 20 8b 20 f2 70 72 65 |0 . .post . .pre|
00001430 0d 08 66 0b ef 20 31 33 2c 31 30 0d 08 70 05 e1 |..f.. 13,10..p..|
00001440 0d 08 7a 04 0d 08 84 09 dd f2 70 72 65 0d 08 8e |..z.......pre...|
00001450 18 6f 66 66 73 65 74 25 3d 69 6e 73 74 25 20 80 |.offset%=inst% .|
00001460 20 26 46 46 46 0d 08 98 19 e7 20 62 61 73 65 25 | &FFF..... base%|
00001470 3d 31 35 20 8c 20 f2 70 63 72 65 6c 3a e1 0d 08 |=15 . .pcrel:...|
00001480 a2 11 f1 20 22 5b 52 22 3b 62 61 73 65 25 3b 0d |... "[R";base%;.|
00001490 08 ac 4e e7 20 6f 66 66 73 65 74 25 3d 30 20 80 |..N. offset%=0 .|
000014a0 20 28 69 6e 73 74 25 20 80 20 31 3c 3c 32 35 29 | (inst% . 1<<25)|
000014b0 3d 30 20 8c 20 f1 20 22 5d 22 3b 3a e1 3a f4 20 |=0 . . "]";:.:. |
000014c0 6e 6f 20 70 6f 69 6e 74 20 63 68 65 63 6b 69 6e |no point checkin|
000014d0 67 20 77 72 69 74 65 20 62 61 63 6b 21 0d 08 b6 |g write back!...|
000014e0 0a f1 20 22 2c 22 3b 0d 08 c0 36 e7 20 28 28 69 |.. ",";...6. ((i|
000014f0 6e 73 74 25 20 80 20 31 3c 3c 32 33 29 3d 30 20 |nst% . 1<<23)=0 |
00001500 80 20 28 69 6e 73 74 25 20 80 20 31 3c 3c 32 35 |. (inst% . 1<<25|
00001510 29 3e 30 29 20 8c 20 f1 20 22 2d 22 3b 0d 08 ca |)>0) . . "-";...|
00001520 3a e7 20 28 69 6e 73 74 25 20 80 20 31 3c 3c 32 |:. (inst% . 1<<2|
00001530 35 29 3e 30 20 8c 20 f2 73 68 69 66 74 65 64 72 |5)>0 . .shiftedr|
00001540 65 67 28 69 6e 73 74 25 29 3a f1 20 22 5d 22 3b |eg(inst%):. "]";|
00001550 3a e5 20 8d 64 72 48 0d 08 d4 0a f1 20 22 23 22 |:. .drH..... "#"|
00001560 3b 0d 08 de 20 e7 20 28 69 6e 73 74 25 20 80 20 |;... . (inst% . |
00001570 31 3c 3c 32 33 29 3d 30 20 8c 20 f1 20 22 2d 22 |1<<23)=0 . . "-"|
00001580 3b 0d 08 e8 1c f1 20 22 22 3b 28 69 6e 73 74 25 |;..... "";(inst%|
00001590 20 80 20 26 46 46 46 29 3b 22 5d 22 3b 0d 08 f2 | . &FFF);"]";...|
000015a0 20 e7 20 28 69 6e 73 74 25 20 80 20 31 3c 3c 32 | . (inst% . 1<<2|
000015b0 31 29 3e 31 20 8c 20 f1 20 22 21 22 3b 0d 08 fc |1)>1 . . "!";...|
000015c0 05 e1 0d 09 06 04 0d 09 10 0a dd f2 70 6f 73 74 |............post|
000015d0 0d 09 1a 18 6f 66 66 73 65 74 25 3d 69 6e 73 74 |....offset%=inst|
000015e0 25 20 80 20 26 46 46 46 0d 09 24 19 e7 20 62 61 |% . &FFF..$.. ba|
000015f0 73 65 25 3d 31 35 20 8c 20 f2 70 63 72 65 6c 3a |se%=15 . .pcrel:|
00001600 e1 0d 09 2e 15 f1 20 22 5b 52 22 3b 62 61 73 65 |...... "[R";base|
00001610 25 3b 22 5d 22 3b 0d 09 38 27 e7 20 6f 66 66 73 |%;"]";..8'. offs|
00001620 65 74 25 3d 30 20 80 20 28 69 6e 73 74 25 20 80 |et%=0 . (inst% .|
00001630 20 31 3c 3c 32 35 29 3d 30 20 8c 20 e1 0d 09 42 | 1<<25)=0 . ...B|
00001640 0a f1 20 22 2c 22 3b 0d 09 4c 36 e7 20 28 28 69 |.. ",";..L6. ((i|
00001650 6e 73 74 25 20 80 20 31 3c 3c 32 33 29 3d 30 20 |nst% . 1<<23)=0 |
00001660 80 20 28 69 6e 73 74 25 20 80 20 31 3c 3c 32 35 |. (inst% . 1<<25|
00001670 29 3e 30 29 20 8c 20 f1 20 22 2d 22 3b 0d 09 56 |)>0) . . "-";..V|
00001680 2e e7 20 28 69 6e 73 74 25 20 80 20 31 3c 3c 32 |.. (inst% . 1<<2|
00001690 35 29 3e 30 20 8c 20 f2 73 68 69 66 74 65 64 72 |5)>0 . .shiftedr|
000016a0 65 67 28 69 6e 73 74 25 29 3a e1 0d 09 60 0a f1 |eg(inst%):...`..|
000016b0 20 22 23 22 3b 0d 09 6a 20 e7 20 28 69 6e 73 74 | "#";..j . (inst|
000016c0 25 20 80 20 31 3c 3c 32 33 29 3d 30 20 8c 20 f1 |% . 1<<23)=0 . .|
000016d0 20 22 2d 22 3b 0d 09 74 18 f1 20 22 22 3b 28 69 | "-";..t.. "";(i|
000016e0 6e 73 74 25 20 80 20 26 46 46 46 29 3b 0d 09 7e |nst% . &FFF);..~|
000016f0 05 e1 0d 09 88 04 0d 09 92 0b dd f2 70 63 72 65 |............pcre|
00001700 6c 0d 09 9c 10 64 61 74 61 25 3d 6c 6f 63 25 2b |l....data%=loc%+|
00001710 38 0d 09 a6 43 e7 20 28 69 6e 73 74 25 20 80 20 |8...C. (inst% . |
00001720 31 3c 3c 32 33 29 3d 30 20 8c 20 64 61 74 61 25 |1<<23)=0 . data%|
00001730 3d 64 61 74 61 25 2d 6f 66 66 73 65 74 25 20 8b |=data%-offset% .|
00001740 20 64 61 74 61 25 3d 64 61 74 61 25 2b 6f 66 66 | data%=data%+off|
00001750 73 65 74 25 0d 09 b0 1a 64 61 74 61 25 3d 64 61 |set%....data%=da|
00001760 74 61 25 20 80 20 26 33 46 46 46 46 46 46 0d 09 |ta% . &3FFFFFF..|
00001770 ba 11 f1 20 22 26 22 3b 7e 64 61 74 61 25 3b 0d |... "&";~data%;.|
00001780 09 c4 05 e1 0d 09 ce 04 0d 09 d8 0b dd f2 74 79 |..............ty|
00001790 70 65 45 0d 09 e2 2d e7 20 28 69 6e 73 74 25 20 |peE...-. (inst% |
000017a0 80 20 31 3c 3c 32 30 29 3d 30 20 8c 20 f1 20 22 |. 1<<20)=0 . . "|
000017b0 53 54 4d 22 3b 20 8b 20 f1 20 22 4c 44 4d 22 3b |STM"; . . "LDM";|
000017c0 0d 09 ec 10 f2 63 6f 6e 64 28 69 6e 73 74 25 29 |.....cond(inst%)|
000017d0 0d 09 f6 29 e7 20 28 69 6e 73 74 25 20 80 20 31 |...). (inst% . 1|
000017e0 3c 3c 32 33 29 3e 30 20 8c 20 f1 20 22 49 22 3b |<<23)>0 . . "I";|
000017f0 20 8b 20 f1 20 22 44 22 3b 0d 0a 00 29 e7 20 28 | . . "D";...). (|
00001800 69 6e 73 74 25 20 80 20 31 3c 3c 32 34 29 3d 30 |inst% . 1<<24)=0|
00001810 20 8c 20 f1 20 22 41 22 3b 20 8b 20 f1 20 22 42 | . . "A"; . . "B|
00001820 22 3b 0d 0a 0a 08 f2 74 61 62 0d 0a 14 1b f1 20 |";.....tab..... |
00001830 22 52 22 3b 28 69 6e 73 74 25 3e 3e 31 36 20 80 |"R";(inst%>>16 .|
00001840 20 31 35 29 3b 0d 0a 1e 20 e7 20 28 69 6e 73 74 | 15);... . (inst|
00001850 25 20 80 20 31 3c 3c 32 31 29 3e 30 20 8c 20 f1 |% . 1<<21)>0 . .|
00001860 20 22 21 22 3b 0d 0a 28 0b f1 20 22 2c 7b 22 3b | "!";..(.. ",{";|
00001870 0d 0a 32 10 76 65 72 79 66 69 72 73 74 25 3d b9 |..2.veryfirst%=.|
00001880 0d 0a 3c 0c 66 69 72 73 74 25 3d a3 0d 0a 46 0f |..<.first%=...F.|
00001890 73 65 71 75 65 6e 63 65 25 3d a3 0d 0a 50 0a 72 |sequence%=...P.r|
000018a0 65 67 25 3d 30 0d 0a 5a 1c 73 74 61 74 65 25 3d |eg%=0..Z.state%=|
000018b0 28 69 6e 73 74 25 20 80 20 31 3c 3c 72 65 67 25 |(inst% . 1<<reg%|
000018c0 29 0d 0a 64 0f c8 8e 20 73 74 61 74 65 25 20 ca |)..d... state% .|
000018d0 0d 0a 6e 07 c9 20 30 0d 0a 78 20 e7 20 73 65 71 |..n.. 0..x . seq|
000018e0 75 65 6e 63 65 25 20 8c 20 f1 20 22 2d 52 22 3b |uence% . . "-R";|
000018f0 72 65 67 25 2d 31 3b 0d 0a 82 18 66 69 72 73 74 |reg%-1;....first|
00001900 25 3d a3 3a 73 65 71 75 65 6e 63 65 25 3d a3 0d |%=.:sequence%=..|
00001910 0a 8c 05 7f 0d 0a 96 13 e7 20 66 69 72 73 74 25 |......... first%|
00001920 20 8c 20 8d 74 74 4a 0d 0a a0 16 e7 20 73 65 71 | . .ttJ..... seq|
00001930 75 65 6e 63 65 25 20 8c 20 8d 64 48 4a 0d 0a aa |uence% . .dHJ...|
00001940 38 e7 20 ac 20 76 65 72 79 66 69 72 73 74 25 20 |8. . veryfirst% |
00001950 8c 20 f1 20 22 2c 22 3b 3a 76 65 72 79 66 69 72 |. . ",";:veryfir|
00001960 73 74 25 3d a3 3a 66 69 72 73 74 25 3d b9 3a e5 |st%=.:first%=.:.|
00001970 20 8d 74 7e 4a 0d 0a b4 2a e7 20 66 69 72 73 74 | .t~J...*. first|
00001980 25 20 8c 20 66 69 72 73 74 25 3d a3 3a 73 65 71 |% . first%=.:seq|
00001990 75 65 6e 63 65 25 3d b9 3a e5 20 8d 64 48 4a 0d |uence%=.:. .dHJ.|
000019a0 0a be 31 f1 20 22 52 22 3b 72 65 67 25 3b 3a 76 |..1. "R";reg%;:v|
000019b0 65 72 79 66 69 72 73 74 25 3d a3 3a 66 69 72 73 |eryfirst%=.:firs|
000019c0 74 25 3d b9 3a 73 65 71 75 65 6e 63 65 25 3d a3 |t%=.:sequence%=.|
000019d0 0d 0a c8 05 cb 0d 0a d2 0f 72 65 67 25 3d 72 65 |.........reg%=re|
000019e0 67 25 2b 31 0d 0a dc 14 e7 20 72 65 67 25 3c 31 |g%+1..... reg%<1|
000019f0 36 20 8c 20 8d 44 5a 4a 0d 0a e6 1b e7 20 73 65 |6 . .DZJ..... se|
00001a00 71 75 65 6e 63 65 25 20 8c 20 f1 20 22 2d 52 31 |quence% . . "-R1|
00001a10 35 22 3b 0d 0a f0 0a f1 20 22 7d 22 3b 0d 0a fa |5";..... "}";...|
00001a20 20 e7 20 28 69 6e 73 74 25 20 80 20 31 3c 3c 32 | . (inst% . 1<<2|
00001a30 32 29 3e 30 20 8c 20 f1 20 22 5e 22 3b 0d 0b 04 |2)>0 . . "^";...|
00001a40 0b ef 20 31 30 2c 31 33 0d 0b 0e 05 e1 0d 0b 18 |.. 10,13........|
00001a50 04 0d 0b 22 0b dd f2 74 79 70 65 46 0d 0b 2c 0c |..."...typeF..,.|
00001a60 f1 20 22 53 57 49 22 3b 0d 0b 36 10 f2 63 6f 6e |. "SWI";..6..con|
00001a70 64 28 69 6e 73 74 25 29 0d 0b 40 08 f2 74 61 62 |d(inst%)..@..tab|
00001a80 0d 0b 4a 3a c8 99 20 22 4f 53 5f 53 57 49 4e 75 |..J:.. "OS_SWINu|
00001a90 6d 62 65 72 54 6f 53 74 72 69 6e 67 22 2c 69 6e |mberToString",in|
00001aa0 73 74 25 20 80 20 26 46 46 46 46 46 2c 73 77 69 |st% . &FFFFF,swi|
00001ab0 62 75 66 66 65 72 2c 31 30 30 0d 0b 54 1c c8 99 |buffer,100..T...|
00001ac0 20 22 4f 53 5f 57 72 69 74 65 30 22 2c 73 77 69 | "OS_Write0",swi|
00001ad0 62 75 66 66 65 72 0d 0b 5e 0b ef 20 31 33 2c 31 |buffer..^.. 13,1|
00001ae0 30 0d 0b 68 05 e1 0d 0b 72 04 0d 0b 7c 0b dd f2 |0..h....r...|...|
00001af0 74 79 70 65 47 0d 0b 86 2d e7 20 28 69 6e 73 74 |typeG...-. (inst|
00001b00 25 20 80 20 31 3c 3c 32 30 29 3d 30 20 8c 20 f1 |% . 1<<20)=0 . .|
00001b10 20 22 4d 52 43 22 3b 20 8b 20 f1 20 22 4d 43 52 | "MRC"; . . "MCR|
00001b20 22 3b 0d 0b 90 10 f2 63 6f 6e 64 28 69 6e 73 74 |";.....cond(inst|
00001b30 25 29 0d 0b 9a 08 f2 74 61 62 0d 0b a4 79 f1 20 |%).....tab...y. |
00001b40 22 22 3b 28 69 6e 73 74 25 3e 3e 38 29 80 20 31 |"";(inst%>>8). 1|
00001b50 35 3b 22 2c 22 3b 28 69 6e 73 74 25 3e 3e 32 30 |5;",";(inst%>>20|
00001b60 29 80 20 31 35 3b 22 2c 52 22 3b 28 69 6e 73 74 |). 15;",R";(inst|
00001b70 25 3e 3e 31 32 29 80 20 31 35 3b 22 2c 43 22 3b |%>>12). 15;",C";|
00001b80 28 69 6e 73 74 25 3e 3e 31 36 29 20 80 20 31 35 |(inst%>>16) . 15|
00001b90 3b 22 2c 43 22 3b 69 6e 73 74 25 20 80 20 31 35 |;",C";inst% . 15|
00001ba0 3b 22 2c 22 3b 28 69 6e 73 74 25 3e 3e 35 29 80 |;",";(inst%>>5).|
00001bb0 20 37 3b 0d 0b ae 4b f4 20 2b 20 4c 69 6b 65 20 | 7;...K. + Like |
00001bc0 44 65 62 75 67 67 65 72 20 49 20 68 61 76 65 20 |Debugger I have |
00001bd0 74 61 6b 65 6e 20 66 75 6c 6c 20 66 6f 75 72 20 |taken full four |
00001be0 62 69 74 20 6f 70 63 6f 64 65 25 20 28 69 65 20 |bit opcode% (ie |
00001bf0 77 69 74 68 20 64 69 72 65 63 74 69 6f 6e 0d 0b |with direction..|
00001c00 b8 18 f4 20 2b 20 62 69 74 20 61 73 20 6c 73 62 |... + bit as lsb|
00001c10 2c 20 62 32 30 29 0d 0b c2 0b ef 20 31 33 2c 31 |, b20)..... 13,1|
00001c20 30 0d 0b cc 05 e1 0d 0b d6 04 0d 0b e0 0b dd f2 |0...............|
00001c30 74 79 70 65 48 0d 0b ea 2d e7 20 28 69 6e 73 74 |typeH...-. (inst|
00001c40 25 20 80 20 31 3c 3c 32 30 29 3e 30 20 8c 20 f1 |% . 1<<20)>0 . .|
00001c50 20 22 4c 44 43 22 3b 20 8b 20 f1 20 22 53 54 43 | "LDC"; . . "STC|
00001c60 22 3b 0d 0b f4 10 f2 63 6f 6e 64 28 69 6e 73 74 |";.....cond(inst|
00001c70 25 29 0d 0b fe 20 e7 20 28 69 6e 73 74 25 20 80 |%)... . (inst% .|
00001c80 20 31 3c 3c 32 32 29 3e 30 20 8c 20 f1 20 22 4c | 1<<22)>0 . . "L|
00001c90 22 3b 0d 0c 08 08 f2 74 61 62 0d 0c 12 31 f1 20 |";.....tab...1. |
00001ca0 22 22 3b 28 69 6e 73 74 25 3e 3e 38 29 80 20 31 |"";(inst%>>8). 1|
00001cb0 35 3b 22 2c 43 22 3b 28 69 6e 73 74 25 3e 3e 31 |5;",C";(inst%>>1|
00001cc0 32 29 80 20 31 35 3b 22 2c 22 3b 0d 0c 1c 3e 69 |2). 15;",";...>i|
00001cd0 6e 73 74 31 25 3d 69 6e 73 74 25 20 80 20 26 46 |nst1%=inst% . &F|
00001ce0 46 46 46 46 30 30 30 20 3a 20 f4 20 73 61 62 6f |FFFF000 : . sabo|
00001cf0 74 61 67 65 20 69 74 20 69 6e 74 6f 20 4c 44 52 |tage it into LDR|
00001d00 2f 53 54 52 20 66 6f 72 6d 0d 0c 26 20 69 6e 73 |/STR form..& ins|
00001d10 74 25 3d 69 6e 73 74 31 25 2b 34 2a 28 69 6e 73 |t%=inst1%+4*(ins|
00001d20 74 25 20 80 20 26 46 46 29 0d 0c 30 1a 62 61 73 |t% . &FF)..0.bas|
00001d30 65 25 3d 28 69 6e 73 74 25 3e 3e 31 36 29 20 80 |e%=(inst%>>16) .|
00001d40 20 31 35 0d 0c 3a 26 e7 20 28 69 6e 73 74 25 20 | 15..:&. (inst% |
00001d50 80 20 31 3c 3c 32 34 29 3d 30 20 8c 20 f2 70 6f |. 1<<24)=0 . .po|
00001d60 73 74 20 8b 20 f2 70 72 65 0d 0c 44 0b ef 20 31 |st . .pre..D.. 1|
00001d70 33 2c 31 30 0d 0c 4e 05 e1 0d 0c 58 04 0d 0c 62 |3,10..N....X...b|
00001d80 0b dd f2 74 79 70 65 49 0d 0c 6c 0c f1 20 22 43 |...typeI..l.. "C|
00001d90 44 50 22 3b 0d 0c 76 10 f2 63 6f 6e 64 28 69 6e |DP";..v..cond(in|
00001da0 73 74 25 29 0d 0c 80 08 f2 74 61 62 0d 0c 8a 79 |st%).....tab...y|
00001db0 f1 20 22 22 3b 28 69 6e 73 74 25 3e 3e 38 29 20 |. "";(inst%>>8) |
00001dc0 80 20 31 35 3b 22 2c 22 3b 28 69 6e 73 74 25 3e |. 15;",";(inst%>|
00001dd0 3e 32 30 29 20 80 20 31 35 3b 22 2c 43 22 3b 28 |>20) . 15;",C";(|
00001de0 69 6e 73 74 25 3e 3e 31 32 29 80 20 31 35 3b 22 |inst%>>12). 15;"|
00001df0 2c 43 22 3b 28 69 6e 73 74 25 3e 3e 31 36 29 80 |,C";(inst%>>16).|
00001e00 20 31 35 3b 22 2c 43 22 3b 69 6e 73 74 25 20 80 | 15;",C";inst% .|
00001e10 20 31 35 3b 22 2c 22 3b 28 69 6e 73 74 25 3e 3e | 15;",";(inst%>>|
00001e20 35 29 80 20 37 0d 0c 94 05 e1 0d 0c 9e 04 0d 0c |5). 7...........|
00001e30 a8 0b dd f2 74 79 70 65 4a 0d 0c b2 11 f1 20 22 |....typeJ..... "|
00001e40 55 6e 64 65 66 69 6e 65 64 22 0d 0c bc 05 e1 0d |Undefined"......|
00001e50 0c c6 04 0d 0c d0 0b dd f2 74 79 70 65 4b 0d 0c |.........typeK..|
00001e60 da 11 f1 20 22 55 6e 64 65 66 69 6e 65 64 22 0d |... "Undefined".|
00001e70 0c e4 05 e1 0d 0c ee 04 0d 0c f8 17 dd f2 73 68 |..............sh|
00001e80 69 66 74 65 64 72 65 67 28 64 61 74 61 25 29 0d |iftedreg(data%).|
00001e90 0d 02 16 64 61 74 61 25 3d 64 61 74 61 25 20 80 |...data%=data% .|
00001ea0 20 26 46 46 46 0d 0d 0c 15 f1 20 22 52 22 3b 64 | &FFF..... "R";d|
00001eb0 61 74 61 25 20 80 20 31 35 3b 0d 0d 16 19 73 68 |ata% . 15;....sh|
00001ec0 69 66 74 25 3d 28 64 61 74 61 25 3e 3e 34 29 20 |ift%=(data%>>4) |
00001ed0 80 20 37 0d 0d 20 0f c8 8e 20 73 68 69 66 74 25 |. 7.. ... shift%|
00001ee0 20 ca 0d 0d 2a 07 c9 20 30 0d 0d 34 2c 62 79 25 | ...*.. 0..4,by%|
00001ef0 3d 28 64 61 74 61 25 3e 3e 37 29 3a e7 20 62 79 |=(data%>>7):. by|
00001f00 25 3e 30 20 8c 20 f1 20 22 2c 4c 53 4c 20 23 22 |%>0 . . ",LSL #"|
00001f10 3b 62 79 25 3b 0d 0d 3e 07 c9 20 31 0d 0d 48 18 |;by%;..>.. 1..H.|
00001f20 f1 20 22 2c 4c 53 4c 20 52 22 3b 64 61 74 61 25 |. ",LSL R";data%|
00001f30 3e 3e 38 3b 0d 0d 52 07 c9 20 32 0d 0d 5c 18 f1 |>>8;..R.. 2..\..|
00001f40 20 22 2c 4c 53 52 20 23 22 3b 64 61 74 61 25 3e | ",LSR #";data%>|
00001f50 3e 37 3b 0d 0d 66 07 c9 20 33 0d 0d 70 18 f1 20 |>7;..f.. 3..p.. |
00001f60 22 2c 4c 53 52 20 52 22 3b 64 61 74 61 25 3e 3e |",LSR R";data%>>|
00001f70 38 3b 0d 0d 7a 07 c9 20 34 0d 0d 84 18 f1 20 22 |8;..z.. 4..... "|
00001f80 2c 41 53 52 20 23 22 3b 64 61 74 61 25 3e 3e 37 |,ASR #";data%>>7|
00001f90 3b 0d 0d 8e 07 c9 20 35 0d 0d 98 18 f1 20 22 2c |;..... 5..... ",|
00001fa0 41 53 52 20 52 22 3b 64 61 74 61 25 3e 3e 38 3b |ASR R";data%>>8;|
00001fb0 0d 0d a2 07 c9 20 36 0d 0d ac 36 62 79 25 3d 64 |..... 6...6by%=d|
00001fc0 61 74 61 25 3e 3e 37 3a e7 20 62 79 25 3d 30 20 |ata%>>7:. by%=0 |
00001fd0 8c 20 f1 20 22 2c 52 52 58 22 3b 20 8b 20 f1 20 |. . ",RRX"; . . |
00001fe0 22 2c 52 4f 52 20 23 22 3b 62 79 25 3b 0d 0d b6 |",ROR #";by%;...|
00001ff0 07 c9 20 37 0d 0d c0 18 f1 20 22 2c 52 4f 52 20 |.. 7..... ",ROR |
00002000 52 22 3b 64 61 74 61 25 3e 3e 38 3b 0d 0d ca 05 |R";data%>>8;....|
00002010 cb 0d 0d d4 05 e1 0d 0d de 05 e1 0d 0d e8 04 0d |................|
00002020 0d f2 16 dd f2 69 6d 6d 65 64 64 61 74 61 28 64 |.....immeddata(d|
00002030 61 74 61 25 29 0d 0d fc 0a f1 20 22 23 22 3b 0d |ata%)..... "#";.|
00002040 0e 06 24 21 69 6d 6d 64 61 74 61 3d 64 61 74 61 |..$!immdata=data|
00002050 25 20 80 20 26 46 46 46 3a d6 20 69 6d 6d 73 70 |% . &FFF:. immsp|
00002060 61 63 65 0d 0e 10 05 e1 0d 0e 1a 04 0d 0e 24 11 |ace...........$.|
00002070 dd f2 64 65 73 74 28 64 61 74 61 25 29 0d 0e 2e |..dest(data%)...|
00002080 1d f1 20 22 52 22 3b 28 28 64 61 74 61 25 3e 3e |.. "R";((data%>>|
00002090 31 32 29 20 80 20 31 35 29 3b 0d 0e 38 0a f1 20 |12) . 15);..8.. |
000020a0 22 2c 22 3b 0d 0e 42 05 e1 0d 0e 4c 04 0d 0e 56 |",";..B....L...V|
000020b0 10 dd f2 6c 68 73 28 64 61 74 61 25 29 0d 0e 60 |...lhs(data%)..`|
000020c0 1d f1 20 22 52 22 3b 28 28 64 61 74 61 25 3e 3e |.. "R";((data%>>|
000020d0 31 36 29 20 80 20 31 35 29 3b 0d 0e 6a 0a f1 20 |16) . 15);..j.. |
000020e0 22 2c 22 3b 0d 0e 74 05 e1 0d 0e 7e 04 0d 0e 88 |",";..t....~....|
000020f0 15 dd f2 63 6f 6e 64 28 63 6f 6e 64 64 61 74 61 |...cond(conddata|
00002100 25 29 0d 0e 92 18 63 64 61 74 61 25 3d 63 6f 6e |%)....cdata%=con|
00002110 64 64 61 74 61 25 3e 3e 32 38 0d 0e 9c 0f c8 8e |ddata%>>28......|
00002120 20 63 64 61 74 61 25 20 ca 0d 0e a6 0f c9 20 30 | cdata% ...... 0|
00002130 3a f1 20 22 45 51 22 3b 0d 0e b0 0f c9 20 31 3a |:. "EQ";..... 1:|
00002140 f1 20 22 4e 45 22 3b 0d 0e ba 0f c9 20 32 3a f1 |. "NE";..... 2:.|
00002150 20 22 43 53 22 3b 0d 0e c4 0f c9 20 33 3a f1 20 | "CS";..... 3:. |
00002160 22 43 43 22 3b 0d 0e ce 0f c9 20 34 3a f1 20 22 |"CC";..... 4:. "|
00002170 4d 49 22 3b 0d 0e d8 0f c9 20 35 3a f1 20 22 50 |MI";..... 5:. "P|
00002180 4c 22 3b 0d 0e e2 0f c9 20 36 3a f1 20 22 56 53 |L";..... 6:. "VS|
00002190 22 3b 0d 0e ec 0f c9 20 37 3a f1 20 22 56 43 22 |";..... 7:. "VC"|
000021a0 3b 0d 0e f6 10 c9 20 2d 38 3a f1 20 22 48 49 22 |;..... -8:. "HI"|
000021b0 3b 0d 0f 00 10 c9 20 2d 37 3a f1 20 22 4c 53 22 |;..... -7:. "LS"|
000021c0 3b 0d 0f 0a 0f c9 20 2d 36 3a f1 22 47 45 22 3b |;..... -6:."GE";|
000021d0 0d 0f 14 0f c9 20 2d 35 3a f1 22 4c 54 22 3b 0d |..... -5:."LT";.|
000021e0 0f 1e 0f c9 20 2d 34 3a f1 22 47 54 22 3b 0d 0f |.... -4:."GT";..|
000021f0 28 0f c9 20 2d 33 3a f1 22 4c 45 22 3b 0d 0f 32 |(.. -3:."LE";..2|
00002200 24 c9 20 2d 32 3a f1 22 22 3b 3a f4 20 70 72 69 |$. -2:."";:. pri|
00002210 6e 74 20 6e 6f 74 68 69 6e 67 20 66 6f 72 20 41 |nt nothing for A|
00002220 4c 0d 0f 3c 0f c9 20 2d 31 3a f1 22 4e 56 22 3b |L..<.. -1:."NV";|
00002230 0d 0f 46 05 cb 0d 0f 50 05 e1 0d 0f 5a 04 0d 0f |..F....P....Z...|
00002240 64 11 dd f2 68 65 78 34 28 64 61 74 61 25 29 0d |d...hex4(data%).|
00002250 0f 6e 25 c8 99 20 22 4f 53 5f 43 6f 6e 76 65 72 |.n%.. "OS_Conver|
00002260 74 48 65 78 38 22 2c 64 61 74 61 25 2c 6d 69 73 |tHex8",data%,mis|
00002270 63 2c 31 36 0d 0f 78 17 c8 99 20 22 4f 53 5f 57 |c,16..x... "OS_W|
00002280 72 69 74 65 30 22 2c 6d 69 73 63 0d 0f 82 08 ef |rite0",misc.....|
00002290 20 33 32 0d 0f 8c 05 e1 0d 0f 96 04 0d 0f a0 10 | 32.............|
000022a0 dd a4 67 65 74 28 61 64 64 72 25 29 0d 0f aa 10 |..get(addr%)....|
000022b0 e7 20 68 61 6e 64 6c 65 3d 30 20 8c 0d 0f b4 0f |. handle=0 .....|
000022c0 6f 70 63 25 3d 21 61 64 64 72 25 0d 0f be 05 cc |opc%=!addr%.....|
000022d0 0d 0f c8 0e e3 20 46 25 3d 30 20 b8 20 33 0d 0f |..... F%=0 . 3..|
000022e0 d2 19 73 77 69 62 75 66 66 65 72 3f 46 25 3d 9a |..swibuffer?F%=.|
000022f0 23 68 61 6e 64 6c 65 0d 0f dc 05 ed 0d 0f e6 13 |#handle.........|
00002300 6f 70 63 25 3d 21 73 77 69 62 75 66 66 65 72 0d |opc%=!swibuffer.|
00002310 0f f0 05 cd 0d 0f fa 09 3d 6f 70 63 25 0d 10 04 |........=opc%...|
00002320 04 0d 10 0e 09 dd f2 74 61 62 0d 10 18 0e e7 20 |.......tab..... |
00002330 b1 3d 6f 70 20 8c 20 e1 0d 10 22 0f ef 20 33 32 |.=op . ...".. 32|
00002340 3a e5 20 8d 54 58 50 0d 10 2c 04 0d 10 36 11 dd |:. .TXP..,...6..|
00002350 f2 73 68 6f 77 28 63 68 61 72 25 29 0d 10 40 15 |.show(char%)..@.|
00002360 63 68 61 72 25 3d 63 68 61 72 25 20 80 20 32 35 |char%=char% . 25|
00002370 35 0d 10 4a 2d e7 20 63 68 61 72 25 3c 31 32 37 |5..J-. char%<127|
00002380 20 80 20 63 68 61 72 25 3e 33 31 20 8c 20 ef 20 | . char%>31 . . |
00002390 63 68 61 72 25 20 8b 20 ef 20 97 22 2e 22 0d 10 |char% . . ."."..|
000023a0 54 05 e1 0d 10 5e 04 0d 10 68 0b dd a4 67 65 74 |T....^...h...get|
000023b0 79 6e 0d 10 72 0b f5 20 6b 65 79 3d a5 0d 10 7c |yn..r.. key=...||
000023c0 11 6b 65 79 3d 6b 65 79 20 80 20 26 44 46 0d 10 |.key=key . &DF..|
000023d0 86 19 fd 20 6b 65 79 3d 97 22 4e 22 20 84 20 6b |... key=."N" . k|
000023e0 65 79 3d 97 22 59 22 0d 10 90 13 ef 20 31 32 37 |ey=."Y"..... 127|
000023f0 2c 6b 65 79 2c 31 30 2c 31 33 0d 10 9a 18 e7 20 |,key,10,13..... |
00002400 6b 65 79 3d 97 22 59 22 20 8c 20 3d b9 20 8b 20 |key=."Y" . =. . |
00002410 3d a3 0d 10 a4 04 0d 10 ae 21 f4 20 2a 20 54 68 |=........!. * Th|
00002420 69 73 20 69 73 20 74 68 65 20 65 72 72 6f 72 20 |is is the error |
00002430 68 61 6e 64 6c 65 72 0d 10 b8 07 ef 20 33 0d 10 |handler..... 3..|
00002440 c2 14 e7 20 73 70 6f 6f 6c 20 8c 20 2a 53 50 4f |... spool . *SPO|
00002450 4f 4c 0d 10 cc 1a e7 20 68 61 6e 64 6c 65 3e 30 |OL..... handle>0|
00002460 20 8c 20 d9 20 23 68 61 6e 64 6c 65 0d 10 d6 2b | . . #handle...+|
00002470 f1 20 27 22 44 69 73 61 73 73 65 6d 62 6c 79 20 |. '"Disassembly |
00002480 74 65 72 6d 69 6e 61 74 65 64 20 62 79 20 65 72 |terminated by er|
00002490 72 6f 72 20 3a 22 3b 0d 10 e0 15 f6 3a f1 20 22 |ror :";.....:. "|
000024a0 20 61 74 20 6c 69 6e 65 20 22 3b 9e 0d 10 ea 05 | at line ";.....|
000024b0 e0 0d ff |...|
000024b3 
.