341 0875A INS80C48 6MHz Mitsumi 1991.Txt
341 0875A INS80C48 6MHz Mitsumi 1991.Txt
ADB · 1991 · TXT
| Filename | 341-0875A_INS80C48_6MHz_Mitsumi_1991.txt |
|---|---|
| Size | 0.04 MB |
| Year | 1991 |
| Subsection | apple / M0487_Apple_Keyboard_II |
| Downloads | 8 |
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: Fri May 01 00:16:18 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 : 23 7F "# " mov a,#07FH
000D : 3A ":" outl p2,a
000E : 15 " " dis i
000F : 35 "5" dis tcnti
0010 : 65 "e" stop tcnt
0011 : A5 " " clr f1
0012 : 14 0A " " call L000A
0014 : 89 FF " " orl p1,#0FFH
0016 : 27 "'" clr a
0017 : D7 " " mov psw,a
0018 : 62 "b" mov t,a
0019 : B8 3F " ?" mov r0,#03FH
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 : 00 " " nop
0022 : 00 " " nop
0023 : 00 " " nop
0024 : 00 " " nop
0025 : 00 " " nop
0026 L0026:
0026 : 00 " " nop
0027 : 00 " " nop
0028 : 00 " " nop
0029 : 00 " " nop
002A : 36 3A "6:" jt0 L003A
002C : BD 08 " " mov r5,#008H
002E : 04 3C " <" jmp L003C
;
0030 : 00 " " nop
0031 : 00 " " nop
0032 : 00 " " nop
0033 : 00 " " nop
0034 : 00 " " nop
0035 : 00 " " nop
0036 : 00 " " nop
0037 : 00 " " nop
0038 : 00 " " nop
0039 : 00 " " nop
003A L003A:
003A : BD 09 " " mov r5,#009H
003C L003C:
003C : C5 " " sel rb0
003D : 23 FF "# " mov a,#0FFH
003F : B8 3F " ?" mov r0,#03FH
0041 : B9 17 " " mov r1,#017H
0043 L0043:
0043 : A0 " " mov @r0,a
0044 : C8 " " dec r0
0045 : E9 43 " C" djnz r1,L0043
0047 : 18 " " inc r0
0048 : 90 " " movx @r0,a
0049 : AC " " mov r4,a
004A : BA 01 " " mov r2,#001H
004C : BF 00 " " mov r7,#000H
004E : A5 " " clr f1
004F : B5 " " cpl f1
0050 : D5 " " sel rb1
0051 : BA 00 " " mov r2,#000H
0053 : FF " " mov a,r7
0054 : 53 FD "S " anl a,#0FDH
0056 : AF " " mov r7,a
0057 L0057:
0057 : 25 "%" en tcnti
0058 : 45 "E" strt cnt
0059 : 56 62 "Vb" jt1 L0062
005B : 76 63 "vc" jf1 L0063
005D : 42 "B" mov a,t
005E : 96 64 " d" jnz L0064
0060 : 24 03 "$ " jmp L0103
;
0062 L0062:
0062 : A5 " " clr f1
0063 L0063:
0063 : B5 " " cpl f1
0064 L0064:
0064 : 27 "'" clr a
0065 : 62 "b" mov t,a
0066 : D5 " " sel rb1
0067 : FF " " mov a,r7
0068 : C5 " " sel rb0
0069 : F2 6E " n" jb7 L006E
006B : 1D " " inc r5
006C : 04 57 " W" jmp L0057
;
006E L006E:
006E : FC " " mov a,r4
006F : 37 "7" cpl a
0070 : C6 74 " t" jz L0074
0072 : 44 4F "DO" jmp L024F
;
0074 L0074:
0074 : EA 82 " " djnz r2,L0082
0076 : BA 58 " X" mov r2,#058H
0078 : B9 3F " ?" mov r1,#03FH
007A : BB 01 " " mov r3,#001H
007C : 04 8A " " jmp L008A
;
007E L007E:
007E : C9 " " dec r1
007F : C9 " " dec r1
0080 : 04 8A " " jmp L008A
;
0082 L0082:
0082 : 1D " " inc r5
0083 : FB " " mov a,r3
0084 : C6 00 " " jz L0000
0086 : E7 " " rl a
0087 : AB " " mov r3,a
0088 : 12 7E " ~" jb0 L007E
008A L008A:
008A : 23 FF "# " mov a,#0FFH
008C : 90 " " movx @r0,a
008D : F9 " " mov a,r1
008E : 77 "w" rr a
008F : 53 0F "S " anl a,#00FH
0091 : 03 94 " " add a,#094H
0093 : B3 " " jmpp @a ;INFO: indirect jump
;
0094 : 00 " " nop
0095 : 00 " " nop
0096 : 00 " " nop
0097 : 00 " " nop
0098 : 00 " " nop
0099 : C8 " " dec r0
009A : C4 C0 " " jmp L06C0
;
009C : BC B8 " " mov r4,#0B8H
009E : B4 B0 " " call L05B0
00A0 : AC " " mov r4,a
00A1 : A8 " " mov r0,a
00A2 : A4 CF " " jmp L05CF
;
00A4 : 99 FE " " anl p1,#0FEH
00A6 : 04 DC " " jmp L00DC
;
00A8 : 99 FD " " anl p1,#0FDH
00AA : 04 DC " " jmp L00DC
;
00AC : 99 FB " " anl p1,#0FBH
00AE : 04 DC " " jmp L00DC
;
00B0 : 99 F7 " " anl p1,#0F7H
00B2 : 04 DC " " jmp L00DC
;
00B4 : 99 EF " " anl p1,#0EFH
00B6 : 04 DC " " jmp L00DC
;
00B8 : 99 DF " " anl p1,#0DFH
00BA : 04 DC " " jmp L00DC
;
00BC : 99 BF " " anl p1,#0BFH
00BE : 04 DC " " jmp L00DC
;
00C0 : 99 7F " " anl p1,#07FH
00C2 : 04 DC " " jmp L00DC
;
00C4 : 9A FE " " anl p2,#0FEH
00C6 : 04 DC " " jmp L00DC
;
00C8 : 9A FD " " anl p2,#0FDH
00CA : 08 " " ins a,bus
00CB : 53 83 "S " anl a,#083H
00CD : 04 DD " " jmp L00DD
;
00CF : FB " " mov a,r3
00D0 : F2 D5 " " jb7 L00D5
00D2 : 0A " " in a,p2
00D3 : 04 E1 " " jmp L00E1
;
00D5 L00D5:
00D5 : 27 "'" clr a
00D6 : 86 E1 " " jni L00E1
00D8 : 23 FF "# " mov a,#0FFH
00DA : 04 E1 " " jmp L00E1
;
00DC L00DC:
00DC : 08 " " ins a,bus
00DD L00DD:
00DD : 8A 7F " " orl p2,#07FH
00DF : 89 FF " " orl p1,#0FFH
00E1 L00E1:
00E1 : AC " " mov r4,a
00E2 : C9 " " dec r1
00E3 : D1 " " xrl a,@r1
00E4 : 5B "[" anl a,r3
00E5 : C6 EF " " jz L00EF
00E7 : FB " " mov a,r3
00E8 : D1 " " xrl a,@r1
00E9 : A1 " " mov @r1,a
00EA : 19 " " inc r1
00EB L00EB:
00EB : BC FF " " mov r4,#0FFH
00ED L00ED:
00ED : 04 57 " W" jmp L0057
;
00EF L00EF:
00EF : 19 " " inc r1
00F0 : FC " " mov a,r4
00F1 : D1 " " xrl a,@r1
00F2 : 5B "[" anl a,r3
00F3 : C6 EB " " jz L00EB
00F5 : FA " " mov a,r2
00F6 : 03 9A " " add a,#09AH
00F8 : E3 " " movp3 a,@a
00F9 : 2C "," xch a,r4
00FA : 5B "[" anl a,r3
00FB : C6 ED " " jz L00ED
00FD : FC " " mov a,r4
00FE : 43 80 "C " orl a,#080H
0100 : AC " " mov r4,a
0101 : 04 57 " W" jmp L0057
;
0103 L0103:
0103 : D5 " " sel rb1
0104 : B9 27 " '" mov r1,#027H
0106 L0106:
0106 : 56 18 "V " jt1 L0118
0108 : E9 06 " " djnz r1,L0106
010A : B9 24 " $" mov r1,#024H
010C L010C:
010C : 56 1A "V " jt1 L011A
010E : E9 0C " " djnz r1,L010C
0110 : B9 A2 " " mov r1,#0A2H
0112 L0112:
0112 : 56 18 "V " jt1 L0118
0114 : E9 12 " " djnz r1,L0112
0116 : 04 1E " " jmp L001E
0118 L0118:
0118 : 04 57 " W" jmp L0057
;
011A L011A:
011A : 85 " " clr f0
011B : FE " " mov a,r6
011C : 47 "G" swap a
011D : AB " " mov r3,a
011E L011E:
011E : 5F "_" anl a,r7
011F : 37 "7" cpl a
0120 : 32 23 "2#" jb1 L0123
0122 : 95 " " cpl f0
0123 L0123:
0123 : FF " " mov a,r7
0124 : 43 80 "C " orl a,#080H
0126 : AF " " mov r7,a
0127 : B9 09 " " mov r1,#009H
0129 : B8 01 " " mov r0,#001H
012B : 74 2A "t*" call L032A
012D : DB " " xrl a,r3
012E : 53 F0 "S " anl a,#0F0H
0130 : C6 40 " @" jz L0140
0132 : B6 36 " 6" jf0 L0136
0134 : 04 57 " W" jmp L0057
;
0136 L0136:
0136 : 8A 80 " " orl p2,#080H
0138 : B9 32 " 2" mov r1,#032H
013A L013A:
013A : E9 3A " :" djnz r1,L013A
013C : 9A 7F " " anl p2,#07FH
013E : 04 57 " W" jmp L0057
;
0140 L0140:
0140 : B9 24 " $" mov r1,#024H
0142 L0142:
0142 : 56 48 "VH" jt1 L0148
0144 : E9 42 " B" djnz r1,L0142
0146 : 04 57 " W" jmp L0057
;
0148 L0148:
0148 : 27 "'" clr a
0149 : 62 "b" mov t,a
014A : FB " " mov a,r3
014B : 53 0F "S " anl a,#00FH
014D : 03 50 " P" add a,#050H
014F : B3 " " jmpp @a ;INFO: indirect jump
;
0150 : 1E " " inc r6
;
0151 : 8B " " db 08BH
;
0152 : 85 " " clr f0
0153 : 85 " " clr f0
0154 : 85 " " clr f0
0155 : 85 " " clr f0
0156 : 85 " " clr f0
0157 : 85 " " clr f0
0158 : 85 " " clr f0
0159 : 85 " " clr f0
015A : 85 " " clr f0
015B : 62 "b" mov t,a
015C : 60 "`" add a,@r0
015D : 85 " " clr f0
015E : C7 " " mov a,psw
015F : AB " " mov r3,a
0160 : 24 FE "$ " jmp L01FE
;
0162 : 27 "'" clr a
0163 : AC " " mov r4,a
0164 : AB " " mov r3,a
0165 : B9 19 " " mov r1,#019H
0167 L0167:
0167 : 46 6D "Fm" jnt1 L016D
0169 : E9 67 " g" djnz r1,L0167
016B : 04 57 " W" jmp L0057
;
016D L016D:
016D : B9 09 " " mov r1,#009H
016F : B8 02 " " mov r0,#002H
0171 : 74 07 "t " call L0307
0173 : AC " " mov r4,a
0174 : FB " " mov a,r3
0175 : D3 01 " " xrl a,#001H
0177 : C6 9E " " jz L019E
0179 : FB " " mov a,r3
017A : D3 05 " " xrl a,#005H
017C : C6 9E " " jz L019E
017E : FB " " mov a,r3
017F : 96 87 " " jnz L0187
0181 : FC " " mov a,r4
0182 : 53 2F "S/" anl a,#02FH
0184 : AE " " mov r6,a
0185 L0185:
0185 : 04 57 " W" jmp L0057
;
0187 L0187:
0187 : D3 FF " " xrl a,#0FFH
0189 : 96 8D " " jnz L018D
018B : 04 3C " <" jmp L003C
;
018D L018D:
018D : D3 02 " " xrl a,#002H
018F : 96 A2 " " jnz L01A2
0191 : 0A " " in a,p2
0192 : 72 85 "r " jb3 L0185
0194 L0194:
0194 : FC " " mov a,r4
0195 : 53 0F "S " anl a,#00FH
0197 : 2E "." xch a,r6
0198 : 53 20 "S " anl a,#020H
019A : 4E "N" orl a,r6
019B : AE " " mov r6,a
019C : 04 57 " W" jmp L0057
;
019E L019E:
019E : FB " " mov a,r3
019F : AD " " mov r5,a
01A0 : 04 57 " W" jmp L0057
;
01A2 L01A2:
01A2 : D3 03 " " xrl a,#003H
01A4 : 96 85 " " jnz L0185
01A6 : FF " " mov a,r7
01A7 : 52 85 "R " jb2 L0185
01A9 : 24 94 "$ " jmp L0194
;
01AB : FE " " mov a,r6
01AC : 53 F0 "S " anl a,#0F0H
01AE : AC " " mov r4,a
01AF : C5 " " sel rb0
01B0 : FD " " mov a,r5
01B1 : E7 " " rl a
01B2 : AD " " mov r5,a
01B3 : D5 " " sel rb1
01B4 : 53 0F "S " anl a,#00FH
01B6 : 4C "L" orl a,r4
01B7 : AC " " mov r4,a
01B8 : 0A " " in a,p2
01B9 : 53 10 "S " anl a,#010H
01BB : E7 " " rl a
01BC : E7 " " rl a
01BD : 4C "L" orl a,r4
01BE : AC " " mov r4,a
01BF : FD " " mov a,r5
01C0 : AB " " mov r3,a
01C1 : B9 08 " " mov r1,#008H
01C3 : 54 86 "T " call L0286
01C5 : 04 57 " W"…
Showing first 20,000 characters of 46,773 total. Open the full document →