M0110a 341 0322a.Txt
M0110a 341 0322a.Txt
Macintosh · TXT
| Filename | m0110a_341-0322a.txt |
|---|---|
| Size | 0.05 MB |
| Subsection | keyboard / M0110A |
| Downloads | 3 |
Enjoying MacTrove?
Anonymous downloads are free and unlimited.
Create a free account to track favorites,
contribute metadata corrections, and join the
community chat.
Contents
; Date: Tue May 05 18:01:12 2020
;
; CPU: Intel 8048 (MCS-48 family)
;
;
;
org 00000H
;
0000 L0000:
0000 : E5 " " sel mb0
0001 : 04 1A " " jmp L001A
;
0003 : E5 " " sel mb0
0004 : 04 1A " " jmp L001A
;
0006 : 00 " " nop
0007 : E5 " " sel mb0
0008 : 14 32 " 2" call L0032
000A : 76 00 "v " jf1 L0000
000C : B5 " " cpl f1
000D : D5 " " sel rb1
000E : B8 29 " )" mov r0,#029H
0010 : A0 " " mov @r0,a
0011 : 23 5D "#]" mov a,#05DH
0013 : 62 "b" mov t,a
0014 : FC " " mov a,r4
0015 : C6 18 " " jz L0018
0017 : CC " " dec r4
0018 L0018:
0018 : 04 34 " 4" jmp L0034
;
001A L001A:
001A : 15 " " dis i
001B : 85 " " clr f0
001C : A5 " " clr f1
001D : C5 " " sel rb0
001E : 23 FF "# " mov a,#0FFH
0020 : 39 "9" outl p1,a
0021 : 3A ":" outl p2,a
0022 : 27 "'" clr a
0023 : D7 " " mov psw,a
0024 : B8 3F " ?" mov r0,#03FH
0026 L0026:
0026 : A0 " " mov @r0,a
0027 : E8 26 " &" djnz r0,L0026
0029 : 14 32 " 2" call L0032
002B : 23 5D "#]" mov a,#05DH
002D : 62 "b" mov t,a
002E : 25 "%" en tcnti
002F : 55 "U" strt t
0030 : 24 02 "$ " jmp L0102
0032 L0032:
0032 : 93 " " retr
;
0033 : 00 " " nop
0034 L0034:
0034 : B8 28 " (" mov r0,#028H
0036 : F0 " " mov a,@r0
0037 : 96 5F " _" jnz L005F
0039 : 8A 80 " " orl p2,#080H
003B : 0A " " in a,p2
003C : 53 80 "S " anl a,#080H
003E : 96 DE " " jnz L00DE
0040 : BE 08 " " mov r6,#008H
0042 L0042:
0042 : 9A BF " " anl p2,#0BFH
0044 : BF 23 " #" mov r7,#023H
0046 L0046:
0046 : EF 46 " F" djnz r7,L0046
0048 : 8A 40 " @" orl p2,#040H
004A : BF 0D " " mov r7,#00DH
004C L004C:
004C : EF 4C " L" djnz r7,L004C
004E : 0A " " in a,p2
004F : 53 80 "S " anl a,#080H
0051 : 40 "@" orl a,@r0
0052 : E7 " " rl a
0053 : A0 " " mov @r0,a
0054 : BF 17 " " mov r7,#017H
0056 L0056:
0056 : EF 56 " V" djnz r7,L0056
0058 : EE 42 " B" djnz r6,L0042
005A : B8 28 " (" mov r0,#028H
005C : A0 " " mov @r0,a
005D : BC 0C " " mov r4,#00CH
005F L005F:
005F : B8 28 " (" mov r0,#028H
0061 : F0 " " mov a,@r0
0062 : D3 14 " " xrl a,#014H
0064 : C6 79 " y" jz L0079
0066 : F0 " " mov a,@r0
0067 : D3 10 " " xrl a,#010H
0069 : C6 7F " " jz L007F
006B : F0 " " mov a,@r0
006C : D3 16 " " xrl a,#016H
006E : C6 8F " " jz L008F
0070 : F0 " " mov a,@r0
0071 : D3 36 " 6" xrl a,#036H
0073 : C6 95 " " jz L0095
0075 : B0 00 " " mov @r0,#000H
0077 : 04 DE " " jmp L00DE
;
0079 L0079:
0079 : 54 9B "T " call L029B
007B : C6 8B " " jz L008B
007D : 04 9B " " jmp L009B
;
007F L007F:
007F : FC " " mov a,r4
0080 : C6 8B " " jz L008B
0082 : 54 9B "T " call L029B
0084 : 96 9B " " jnz L009B
0086 : FB " " mov a,r3
0087 : C6 DE " " jz L00DE
0089 : 04 9B " " jmp L009B
;
008B L008B:
008B : BB 7B " {" mov r3,#07BH
008D : 04 9B " " jmp L009B
;
008F L008F:
008F : 85 " " clr f0
0090 : 95 " " cpl f0
0091 : BB 0B " " mov r3,#00BH
0093 : 04 9B " " jmp L009B
;
0095 L0095:
0095 : 85 " " clr f0
0096 : 95 " " cpl f0
0097 : BB 7D " }" mov r3,#07DH
0099 : 04 9B " " jmp L009B
;
009B L009B:
009B : 8A 80 " " orl p2,#080H
009D : 0A " " in a,p2
009E : 53 80 "S " anl a,#080H
00A0 : 96 A7 " " jnz L00A7
00A2 : FC " " mov a,r4
00A3 : 96 DE " " jnz L00DE
00A5 : 04 D8 " " jmp L00D8
;
00A7 L00A7:
00A7 : FB " " mov a,r3
00A8 : 96 AC " " jnz L00AC
00AA : 54 A0 "T " call L02A0
00AC L00AC:
00AC : BE 08 " " mov r6,#008H
00AE L00AE:
00AE : F7 " " rlc a
00AF : F6 C6 " " jc L00C6
00B1 : 9A 3F " ?" anl p2,#03FH
00B3 : BF 19 " " mov r7,#019H
00B5 L00B5:
00B5 : EF B5 " " djnz r7,L00B5
00B7 : 8A 40 " @" orl p2,#040H
00B9 : BF 1B " " mov r7,#01BH
00BB L00BB:
00BB : EF BB " " djnz r7,L00BB
00BD : EE AE " " djnz r6,L00AE
00BF : B6 00 " " jf0 L0000
00C1 : 04 D8 " " jmp L00D8
;
00C3 : 00 " " nop
00C4 : 04 00 " " jmp L0000
;
00C6 L00C6:
00C6 : 8A 80 " " orl p2,#080H
00C8 : 9A BF " " anl p2,#0BFH
00CA : BF 19 " " mov r7,#019H
00CC L00CC:
00CC : EF CC " " djnz r7,L00CC
00CE : 8A 40 " @" orl p2,#040H
00D0 : BF 19 " " mov r7,#019H
00D2 L00D2:
00D2 : EF D2 " " djnz r7,L00D2
00D4 : EE AE " " djnz r6,L00AE
00D6 : B6 00 " " jf0 L0000
00D8 L00D8:
00D8 : 27 "'" clr a
00D9 : AB " " mov r3,a
00DA : B8 28 " (" mov r0,#028H
00DC : A0 " " mov @r0,a
00DD : AC " " mov r4,a
00DE L00DE:
00DE : C7 " " mov a,psw
00DF : 07 " " dec a
00E0 : 53 07 "S " anl a,#007H
00E2 : 03 FD " " add a,#0FDH
00E4 : F6 00 " " jc L0000
00E6 : 03 03 " " add a,#003H
00E8 : E7 " " rl a
00E9 : 03 09 " " add a,#009H
00EB : A8 " " mov r0,a
00EC : F0 " " mov a,@r0
00ED : 53 0F "S " anl a,#00FH
00EF : 03 FD " " add a,#0FDH
00F1 : F6 00 " " jc L0000
00F3 : 25 "%" en tcnti
00F4 : B8 29 " )" mov r0,#029H
00F6 : F0 " " mov a,@r0
00F7 : C5 " " sel rb0
00F8 : 93 " " retr
;
00F9 : 00 " " nop
00FA : 00 " " nop
00FB : 00 " " nop
00FC : 00 " " nop
00FD : 00 " " nop
00FE : 04 00 " " jmp L0000
0100 : 04 00 " " jmp L0000
;
0102 L0102:
0102 : A5 " " clr f1
0103 : C5 " " sel rb0
0104 : B9 35 " 5" mov r1,#035H
0106 : 25 "%" en tcnti
0107 : B8 2A " *" mov r0,#02AH
0109 : BF FF " " mov r7,#0FFH
010B : BA 01 " " mov r2,#001H
010D : BB 01 " " mov r3,#001H
010F : D5 " " sel rb1
0110 : BD 01 " " mov r5,#001H
0112 : C5 " " sel rb0
0113 : 24 1C "$ " jmp L011C
;
0115 : 00 " " nop
0116 : 04 00 " " jmp L0000
;
0118 L0118:
0118 : C5 " " sel rb0
0119 : FA " " mov a,r2
011A : 12 8D " " jb0 L018D
011C L011C:
011C : 00 " " nop
011D : A5 " " clr f1
011E : 14 32 " 2" call L0032
0120 : 25 "%" en tcnti
0121 : 55 "U" strt t
0122 : 1F " " inc r7
0123 : D5 " " sel rb1
0124 : FD " " mov a,r5
0125 : 52 2E "R." jb2 L012E
0127 : 12 3A " :" jb0 L013A
0129 : 32 4D "2M" jb1 L014D
012B : 00 " " nop
012C : 04 00 " " jmp L0000
;
012E L012E:
012E : C5 " " sel rb0
012F : FB " " mov a,r3
0130 : E7 " " rl a
0131 : AB " " mov r3,a
0132 : D2 02 " " jb6 L0102
0134 : 0A " " in a,p2
0135 : 5B "[" anl a,r3
0136 : C6 6E " n" jz L016E
0138 : 24 5B "$[" jmp L015B
;
013A L013A:
013A : C5 " " sel rb0
013B : 23 FF "# " mov a,#0FFH
013D : 90 " " movx @r0,a
013E : FB " " mov a,r3
013F : 37 "7" cpl a
0140 : 39 "9" outl p1,a
0141 : 08 " " ins a,bus
0142 : 37 "7" cpl a
0143 : 5A "Z" anl a,r2
0144 : 89 FF " " orl p1,#0FFH
0146 : 96 6E " n" jnz L016E
0148 : 24 5B "$[" jmp L015B
;
014A : 00 " " nop
014B : 04 00 " " jmp L0000
;
014D L014D:
014D : C5 " " sel rb0
014E : 23 FF "# " mov a,#0FFH
0150 : 90 " " movx @r0,a
0151 : FB " " mov a,r3
0152 : 37 "7" cpl a
0153 : 3A ":" outl p2,a
0154 : 08 " " ins a,bus
0155 : 37 "7" cpl a
0156 : 5A "Z" anl a,r2
0157 : 8A FF " " orl p2,#0FFH
0159 : 96 6E " n" jnz L016E
015B L015B:
015B : FA " " mov a,r2
015C : 50 "P" anl a,@r0
015D : C6 65 " e" jz L0165
015F : FA " " mov a,r2
0160 : 37 "7" cpl a
0161 : 50 "P" anl a,@r0
0162 : A0 " " mov @r0,a
0163 : 24 88 "$ " jmp L0188
;
0165 L0165:
0165 : FA " " mov a,r2
0166 : 51 "Q" anl a,@r1
0167 : 96 DF " " jnz L01DF
0169 : 24 88 "$ " jmp L0188
;
016B : 00 " " nop
016C L016C:
016C : 04 00 " " jmp L0000
;
016E L016E:
016E : FF " " mov a,r7
016F : E3 " " movp3 a,@a
0170 : 92 79 " y" jb4 L0179
0172 : FE " " mov a,r6
0173 : 32 88 "2 " jb1 L0188
0175 : 03 FD " " add a,#0FDH
0177 : F6 6C " l" jc L016C
0179 L0179:
0179 : FA " " mov a,r2
017A : 50 "P" anl a,@r0
017B : 96 82 " " jnz L0182
017D : FA " " mov a,r2
017E : 40 "@" orl a,@r0
017F : A0 " " mov @r0,a
0180 : 24 88 "$ " jmp L0188
;
0182 L0182:
0182 : FA " " mov a,r2
0183 : 51 "Q" anl a,@r1
0184 : C6 BB " " jz L01BB
0186 : 24 88 "$ " jmp L0188
;
0188 L0188:
0188 : FA " " mov a,r2
0189 : E7 " " rl a
018A : AA " " mov r2,a
018B : 24 18 "$ " jmp L0118
;
018D L018D:
018D : 14 32 " 2" call L0032
018F : C5 " " sel rb0
0190 : 18 " " inc r0
0191 : 19 " " inc r1
0192 : D5 " " sel rb1
0193 : FD " " mov a,r5
0194 : C5 " " sel rb0
0195 : 32 A1 "2 " jb1 L01A1
0197 : FB " " mov a,r3
0198 : E7 " " rl a
0199 : AB " " mov r3,a
019A : 12 B2 " " jb0 L01B2
019C : 24 1C "$ " jmp L011C
;
019E : 00 " " nop
019F : 04 00 " " jmp L0000
;
01A1 L01A1:
01A1 : FB " " mov a,r3
01A2 : E7 " " rl a
01A3 : AB " " mov r3,a
01A4 : 52 A8 "R " jb2 L01A8
01A6 : 24 1C "$ " jmp L011C
;
01A8 L01A8:
01A8 : D5 " " sel rb1
01A9 : BD 04 " " mov r5,#004H
01AB : 00 " " nop
01AC : C5 " " sel rb0
01AD : FB " " mov a,r3
01AE : 77 "w" rr a
01AF : AB " " mov r3,a
01B0 : 24 1C "$ " jmp L011C
;
01B2 L01B2:
01B2 : D5 " " sel rb1
01B3 : BD 02 " " mov r5,#002H
01B5 : C5 " " sel rb0
01B6 : 24 1C "$ " jmp L011C
;
01B8 : 00 " " nop
01B9 : 04 00 " " jmp L0000
;
01BB L01BB:
01BB : FF " " mov a,r7
01BC : E3 " " movp3 a,@a
01BD : C6 88 " " jz L0188
01BF : 53 0A "S " anl a,#00AH
01C1 : C6 E1 " " jz L01E1
01C3 : 37 "7" cpl a
01C4 : 72 E1 "r " jb3 L01E1
01C6 : 54 7E "T~" call L027E
01C8 : 03 FD " " add a,#0FDH
01CA : E6 88 " " jnc L0188
01CC : BC 71 " q" mov r4,#071H
01CE : 54 87 "T " call L0287
01D0 L01D0:
01D0 : 54 7E "T~" call L027E
01D2 : 03 FE " " add a,#0FEH
01D4 : E6 88 " " jnc L0188
01D6 : BC 79 " y" mov r4,#079H
01D8 : 54 87 "T " call L0287
01DA : 44 1D "D " jmp L021D
…
Showing first 20,000 characters of 47,641 total. Open the full document →