341 0232 A.Txt
341 0232 A.Txt
ADB · TXT
| Filename | 341-0232-A.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:17 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 : BD 01 " " mov r5,#001H
0023 L0023:
0023 : C5 " " sel rb0
0024 : 23 FF "# " mov a,#0FFH
0026 L0026:
0026 : B8 3F " ?" mov r0,#03FH
0028 : B9 17 " " mov r1,#017H
002A L002A:
002A : A0 " " mov @r0,a
002B : C8 " " dec r0
002C : E9 2A " *" djnz r1,L002A
002E : 18 " " inc r0
002F : 90 " " movx @r0,a
0030 : AC " " mov r4,a
0031 : BA 01 " " mov r2,#001H
0033 : BF 00 " " mov r7,#000H
0035 : A5 " " clr f1
0036 : B5 " " cpl f1
0037 : D5 " " sel rb1
0038 : BA 00 " " mov r2,#000H
003A : FF " " mov a,r7
003B : 53 FD "S " anl a,#0FDH
003D : AF " " mov r7,a
003E L003E:
003E : 25 "%" en tcnti
003F : 45 "E" strt cnt
0040 : C5 " " sel rb0
0041 : 1D " " inc r5
0042 : 56 4B "VK" jt1 L004B
0044 : 76 4C "vL" jf1 L004C
0046 : 42 "B" mov a,t
0047 : 96 4D " M" jnz L004D
0049 : 04 E3 " " jmp L00E3
;
004B L004B:
004B : A5 " " clr f1
004C L004C:
004C : B5 " " cpl f1
004D L004D:
004D : 27 "'" clr a
004E : 62 "b" mov t,a
004F : FC " " mov a,r4
0050 : 37 "7" cpl a
0051 : C6 55 " U" jz L0055
0053 : 44 19 "D " jmp L0219
;
0055 L0055:
0055 : EA 63 " c" djnz r2,L0063
0057 : BA 58 " X" mov r2,#058H
0059 : B9 3F " ?" mov r1,#03FH
005B : BB 01 " " mov r3,#001H
005D : 04 6A " j" jmp L006A
;
005F L005F:
005F : C9 " " dec r1
0060 : C9 " " dec r1
0061 : 04 6A " j" jmp L006A
;
0063 L0063:
0063 : FB " " mov a,r3
0064 : C6 00 " " jz L0000
0066 : E7 " " rl a
0067 : AB " " mov r3,a
0068 : 12 5F " _" jb0 L005F
006A L006A:
006A : 23 FF "# " mov a,#0FFH
006C : 90 " " movx @r0,a
006D : F9 " " mov a,r1
006E : 77 "w" rr a
006F : 53 0F "S " anl a,#00FH
0071 : 03 74 " t" add a,#074H
0073 : B3 " " jmpp @a ;INFO: indirect jump
;
0074 : 00 " " nop
0075 : 00 " " nop
0076 : 00 " " nop
0077 : 00 " " nop
0078 : 00 " " nop
0079 : AB " " mov r3,a
007A : A7 " " cpl c
007B : A3 " " movp a,@a
007C : 9F " " anld p7,a
;
007D : 9B " " db 09BH
;
007E : 97 " " clr c
007F : 93 " " retr
;
0080 : 8F " " orld p7,a
;
0081 : 8B 87 " " db 08BH, 087H
;
0083 : AF " " mov r7,a
0084 : 00 " " nop
0085 : 04 00 " " jmp L0000
;
0087 : 99 FE " " anl p1,#0FEH
0089 : 04 BC " " jmp L00BC
;
008B : 99 FD " " anl p1,#0FDH
008D : 04 BC " " jmp L00BC
;
008F : 99 FB " " anl p1,#0FBH
0091 : 04 BC " " jmp L00BC
;
0093 : 99 F7 " " anl p1,#0F7H
0095 : 04 BC " " jmp L00BC
;
0097 : 99 EF " " anl p1,#0EFH
0099 : 04 BC " " jmp L00BC
;
009B : 99 DF " " anl p1,#0DFH
009D : 04 BC " " jmp L00BC
;
009F : 99 BF " " anl p1,#0BFH
00A1 : 04 BC " " jmp L00BC
;
00A3 : 99 7F " " anl p1,#07FH
00A5 : 04 BC " " jmp L00BC
;
00A7 : 9A FE " " anl p2,#0FEH
00A9 : 04 BC " " jmp L00BC
;
00AB : 9A FD " " anl p2,#0FDH
00AD : 04 BC " " jmp L00BC
;
00AF : FB " " mov a,r3
00B0 : F2 B5 " " jb7 L00B5
00B2 : 0A " " in a,p2
00B3 : 04 C1 " " jmp L00C1
;
00B5 L00B5:
00B5 : 27 "'" clr a
00B6 : 86 C1 " " jni L00C1
00B8 : 23 FF "# " mov a,#0FFH
00BA : 04 C1 " " jmp L00C1
;
00BC L00BC:
00BC : 08 " " ins a,bus
00BD : 8A 7F " " orl p2,#07FH
00BF : 89 FF " " orl p1,#0FFH
00C1 L00C1:
00C1 : AC " " mov r4,a
00C2 : C9 " " dec r1
00C3 : D1 " " xrl a,@r1
00C4 : 5B "[" anl a,r3
00C5 : C6 CF " " jz L00CF
00C7 : FB " " mov a,r3
00C8 : D1 " " xrl a,@r1
00C9 : A1 " " mov @r1,a
00CA : 19 " " inc r1
00CB L00CB:
00CB : BC FF " " mov r4,#0FFH
00CD L00CD:
00CD : 04 3E " >" jmp L003E
;
00CF L00CF:
00CF : 19 " " inc r1
00D0 : FC " " mov a,r4
00D1 : D1 " " xrl a,@r1
00D2 : 5B "[" anl a,r3
00D3 : C6 CB " " jz L00CB
00D5 : FA " " mov a,r2
00D6 : 03 99 " " add a,#099H
00D8 : E3 " " movp3 a,@a
00D9 : 2C "," xch a,r4
00DA : 5B "[" anl a,r3
00DB : C6 CD " " jz L00CD
00DD : FC " " mov a,r4
00DE : 43 80 "C " orl a,#080H
00E0 : AC " " mov r4,a
00E1 : 04 3E " >" jmp L003E
;
00E3 L00E3:
00E3 : D5 " " sel rb1
00E4 : B9 52 " R" mov r1,#052H
00E6 L00E6:
00E6 : 56 F3 "V " jt1 L00F3
00E8 : E9 E6 " " djnz r1,L00E6
00EA : B9 88 " " mov r1,#088H
00EC L00EC:
00EC : 56 F3 "V " jt1 L00F3
00EE : E9 EC " " djnz r1,L00EC
00F0 : 00 " " nop
00F1 : 04 00 " " jmp L0000
;
00F3 L00F3:
00F3 : BC F0 " " mov r4,#0F0H
00F5 : 85 " " clr f0
00F6 : FE " " mov a,r6
00F7 : 47 "G" swap a
00F8 : AB " " mov r3,a
00F9 : 5F "_" anl a,r7
00FA : 37 "7" cpl a
00FB : 32 FE "2 " jb1 L00FE
00FD : 95 " " cpl f0
00FE L00FE:
00FE : B9 09 " " mov r1,#009H
0100 : B8 01 " " mov r0,#001H
0102 : 74 26 "t&" call L0326
0104 : DB " " xrl a,r3
0105 : 5C "\" anl a,r4
0106 : C6 16 " " jz L0116
0108 : B6 0C " " jf0 L010C
010A : 04 3E " >" jmp L003E
;
010C L010C:
010C : 8A 80 " " orl p2,#080H
010E : B9 1C " " mov r1,#01CH
0110 L0110:
0110 : E9 10 " " djnz r1,L0110
0112 : 9A 7F " " anl p2,#07FH
0114 : 04 3E " >" jmp L003E
;
0116 L0116:
0116 : B9 23 " #" mov r1,#023H
0118 L0118:
0118 : 56 1E "V " jt1 L011E
011A : E9 18 " " djnz r1,L0118
011C : 04 3E " >" jmp L003E
;
011E L011E:
011E : 27 "'" clr a
011F : 62 "b" mov t,a
0120 : FB " " mov a,r3
0121 : 53 0F "S " anl a,#00FH
0123 : 03 26 " &" add a,#026H
0125 : B3 " " jmpp @a ;INFO: indirect jump
;
0126 : F0 " " mov a,@r0
0127 : 58 "X" anl a,r0
0128 : 52 52 "RR" jb2 L0152
012A : 52 52 "RR" jb2 L0152
012C : 52 52 "RR" jb2 L0152
012E : 52 52 "RR" jb2 L0152
0130 : 52 39 "R9" jb2 L0139
0132 : C8 " " dec r0
0133 : 52 8E "R " jb2 L018E
0135 : 74 00 "t " call L0300
0137 : 04 00 " " jmp L0000
;
0139 L0139:
0139 : 27 "'" clr a
013A : AC " " mov r4,a
013B : AB " " mov r3,a
013C : B9 1A " " mov r1,#01AH
013E L013E:
013E : 46 44 "FD" jnt1 L0144
0140 : E9 3E " >" djnz r1,L013E
0142 : 04 3E " >" jmp L003E
;
0144 L0144:
0144 : B9 09 " " mov r1,#009H
0146 : B8 02 " " mov r0,#002H
0148 : 74 03 "t " call L0303
014A : AC " " mov r4,a
014B : FB " " mov a,r3
014C : 96 54 " T" jnz L0154
014E : FC " " mov a,r4
014F : 53 2F "S/" anl a,#02FH
0151 : AE " " mov r6,a
0152 L0152:
0152 : 04 3E " >" jmp L003E
;
0154 L0154:
0154 : D3 FF " " xrl a,#0FFH
0156 : 96 5A " Z" jnz L015A
0158 : 04 23 " #" jmp L0023
;
015A L015A:
015A : D3 02 " " xrl a,#002H
015C : 96 6B " k" jnz L016B
015E : 0A " " in a,p2
015F : 72 52 "rR" jb3 L0152
0161 L0161:
0161 : FC " " mov a,r4
0162 : 53 0F "S " anl a,#00FH
0164 : 2E "." xch a,r6
0165 : 53 20 "S " anl a,#020H
0167 : 4E "N" orl a,r6
0168 : AE " " mov r6,a
0169 : 04 3E " >" jmp L003E
;
016B L016B:
016B : D3 03 " " xrl a,#003H
016D : 96 52 " R" jnz L0152
016F : FF " " mov a,r7
0170 : 52 52 "RR" jb2 L0152
0172 : 24 61 "$a" jmp L0161
;
0174 : FE " " mov a,r6
0175 : 53 F0 "S " anl a,#0F0H
0177 : AC " " mov r4,a
0178 : C5 " " sel rb0
0179 : FD " " mov a,r5
017A : D5 " " sel rb1
017B : 53 0F "S " anl a,#00FH
017D : 4C "L" orl a,r4
017E : AC " " mov r4,a
017F : 0A " " in a,p2
0180 : 53 10 "S " anl a,#010H
0182 : E7 " " rl a
0183 : E7 " " rl a
0184 : 4C "L" orl a,r4
0185 : AC " " mov r4,a
0186 : FD " " mov a,r5
0187 : AB " " mov r3,a
0188 : B9 08 " " mov r1,#008H
018A : 54 50 "TP" call L0250
018C : 04 3E " >" jmp L003E
;
018E L018E:
018E : 0A " " in a,p2
018F : 77 "w" rr a
0190 : 77 "w" rr a
0191 : AC " " mov r4,a
0192 : 53 0F "S " anl a,#00FH
0194 : 03 B5 " " add a,#0B5H
0196 : A3 " " movp a,@a
0197 : 86 9B " " jni L019B
0199 : 43 20 "C " orl a,#020H
019B L019B:
019B : 2C "," xch a,r4
019C : 92 A2 " " jb4 L01A2
019E : 23 FB "# " mov a,#0FBH
01A0 : 5C "\" anl a,r4
01A1 : AC " " mov r4,a
01A2 L01A2:
01A2 : 99 7F " " anl p1,#07FH
01A4 : 08 " " ins a,bus
01A5 : 89 FF " " orl p1,#0FFH
01A7 : 72 AD "r " jb3 L01AD
01A9 : 23 BF "# " mov a,#0BFH
01AB : 5C "\" anl a,r4
01AC : AC " " mov r4,a
01AD L01AD:
01AD : BB 00 " " mov r3,#000H
01AF : B9 02 " " mov r1,#002H
01B1 : 54 50 "TP" call L0250
01B3 L01B3:
01B3 : 04 3E " >" jmp L003E
01B5 : C4 C6 " " jmp L06C6
;
01B7 : C5 " " sel rb0
01B8 : C7 " " mov a,psw
01B9 : D4 D6 " " call L06D6
01BB : D5 " " sel rb1
01BC : D7 " " mov psw,a
01BD : CC " " dec r4
01BE : CE " " dec r6
01BF : CD " " dec r5
01C0 : CF " " dec r7
01C1 : DC " " xrl a,r4
01C2 : DE " " xrl a,r6
01C3 : DD " " xrl a,r5
01C4 : DF " " xrl a,r7
01C5 : 00 " " nop
01C6 : 04 00 " " jmp L0000
;
01C8 : FF " " mov a,r7
01C9…
Showing first 20,000 characters of 46,608 total. Open the full document →