ASM
FILE INFORMATION
FILENAME(S): ASM
FILE TYPE(S): PRG
FILE SIZE: 1.7K
FIRST SEEN: 2025-11-30 21:07:11
APPEARS ON: 1 disk(s)
FILE HASH
01e40d0a3ceb827494b24f45aefc34107dd802383eef1a1cda8415130eeb270c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CURSOR 2 | ASM | PRG | DuncanTwain | 3 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 11 04 00 00 9C 3A 97 35 39 34 36 38 2C 31 |.......:.59468,1|
00000010: 32 00 3A 04 01 00 8F 20 41 53 4D 20 43 4F 50 59 |2.:.... ASM COPY|
00000020: 52 49 47 48 54 20 28 43 29 20 31 39 37 39 20 47 |RIGHT (C) 1979 G|
00000030: 4C 45 4E 20 46 49 53 48 45 52 00 56 04 02 00 8F |LEN FISHER.V....|
00000040: 20 43 55 52 53 4F 52 20 23 31 30 2C 20 4D 41 59 | CURSOR #10, MAY|
00000050: 2C 20 31 39 37 39 00 77 04 03 00 8F 20 42 4F 58 |, 1979.w.... BOX|
00000060: 20 35 35 30 2C 20 47 4F 4C 45 54 41 2C 20 43 41 | 550, GOLETA, CA|
00000070: 2E 20 39 33 30 31 37 00 7D 04 04 00 3A 00 95 04 |. 93017.}...:...|
00000080: 0A 00 8F 20 41 53 20 4F 46 20 4D 41 59 20 33 30 |... AS OF MAY 30|
00000090: 2C 31 39 37 39 00 B3 04 5A 00 50 47 24 B2 22 41 |,1979...Z.PG$."A|
000000A0: 53 4D 22 3A 4E 4D 24 B2 22 31 30 22 3A 8D 36 32 |SM":NM$."10":.62|
000000B0: 30 30 30 00 D0 04 64 00 53 49 5A B2 32 35 3A 86 |000...d.SIZ.25:.|
000000C0: 53 59 24 28 53 49 5A 29 2C 41 44 28 53 49 5A 29 |SY$(SIZ),AD(SIZ)|
000000D0: 00 E3 04 6E 00 4F 50 B2 35 36 3A 86 4F 50 24 28 |...n.OP.56:.OP$(|
000000E0: 4F 50 29 00 FA 04 78 00 81 49 B2 31 A4 4F 50 3A |OP)...x..I.1.OP:|
000000F0: 87 4F 50 24 28 49 29 3A 82 49 00 07 05 E8 03 8F |.OP$(I):.I......|
00000100: 20 50 41 53 53 20 31 00 1B 05 F2 03 87 42 24 3A | PASS 1......B$:|
00000110: 8B 42 24 B2 22 22 A7 32 30 30 30 00 35 05 FC 03 |.B$."".2000.5...|
00000120: 43 24 B2 C8 28 42 24 2C 31 29 3A 4C 24 B2 CA 28 |C$..(B$,1):L$..(|
00000130: 42 24 2C 32 29 00 64 05 06 04 8B 43 24 B2 22 2E |B$,2).d....C$.".|
00000140: 22 B0 43 24 B2 22 23 22 B0 43 24 B2 22 24 22 B0 |".C$."#".C$."$".|
00000150: 43 24 B2 22 27 22 A7 50 43 B2 50 43 AA 31 3A 89 |C$."'".PC.PC.1:.|
00000160: 31 30 30 30 00 7E 05 10 04 8B 43 24 B2 22 3B 22 |1000.~....C$.";"|
00000170: A7 50 43 B2 50 43 AA 32 3A 89 31 30 30 30 00 9A |.PC.PC.2:.1000..|
00000180: 05 1A 04 8B 43 24 B2 22 3D 22 A7 8D 39 30 30 30 |....C$."="..9000|
00000190: 3A 99 42 24 3A 89 31 30 30 30 00 B7 05 24 04 8B |:.B$:.1000...$..|
000001A0: 43 24 B2 22 40 22 A7 8D 38 31 30 30 3A 50 43 B2 |C$."@"..8100:PC.|
000001B0: 56 3A 89 31 30 30 30 00 C9 05 2E 04 50 43 B2 50 |V:.1000.....PC.P|
000001C0: 43 AA 31 3A 89 31 30 30 30 00 D6 05 D0 07 8F 20 |C.1:.1000...... |
000001D0: 50 41 53 53 20 32 00 EB 05 DA 07 8C 3A 81 49 B2 |PASS 2......:.I.|
000001E0: 31 A4 4F 50 3A 87 54 24 3A 82 49 00 F1 05 E4 07 |1.OP:.T$:.I.....|
000001F0: 99 00 05 06 34 08 87 42 24 3A 8B 42 24 B2 22 22 |....4..B$:.B$.""|
00000200: A7 33 30 30 30 00 28 06 3E 08 54 B2 32 33 3A 8B |.3000.(.>.T.23:.|
00000210: C6 28 42 24 29 B1 B2 36 34 AF C6 28 42 24 29 B3 |.(B$)..64..(B$).|
00000220: B2 39 30 A7 54 B2 31 38 00 3B 06 40 08 8B C6 28 |.90.T.18.;.@...(|
00000230: 42 24 29 B2 36 31 A7 54 B2 31 32 00 4B 06 43 08 |B$).61.T.12.K.C.|
00000240: 99 A3 54 29 3B 42 24 3B 22 91 22 00 65 06 48 08 |..T);B$;".".e.H.|
00000250: 43 24 B2 C8 28 42 24 2C 31 29 3A 4C 24 B2 CA 28 |C$..(B$,1):L$..(|
00000260: 42 24 2C 32 29 00 8A 06 52 08 8B 43 24 B2 22 3D |B$,2)...R..C$."=|
00000270: 22 A7 56 B2 50 43 3A 8D 38 33 30 30 3A 99 22 12 |".V.PC:.8300:.".|
00000280: 22 3B 56 24 3A 89 32 31 30 30 00 B5 06 5C 08 8B |";V$:.2100...\..|
00000290: 43 24 B2 22 40 22 A7 8D 38 31 30 30 3A 50 43 B2 |C$."@"..8100:PC.|
000002A0: 56 3A 8D 38 33 30 30 3A 99 22 12 22 3B 56 24 3A |V:.8300:.".";V$:|
000002B0: 89 32 31 30 30 00 E5 06 66 08 8B 43 24 B2 22 23 |.2100...f..C$."#|
000002C0: 22 B0 43 24 B2 22 24 22 B0 43 24 B2 22 27 22 A7 |".C$."$".C$."'".|
000002D0: 4C 24 B2 22 2E 22 AA 42 24 3A 8D 37 30 30 30 3A |L$.".".B$:.7000:|
000002E0: 89 32 31 30 30 00 0E 07 6B 08 8B 42 24 B2 22 2E |.2100...k..B$.".|
000002F0: 22 A7 56 B2 50 43 3A 8D 38 33 30 30 3A 99 56 24 |".V.PC:.8300:.V$|
00000300: 3A 50 43 B2 50 43 AA 31 3A 89 32 31 30 30 00 3A |:PC.PC.1:.2100.:|
00000310: 07 70 08 8B 43 24 B2 22 3B 22 B0 43 24 B2 22 2E |.p..C$.";".C$.".|
00000320: 22 B0 43 24 B2 22 2B 22 A7 4C 24 B2 42 24 3A 8D |".C$."+".L$.B$:.|
00000330: 37 30 30 30 3A 89 32 31 30 30 00 56 07 7A 08 8D |7000:.2100.V.z..|
00000340: 39 35 30 30 3A 4C 24 B2 22 2E 24 22 AA 4F 50 24 |9500:L$.".$".OP$|
00000350: 3A 8D 37 30 30 30 00 60 07 84 08 89 32 31 30 30 |:.7000.`....2100|
00000360: 00 7B 07 B8 0B 99 22 11 41 53 53 45 4D 42 4C 59 |.{....".ASSEMBLY|
00000370: 20 43 4F 4D 50 4C 45 54 45 2E 22 00 81 07 C2 0B | COMPLETE.".....|
00000380: 80 00 8E 07 58 1B 8F 20 50 55 54 56 41 4C 00 A8 |....X.. PUTVAL..|
00000390: 07 62 1B 43 24 B2 C8 28 4C 24 2C 31 29 3A 4C 24 |.b.C$..(L$,1):L$|
000003A0: B2 CA 28 4C 24 2C 32 29 00 D6 07 6C 1B 8B 43 24 |..(L$,2)...l..C$|
000003B0: B3 B1 22 2E 22 AF 43 24 B3 B1 22 3B 22 AF 43 24 |..".".C$..";".C$|
000003C0: B3 B1 22 2B 22 A7 99 22 42 41 44 20 4F 50 45 52 |.."+".."BAD OPER|
000003D0: 41 4E 44 22 3A 8E 00 E0 07 76 1B 8D 38 32 30 30 |AND":....v..8200|
000003E0: 00 13 08 80 1B 8B 43 24 B2 22 2B 22 A7 56 B2 56 |......C$."+".V.V|
000003F0: AB 28 50 43 AA 31 29 3A 8B 28 56 B3 30 AF 56 B1 |.(PC.1):.(V.0.V.|
00000400: AB 31 32 39 29 B0 56 B1 31 32 37 A7 56 B2 56 AA |.129).V.127.V.V.|
00000410: 32 35 36 00 40 08 8A 1B 8B 43 24 B3 B1 22 3B 22 |256.@....C$..";"|
00000420: AF 28 56 B3 30 B0 56 B1 32 35 35 29 A7 99 22 42 |.(V.0.V.255).."B|
00000430: 59 54 45 20 54 4F 4F 20 42 49 47 22 3A 56 B2 30 |YTE TOO BIG":V.0|
00000440: 00 59 08 94 1B 48 B2 B5 28 56 AD 32 35 36 29 3A |.Y...H..(V.256):|
00000450: 56 B2 56 AB 32 35 36 AC 48 00 6B 08 9E 1B 97 50 |V.V.256.H.k....P|
00000460: 43 2C 56 3A 50 43 B2 50 43 AA 31 00 93 08 A8 1B |C,V:PC.PC.1.....|
00000470: 8D 38 33 30 30 3A 54 24 B2 56 24 3A 56 B2 50 43 |.8300:T$.V$:V.PC|
00000480: AB 31 3A 8D 38 33 30 30 3A 99 56 24 3B 22 20 22 |.1:.8300:.V$;" "|
00000490: 3B 54 24 00 A2 08 B2 1B 8B 43 24 B3 B1 22 3B 22 |;T$......C$..";"|
000004A0: A7 8E 00 B8 08 BC 1B 56 B2 48 3A 97 50 43 2C 56 |.......V.H:.PC,V|
000004B0: 3A 50 43 B2 50 43 AA 31 00 E0 08 C6 1B 8D 38 33 |:PC.PC.1......83|
000004C0: 30 30 3A 54 24 B2 56 24 3A 56 B2 50 43 AB 31 3A |00:T$.V$:V.PC.1:|
000004D0: 8D 38 33 30 30 3A 99 56 24 3B 22 20 22 3B 54 24 |.8300:.V$;" ";T$|
000004E0: 00 E6 08 D0 1B 8E 00 F6 08 40 1F 56 B2 30 3A 8F |.........@.V.0:.|
000004F0: 20 55 4E 48 45 58 00 10 09 4A 1F 54 B2 C6 28 56 | UNHEX...J.T..(V|
00000500: 24 29 AB 34 38 3A 8B 54 B1 39 A7 54 B2 54 AB 37 |$).48:.T.9.T.T.7|
00000510: 00 28 09 54 1F 56 B2 31 36 AC 56 AA 54 3A 56 24 |.(.T.V.16.V.T:V$|
00000520: B2 CA 28 56 24 2C 32 29 00 39 09 5E 1F 8B 56 24 |..(V$,2).9.^..V$|
00000530: B3 B1 22 22 A7 38 30 31 30 00 3F 09 68 1F 8E 00 |.."".8010.?.h...|
00000540: 4C 09 A4 1F 8F 20 47 45 54 4E 55 4D 00 68 09 AE |L.... GETNUM.h..|
00000550: 1F 4C 31 24 B2 C8 28 4C 24 2C 31 29 3A 4C 32 24 |.L1$..(L$,1):L2$|
00000560: B2 CA 28 4C 24 2C 32 29 00 80 09 B8 1F 8B 4C 31 |..(L$,2)......L1|
00000570: 24 B2 22 23 22 A7 56 B2 C5 28 4C 32 24 29 3A 8E |$."#".V..(L2$):.|
00000580: 00 9C 09 C2 1F 8B 4C 31 24 B2 22 24 22 A7 56 24 |......L1$."$".V$|
00000590: B2 4C 32 24 3A 8D 38 30 30 30 3A 8E 00 B4 09 C7 |.L2$:.8000:.....|
000005A0: 1F 8B 4C 31 24 B2 22 27 22 A7 56 B2 C6 28 4C 32 |..L1$."'".V..(L2|
000005B0: 24 29 3A 8E 00 C2 09 CC 1F 56 B2 C5 28 4C 24 29 |$):......V..(L$)|
000005C0: 3A 8E 00 CF 09 08 20 8F 20 47 45 54 56 41 4C 00 |:..... . GETVAL.|
000005D0: EB 09 12 20 4C 31 24 B2 C8 28 4C 24 2C 31 29 3A |... L1$..(L$,1):|
000005E0: 4C 32 24 B2 CA 28 4C 24 2C 32 29 00 03 0A 1C 20 |L2$..(L$,2).... |
000005F0: 8B 4C 31 24 B2 22 23 22 A7 56 B2 C5 28 4C 32 24 |.L1$."#".V..(L2$|
00000600: 29 3A 8E 00 1F 0A 26 20 8B 4C 31 24 B2 22 24 22 |):....& .L1$."$"|
00000610: A7 56 24 B2 4C 32 24 3A 8D 38 30 30 30 3A 8E 00 |.V$.L2$:.8000:..|
00000620: 37 0A 2B 20 8B 4C 31 24 B2 22 27 22 A7 56 B2 C6 |7.+ .L1$."'".V..|
00000630: 28 4C 32 24 29 3A 8E 00 43 0A 30 20 8D 39 31 30 |(L2$):..C.0 .910|
00000640: 30 3A 8E 00 51 0A 6C 20 8F 20 4A 55 53 54 49 46 |0:..Q.l . JUSTIF|
00000650: 59 00 6B 0A 76 20 56 24 B2 C9 28 22 20 20 20 20 |Y.k.v V$..(" |
00000660: 22 AA C4 28 56 29 2C 35 29 3A 8E 00 7C 0A 28 23 |"..(V),5):..|.(#|
00000670: 8F 20 53 54 4F 57 20 4C 41 42 45 4C 00 9D 0A 32 |. STOW LABEL...2|
00000680: 23 8B 53 59 B1 53 49 5A A7 99 22 54 4F 4F 20 4D |#.SY.SIZ.."TOO M|
00000690: 41 4E 59 20 4C 41 42 45 4C 53 22 3A 8E 00 C0 0A |ANY LABELS":....|
000006A0: 3C 23 53 59 24 28 53 59 29 B2 4C 24 3A 41 44 28 |<#SY$(SY).L$:AD(|
000006B0: 53 59 29 B2 50 43 3A 53 59 B2 53 59 AA 31 3A 8E |SY).PC:SY.SY.1:.|
000006C0: 00 CD 0A 8C 23 8F 20 4C 4F 4F 4B 55 50 00 DF 0A |....#. LOOKUP...|
000006D0: 96 23 81 49 B2 C3 28 4C 24 29 A4 31 A9 AB 31 00 |.#.I..(L$).1..1.|
000006E0: 05 0B A0 23 3A 54 24 B2 CA 28 4C 24 2C 49 2C 31 |...#:T$..(L$,I,1|
000006F0: 29 3A |): |
.......:.59468,12.:.... ASM COPYRIGHT (C
) 1979 GLEN FISHER.V.... CURSOR #10, MAY
, 1979.W.... BOX 550, GOLETA, CA. 93017.
}...:...... AS OF MAY 30,1979...Z.PG$."A
SM":NM$."10":.62000.P.D.SIZ.25:.SY$(SIZ)
,AD(SIZ)...N.OP.56:.OP$(OP)...X..I.1.OP:
.OP$(I):.I...... PASS 1......B$:.B$."".2
000.5...C$.H(B$,1):L$.J(B$,2).D....C$.".
".C$."#".C$."$".C$."'".PC.PC.1:.1000.~..
..C$.";".PC.PC.2:.1000......C$."="..9000
:.B$:.1000...$..C$."@"..8100:PC.V:.1000.
I...PC.PC.1:.1000.V.P.. PASS 2...Z..:.I.
1.OP:.T$:.I.........4..B$:.B$."".3000.(.
>.T.23:.F(B$)..64.F(B$)..90.T.18.;.@..F(
B$).61.T.12.K.C...T);B$;".".E.H.C$.H(B$,
1):L$.J(B$,2)...R..C$."=".V.PC:.8300:.".
";V$:.2100...\..C$."@"..8100:PC.V:.8300:
.".";V$:.2100...F..C$."#".C$."$".C$."'".
L$.".".B$:.7000:.2100...K..B$.".".V.PC:.
8300:.V$:PC.PC.1:.2100.:.P..C$.";".C$.".
".C$."+".L$.B$:.7000:.2100.V.Z..9500:L$.
".$".OP$:.7000.`....2100.{....".ASSEMBLY
COMPLETE."...B.....X.. PUTVAL...B.C$.H(
L$,1):L$.J(L$,2).V.L..C$..".".C$..";".C$
.."+".."BAD OPERAND":....V..8200......C$
."+".V.V.(PC.1):.(V.0.V..129).V.127.V.V.
256.@....C$..";".(V.0.V.255).."BYTE TOO
BIG":V.0.Y...H..(V.256):V.V.256.H.K....P
C,V:PC.PC.1......8300:T$.V$:V.PC.1:.8300
:.V$;" ";T$......C$..";".......V.H:.PC,V
:PC.PC.1...F..8300:T$.V$:V.PC.1:.8300:.V
$;" ";T$...P.....@.V.0:. UNHEX...J.T.F(V
$).48:.T.9.T.T.7.(.T.V.16.V.T:V$.J(V$,2)
.9.^..V$.."".8010.?.H...L.... GETNUM.H..
.L1$.H(L$,1):L2$.J(L$,2)......L1$."#".V.
E(L2$):....B..L1$."$".V$.L2$:.8000:....G
..L1$."'".V.F(L2$):..B.L.V.E(L$):..O.. .
GETVAL.... L1$.H(L$,1):L2$.J(L$,2)....
.L1$."#".V.E(L2$):....& .L1$."$".V$.L2$:
.8000:..7.+ .L1$."'".V.F(L2$):..C.0 .910
0:..Q.L . JUSTIFY.K.V V$.I(" ".D(V),5
):..|.(#. STOW LABEL...2#.SY.SIZ.."TOO M
ANY LABELS":....<#SY$(SY).L$:AD(SY).PC:S
Y.SY.1:..M..#. LOOKUP....#.I.C(L$).1..1.
.. #:T$.J(L$,I,1):
> CLICK IMAGE PREVIEW FOR FULL MODAL