; Date: Sat May 02 09:27:47 2020
;
; CPU: Intel 8048 (MCS-48 family)
;
;
;
org 00000H
;
0000 L0000:
0000 : E5 " " sel mb0
0001 : 04 0B " " jmp L000B
;
0003 : E5 " " sel mb0
0004 : 00 " " nop
0005 : 04 00 " " jmp L0000
;
0007 : E5 " " sel mb0
0008 : 04 00 " " jmp L0000
000A L000A:
000A : 93 " " retr
;
000B L000B:
000B : 8A FF " " orl p2,#0FFH
000D : 15 " " dis i
000E : 35 "5" dis tcnti
000F : 65 "e" stop tcnt
0010 : A5 " " clr f1
0011 : 14 0A " " call L000A
0013 : 23 0F "# " mov a,#00FH
0015 : 39 "9" outl p1,a
0016 : 27 "'" clr a
0017 : D7 " " mov psw,a
0018 : 62 "b" mov t,a
0019 : B8 28 " (" mov r0,#028H
001B L001B:
001B : A0 " " mov @r0,a
001C : E8 1B " " djnz r0,L001B
001E L001E:
001E : D5 " " sel rb1
001F : BE 22 " "" mov r6,#022H
0021 : 86 27 " '" jni L0027
0023 : BD 02 " " mov r5,#002H
0025 : 04 29 " )" jmp L0029
;
0027 L0027:
0027 : BD 05 " " mov r5,#005H
0029 L0029:
0029 : FF " " mov a,r7
002A : 53 7D "S}" anl a,#07DH
002C : AF " " mov r7,a
002D L002D:
002D : C5 " " sel rb0
002E : B8 26 " &" mov r0,#026H
0030 : B0 2C " ," mov @r0,#02CH
0032 : 18 " " inc r0
0033 : B0 30 " 0" mov @r0,#030H
0035 : 18 " " inc r0
0036 : B0 30 " 0" mov @r0,#030H
0038 : 18 " " inc r0
0039 : B0 4F " O" mov @r0,#04FH
003B : 18 " " inc r0
003C : B0 4F " O" mov @r0,#04FH
003E : 18 " " inc r0
003F : 23 FF "# " mov a,#0FFH
0041 : 90 " " movx @r0,a
0042 : B9 55 " U" mov r1,#055H
0044 L0044:
0044 : B0 FF " " mov @r0,#0FFH
0046 : 18 " " inc r0
0047 : E9 44 " D" djnz r1,L0044
0049 : BA 11 " " mov r2,#011H
004B : A5 " " clr f1
004C : B5 " " cpl f1
004D L004D:
004D : 25 "%" en tcnti
004E : 45 "E" strt cnt
004F : C5 " " sel rb0
0050 : 56 59 "VY" jt1 L0059
0052 : 76 5A "vZ" jf1 L005A
0054 : 42 "B" mov a,t
0055 : 96 5B " [" jnz L005B
0057 : 84 13 " " jmp L0413
;
0059 L0059:
0059 : A5 " " clr f1
005A L005A:
005A : B5 " " cpl f1
005B L005B:
005B : 27 "'" clr a
005C : 62 "b" mov t,a
005D : D5 " " sel rb1
005E : FF " " mov a,r7
005F : C5 " " sel rb0
0060 : F2 65 " e" jb7 L0065
0062 : 1F " " inc r7
0063 L0063:
0063 : 04 4D " M" jmp L004D
;
0065 L0065:
0065 : CA " " dec r2
0066 : FA " " mov a,r2
0067 : D3 FF " " xrl a,#0FFH
0069 : 96 6F " o" jnz L006F
006B : BA 11 " " mov r2,#011H
006D : 44 55 "DU" jmp L0255
;
006F L006F:
006F : FA " " mov a,r2
0070 : D3 10 " " xrl a,#010H
0072 : C6 76 " v" jz L0076
0074 : 24 00 "$ " jmp L0100
;
0076 L0076:
0076 : D5 " " sel rb1
0077 : 26 7E "&~" jnt0 L007E
0079 : FF " " mov a,r7
007A : 72 97 "r " jb3 L0097
007C : 04 AE " " jmp L00AE
;
007E L007E:
007E : FF " " mov a,r7
007F : 72 AE "r " jb3 L00AE
0081 : 36 AE "6 " jt0 L00AE
0083 : 43 08 "C " orl a,#008H
0085 : AF " " mov r7,a
0086 : FD " " mov a,r5
0087 : D3 03 " " xrl a,#003H
0089 : C6 93 " " jz L0093
008B : 0A " " in a,p2
008C : 37 "7" cpl a
008D : 32 AE "2 " jb1 L00AE
008F : 23 3A "#:" mov a,#03AH
0091 : 04 AB " " jmp L00AB
;
0093 L0093:
0093 : 23 7C "#|" mov a,#07CH
0095 : 04 AB " " jmp L00AB
;
0097 L0097:
0097 : 26 AE "& " jnt0 L00AE
0099 : 53 F7 "S " anl a,#0F7H
009B : AF " " mov r7,a
009C : FD " " mov a,r5
009D : D3 03 " " xrl a,#003H
009F : C6 A9 " " jz L00A9
00A1 : 0A " " in a,p2
00A2 : 37 "7" cpl a
00A3 : 32 AE "2 " jb1 L00AE
00A5 : 23 BA "# " mov a,#0BAH
00A7 : 04 AB " " jmp L00AB
;
00A9 L00A9:
00A9 : 23 FC "# " mov a,#0FCH
00AB L00AB:
00AB : A8 " " mov r0,a
00AC : F4 73 " s" call L0773
00AE L00AE:
00AE : C5 " " sel rb0
00AF : B9 08 " " mov r1,#008H
00B1 : 0A " " in a,p2
00B2 : AC " " mov r4,a
00B3 L00B3:
00B3 : 0A " " in a,p2
00B4 : DC " " xrl a,r4
00B5 : 96 AE " " jnz L00AE
00B7 : E9 B3 " " djnz r1,L00B3
00B9 : 24 02 "$ " jmp L0102
;
00BB L00BB:
00BB : 23 FF "# " mov a,#0FFH
00BD : 90 " " movx @r0,a
00BE : 09 " " in a,p1
00BF : 53 F0 "S " anl a,#0F0H
00C1 : 4A "J" orl a,r2
00C2 : 39 "9" outl p1,a
00C3 L00C3:
00C3 : B9 08 " " mov r1,#008H
00C5 : 08 " " ins a,bus
00C6 : AC " " mov r4,a
00C7 L00C7:
00C7 : 08 " " ins a,bus
00C8 : DC " " xrl a,r4
00C9 : 96 C3 " " jnz L00C3
00CB : E9 C7 " " djnz r1,L00C7
00CD : 83 " " ret
;
00CE : 00 " " nop
00CF : 00 " " nop
00D0 : 00 " " nop
00D1 : 00 " " nop
00D2 : 00 " " nop
00D3 : 00 " " nop
00D4 : 00 " " nop
00D5 : 00 " " nop
00D6 : 00 " " nop
00D7 : 00 " " nop
00D8 : 00 " " nop
00D9 : 00 " " nop
00DA : 00 " " nop
00DB : 00 " " nop
00DC : 00 " " nop
00DD : 00 " " nop
00DE : 00 " " nop
00DF : 00 " " nop
00E0 : 00 " " nop
00E1 : 00 " " nop
00E2 : 00 " " nop
00E3 : 00 " " nop
00E4 : 00 " " nop
00E5 : 00 " " nop
00E6 : 00 " " nop
00E7 : 00 " " nop
00E8 : 00 " " nop
00E9 : 00 " " nop
00EA : 00 " " nop
00EB : 00 " " nop
00EC : 00 " " nop
00ED : 00 " " nop
00EE : 00 " " nop
00EF : 00 " " nop
00F0 : 00 " " nop
00F1 : 00 " " nop
00F2 : 00 " " nop
00F3 : 00 " " nop
00F4 : 00 " " nop
00F5 : 00 " " nop
00F6 : 00 " " nop
00F7 : 00 " " nop
00F8 : 00 " " nop
00F9 : 00 " " nop
00FA : 00 " " nop
00FB : 00 " " nop
00FC : 04 00 " " jmp L0000
00FE : 04 00 " " jmp L0000
;
0100 L0100:
0100 : 14 BB " " call L00BB
0102 L0102:
0102 : FA " " mov a,r2
0103 : 03 6F " o" add a,#06FH
0105 : A8 " " mov r0,a
0106 : FC " " mov a,r4
0107 : 20 " " xch a,@r0
0108 : AD " " mov r5,a
0109 : DC " " xrl a,r4
010A : C6 22 " "" jz L0122
010C : 5D "]" anl a,r5
010D : C6 19 " " jz L0119
010F : 85 " " clr f0
0110 L0110:
0110 : BB 08 " " mov r3,#008H
0112 L0112:
0112 : E7 " " rl a
0113 : 12 25 " %" jb0 L0125
0115 L0115:
0115 : EB 12 " " djnz r3,L0112
0117 : B6 22 " "" jf0 L0122
0119 L0119:
0119 : FD " " mov a,r5
011A : DC " " xrl a,r4
011B : 5C "\" anl a,r4
011C : C6 22 " "" jz L0122
011E : 85 " " clr f0
011F : 95 " " cpl f0
0120 : 24 10 "$ " jmp L0110
0122 L0122:
0122 : 04 4D " M" jmp L004D
;
0124 : 00 " " nop
0125 L0125:
0125 : AE " " mov r6,a
0126 : B6 87 " " jf0 L0187
0128 : B9 29 " )" mov r1,#029H
012A : F1 " " mov a,@r1
012B : D3 6F " o" xrl a,#06FH
012D : C6 82 " " jz L0182
012F : FA " " mov a,r2
0130 : D3 10 " " xrl a,#010H
0132 : 96 71 " q" jnz L0171
0134 : D5 " " sel rb1
0135 : FD " " mov a,r5
0136 : C5 " " sel rb0
0137 : D3 03 " " xrl a,#003H
0139 : C6 64 " d" jz L0164
013B : FB " " mov a,r3
013C : 07 " " dec a
013D : 43 70 "Cp" orl a,#070H
013F : E3 " " movp3 a,@a
0140 : A8 " " mov r0,a
0141 : D3 3A " :" xrl a,#03AH
0143 : 96 4A " J" jnz L014A
0145 : 26 84 "& " jnt0 L0184
0147 L0147:
0147 : F8 " " mov a,r0
0148 : 24 6D "$m" jmp L016D
;
014A L014A:
014A : F8 " " mov a,r0
014B : D3 38 " 8" xrl a,#038H
014D : 96 58 " X" jnz L0158
014F : B9 7F " " mov r1,#07FH
0151 : F1 " " mov a,@r1
0152 : D2 47 " G" jb6 L0147
0154 : 52 47 "RG" jb2 L0147
0156 : 24 84 "$ " jmp L0184
;
0158 L0158:
0158 : F8 " " mov a,r0
0159 : D3 36 " 6" xrl a,#036H
015B : 96 47 " G" jnz L0147
015D : 0A " " in a,p2
015E : F2 47 " G" jb7 L0147
0160 : 72 47 "rG" jb3 L0147
0162 : 24 84 "$ " jmp L0184
;
0164 L0164:
0164 : FB " " mov a,r3
0165 : 07 " " dec a
0166 : 43 78 "Cx" orl a,#078H
0168 : E3 " " movp3 a,@a
0169 : 17 " " inc a
016A : C6 84 " " jz L0184
016C : 07 " " dec a
016D L016D:
016D : F4 73 " s" call L0773
016F : 24 84 "$ " jmp L0184
;
0171 L0171:
0171 : B9 27 " '" mov r1,#027H
0173 : F1 " " mov a,@r1
0174 : A8 " " mov r0,a
0175 : D3 4F " O" xrl a,#04FH
0177 : C6 82 " " jz L0182
0179 : FA " " mov a,r2
017A : 47 "G" swap a
017B : 53 F0 "S " anl a,#0F0H
017D : 4B "K" orl a,r3
017E : A0 " " mov @r0,a
017F : 11 " " inc @r1
0180 : 24 84 "$ " jmp L0184
;
0182 L0182:
0182 : F4 49 " I" call L0749
0184 L0184:
0184 : FE " " mov a,r6
0185 : 24 15 "$ " jmp L0115
;
0187 L0187:
0187 : B9 29 " )" mov r1,#029H
0189 : F1 " " mov a,@r1
018A : D3 6F " o" xrl a,#06FH
018C : 96 9F " " jnz L019F
018E L018E:
018E : FA " " mov a,r2
018F : 03 6F " o" add a,#06FH
0191 : A8 " " mov r0,a
0192 : FB " " mov a,r3
0193 : A9 " " mov r1,a
0194 : 27 "'" clr a
0195 : 97 " " clr c
0196 : A7 " " cpl c
0197 L0197:
0197 : F7 " " rlc a
0198 : E9 97 " " djnz r1,L0197
019A : 37 "7" cpl a
019B : 50 "P" anl a,@r0
019C : A0 " " mov @r0,a
019D : 24 84 "$ " jmp L0184
;
019F L019F:
019F : FA " " mov a,r2
01A0 : D3 10 " " xrl a,#010H
01A2 : 96 A7 " " jnz L01A7
01A4 : 44 00 "D " jmp L0200
;
01A6 : 00 " " nop
01A7 L01A7:
01A7 : B8 30 " 0" mov r0,#030H
01A9 L01A9:
01A9 : FA " " mov a,r2
01AA : 47 "G" swap a
01AB : 53 F0 "S " anl a,#0F0H
01AD : 4B "K" orl a,r3
01AE : D0 " " xrl a,@r0
01AF : C6 B8 " " jz L01B8
01B1 : 18 " " inc r0
01B2 : B9 27 " '" mov r1,#027H
01B4 : F1 " " mov a,@r1
01B5 : D8 " " xrl a,r0
01B6 : 96 A9 " " jnz L01A9
01B8 L01B8:
01B8 : F4 59 " Y" call L0759
01BA : B9 28 " (" mov r1,#028H
01BC : F1 " " mov a,@r1
01BD : A8 " " mov r0,a
01BE : D3 30 " 0" xrl a,#030H
01C0 : C6 C5 " " jz L01C5
01C2 : F8 " " mov a,r0
01C3 : 07 " " dec a
01C4 : A1 " " mov @r1,a
01C5 L01C5:
01C5 : B8 25 " %" mov r0,#025H
01C7 : F0 " " mov a,@r0
01C8 : 37 "7" cpl a
01C9 : 12 DA " " jb0 L01DA
01CB : FA …
Showing first 20,000 characters of 94,043 total.
Open the full document →
