341 0124 A 8048HC610.Txt
341 0124 A 8048HC610.Txt
ADB · TXT
| Filename | 341-0124-A_8048HC610.txt |
|---|---|
| Size | 0.04 MB |
| Subsection | apple / M0330_IIgs |
| Downloads | 6 |
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: Sat May 02 09:40:05 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 : D5 " " sel rb1
001F : BE 22 " "" mov r6,#022H
0021 : 36 27 "6'" jt0 L0027
0023 : BD 01 " " mov r5,#001H
0025 : 04 29 " )" jmp L0029
;
0027 L0027:
0027 : BD 04 " " mov r5,#004H
0029 L0029:
0029 : C5 " " sel rb0
002A : 23 FF "# " mov a,#0FFH
002C : B8 3F " ?" mov r0,#03FH
002E : B9 17 " " mov r1,#017H
0030 L0030:
0030 : A0 " " mov @r0,a
0031 : C8 " " dec r0
0032 : E9 30 " 0" djnz r1,L0030
0034 : 18 " " inc r0
0035 : 90 " " movx @r0,a
0036 : AC " " mov r4,a
0037 : BA 01 " " mov r2,#001H
0039 : BF 00 " " mov r7,#000H
003B : A5 " " clr f1
003C : B5 " " cpl f1
003D : D5 " " sel rb1
003E : BA 00 " " mov r2,#000H
0040 : FF " " mov a,r7
0041 : 53 FD "S " anl a,#0FDH
0043 : AF " " mov r7,a
0044 L0044:
0044 : 25 "%" en tcnti
0045 : 45 "E" strt cnt
0046 : C5 " " sel rb0
0047 : 1D " " inc r5
0048 : 56 51 "VQ" jt1 L0051
004A : 76 52 "vR" jf1 L0052
004C : 42 "B" mov a,t
004D : 96 53 " S" jnz L0053
004F : 04 E9 " " jmp L00E9
;
0051 L0051:
0051 : A5 " " clr f1
0052 L0052:
0052 : B5 " " cpl f1
0053 L0053:
0053 : 27 "'" clr a
0054 : 62 "b" mov t,a
0055 : FC " " mov a,r4
0056 : 37 "7" cpl a
0057 : C6 5B " [" jz L005B
0059 : 44 2C "D," jmp L022C
;
005B L005B:
005B : EA 69 " i" djnz r2,L0069
005D : BA 58 " X" mov r2,#058H
005F : B9 3F " ?" mov r1,#03FH
0061 : BB 01 " " mov r3,#001H
0063 : 04 70 " p" jmp L0070
;
0065 L0065:
0065 : C9 " " dec r1
0066 : C9 " " dec r1
0067 : 04 70 " p" jmp L0070
;
0069 L0069:
0069 : FB " " mov a,r3
006A : C6 00 " " jz L0000
006C : E7 " " rl a
006D : AB " " mov r3,a
006E : 12 65 " e" jb0 L0065
0070 L0070:
0070 : 23 FF "# " mov a,#0FFH
0072 : 90 " " movx @r0,a
0073 : F9 " " mov a,r1
0074 : 77 "w" rr a
0075 : 53 0F "S " anl a,#00FH
0077 : 03 7A " z" add a,#07AH
0079 : B3 " " jmpp @a ;INFO: indirect jump
;
007A : 00 " " nop
007B : 00 " " nop
007C : 00 " " nop
007D : 00 " " nop
007E : 00 " " nop
007F : B1 AD " " mov @r1,#0ADH
0081 : A9 " " mov r1,a
0082 : A5 " " clr f1
0083 : A1 " " mov @r1,a
0084 : 9D " " anld p5,a
0085 : 99 95 " " anl p1,#095H
0087 : 91 " " movx @r1,a
0088 : 8D " " orld p5,a
0089 : B5 " " cpl f1
008A : 00 " " nop
008B : 04 00 " " jmp L0000
;
008D : 99 FE " " anl p1,#0FEH
008F : 04 C2 " " jmp L00C2
;
0091 : 99 FD " " anl p1,#0FDH
0093 : 04 C2 " " jmp L00C2
;
0095 : 99 FB " " anl p1,#0FBH
0097 : 04 C2 " " jmp L00C2
;
0099 : 99 F7 " " anl p1,#0F7H
009B : 04 C2 " " jmp L00C2
;
009D : 99 EF " " anl p1,#0EFH
009F : 04 C2 " " jmp L00C2
;
00A1 : 99 DF " " anl p1,#0DFH
00A3 : 04 C2 " " jmp L00C2
;
00A5 : 99 BF " " anl p1,#0BFH
00A7 : 04 C2 " " jmp L00C2
;
00A9 : 99 7F " " anl p1,#07FH
00AB : 04 C2 " " jmp L00C2
;
00AD : 9A FE " " anl p2,#0FEH
00AF : 04 C2 " " jmp L00C2
;
00B1 : 9A FD " " anl p2,#0FDH
00B3 : 04 C2 " " jmp L00C2
;
00B5 : FB " " mov a,r3
00B6 : F2 BB " " jb7 L00BB
00B8 : 0A " " in a,p2
00B9 : 04 C7 " " jmp L00C7
;
00BB L00BB:
00BB : 27 "'" clr a
00BC : 86 C7 " " jni L00C7
00BE : 23 FF "# " mov a,#0FFH
00C0 : 04 C7 " " jmp L00C7
;
00C2 L00C2:
00C2 : 08 " " ins a,bus
00C3 : 8A 7F " " orl p2,#07FH
00C5 : 89 FF " " orl p1,#0FFH
00C7 L00C7:
00C7 : AC " " mov r4,a
00C8 : C9 " " dec r1
00C9 : D1 " " xrl a,@r1
00CA : 5B "[" anl a,r3
00CB : C6 D5 " " jz L00D5
00CD : FB " " mov a,r3
00CE : D1 " " xrl a,@r1
00CF : A1 " " mov @r1,a
00D0 : 19 " " inc r1
00D1 L00D1:
00D1 : BC FF " " mov r4,#0FFH
00D3 L00D3:
00D3 : 04 44 " D" jmp L0044
;
00D5 L00D5:
00D5 : 19 " " inc r1
00D6 : FC " " mov a,r4
00D7 : D1 " " xrl a,@r1
00D8 : 5B "[" anl a,r3
00D9 : C6 D1 " " jz L00D1
00DB : FA " " mov a,r2
00DC : 03 99 " " add a,#099H
00DE : E3 " " movp3 a,@a
00DF : 2C "," xch a,r4
00E0 : 5B "[" anl a,r3
00E1 : C6 D3 " " jz L00D3
00E3 : FC " " mov a,r4
00E4 : 43 80 "C " orl a,#080H
00E6 : AC " " mov r4,a
00E7 : 04 44 " D" jmp L0044
;
00E9 L00E9:
00E9 : D5 " " sel rb1
00EA : B9 52 " R" mov r1,#052H
00EC L00EC:
00EC : 56 F9 "V " jt1 L00F9
00EE : E9 EC " " djnz r1,L00EC
00F0 : B9 88 " " mov r1,#088H
00F2 L00F2:
00F2 : 56 F9 "V " jt1 L00F9
00F4 : E9 F2 " " djnz r1,L00F2
00F6 : 00 " " nop
00F7 : 04 00 " " jmp L0000
;
00F9 L00F9:
00F9 : BC F0 " " mov r4,#0F0H
00FB : 85 " " clr f0
00FC : FE " " mov a,r6
00FD : 47 "G" swap a
00FE : AB " " mov r3,a
00FF : 5F "_" anl a,r7
0100 : 37 "7" cpl a
0101 : 32 04 "2 " jb1 L0104
0103 : 95 " " cpl f0
0104 L0104:
0104 : B9 09 " " mov r1,#009H
0106 : B8 01 " " mov r0,#001H
0108 : 74 26 "t&" call L0326
010A : DB " " xrl a,r3
010B : 5C "\" anl a,r4
010C : C6 1C " " jz L011C
010E : B6 12 " " jf0 L0112
0110 : 04 44 " D" jmp L0044
;
0112 L0112:
0112 : 8A 80 " " orl p2,#080H
0114 : B9 1C " " mov r1,#01CH
0116 L0116:
0116 : E9 16 " " djnz r1,L0116
0118 : 9A 7F " " anl p2,#07FH
011A : 04 44 " D" jmp L0044
;
011C L011C:
011C : B9 23 " #" mov r1,#023H
011E L011E:
011E : 56 24 "V$" jt1 L0124
0120 : E9 1E " " djnz r1,L011E
0122 : 44 DB "D " jmp L02DB
;
0124 L0124:
0124 : 27 "'" clr a
0125 : 62 "b" mov t,a
0126 : FB " " mov a,r3
0127 : 53 0F "S " anl a,#00FH
0129 : 03 2C " ," add a,#02CH
012B : B3 " " jmpp @a ;INFO: indirect jump
;
012C : 3C "<" movd p4,a
012D : 67 "g" rrc a
012E : 58 "X" anl a,r0
012F : 58 "X" anl a,r0
0130 : 58 "X" anl a,r0
0131 : 58 "X" anl a,r0
0132 : 58 "X" anl a,r0
0133 : 58 "X" anl a,r0
0134 : 58 "X" anl a,r0
0135 : 58 "X" anl a,r0
0136 : 58 "X" anl a,r0
0137 : 3F "?" movd p7,a
0138 : DB " " xrl a,r3
0139 : 58 "X" anl a,r0
013A : A1 " " mov @r1,a
;
013B : 87 " " db 087H
;
013C : 00 " " nop
013D : 04 00 " " jmp L0000
;
013F : 27 "'" clr a
0140 : AC " " mov r4,a
0141 : AB " " mov r3,a
0142 : B9 1A " " mov r1,#01AH
0144 L0144:
0144 : 46 4A "FJ" jnt1 L014A
0146 : E9 44 " D" djnz r1,L0144
0148 : 44 DB "D " jmp L02DB
;
014A L014A:
014A : B9 09 " " mov r1,#009H
014C : B8 02 " " mov r0,#002H
014E : 74 03 "t " call L0303
0150 : AC " " mov r4,a
0151 : FB " " mov a,r3
0152 : 96 5A " Z" jnz L015A
0154 : FC " " mov a,r4
0155 : 53 2F "S/" anl a,#02FH
0157 : AE " " mov r6,a
0158 L0158:
0158 : 04 44 " D" jmp L0044
;
015A L015A:
015A : D3 01 " " xrl a,#001H
015C : C6 7A " z" jz L017A
015E : D3 05 " " xrl a,#005H
0160 : C6 7A " z" jz L017A
0162 : FB " " mov a,r3
0163 : D3 FF " " xrl a,#0FFH
0165 : 96 69 " i" jnz L0169
0167 : 04 29 " )" jmp L0029
;
0169 L0169:
0169 : D3 02 " " xrl a,#002H
016B : 96 7E " ~" jnz L017E
016D : 0A " " in a,p2
016E : 72 58 "rX" jb3 L0158
0170 L0170:
0170 : FC " " mov a,r4
0171 : 53 0F "S " anl a,#00FH
0173 : 2E "." xch a,r6
0174 : 53 20 "S " anl a,#020H
0176 : 4E "N" orl a,r6
0177 : AE " " mov r6,a
0178 : 04 44 " D" jmp L0044
;
017A L017A:
017A : FB " " mov a,r3
017B : AD " " mov r5,a
017C : 04 44 " D" jmp L0044
;
017E L017E:
017E : D3 03 " " xrl a,#003H
0180 : 96 58 " X" jnz L0158
0182 : FF " " mov a,r7
0183 : 52 58 "RX" jb2 L0158
0185 : 24 70 "$p" jmp L0170
;
0187 : FE " " mov a,r6
0188 : 53 F0 "S " anl a,#0F0H
018A : AC " " mov r4,a
018B : C5 " " sel rb0
018C : FD " " mov a,r5
018D : D5 " " sel rb1
018E : 53 0F "S " anl a,#00FH
0190 : 4C "L" orl a,r4
0191 : AC " " mov r4,a
0192 : 0A " " in a,p2
0193 : 53 10 "S " anl a,#010H
0195 : E7 " " rl a
0196 : E7 " " rl a
0197 : 4C "L" orl a,r4
0198 : AC " " mov r4,a
0199 : FD " " mov a,r5
019A : AB " " mov r3,a
019B : B9 08 " " mov r1,#008H
019D : 54 63 "Tc" call L0263
019F : 04 44 " D" jmp L0044
;
01A1 : 0A " " in a,p2
01A2 : 77 "w" rr a
01A3 : 77 "w" rr a
01A4 : AC " " mov r4,a
01A5 : 53 0F "S " anl a,#00FH
01A7 : 03 C8 " " add a,#0C8H
01A9 : A3 " " movp a,@a
01AA : 86 AE " " jni L01AE
01AC : 43 20 "C " orl a,#020H
01AE L01AE:
01AE : 2C "," xch a,r4
01AF : 92 B5 " " jb4 L01B5
01B1 : 23 FB "# " mov a,#0FBH
01B3 : 5C "\" anl a,r4
01B4 : AC " " mov r4,a
01B5 L01B5:
01B5 : 99 7F " " anl p1,#07FH
01B7 : 08 " " ins a,bus
01B8 : 89 FF " " orl p1,#0FFH
01BA : 72 C0 "r " jb3 L01C0
01BC : 23 BF "# " mov a,#0BFH
01BE : 5C "\" anl a,r4
01BF : AC " " mov r4,a
01C0 L01C0:
01C0 : BB 00 " " mov r3,#000H
01C2 : B9 02 " " mov r1,#002H
01C4 : 54 63 "Tc" call L0263
01C6 L01C6:
01C6 : 04 44 " D" jmp L0044
01C8 : C4 C6 " " jmp L06C6
;
01CA : C5 " " sel rb0
01CB : C7 …
Showing first 20,000 characters of 46,307 total. Open the full document →