DISASSEMBLER
FILE INFORMATION
FILENAME(S): DISASSEMBLER
FILE TYPE(S): PRG
FILE SIZE: 7.3K
FIRST SEEN: 2025-11-30 21:25:25
APPEARS ON: 1 disk(s)
FILE HASH
568dd66624558e8bcb112bd1e5768c32a448aa82efe9de1832e14518978ca2e0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITY | DISASSEMBLER | PRG | DuncanTwain | 28 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 5A 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..'.Z..*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 00 4D 08 5B 00 8F 2A 2A 20 |*******.M.[..** |
00000030: 41 4E 20 45 58 50 4C 41 49 4E 49 4E 47 20 44 49 |AN EXPLAINING DI|
00000040: 53 41 53 53 45 4D 42 4C 45 52 20 2A 2A 00 73 08 |SASSEMBLER **.s.|
00000050: 5C 00 8F 2A 20 20 20 20 20 20 20 20 20 20 20 20 |\..* |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000070: 20 20 2A 00 99 08 5D 00 8F 2A 20 20 20 46 4F 52 | *...]..* FOR|
00000080: 20 54 48 45 20 43 20 36 34 20 43 4F 4D 50 55 54 | THE C 64 COMPUT|
00000090: 45 52 20 20 20 20 20 20 2A 00 BF 08 5E 00 8F 2A |ER *...^..*|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000000C0: E5 08 5F 00 8F 2A 42 41 53 45 44 20 4F 4E 20 41 |.._..*BASED ON A|
000000D0: 4E 20 50 55 42 20 44 4F 4D 41 49 4E 20 44 49 53 |N PUB DOMAIN DIS|
000000E0: 41 53 53 20 2A 00 0B 09 60 00 8F 2A 20 20 20 20 |ASS *...`..* |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 20 20 20 20 20 20 20 20 20 20 2A 00 31 09 61 00 | *.1.a.|
00000110: 8F 2A 20 20 20 20 49 44 45 41 20 45 4E 20 43 4F |.* IDEA EN CO|
00000120: 50 59 52 49 47 48 54 53 20 20 20 20 20 20 20 20 |PYRIGHTS |
00000130: 2A 00 57 09 62 00 8F 2A 20 20 20 20 20 4A 4F 48 |*.W.b..* JOH|
00000140: 4E 20 48 4F 4C 4C 45 4E 42 45 52 47 20 20 20 20 |N HOLLENBERG |
00000150: 20 20 20 20 20 20 2A 00 7D 09 63 00 8F 2A 2A 2A | *.}.c..***|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8B 09 |*************...|
00000180: 64 00 54 45 B2 30 3A 50 4E B2 31 00 B9 09 6E 00 |d.TE.0:PN.1...n.|
00000190: 99 C7 28 31 34 37 29 22 12 48 92 4F 57 20 4D 41 |..(147)".H.OW MA|
000001A0: 4E 59 20 4C 49 4E 45 53 20 4F 4E 20 41 20 53 48 |NY LINES ON A SH|
000001B0: 45 45 54 22 3B 3A 85 54 41 00 E5 09 82 00 86 4F |EET";:.TA......O|
000001C0: 24 28 31 36 29 2C 52 24 28 33 30 30 29 2C 41 24 |$(16),R$(300),A$|
000001D0: 28 31 35 29 2C 56 41 28 32 35 35 29 3A 52 24 28 |(15),VA(255):R$(|
000001E0: 30 29 B2 22 22 00 FF 09 8C 00 58 24 B2 22 30 31 |0)."".....X$."01|
000001F0: 32 33 34 35 36 37 38 39 41 42 43 44 45 46 22 00 |23456789ABCDEF".|
00000200: 16 0A 96 00 4C 24 B2 22 32 32 32 33 32 32 33 33 |....L$."22232233|
00000210: 33 32 31 31 32 22 00 1C 0A 97 00 8C 00 32 0A 9B |32112".......2..|
00000220: 00 81 49 B2 30 A4 32 35 35 3A 87 52 24 28 49 29 |..I.0.255:.R$(I)|
00000230: 3A 82 00 7F 0A A0 00 4F 24 28 30 29 B2 22 42 52 |:......O$(0)."BR|
00000240: 4B 3B 4F 52 41 30 3F 3F 3F 3B 3F 3F 3F 3B 3F 3F |K;ORA0???;???;??|
00000250: 3F 3B 4F 52 41 31 41 53 4C 31 3F 3F 3F 3B 50 48 |?;ORA1ASL1???;PH|
00000260: 50 3B 4F 52 41 32 41 53 4C 3A 3F 3F 3F 3B 3F 3F |P;ORA2ASL:???;??|
00000270: 3F 3B 4F 52 41 33 41 53 4C 33 3F 3F 3F 3B 22 00 |?;ORA3ASL3???;".|
00000280: CC 0A AA 00 4F 24 28 31 29 B2 22 42 50 4C 3C 4F |....O$(1)."BPL<O|
00000290: 52 41 34 3F 3F 3F 3B 3F 3F 3F 3B 3F 3F 3F 3B 4F |RA4???;???;???;O|
000002A0: 52 41 35 41 53 4C 35 3F 3F 3F 3B 43 4C 43 3B 4F |RA5ASL5???;CLC;O|
000002B0: 52 41 36 3F 3F 3F 3B 3F 3F 3F 3B 3F 3F 3F 3B 4F |RA6???;???;???;O|
000002C0: 52 41 37 41 53 4C 37 3F 3F 3F 3B 22 00 19 0B B4 |RA7ASL7???;"....|
000002D0: 00 4F 24 28 32 29 B2 22 4A 53 52 33 41 4E 44 30 |.O$(2)."JSR3AND0|
000002E0: 3F 3F 3F 3B 3F 3F 3F 3B 42 49 54 31 41 4E 44 31 |???;???;BIT1AND1|
000002F0: 52 4F 4C 31 3F 3F 3F 3B 50 4C 50 3B 41 4E 44 32 |ROL1???;PLP;AND2|
00000300: 52 4F 4C 3A 3F 3F 3F 3B 42 49 54 33 41 4E 44 33 |ROL:???;BIT3AND3|
00000310: 52 4F 4C 33 3F 3F 3F 3B 22 00 66 0B BE 00 4F 24 |ROL3???;".f...O$|
00000320: 28 33 29 B2 22 42 4D 49 3C 41 4E 44 34 3F 3F 3F |(3)."BMI<AND4???|
00000330: 3B 3F 3F 3F 3B 3F 3F 3F 3B 41 4E 44 35 52 4F 4C |;???;???;AND5ROL|
00000340: 35 3F 3F 3F 3B 53 45 43 3B 41 4E 44 36 3F 3F 3F |5???;SEC;AND6???|
00000350: 3B 3F 3F 3F 3B 3F 3F 3F 3B 41 4E 44 37 52 4F 4C |;???;???;AND7ROL|
00000360: 37 3F 3F 3F 3B 22 00 B3 0B C8 00 4F 24 28 34 29 |7???;".....O$(4)|
00000370: B2 22 52 54 49 3B 45 4F 52 30 3F 3F 3F 3B 3F 3F |."RTI;EOR0???;??|
00000380: 3F 3B 3F 3F 3F 3B 45 4F 52 31 4C 53 52 31 3F 3F |?;???;EOR1LSR1??|
00000390: 3F 3B 50 48 41 3B 45 4F 52 32 4C 53 52 3A 3F 3F |?;PHA;EOR2LSR:??|
000003A0: 3F 3B 4A 4D 50 33 45 4F 52 33 4C 53 52 33 3F 3F |?;JMP3EOR3LSR3??|
000003B0: 3F 3B 22 00 00 0C D2 00 4F 24 28 35 29 B2 22 42 |?;".....O$(5)."B|
000003C0: 56 43 3C 45 4F 52 34 3F 3F 3F 3B 3F 3F 3F 3B 3F |VC<EOR4???;???;?|
000003D0: 3F 3F 3B 45 4F 52 35 4C 53 52 35 3F 3F 3F 3B 43 |??;EOR5LSR5???;C|
000003E0: 4C 49 3B 45 4F 52 36 3F 3F 3F 3B 3F 3F 3F 3B 3F |LI;EOR6???;???;?|
000003F0: 3F 3F 3B 45 4F 52 37 4C 53 52 37 3F 3F 3F 3B 22 |??;EOR7LSR7???;"|
00000400: 00 4D 0C DC 00 4F 24 28 36 29 B2 22 52 54 53 3B |.M...O$(6)."RTS;|
00000410: 41 44 43 30 3F 3F 3F 3B 3F 3F 3F 3B 3F 3F 3F 3B |ADC0???;???;???;|
00000420: 41 44 43 31 52 4F 52 31 3F 3F 3F 3B 50 4C 41 3B |ADC1ROR1???;PLA;|
00000430: 41 44 43 32 52 4F 52 3A 3F 3F 3F 3B 4A 4D 50 38 |ADC2ROR:???;JMP8|
00000440: 41 44 43 33 52 4F 52 33 3F 3F 3F 3B 22 00 9A 0C |ADC3ROR3???;"...|
00000450: E6 00 4F 24 28 37 29 B2 22 42 56 53 3C 41 44 43 |..O$(7)."BVS<ADC|
00000460: 34 3F 3F 3F 3B 3F 3F 3F 3B 3F 3F 3F 3B 41 44 43 |4???;???;???;ADC|
00000470: 35 52 4F 52 35 3F 3F 3F 3B 53 45 49 3B 41 44 43 |5ROR5???;SEI;ADC|
00000480: 36 3F 3F 3F 3B 3F 3F 3F 3B 3F 3F 3F 3B 41 44 43 |6???;???;???;ADC|
00000490: 37 52 4F 52 37 3F 3F 3F 3B 22 00 E7 0C F0 00 4F |7ROR7???;".....O|
000004A0: 24 28 38 29 B2 22 3F 3F 3F 3B 53 54 41 30 3F 3F |$(8)."???;STA0??|
000004B0: 3F 3B 3F 3F 3F 3B 53 54 59 31 53 54 41 31 53 54 |?;???;STY1STA1ST|
000004C0: 58 31 3F 3F 3F 3B 44 45 59 3B 3F 3F 3F 3B 54 58 |X1???;DEY;???;TX|
000004D0: 41 3B 3F 3F 3F 3B 53 54 59 33 53 54 41 33 53 54 |A;???;STY3STA3ST|
000004E0: 58 33 3F 3F 3F 3B 22 00 34 0D FA 00 4F 24 28 39 |X3???;".4...O$(9|
000004F0: 29 B2 22 42 43 43 3C 53 54 41 34 3F 3F 3F 3B 3F |)."BCC<STA4???;?|
00000500: 3F 3F 3B 53 54 59 35 53 54 41 35 53 54 58 39 3F |??;STY5STA5STX9?|
00000510: 3F 3F 3B 54 59 41 3B 53 54 41 36 54 58 53 3B 3F |??;TYA;STA6TXS;?|
00000520: 3F 3F 3B 3F 3F 3F 3B 53 54 41 37 3F 3F 3F 3B 3F |??;???;STA7???;?|
00000530: 3F 3F 3B 22 00 82 0D 04 01 4F 24 28 31 30 29 B2 |??;".....O$(10).|
00000540: 22 4C 44 59 32 4C 44 41 30 4C 44 58 32 3F 3F 3F |"LDY2LDA0LDX2???|
00000550: 3B 4C 44 59 31 4C 44 41 31 4C 44 58 31 3F 3F 3F |;LDY1LDA1LDX1???|
00000560: 3B 54 41 59 3B 4C 44 41 32 54 41 58 3B 3F 3F 3F |;TAY;LDA2TAX;???|
00000570: 3B 4C 44 59 33 4C 44 41 33 4C 44 58 33 3F 3F 3F |;LDY3LDA3LDX3???|
00000580: 3B 22 00 D0 0D 0E 01 4F 24 28 31 31 29 B2 22 42 |;".....O$(11)."B|
00000590: 43 53 3C 4C 44 41 34 3F 3F 3F 3B 3F 3F 3F 3B 4C |CS<LDA4???;???;L|
000005A0: 44 59 35 4C 44 41 35 4C 44 58 39 3F 3F 3F 3B 43 |DY5LDA5LDX9???;C|
000005B0: 4C 56 3B 4C 44 41 36 54 53 58 3B 3F 3F 3F 3B 4C |LV;LDA6TSX;???;L|
000005C0: 44 59 37 4C 44 41 37 4C 44 58 36 3F 3F 3F 3B 22 |DY7LDA7LDX6???;"|
000005D0: 00 1E 0E 18 01 4F 24 28 31 32 29 B2 22 43 50 59 |.....O$(12)."CPY|
000005E0: 32 43 4D 50 30 3F 3F 3F 3B 3F 3F 3F 3B 43 50 59 |2CMP0???;???;CPY|
000005F0: 31 43 4D 50 31 44 45 43 31 3F 3F 3F 3B 49 4E 59 |1CMP1DEC1???;INY|
00000600: 3B 43 4D 50 32 44 45 58 3B 3F 3F 3F 3B 43 50 59 |;CMP2DEX;???;CPY|
00000610: 33 43 4D 50 33 44 45 43 33 3F 3F 3F 3B 22 00 6C |3CMP3DEC3???;".l|
00000620: 0E 22 01 4F 24 28 31 33 29 B2 22 42 4E 45 3C 43 |.".O$(13)."BNE<C|
00000630: 4D 50 34 3F 3F 3F 3B 3F 3F 3F 3B 3F 3F 3F 3B 43 |MP4???;???;???;C|
00000640: 4D 50 35 44 45 43 35 3F 3F 3F 3B 43 4C 44 3B 43 |MP5DEC5???;CLD;C|
00000650: 4D 50 36 3F 3F 3F 3B 3F 3F 3F 3B 3F 3F 3F 3B 43 |MP6???;???;???;C|
00000660: 4D 50 37 44 45 43 37 3F 3F 3F 3B 22 00 BA 0E 2C |MP7DEC7???;"...,|
00000670: 01 4F 24 28 31 34 29 B2 22 43 50 58 32 53 42 43 |.O$(14)."CPX2SBC|
00000680: 30 3F 3F 3F 3B 3F 3F 3F 3B 43 50 58 31 53 42 43 |0???;???;CPX1SBC|
00000690: 31 49 4E 43 31 3F 3F 3F 3B 49 4E 58 3B 53 42 43 |1INC1???;INX;SBC|
000006A0: 32 4E 4F 50 3B 3F 3F 3F 3B 43 50 58 33 53 42 43 |2NOP;???;CPX3SBC|
000006B0: 33 49 4E 43 33 3F 3F 3F 3B 22 00 08 0F 36 01 4F |3INC3???;"...6.O|
000006C0: 24 28 31 35 29 B2 22 42 45 51 3C 53 42 43 34 3F |$(15)."BEQ<SBC4?|
000006D0: 3F 3F 3B 3F 3F 3F 3B 3F 3F 3F 3B 53 42 43 35 49 |??;???;???;SBC5I|
000006E0: 4E 43 35 3F 3F 3F 3B 53 45 44 3B 53 42 43 36 3F |NC5???;SED;SBC6?|
000006F0: 3F 3F 3B 3F 3F 3F 3B 3F 3F 3F 3B 53 42 43 37 49 |??;???;???;SBC7I|
00000700: 4E 43 37 3F 3F 3F 3B 22 00 3E 0F 40 01 42 24 B2 |NC7???;".>.@.B$.|
00000710: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00000720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000730: 20 20 20 20 20 20 20 20 22 3A 89 33 34 30 00 6B | ":.340.k|
00000740: 0F 4A 01 99 22 11 20 20 20 20 20 50 52 45 53 53 |.J..". PRESS|
00000750: 20 12 53 92 50 41 43 45 20 54 4F 20 43 4F 4E 54 | .S.PACE TO CONT|
00000760: 49 4E 55 45 20 22 3A 8D 38 33 30 00 82 0F 54 01 |INUE ":.830...T.|
00000770: 99 22 12 44 92 49 53 41 53 53 45 4D 42 4C 45 20 |.".D.ISASSEMBLE |
00000780: 20 22 00 B6 0F 7C 01 99 42 24 2C 42 24 3A 99 22 | "...|..B$,B$:."|
00000790: 91 91 22 3B 3A 85 22 12 44 92 53 4D 42 4C 20 41 |..";:.".D.SMBL A|
000007A0: 44 44 52 53 20 22 3B 41 24 3A 4B B2 31 3A 8D 37 |DDRS ";A$:K.1:.7|
000007B0: 34 30 3A 53 B2 41 00 CD 0F 86 01 85 22 20 23 20 |40:S.A......" # |
000007C0: 49 4E 53 54 52 55 43 53 20 22 3B 4E 31 00 EB 0F |INSTRUCS ";N1...|
000007D0: 87 01 99 22 55 49 54 56 2E 20 4E 41 41 52 20 50 |..."UITV. NAAR P|
000007E0: 52 49 4E 54 45 52 20 4A 2F 4E 22 00 F4 0F 88 01 |RINTER J/N".....|
000007F0: 85 20 5A 24 00 05 10 89 01 8B 20 5A 24 B2 22 4E |. Z$...... Z$."N|
00000800: 22 A7 34 30 30 00 16 10 8A 01 8B 5A 24 B2 22 4A |".400......Z$."J|
00000810: 22 A7 20 38 35 30 00 2F 10 8B 01 8B 5A 24 B3 B1 |". 850./....Z$..|
00000820: 22 4A 22 B0 5A 24 B3 B1 22 4E 22 A7 33 39 31 00 |"J".Z$.."N".391.|
00000830: 44 10 90 01 99 22 93 11 11 20 20 22 3A 81 49 B2 |D...."... ":.I.|
00000840: 31 A4 4E 31 00 51 10 95 01 81 20 49 B2 31 A4 4E |1.N1.Q.... I.1.N|
00000850: 31 00 65 10 9A 01 42 B2 B5 28 53 AD 32 35 36 29 |1.e...B..(S.256)|
00000860: 3A 8D 37 30 30 00 7F 10 A4 01 42 B2 53 AB B5 28 |:.700.....B.S..(|
00000870: 53 AD 32 35 36 29 AC 32 35 36 3A 8D 37 30 30 00 |S.256).256:.700.|
00000880: 89 10 AE 01 99 22 20 22 3B 00 AF 10 B8 01 4A B2 |....." ";.....J.|
00000890: C2 28 53 29 3A 4B B2 B5 28 4A AD 31 36 29 3A 4C |.(S):K..(J.16):L|
000008A0: B2 4A AB 4B AC 31 36 AA 31 3A 8D 31 30 30 30 00 |.J.K.16.1:.1000.|
000008B0: D0 10 C2 01 4D B2 C6 28 CA 28 4F 24 28 4B 29 2C |....M..(.(O$(K),|
000008C0: 4C AC 34 2C 31 29 29 AB C6 28 22 30 22 29 AA 31 |L.4,1))..("0").1|
000008D0: 00 EA 10 CC 01 4E B2 C5 28 CA 28 4C 24 2C 4D 2C |.....N..(.(L$,M,|
000008E0: 31 29 29 3A 81 50 B2 31 A4 4E 00 04 11 D6 01 42 |1)):.P.1.N.....B|
000008F0: B2 C2 28 53 AA 50 AB 31 29 3A 99 22 20 22 3B 3A |..(S.P.1):." ";:|
00000900: 8D 37 30 30 00 0B 11 E0 01 82 50 00 2D 11 EA 01 |.700......P.-...|
00000910: 99 A6 31 32 AB 4E AC 33 29 CA 28 4F 24 28 4B 29 |..12.N.3).(O$(K)|
00000920: 2C 4C AC 34 AB 33 2C 33 29 22 20 22 3B 00 3A 11 |,L.4.3,3)" ";.:.|
00000930: F4 01 42 B2 C2 28 53 AA 31 29 00 81 11 FE 01 91 |..B..(S.1)......|
00000940: 4D 8D 35 32 30 2C 35 33 30 2C 35 34 30 2C 35 35 |M.520,530,540,55|
00000950: 30 2C 35 36 30 2C 35 37 30 2C 35 38 30 2C 35 39 |0,560,570,580,59|
00000960: 30 2C 36 30 30 2C 36 31 30 2C 36 32 30 2C 36 33 |0,600,610,620,63|
00000970: 30 2C 36 34 30 3A 99 A3 32 30 29 3B 3A 89 36 38 |0,640:..20);:.68|
00000980: 30 00 9A 11 08 02 99 22 28 22 3B 3A 8D 37 30 30 |0......"(";:.700|
00000990: 3A 99 22 2C 58 29 22 3B 3A 8E 00 A5 11 12 02 8D |:.",X)";:.......|
000009A0: 37 30 30 3A 8E 00 B6 11 1C 02 99 22 23 22 3B 3A |700:......."#";:|
000009B0: 8D 37 30 30 3A 8E 00 C1 11 26 02 8D 37 31 30 3A |.700:....&..710:|
000009C0: 8E 00 DA 11 30 02 99 22 28 22 3B 3A 8D 37 30 30 |....0.."(";:.700|
000009D0: 3A 99 22 29 2C 59 22 3B 3A 8E 00 EC 11 3A 02 8D |:."),Y";:....:..|
000009E0: 37 30 30 3A 99 22 2C 58 22 3B 3A 8E 00 FE 11 44 |700:.",X";:....D|
000009F0: 02 8D 37 31 30 3A 99 22 2C 59 22 3B 3A 8E 00 10 |..710:.",Y";:...|
00000A00: 12 4E 02 8D 37 31 30 3A 99 22 2C 58 22 3B 3A 8E |.N..710:.",X";:.|
00000A10: 00 27 12 58 02 99 22 28 22 3B 3A 8D 37 31 30 3A |.'.X.."(";:.710:|
00000A20: 99 22 29 22 3B 3A 8E 00 39 12 62 02 8D 37 30 30 |.")";:..9.b..700|
00000A30: 3A 99 22 2C 59 22 3B 3A 8E 00 45 12 6C 02 99 22 |:.",Y";:..E.l.."|
00000A40: 41 22 3B 3A 8E 00 4E 12 76 02 99 3B 3A 8E 00 6D |A";:..N.v..;:..m|
00000A50: 12 80 02 8B 42 B1 31 32 37 A7 42 B2 28 28 A8 42 |....B.127.B.((.B|
00000A60: 29 AF 32 35 35 29 AA 31 3A 42 B2 AB 42 00 79 12 |).255).1:B..B.y.|
00000A70: 8A 02 54 B2 53 AA 32 AA 42 00 8D 12 94 02 42 B2 |..T.S.2.B.....B.|
00000A80: B5 28 54 AD 32 35 36 29 3A 8D 37 30 30 00 A9 12 |.(T.256):.700...|
00000A90: 9E 02 42 B2 54 AB B5 28 54 AD 32 35 36 29 AC 32 |..B.T..(T.256).2|
00000AA0: 35 36 3A 8D 37 30 30 3A 8E 00 C4 12 A8 02 8B C3 |56:.700:........|
00000AB0: 28 50 24 29 B1 30 A7 99 22 3B 22 50 24 3B 3A 50 |(P$).0..";"P$;:P|
00000AC0: 24 B2 22 22 00 CA 12 A9 02 99 00 05 13 AA 02 54 |$.""...........T|
00000AD0: 45 B2 54 45 AA 31 3A 8B 54 45 B2 54 41 AB 35 A7 |E.TE.1:.TE.TA.5.|
00000AE0: 99 3A 99 3A 99 3A 99 22 50 41 47 45 20 4E 55 4D |.:.:.:."PAGE NUM|
00000AF0: 42 45 52 20 22 3B 50 4E 3A 50 4E B2 50 4E AA 31 |BER ";PN:PN.PN.1|
00000B00: 3A 54 45 B2 30 00 12 13 AB 02 53 B2 53 AA 4E 3A |:TE.0.....S.S.N:|
00000B10: 82 49 00 25 13 B2 02 8B 20 C2 28 31 35 34 29 B2 |.I.%.... .(154).|
00000B20: 33 A7 33 33 30 00 34 13 B4 02 98 34 3A A0 34 3A |3.330.4....4:.4:|
00000B30: 89 33 33 30 00 65 13 BC 02 99 CA 28 58 24 2C B5 |.330.e.....(X$,.|
00000B40: 28 42 AD 31 36 29 AA 31 2C 31 29 3B CA 28 58 24 |(B.16).1,1);.(X$|
00000B50: 2C 42 AB B5 28 42 AD 31 36 29 AC 31 36 AA 31 2C |,B..(B.16).16.1,|
00000B60: 31 29 3B 3A 8E 00 77 13 C6 02 42 B2 C2 28 53 AA |1);:..w...B..(S.|
00000B70: 32 29 3A 8D 37 30 30 00 89 13 D0 02 42 B2 C2 28 |2):.700.....B..(|
00000B80: 53 AA 31 29 3A 8D 37 30 30 00 8F 13 DA 02 8E 00 |S.1):.700.......|
00000B90: A9 13 E4 02 41 24 B2 C9 28 22 30 30 30 30 22 AA |....A$..("0000".|
00000BA0: 41 24 2C 34 29 3A 41 B2 30 00 B5 13 EE 02 81 4A |A$,4):A.0......J|
00000BB0: 31 B2 4B A4 34 00 C7 13 F8 02 43 24 B2 CA 28 41 |1.K.4.....C$..(A|
00000BC0: 24 2C 4A 31 2C 31 29 00 EE 13 02 03 8B 43 24 B1 |$,J1,1)......C$.|
00000BD0: B2 22 41 22 AF 43 24 B3 B2 22 46 22 A7 43 B2 C6 |."A".C$.."F".C..|
00000BE0: 28 43 24 29 AB C6 28 22 41 22 29 AA 31 30 00 12 |(C$)..("A").10..|
00000BF0: 14 0C 03 8B 43 24 B1 B2 22 30 22 AF 43 24 B3 B2 |....C$.."0".C$..|
00000C00: 22 39 22 A7 43 B2 C6 28 43 24 29 AB C6 28 22 30 |"9".C..(C$)..("0|
00000C10: 22 29 00 1F 14 16 03 41 B2 41 AC 31 36 AA 43 00 |").....A.A.16.C.|
00000C20: 27 14 20 03 82 4A 31 00 2D 14 2A 03 8E 00 40 14 |'. ..J1.-.*...@.|
00000C30: 3E 03 A1 41 24 3A 8B 41 24 B2 22 22 A7 38 33 30 |>..A$:.A$."".830|
00000C40: 00 46 14 48 03 8E 00 58 14 52 03 9F 34 2C 34 3A |.F.H...X.R..4,4:|
00000C50: 9D 34 3A 89 20 34 30 35 00 69 14 E8 03 8B 4A B2 |.4:. 405.i....J.|
00000C60: 31 30 31 A7 8D 32 30 30 30 00 79 14 EA 03 8B 4A |101..2000.y....J|
00000C70: B2 33 37 A7 8D 32 30 30 30 00 89 14 EC 03 8B 4A |.37..2000......J|
00000C80: B2 30 36 A7 8D 32 30 30 30 00 99 14 EE 03 8B 4A |.06..2000......J|
00000C90: B2 33 36 A7 8D 32 30 30 30 00 AA 14 F0 03 8B 4A |.36..2000......J|
00000CA0: B2 31 39 37 A7 8D 32 30 30 30 00 BB 14 F2 03 8B |.197..2000......|
00000CB0: 4A B2 32 32 38 A7 8D 32 30 30 30 00 CC 14 F4 03 |J.228..2000.....|
00000CC0: 8B 4A B2 31 39 36 A7 8D 32 30 30 30 00 DD 14 F6 |.J.196..2000....|
00000CD0: 03 8B 4A B2 31 39 38 A7 8D 32 30 30 30 00 ED 14 |..J.198..2000...|
00000CE0: F8 03 8B 4A B2 36 39 A7 8D 32 30 30 30 00 FE 14 |...J.69..2000...|
00000CF0: FA 03 8B 4A B2 32 33 30 A7 8D 32 30 30 30 00 0F |...J.230..2000..|
00000D00: 15 FC 03 8B 4A B2 31 36 35 A7 8D 32 30 30 30 00 |....J.165..2000.|
00000D10: 20 15 FE 03 8B 4A B2 31 36 36 A7 8D 32 30 30 30 | ....J.166..2000|
00000D20: 00 31 15 00 04 8B 4A B2 31 36 34 A7 8D 32 30 30 |.1....J.164..200|
00000D30: 30 00 41 15 02 04 8B 4A B2 37 30 A7 8D 32 30 30 |0.A....J.70..200|
00000D40: 30 00 51 15 04 04 8B 4A B2 30 35 A7 8D 32 30 30 |0.Q....J.05..200|
00000D50: 30 00 61 15 06 04 8B 4A B2 33 38 A7 8D 32 30 30 |0.a....J.38..200|
00000D60: 30 00 72 15 08 04 8B 4A B2 31 30 32 A7 8D 32 30 |0.r....J.102..20|
00000D70: 30 30 00 83 15 0A 04 8B 4A B2 32 32 39 A7 8D 32 |00......J.229..2|
00000D80: 30 30 30 00 94 15 0C 04 8B 4A B2 31 33 33 A7 8D |000......J.133..|
00000D90: 32 30 30 30 00 A5 15 0E 04 8B 4A B2 31 33 34 A7 |2000......J.134.|
00000DA0: 8D 32 30 30 30 00 B6 15 10 04 8B 4A B2 31 33 32 |.2000......J.132|
00000DB0: A7 8D 32 30 30 30 00 BC 15 1A 04 8E 00 D2 15 D0 |..2000..........|
00000DC0: 07 50 4F B2 28 53 AA 31 29 3A 56 41 B2 C2 28 50 |.PO.(S.1):VA..(P|
00000DD0: 4F 29 00 E0 15 DA 07 50 24 B2 52 24 28 56 41 29 |O).....P$.R$(VA)|
00000DE0: 00 E6 15 E4 07 8E 00 2D 16 B8 0B 83 36 35 31 30 |.......-....6510|
00000DF0: 20 44 44 52 2C 36 35 31 30 20 49 2F 4F 2C 46 52 | DDR,6510 I/O,FR|
00000E00: 45 45 20 24 30 32 2C 56 45 43 54 20 46 4C 4F 41 |EE $02,VECT FLOA|
00000E10: 54 2F 49 4E 54 2E 4C 4F 57 2C 56 45 43 54 20 46 |T/INT.LOW,VECT F|
00000E20: 4C 4F 41 54 2F 49 4E 54 2E 48 49 47 48 00 6A 16 |LOAT/INT.HIGH.j.|
00000E30: BB 0B 83 56 45 43 54 20 49 4E 54 2F 46 4C 4F 41 |...VECT INT/FLOA|
00000E40: 54 20 4C 4F 57 2C 56 45 43 54 20 49 4E 54 2F 46 |T LOW,VECT INT/F|
00000E50: 4C 4F 41 54 20 48 49 47 48 2C 53 45 41 52 43 48 |LOAT HIGH,SEARCH|
00000E60: 20 43 48 41 52 41 43 54 45 52 00 9F 16 BC 0B 83 | CHARACTER......|
00000E70: 46 4C 41 47 53 43 41 4E 20 46 4F 52 20 45 4E 44 |FLAGSCAN FOR END|
00000E80: 20 51 55 4F 54 45 2C 53 43 52 45 45 4E 20 43 4F | QUOTE,SCREEN CO|
00000E90: 4C 20 46 52 4F 4D 20 4C 41 53 54 20 54 41 42 00 |L FROM LAST TAB.|
00000EA0: B9 16 BE 0B 83 46 4C 41 47 20 30 3D 4C 4F 41 44 |.....FLAG 0=LOAD|
00000EB0: 20 31 3D 56 45 52 49 46 59 00 FF 16 C2 0B 83 49 | 1=VERIFY......I|
00000EC0: 4E 50 55 54 20 42 55 46 46 45 52 20 50 4F 49 4E |NPUT BUFFER POIN|
00000ED0: 54 45 52 2C 46 4C 41 47 20 44 45 46 2E 41 52 52 |TER,FLAG DEF.ARR|
00000EE0: 41 59 20 44 49 4D 2C 44 41 54 41 20 54 59 50 20 |AY DIM,DATA TYP |
00000EF0: 24 46 46 3D 53 54 52 20 24 30 30 3D 4E 55 4D 00 |$FF=STR $00=NUM.|
00000F00: 41 17 CC 0B 83 44 41 54 41 54 59 50 20 24 38 30 |A....DATATYP $80|
00000F10: 3D 49 4E 54 20 24 30 30 3D 46 4C 4F 41 54 2E 2C |=INT $00=FLOAT.,|
00000F20: 46 4C 41 47 20 44 41 54 41 20 53 43 41 4E 2F 4C |FLAG DATA SCAN/L|
00000F30: 49 53 54 20 51 55 4F 54 45 20 47 41 52 2E 43 4F |IST QUOTE GAR.CO|
00000F40: 4C 00 8B 17 D6 0B 83 46 4C 41 47 20 53 55 42 53 |L......FLAG SUBS|
00000F50: 43 52 49 50 54 20 52 45 46 2C 46 4C 41 47 20 24 |CRIPT REF,FLAG $|
00000F60: 30 30 3D 49 4E 50 20 24 34 30 3D 47 45 54 20 24 |00=INP $40=GET $|
00000F70: 39 38 3D 52 45 41 44 2C 46 4C 41 47 20 54 41 4E |98=READ,FLAG TAN|
00000F80: 2C 46 4C 41 47 20 49 4E 50 55 54 00 D3 17 E0 0B |,FLAG INPUT.....|
00000F90: 83 54 45 4D 50 20 49 4E 54 20 56 41 4C 31 2C 54 |.TEMP INT VAL1,T|
00000FA0: 45 4D 50 20 49 4E 54 20 56 41 4C 32 2C 54 45 4D |EMP INT VAL2,TEM|
00000FB0: 50 20 53 54 52 4E 47 20 53 54 41 43 4B 2C 4C 53 |P STRNG STACK,LS|
00000FC0: 54 20 54 45 4D 50 20 53 54 52 4E 47 20 41 44 20 |T TEMP STRNG AD |
00000FD0: 4C 4F 57 00 ED 17 EA 0B 83 4C 53 54 20 54 45 4D |LOW......LST TEM|
00000FE0: 50 20 53 54 52 4E 47 20 41 44 20 48 49 00 05 18 |P STRNG AD HI...|
00000FF0: EB 0B 83 53 54 41 43 4B 20 54 45 4D 50 20 53 54 |...STACK TEMP ST|
00001000: 52 49 4E 47 31 00 1D 18 EC 0B 83 53 54 41 43 4B |RING1......STACK|
00001010: 20 54 45 4D 50 20 53 54 52 49 4E 47 32 00 35 18 | TEMP STRING2.5.|
00001020: ED 0B 83 53 54 41 43 4B 20 54 45 4D 50 20 53 54 |...STACK TEMP ST|
00001030: 52 49 4E 47 33 00 4D 18 EE 0B 83 53 54 41 43 4B |RING3.M....STACK|
00001040: 20 54 45 4D 50 20 53 54 52 49 4E 47 34 00 65 18 | TEMP STRING4.e.|
00001050: EF 0B 83 53 54 41 43 4B 20 54 45 4D 50 20 53 54 |...STACK TEMP ST|
00001060: 52 49 4E 47 35 00 7D 18 F0 0B 83 53 54 41 43 4B |RING5.}....STACK|
00001070: 20 54 45 4D 50 20 53 54 52 49 4E 47 36 00 95 18 | TEMP STRING6...|
00001080: F1 0B 83 53 54 41 43 4B 20 54 45 4D 50 20 53 54 |...STACK TEMP ST|
00001090: 52 49 4E 47 37 00 AD 18 F2 0B 83 53 54 41 43 4B |RING7......STACK|
000010A0: 20 54 45 4D 50 20 53 54 52 49 4E 47 38 00 C5 18 | TEMP STRING8...|
000010B0: F3 0B 83 53 54 41 43 4B 20 54 45 4D 50 20 53 54 |...STACK TEMP ST|
000010C0: 52 49 4E 47 39 00 E0 18 F9 0B 83 20 55 54 49 4C |RING9...... UTIL|
000010D0: 49 54 59 20 50 4E 54 52 20 41 52 45 41 20 23 31 |ITY PNTR AREA #1|
000010E0: 00 FB 18 FA 0B 83 20 55 54 49 4C 49 54 59 20 50 |...... UTILITY P|
000010F0: 4E 54 52 20 41 52 45 41 2E 23 32 00 16 19 FB 0B |NTR AREA.#2.....|
00001100: 83 20 55 54 49 4C 49 54 59 20 50 4E 54 52 20 41 |. UTILITY PNTR A|
00001110: 52 45 41 2E 23 33 00 31 19 FC 0B 83 20 55 54 49 |REA.#3.1.... UTI|
00001120: 4C 49 54 59 20 50 4E 54 52 20 41 52 45 41 2E 23 |LITY PNTR AREA.#|
00001130: 34 00 49 19 FE 0B 83 50 52 4F 44 2E 4F 46 46 4D |4.I....PROD.OFFM|
00001140: 55 4C 2E 50 4C 59 20 23 31 00 61 19 FF 0B 83 50 |UL.PLY #1.a....P|
00001150: 52 4F 44 2E 4F 46 46 4D 55 4C 2E 50 4C 59 20 23 |ROD.OFFMUL.PLY #|
00001160: 32 00 79 19 00 0C 83 50 52 4F 44 2E 4F 46 46 4D |2.y....PROD.OFFM|
00001170: 55 4C 2E 50 4C 59 20 23 33 00 91 19 01 0C 83 50 |UL.PLY #3......P|
00001180: 52 4F 44 2E 4F 46 46 4D 55 4C 2E 50 4C 59 20 23 |ROD.OFFMUL.PLY #|
00001190: 34 00 A9 19 02 0C 83 50 52 4F 44 2E 4F 46 46 4D |4......PROD.OFFM|
000011A0: 55 4C 2E 50 4C 59 20 23 35 00 F4 19 08 0C 83 53 |UL.PLY #5......S|
000011B0: 54 41 52 54 20 4F 46 20 42 41 53 49 43 20 4C 4F |TART OF BASIC LO|
000011C0: 57 2C 53 54 41 52 54 20 4F 46 20 42 41 53 49 43 |W,START OF BASIC|
000011D0: 20 48 49 2C 53 54 41 52 54 20 4F 46 20 56 41 52 | HI,START OF VAR|
000011E0: 20 4C 4F 57 2C 53 54 41 52 54 20 4F 46 20 56 41 | LOW,START OF VA|
000011F0: 52 20 48 49 00 39 1A 12 0C 83 53 54 41 52 54 4F |R HI.9....STARTO|
00001200: 46 20 41 52 52 20 4C 4F 57 2C 53 54 41 52 54 20 |F ARR LOW,START |
00001210: 4F 46 20 41 52 52 20 48 49 2C 45 4E 44 20 4F 46 |OF ARR HI,END OF|
00001220: 20 41 52 52 20 4C 4F 57 2C 45 4E 44 20 4F 46 20 | ARR LOW,END OF |
00001230: 41 52 52 20 48 49 20 2B 31 00 6F 1A 1C 0C 83 42 |ARR HI +1.o....B|
00001240: 4F 54 54 4F 4D 20 4F 46 20 53 54 52 4E 47 20 53 |OTTOM OF STRNG S|
00001250: 54 4F 52 20 4C 4F 57 2C 42 4F 54 54 4F 4D 20 4F |TOR LOW,BOTTOM O|
00001260: 46 20 53 54 52 4E 47 20 53 54 4F 52 20 48 49 00 |F STRNG STOR HI.|
00001270: 9F 1A 26 0C 55 54 49 4C 49 54 59 20 53 54 52 4E |..&.UTILITY STRN|
00001280: 47 20 50 4E 54 52 20 4C 4F 2C 55 54 49 4C 49 54 |G PNTR LO,UTILIT|
00001290: 59 20 53 54 52 4E 47 20 50 4E 54 52 20 48 49 00 |Y STRNG PNTR HI.|
000012A0: D3 1A 2B 0C 83 55 54 49 4C 49 54 59 20 53 54 52 |..+..UTILITY STR|
000012B0: 49 4E 47 20 50 4E 54 20 4C 4F 57 2C 55 54 49 4C |ING PNT LOW,UTIL|
000012C0: 49 54 59 20 53 54 52 49 4E 47 20 50 4E 54 20 48 |ITY STRING PNT H|
000012D0: 49 47 48 00 10 1B 30 0C 83 20 4D 45 4D 54 4F 50 |IGH...0.. MEMTOP|
000012E0: 20 4C 4F 57 2C 4D 45 4D 54 4F 50 20 48 49 2C 43 | LOW,MEMTOP HI,C|
000012F0: 55 52 52 20 42 53 43 20 4C 49 4E 45 20 4C 4F 2C |URR BSC LINE LO,|
00001300: 43 55 52 52 20 42 53 43 20 4C 49 4E 45 20 48 49 |CURR BSC LINE HI|
00001310: 00 58 1B 3A 0C 83 50 52 45 56 2E 42 53 43 20 4C |.X.:..PREV.BSC L|
00001320: 49 4E 45 20 4E 52 20 4C 4F 57 2C 50 52 45 56 2E |INE NR LOW,PREV.|
00001330: 42 53 43 20 4C 49 4E 45 20 4E 52 20 48 49 2C 43 |BSC LINE NR HI,C|
00001340: 4F 4E 54 2E 50 4E 54 52 20 4C 4F 2C 43 4F 4E 54 |ONT.PNTR LO,CONT|
00001350: 2E 50 4E 54 52 20 48 49 00 9F 1B 44 0C 83 43 55 |.PNTR HI...D..CU|
00001360: 52 52 2E 44 41 54 41 20 4C 49 4E 45 20 4E 52 20 |RR.DATA LINE NR |
00001370: 4C 4F 2C 43 55 52 52 2E 44 41 54 41 20 4C 49 4E |LO,CURR.DATA LIN|
00001380: 45 20 4E 52 20 48 49 2C 44 41 54 41 20 41 44 52 |E NR HI,DATA ADR|
00001390: 20 4C 4F 2C 44 41 54 41 20 41 44 52 20 48 49 00 | LO,DATA ADR HI.|
000013A0: E6 1B 4E 0C 83 49 4E 50 55 54 20 56 45 43 54 2E |..N..INPUT VECT.|
000013B0: 4C 4F 2C 49 4E 50 55 54 20 56 45 43 54 2E 48 49 |LO,INPUT VECT.HI|
000013C0: 2C 43 55 52 20 42 53 43 20 56 41 52 20 4E 41 4D |,CUR BSC VAR NAM|
000013D0: 20 4C 4F 2C 43 55 52 20 42 53 43 20 56 41 52 20 | LO,CUR BSC VAR |
000013E0: 4E 41 4D 20 48 49 00 1E 1C 53 0C 83 50 4E 54 20 |NAM HI...S..PNT |
000013F0: 43 55 52 52 20 42 41 53 49 43 20 56 41 52 20 44 |CURR BASIC VAR D|
00001400: 41 54 41 20 4C 4F 57 2C 43 55 52 52 20 42 41 53 |ATA LOW,CURR BAS|
00001410: 49 43 20 56 41 52 20 44 41 54 41 20 48 49 00 6C |IC VAR DATA HI.l|
00001420: 1C 58 0C 83 46 4F 52 2F 4E 45 58 20 4C 4F 2C 46 |.X..FOR/NEX LO,F|
00001430: 4F 52 2F 4E 45 58 20 48 49 2C 2C 2C 2C 2C 2C 2C |OR/NEX HI,,,,,,,|
00001440: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C |,,,,,,,,,,,,,,,,|
00001450: 46 50 20 41 43 43 23 31 2E 45 58 50 4F 4E 2C 46 |FP ACC#1.EXPON,F|
00001460: 50 20 41 43 43 23 31 2E 4D 41 4E 54 00 80 1C 5A |P ACC#1.MANT...Z|
00001470: 0C 83 46 50 20 41 43 43 23 31 2E 4D 41 4E 54 32 |..FP ACC#1.MANT2|
00001480: 00 94 1C 5B 0C 83 46 50 20 41 43 43 23 31 2E 4D |...[..FP ACC#1.M|
00001490: 41 4E 54 33 00 A8 1C 5C 0C 83 46 50 20 41 43 43 |ANT3...\..FP ACC|
000014A0: 23 31 2E 4D 41 4E 54 34 00 BB 1C 5D 0C 83 46 50 |#1.MANT4...]..FP|
000014B0: 20 41 43 43 23 31 2E 53 49 47 4E 00 DA 1C 62 0C | ACC#1.SIGN...b.|
000014C0: 83 53 45 52 49 45 53 20 45 56 41 4C 2E 50 4E 54 |.SERIES EVAL.PNT|
000014D0: 52 2C 41 43 43 23 31 20 48 49 00 EC 1C 64 0C 83 |R,ACC#1 HI...d..|
000014E0: 20 41 43 43 23 32 2E 45 58 50 4F 4E 00 FD 1C 66 | ACC#2.EXPON...f|
000014F0: 0C 83 41 43 43 23 32 2E 4D 41 4E 54 31 00 0E 1D |..ACC#2.MANT1...|
00001500: 67 0C 83 41 43 43 23 32 2E 4D 41 4E 54 32 00 1F |g..ACC#2.MANT2..|
00001510: 1D 68 0C 83 41 43 43 23 32 2E 4D 41 4E 54 33 00 |.h..ACC#2.MANT3.|
00001520: 3B 1D 69 0C 83 41 43 43 23 32 2E 4D 41 4E 54 34 |;.i..ACC#2.MANT4|
00001530: 2C 41 43 43 23 32 2E 53 49 47 4E 00 4F 1D 6A 0C |,ACC#2.SIGN.O.j.|
00001540: 83 41 43 43 23 32 20 56 53 20 41 43 43 23 31 00 |.ACC#2 VS ACC#1.|
00001550: 5E 1D 6C 0C 83 41 43 43 23 31 20 4C 4F 57 00 86 |^.l..ACC#1 LOW..|
00001560: 1D 76 0C 83 43 41 53 53 2E 42 55 46 46 20 50 4E |.v..CASS.BUFF PN|
00001570: 54 20 4C 4F 57 2C 43 41 53 53 2E 42 55 46 46 20 |T LOW,CASS.BUFF |
00001580: 50 4E 54 20 48 49 00 D0 1D 80 0C 83 43 48 41 52 |PNT HI......CHAR|
00001590: 47 45 54 20 45 4E 54 52 59 2C 49 4E 20 43 48 41 |GET ENTRY,IN CHA|
000015A0: 52 47 45 54 2C 49 4E 20 43 48 41 52 47 45 54 2C |RGET,IN CHARGET,|
000015B0: 49 4E 20 43 48 41 52 47 45 54 2C 49 4E 20 43 48 |IN CHARGET,IN CH|
000015C0: 41 52 47 45 54 2C 49 4E 20 43 48 41 52 47 45 54 |ARGET,IN CHARGET|
000015D0: 00 1C 1E 8A 0C 83 49 4E 20 43 48 41 52 47 4F 54 |......IN CHARGOT|
000015E0: 2C 43 55 52 2E 42 59 54 45 20 42 41 53 49 43 2C |,CUR.BYTE BASIC,|
000015F0: 43 55 52 20 42 59 54 45 50 54 52 2C 49 4E 20 43 |CUR BYTEPTR,IN C|
00001600: 48 41 52 47 4F 54 2C 49 4E 20 43 48 41 52 47 4F |HARGOT,IN CHARGO|
00001610: 54 2C 49 4E 20 43 48 41 52 47 4F 54 00 64 1E 94 |T,IN CHARGOT.d..|
00001620: 0C 83 20 49 4E 20 43 48 41 52 47 4F 54 2C 49 4E |.. IN CHARGOT,IN|
00001630: 20 43 48 41 52 47 4F 54 2C 49 4E 20 43 48 41 52 | CHARGOT,IN CHAR|
00001640: 47 4F 54 2C 49 4E 20 43 48 41 52 47 4F 54 2C 49 |GOT,IN CHARGOT,I|
00001650: 4E 20 43 48 41 52 47 4F 54 2C 49 4E 20 43 48 41 |N CHARGOT,IN CHA|
00001660: 52 47 4F 54 00 AB 1E 9E 0C 83 20 49 4E 20 43 48 |RGOT...... IN CH|
00001670: 41 52 47 4F 54 2C 49 4E 43 48 41 52 47 4F 54 2C |ARGOT,INCHARGOT,|
00001680: 49 4E 20 43 48 41 52 47 4F 54 2C 49 4E 20 43 48 |IN CHARGOT,IN CH|
00001690: 41 52 47 4F 54 2C 49 4E 20 43 48 41 52 47 4F 54 |ARGOT,IN CHARGOT|
000016A0: 2C 49 4E 20 43 48 41 52 47 4F 54 00 DD 1E A3 0C |,IN CHARGOT.....|
000016B0: 83 52 4E 44 20 53 45 45 44 20 56 41 4C 20 31 2C |.RND SEED VAL 1,|
000016C0: 52 4E 44 20 53 45 45 44 20 56 41 4C 20 32 2C 52 |RND SEED VAL 2,R|
000016D0: 4E 44 20 53 45 45 44 20 56 41 4C 20 33 00 1E 1F |ND SEED VAL 3...|
000016E0: A8 0C 83 52 4E 44 20 53 45 45 44 20 56 41 4C 20 |...RND SEED VAL |
000016F0: 34 2C 52 4E 44 20 53 45 45 44 20 56 41 4C 20 35 |4,RND SEED VAL 5|
00001700: 2C 53 54 41 54 55 53 20 57 4F 52 44 2C 46 4C 41 |,STATUS WORD,FLA|
00001710: 47 20 53 54 4F 50 20 4B 45 59 2F 52 56 53 00 5E |G STOP KEY/RVS.^|
00001720: 1F B2 0C 83 20 54 49 4D 49 4E 47 20 43 4F 4E 53 |.... TIMING CONS|
00001730: 54 41 4E 54 45 20 54 41 50 45 2C 4C 4F 41 44 3D |TANTE TAPE,LOAD=|
00001740: 30 20 2F 56 45 52 49 46 59 3D 31 2C 53 45 52 49 |0 /VERIFY=1,SERI|
00001750: 41 4C 20 4F 55 54 50 55 54 20 46 4C 41 47 00 AA |AL OUTPUT FLAG..|
00001760: 1F BC 0C 83 20 53 45 52 49 41 4C 20 44 45 46 46 |.... SERIAL DEFF|
00001770: 45 52 45 44 20 46 4C 41 47 2C 54 41 50 45 20 45 |ERED FLAG,TAPE E|
00001780: 4F 54 2C 52 45 47 49 53 54 45 52 20 53 41 56 45 |OT,REGISTER SAVE|
00001790: 2C 23 20 4F 50 45 4E 20 46 49 4C 45 53 2C 49 4E |,# OPEN FILES,IN|
000017A0: 50 55 54 20 44 45 56 49 43 45 00 F0 1F C6 0C 83 |PUT DEVICE......|
000017B0: 4F 55 54 50 55 54 27 43 4D 44 27 56 41 4C 55 45 |OUTPUT'CMD'VALUE|
000017C0: 2C 54 41 50 45 20 43 48 41 52 20 50 41 52 49 54 |,TAPE CHAR PARIT|
000017D0: 59 2C 42 59 54 45 20 52 45 43 49 45 56 45 44 2C |Y,BYTE RECIEVED,|
000017E0: 44 49 52 45 43 54 3D 24 38 30 2F 52 55 4E 3D 30 |DIRECT=$80/RUN=0|
000017F0: 00 3B 20 D0 0C 83 54 50 20 50 41 53 53 20 31 20 |.; ...TP PASS 1 |
00001800: 45 52 52 4F 52 2C 54 50 20 50 41 53 53 20 32 20 |ERROR,TP PASS 2 |
00001810: 45 52 52 4F 52 2C 4A 49 46 46 59 20 43 4C 4F 43 |ERROR,JIFFY CLOC|
00001820: 4B 20 31 2C 4A 49 46 46 59 20 43 4C 4F 43 4B 20 |K 1,JIFFY CLOCK |
00001830: 32 2C 4A 49 46 46 20 43 4C 20 33 00 81 20 DA 0C |2,JIFF CL 3.. ..|
00001840: 83 53 45 52 49 41 4C 20 42 54 20 43 4E 54 2C 43 |.SERIAL BT CNT,C|
00001850: 59 43 4C 45 20 43 4F 55 4E 54 2C 43 41 53 53 2E |YCLE COUNT,CASS.|
00001860: 53 59 4E 43 20 43 4F 55 4E 54 44 4F 57 4E 2C 50 |SYNC COUNTDOWN,P|
00001870: 4E 54 52 20 54 41 50 45 20 49 2F 4F 20 42 55 46 |NTR TAPE I/O BUF|
00001880: 46 00 CB 20 E4 0C 83 52 53 20 32 33 32 20 49 4E |F.. ...RS 232 IN|
00001890: 50 55 54 20 42 49 54 53 2C 52 53 20 32 33 32 20 |PUT BITS,RS 232 |
000018A0: 49 4E 42 49 54 20 43 4F 55 4E 54 2C 52 53 20 32 |INBIT COUNT,RS 2|
000018B0: 33 32 20 53 54 20 42 49 54 2C 52 53 20 32 33 32 |32 ST BIT,RS 232|
000018C0: 20 49 4E 50 55 54 20 42 59 54 45 00 18 21 EE 0C | INPUT BYTE..!..|
000018D0: 83 52 53 20 32 33 32 20 49 4E 50 55 54 20 50 41 |.RS 232 INPUT PA|
000018E0: 52 49 54 59 2C 50 4E 54 52 2E 54 50 20 42 55 46 |RITY,PNTR.TP BUF|
000018F0: 46 45 52 2F 53 43 52 45 45 4E 20 53 43 52 4F 4C |FER/SCREEN SCROL|
00001900: 4C 20 4C 2C 50 4E 54 52 2F 54 50 20 42 46 2F 53 |L L,PNTR/TP BF/S|
00001910: 43 52 2F 53 43 52 4F 4C 00 65 21 F8 0C 83 54 41 |CR/SCROL.e!...TA|
00001920: 50 45 20 45 4E 44 20 41 44 52 45 53 20 4C 2C 54 |PE END ADRES L,T|
00001930: 41 50 45 20 45 4E 44 20 41 44 52 45 53 20 48 2C |APE END ADRES H,|
00001940: 54 41 50 45 20 54 49 4D 49 4E 47 20 43 4F 4E 53 |TAPE TIMING CONS|
00001950: 54 31 2C 54 41 50 45 20 54 49 4D 49 4E 47 20 43 |T1,TAPE TIMING C|
00001960: 4F 4E 53 54 32 00 A8 21 02 0D 83 53 54 41 52 54 |ONST2..!...START|
00001970: 20 54 41 50 45 20 42 55 46 46 2E 4C 2C 53 54 41 | TAPE BUFF.L,STA|
00001980: 52 54 20 54 41 50 45 20 42 55 46 46 2E 48 2C 52 |RT TAPE BUFF.H,R|
00001990: 53 20 32 33 32 20 4F 55 54 42 54 2C 52 53 32 33 |S 232 OUTBT,RS23|
000019A0: 32 20 4E 58 54 20 42 54 00 F5 21 0C 0D 83 52 45 |2 NXT BT..!...RE|
000019B0: 41 44 20 43 48 41 52 20 45 52 52 4F 52 2F 4F 55 |AD CHAR ERROR/OU|
000019C0: 54 42 59 54 20 42 46 46 2C 23 20 43 48 41 52 20 |TBYT BFF,# CHAR |
000019D0: 49 4E 20 46 49 4C 45 4E 41 4D 45 2C 43 55 52 52 |IN FILENAME,CURR|
000019E0: 2E 4C 4F 47 49 43 41 4C 20 46 49 4C 45 2C 53 45 |.LOGICAL FILE,SE|
000019F0: 43 20 41 44 52 00 37 22 16 0D 83 43 55 52 52 2E |C ADR.7"...CURR.|
00001A00: 44 45 56 49 43 45 2C 50 4E 54 20 46 49 4C 45 4E |DEVICE,PNT FILEN|
00001A10: 41 4D 45 20 4C 4F 57 2C 50 4E 54 20 46 49 4C 45 |AME LOW,PNT FILE|
00001A20: 4E 41 4D 45 20 48 49 2C 52 45 41 44 20 49 4E 50 |NAME HI,READ INP|
00001A30: 55 54 20 43 48 41 52 00 79 22 20 0D 83 42 4C 4F |UT CHAR.y" ..BLO|
00001A40: 43 4B 53 20 52 45 4D 41 49 4E 49 4E 47 20 54 4F |CKS REMAINING TO|
00001A50: 20 57 52 2F 52 44 2C 53 45 52 49 41 4C 20 57 4F | WR/RD,SERIAL WO|
00001A60: 52 44 20 42 55 46 46 45 52 2C 54 41 50 45 20 4D |RD BUFFER,TAPE M|
00001A70: 4F 54 4F 52 20 4C 4F 43 4B 00 BE 22 2A 0D 83 49 |OTOR LOCK.."*..I|
00001A80: 2F 4F 20 53 54 41 52 54 20 4C 4F 57 2C 49 2F 4F |/O START LOW,I/O|
00001A90: 20 53 54 41 52 54 20 48 49 47 48 2C 4B 45 52 4E | START HIGH,KERN|
00001AA0: 41 4C 20 53 45 54 55 50 20 4C 4F 57 2C 4B 45 52 |AL SETUP LOW,KER|
00001AB0: 4E 41 4C 20 53 45 54 55 50 20 48 49 47 48 00 0A |NAL SETUP HIGH..|
00001AC0: 23 34 0D 83 4C 41 53 54 20 50 52 45 53 53 45 44 |#4..LAST PRESSED|
00001AD0: 20 4B 45 59 2C 23 20 43 48 41 52 20 49 4E 20 4B | KEY,# CHAR IN K|
00001AE0: 45 59 42 52 44 20 42 55 46 46 45 52 2C 53 43 52 |EYBRD BUFFER,SCR|
00001AF0: 45 45 4E 20 52 45 56 20 46 4C 41 47 2C 45 4F 4C |EEN REV FLAG,EOL|
00001B00: 20 49 4E 50 55 54 20 50 54 52 00 51 23 3E 0D 83 | INPUT PTR.Q#>..|
00001B10: 49 4E 50 55 54 20 43 55 52 53 4F 52 20 52 4F 57 |INPUT CURSOR ROW|
00001B20: 2C 49 4E 50 55 54 20 43 55 52 53 4F 52 20 43 4F |,INPUT CURSOR CO|
00001B30: 4C 4F 4D 2C 57 49 43 48 20 4B 45 59 20 36 34 3D |LOM,WICH KEY 64=|
00001B40: 4E 4F 4E 45 2C 46 4C 41 53 48 20 43 55 52 53 4F |NONE,FLASH CURSO|
00001B50: 52 00 92 23 48 0D 83 43 55 52 53 4F 52 20 54 49 |R..#H..CURSOR TI|
00001B60: 4D 49 4E 47 20 43 4F 55 4E 54 44 4F 57 4E 2C 43 |MING COUNTDOWN,C|
00001B70: 48 41 52 20 55 4E 44 45 52 20 43 55 52 53 4F 52 |HAR UNDER CURSOR|
00001B80: 2C 43 55 52 53 4F 52 20 42 4C 49 4E 4B 50 48 41 |,CURSOR BLINKPHA|
00001B90: 53 45 00 D4 23 52 0D 83 49 4E 50 55 54 20 4F 52 |SE..#R..INPUT OR|
00001BA0: 20 47 45 54 20 46 52 4F 4D 20 4B 45 59 42 52 44 | GET FROM KEYBRD|
00001BB0: 2C 50 4E 54 20 54 4F 20 53 43 52 45 45 4E 4C 4E |,PNT TO SCREENLN|
00001BC0: 20 4C 2C 50 4E 54 20 54 4F 20 53 43 52 45 45 4E | L,PNT TO SCREEN|
00001BD0: 4C 20 48 49 00 13 24 5C 0D 83 50 4F 53 49 54 49 |L HI..$\..POSITI|
00001BE0: 4F 4E 20 43 55 52 53 2E 49 4E 20 53 43 52 45 45 |ON CURS.IN SCREE|
00001BF0: 4E 4C 4E 2C 30 3D 44 49 52 45 43 54 20 43 55 52 |NLN,0=DIRECT CUR|
00001C00: 53 4F 52 20 45 4C 53 45 20 50 52 4F 47 52 41 4D |SOR ELSE PROGRAM|
00001C10: 4D 45 44 00 54 24 66 0D 83 4C 45 4E 47 54 48 20 |MED.T$f..LENGTH |
00001C20: 53 43 52 45 45 4E 4C 49 4E 45 2C 43 55 52 52 45 |SCREENLINE,CURRE|
00001C30: 4E 54 20 52 4F 57 20 4E 55 4D 42 45 52 2C 54 45 |NT ROW NUMBER,TE|
00001C40: 4D 50 20 44 41 54 41 2C 23 20 4F 46 20 49 4E 53 |MP DATA,# OF INS|
00001C50: 45 52 54 53 00 9C 24 70 0D 83 53 43 52 45 45 4E |ERTS..$p..SCREEN|
00001C60: 20 4C 49 4E 45 20 4C 49 4E 4B 20 54 41 42 45 4C | LINE LINK TABEL|
00001C70: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C |,,,,,,,,,,,,,,,,|
00001C80: 2C 2C 2C 2C 2C 2C 2C 2C 2C 2C 53 43 52 45 45 4E |,,,,,,,,,,SCREEN|
00001C90: 20 43 4F 4C 20 50 4E 54 20 4C 4F 57 00 E9 24 7A | COL PNT LOW..$z|
00001CA0: 0D 83 53 43 52 45 45 4E 20 43 4F 4C 20 50 4E 54 |..SCREEN COL PNT|
00001CB0: 20 48 49 2C 4B 45 59 42 52 44 20 42 55 46 46 20 | HI,KEYBRD BUFF |
00001CC0: 4C 4F 57 2C 4B 45 59 20 42 52 44 20 42 55 46 46 |LOW,KEY BRD BUFF|
00001CD0: 20 48 49 2C 52 53 32 33 32 20 52 43 56 4C 2C 52 | HI,RS232 RCVL,R|
00001CE0: 53 32 33 32 20 52 43 56 48 00 04 25 7F 0D 83 52 |S232 RCVH..%...R|
00001CF0: 53 32 33 32 20 54 58 20 4C 2C 52 53 32 33 32 20 |S232 TX L,RS232 |
00001D00: 54 58 20 48 00 2D 25 84 0D 83 20 46 52 45 45 20 |TX H.-%... FREE |
00001D10: 31 2C 46 52 45 45 20 32 2C 46 52 45 45 20 33 2C |1,FREE 2,FREE 3,|
00001D20: 46 52 45 45 20 34 2C 46 52 45 45 20 35 00 00 00 |FREE 4,FREE 5...|
00001D30: A0 20 00 53 |. .S |
..'.Z..********************************.
M.[..** AN EXPLAINING DISASSEMBLER **.S.
\..* *...].
.* FOR THE C 64 COMPUTER *...^..*
*******************************..._..*BA
SED ON AN PUB DOMAIN DISASS *...`..*
*.1.A..* ID
EA EN COPYRIGHTS *.W.B..* JOH
N HOLLENBERG *.}.C..***********
*********************...D.TE.0:PN.1...N.
.G(147)".H.OW MANY LINES ON A SHEET";:.T
A......O$(16),R$(300),A$(15),VA(255):R$(
0)."".....X$."0123456789ABCDEF".....L$."
2223223332112".......2....I.0.255:.R$(I)
:... .O$(0)."BRK;ORA0???;???;???;ORA1AS
L1???;PHP;ORA2ASL:???;???;ORA3ASL3???;".
L...O$(1)."BPL<ORA4???;???;???;ORA5ASL5?
??;CLC;ORA6???;???;???;ORA7ASL7???;"....
.O$(2)."JSR3AND0???;???;BIT1AND1ROL1???;
PLP;AND2ROL:???;BIT3AND3ROL3???;".F...O$
(3)."BMI<AND4???;???;???;AND5ROL5???;SEC
;AND6???;???;???;AND7ROL7???;"...H.O$(4)
."RTI;EOR0???;???;???;EOR1LSR1???;PHA;EO
R2LSR:???;JMP3EOR3LSR3???;"...R.O$(5)."B
VC<EOR4???;???;???;EOR5LSR5???;CLI;EOR6?
??;???;???;EOR7LSR7???;".M...O$(6)."RTS;
ADC0???;???;???;ADC1ROR1???;PLA;ADC2ROR:
???;JMP8ADC3ROR3???;".....O$(7)."BVS<ADC
4???;???;???;ADC5ROR5???;SEI;ADC6???;???
;???;ADC7ROR7???;".....O$(8)."???;STA0??
?;???;STY1STA1STX1???;DEY;???;TXA;???;ST
Y3STA3STX3???;".4...O$(9)."BCC<STA4???;?
??;STY5STA5STX9???;TYA;STA6TXS;???;???;S
TA7???;???;".....O$(10)."LDY2LDA0LDX2???
;LDY1LDA1LDX1???;TAY;LDA2TAX;???;LDY3LDA
3LDX3???;".P...O$(11)."BCS<LDA4???;???;L
DY5LDA5LDX9???;CLV;LDA6TSX;???;LDY7LDA7L
DX6???;".....O$(12)."CPY2CMP0???;???;CPY
1CMP1DEC1???;INY;CMP2DEX;???;CPY3CMP3DEC
3???;".L.".O$(13)."BNE<CMP4???;???;???;C
MP5DEC5???;CLD;CMP6???;???;???;CMP7DEC7?
??;"...,.O$(14)."CPX2SBC0???;???;CPX1SBC
1INC1???;INX;SBC2NOP;???;CPX3SBC3INC3???
;"...6.O$(15)."BEQ<SBC4???;???;???;SBC5I
NC5???;SED;SBC6???;???;???;SBC7INC7???;"
.>.@.B$."
":.340.K.J..". PRESS .S.PACE
TO CONTINUE ":.830...T..".D.ISASSEMBLE
"...|..B$,B$:."..";:.".D.SMBL ADDRS ";A
$:K.1:.740:S.A.M...." # INSTRUCS ";N1...
..."UITV. NAAR PRINTER J/N"...... Z$....
.. Z$."N".400......Z$."J". 850./....Z$..
"J".Z$.."N".391.D...."... ":.I.1.N1.Q..
.. I.1.N1.E...B..(S.256):.700....B.S..(
S.256).256:.700......" ";.....J.B(S):K..
(J.16):L.J.K.16.1:.1000.P.B.M.F(J(O$(K),
L.4,1)).F("0").1...L.N.E(J(L$,M,1)):.P.1
.N...V.B.B(S.P.1):." ";:.700......P.-...
..12.N.3)J(O$(K),L.4.3,3)" ";.:...B.B(S.
1)......M.520,530,540,550,560,570,580,59
0,600,610,620,630,640:..20);:.680......"
(";:.700:.",X)";:.......700:......."#";:
.700:..A.&..710:..Z.0.."(";:.700:."),Y";
:....:..700:.",X";:....D..710:.",Y";:...
.N..710:.",X";:..'.X.."(";:.710:.")";:..
9.B..700:.",Y";:..E.L.."A";:..N.V..;:..M
....B.127.B.((.B).255).1:B..B.Y...T.S.2.
B.....B..(T.256):.700.....B.T..(T.256).2
56:.700:..D....C(P$).0..";"P$;:P$."".J..
.......TE.TE.1:.TE.TA.5..:.:.:."PAGE NUM
BER ";PN:PN.PN.1:TE.0.....S.S.N:.I.%....
B(154).3.330.4....4: 4:.330.E....J(X$,.
(B.16).1,1);J(X$,B..(B.16).16.1,1);:..W.
F.B.B(S.2):.700...P.B.B(S.1):.700...Z...
....A$.I("0000".A$,4):A.0......J1.K.4.G.
..C$.J(A$,J1,1)......C$.."A".C$.."F".C.F
(C$).F("A").10......C$.."0".C$.."9".C.F(
C$).F("0").....A.A.16.C.'. ..J1.-.*...@.
>..A$:.A$."".830.F.H...X.R..4,4:.4:. 405
.I....J.101..2000.Y....J.37..2000......J
.06..2000......J.36..2000......J.197..20
00......J.228..2000.L....J.196..2000....
..J.198..2000......J.69..2000......J.230
..2000......J.165..2000. ....J.166..2000
.1....J.164..2000.A....J.70..2000.Q....J
.05..2000.A....J.38..2000.R....J.102..20
00......J.229..2000......J.133..2000....
..J.134..2000......J.132..2000.......R.P
.PO.(S.1):VA.B(PO)...Z.P$.R$(VA).......-
....6510 DDR,6510 I/O,FREE $02,VECT FLOA
T/INT.LOW,VECT FLOAT/INT.HIGH.J....VECT
INT/FLOAT LOW,VECT INT/FLOAT HIGH,SEARCH
CHARACTER......FLAGSCAN FOR END QUOTE,S
CREEN COL FROM LAST TAB......FLAG 0=LOAD
1=VERIFY...B..INPUT BUFFER POINTER,FLAG
DEF.ARRAY DIM,DATA TYP $FF=STR $00=NUM.
A.L..DATATYP $80=INT $00=FLOAT.,FLAG DAT
A SCAN/LIST QUOTE GAR.COL...V..FLAG SUBS
CRIPT REF,FLAG $00=INP $40=GET $98=READ,
FLAG TAN,FLAG INPUT.S....TEMP INT VAL1,T
EMP INT VAL2,TEMP STRNG STACK,LST TEMP S
TRNG AD LOW......LST TEMP STRNG AD HI...
...STACK TEMP STRING1......STACK TEMP ST
RING2.5....STACK TEMP STRING3.M....STACK
TEMP STRING4.E....STACK TEMP STRING5.}.
...STACK TEMP STRING6......STACK TEMP ST
RING7......STACK TEMP STRING8.E....STACK
TEMP STRING9...... UTILITY PNTR AREA #1
...... UTILITY PNTR AREA.#2...... UTILIT
Y PNTR AREA.#3.1.... UTILITY PNTR AREA.#
4.I....PROD.OFFMUL.PLY #1.A....PROD.OFFM
UL.PLY #2.Y....PROD.OFFMUL.PLY #3......P
ROD.OFFMUL.PLY #4......PROD.OFFMUL.PLY #
5......START OF BASIC LOW,START OF BASIC
HI,START OF VAR LOW,START OF VAR HI.9..
..STARTOF ARR LOW,START OF ARR HI,END OF
ARR LOW,END OF ARR HI +1.O....BOTTOM OF
STRNG STOR LOW,BOTTOM OF STRNG STOR HI.
..&.UTILITY STRNG PNTR LO,UTILITY STRNG
PNTR HI.S.+..UTILITY STRING PNT LOW,UTIL
ITY STRING PNT HIGH...0.. MEMTOP LOW,MEM
TOP HI,CURR BSC LINE LO,CURR BSC LINE HI
.X.:..PREV.BSC LINE NR LOW,PREV.BSC LINE
NR HI,CONT.PNTR LO,CONT.PNTR HI...D..CU
RR.DATA LINE NR LO,CURR.DATA LINE NR HI,
DATA ADR LO,DATA ADR HI...N..INPUT VECT.
LO,INPUT VECT.HI,CUR BSC VAR NAM LO,CUR
BSC VAR NAM HI...S..PNT CURR BASIC VAR D
ATA LOW,CURR BASIC VAR DATA HI.L.X..FOR/
NEX LO,FOR/NEX HI,,,,,,,,,,,,,,,,,,,,,,,
FP ACC#1.EXPON,FP ACC#1.MANT...Z..FP ACC
#1.MANT2...[..FP ACC#1.MANT3...\..FP ACC
#1.MANT4...]..FP ACC#1.SIGN.Z.B..SERIES
EVAL.PNTR,ACC#1 HI...D.. ACC#2.EXPON...F
..ACC#2.MANT1...G..ACC#2.MANT2...H..ACC#
2.MANT3.;.I..ACC#2.MANT4,ACC#2.SIGN.O.J.
.ACC#2 VS ACC#1.^.L..ACC#1 LOW...V..CASS
.BUFF PNT LOW,CASS.BUFF PNT HI.P....CHAR
GET ENTRY,IN CHARGET,IN CHARGET,IN CHARG
ET,IN CHARGET,IN CHARGET......IN CHARGOT
,CUR.BYTE BASIC,CUR BYTEPTR,IN CHARGOT,I
N CHARGOT,IN CHARGOT.D.... IN CHARGOT,IN
CHARGOT,IN CHARGOT,IN CHARGOT,IN CHARGO
T,IN CHARGOT...... IN CHARGOT,INCHARGOT,
IN CHARGOT,IN CHARGOT,IN CHARGOT,IN CHAR
GOT......RND SEED VAL 1,RND SEED VAL 2,R
ND SEED VAL 3......RND SEED VAL 4,RND SE
ED VAL 5,STATUS WORD,FLAG STOP KEY/RVS.^
.... TIMING CONSTANTE TAPE,LOAD=0 /VERIF
Y=1,SERIAL OUTPUT FLAG...... SERIAL DEFF
ERED FLAG,TAPE EOT,REGISTER SAVE,# OPEN
FILES,INPUT DEVICE...F..OUTPUT'CMD'VALUE
,TAPE CHAR PARITY,BYTE RECIEVED,DIRECT=$
80/RUN=0.; P..TP PASS 1 ERROR,TP PASS 2
ERROR,JIFFY CLOCK 1,JIFFY CLOCK 2,JIFF C
L 3.. Z..SERIAL BT CNT,CYCLE COUNT,CASS.
SYNC COUNTDOWN,PNTR TAPE I/O BUFF.K ...R
S 232 INPUT BITS,RS 232 INBIT COUNT,RS 2
32 ST BIT,RS 232 INPUT BYTE..!...RS 232
INPUT PARITY,PNTR.TP BUFFER/SCREEN SCROL
L L,PNTR/TP BF/SCR/SCROL.E!...TAPE END A
DRES L,TAPE END ADRES H,TAPE TIMING CONS
T1,TAPE TIMING CONST2..!...START TAPE BU
FF.L,START TAPE BUFF.H,RS 232 OUTBT,RS23
2 NXT BT..!...READ CHAR ERROR/OUTBYT BFF
,# CHAR IN FILENAME,CURR.LOGICAL FILE,SE
C ADR.7"...CURR.DEVICE,PNT FILENAME LOW,
PNT FILENAME HI,READ INPUT CHAR.Y" ..BLO
CKS REMAINING TO WR/RD,SERIAL WORD BUFFE
R,TAPE MOTOR LOCK.."*..I/O START LOW,I/O
START HIGH,KERNAL SETUP LOW,KERNAL SETU
P HIGH..#4..LAST PRESSED KEY,# CHAR IN K
EYBRD BUFFER,SCREEN REV FLAG,EOL INPUT P
TR.Q#>..INPUT CURSOR ROW,INPUT CURSOR CO
LOM,WICH KEY 64=NONE,FLASH CURSOR..#H..C
URSOR TIMING COUNTDOWN,CHAR UNDER CURSOR
,CURSOR BLINKPHASE.T#R..INPUT OR GET FRO
M KEYBRD,PNT TO SCREENLN L,PNT TO SCREEN
L HI..$\..POSITION CURS.IN SCREENLN,0=DI
RECT CURSOR ELSE PROGRAMMED.T$F..LENGTH
SCREENLINE,CURRENT ROW NUMBER,TEMP DATA,
# OF INSERTS..$P..SCREEN LINE LINK TABEL
,,,,,,,,,,,,,,,,,,,,,,,,,,SCREEN COL PNT
LOW..$Z..SCREEN COL PNT HI,KEYBRD BUFF
LOW,KEY BRD BUFF HI,RS232 RCVL,RS232 RCV
H..%..RS232 TX L,RS232 TX H.-%... FREE
1,FREE 2,FREE 3,FREE 4,FREE 5... .S
> CLICK IMAGE PREVIEW FOR FULL MODAL