PSEUDO
FILE INFORMATION
FILENAME(S): PSEUDO
FILE TYPE(S): PRG
FILE SIZE: 8.1K
FIRST SEEN: 2025-11-30 16:59:36
APPEARS ON: 1 disk(s)
FILE HASH
b84cdda8c6a4d31739b12e94e0eb33ee52dbf8e31cb4b8f5d88fb5176556d280
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LADS64 | PSEUDO | PRG | High Voltage Complete C64 Collection | 4 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 2F 04 0A 00 3B 20 22 50 53 45 55 44 4F 22 |../...; "PSEUDO"|
00000010: 20 48 AF 4C 45 20 41 4C 4C 20 50 53 45 55 44 4F | H.LE ALL PSEUDO|
00000020: 50 53 20 45 58 43 45 50 54 20 2E 42 59 54 45 00 |PS EXCEPT .BYTE.|
00000030: 35 04 0F 00 3B 00 50 04 14 00 3B 20 4A 4D 50 20 |5...;.P...; JMP |
00000040: 48 45 52 45 20 46 52 4F 4D 20 49 4E 44 49 53 4B |HERE FROM INDISK|
00000050: 00 8D 04 1E 00 3B 20 28 49 4E 44 49 53 4B 20 57 |.....; (INDISK W|
00000060: 41 53 20 4A 53 52 27 45 44 20 A4 20 46 52 4F 4D |AS JSR'ED . FROM|
00000070: 20 45 C5 29 2E 20 AD 20 59 20 48 4F 4C 44 53 20 | E.). . Y HOLDS |
00000080: 50 4F B5 45 52 20 A4 20 4C 41 42 45 4C 00 AD 04 |PO.ER . LABEL...|
00000090: 28 00 3B 20 AB AB AB AB AB AB AB AB AB AB AB AB |(.; ............|
000000A0: AB AB AB AB AB AB AB AB AB AB AB AB AB 00 D3 04 |................|
000000B0: 32 00 50 53 45 55 44 4F 20 43 4D 50 20 23 37 30 |2.PSEUDO CMP #70|
000000C0: 3B 20 49 53 20 49 54 20 22 46 22 20 81 20 2E 46 |; IS IT "F" . .F|
000000D0: 49 4C 45 00 E0 04 3C 00 42 4E 45 20 50 53 45 31 |ILE...<.BNE PSE1|
000000E0: 00 1A 05 46 00 4A 53 52 20 46 49 4C 45 3B 20 46 |...F.JSR FILE; F|
000000F0: 20 4D 45 41 4E 53 20 CB 20 A4 20 82 20 4C 49 4E | MEANS . . . LIN|
00000100: 4B 45 44 20 46 49 4C 45 20 AB AB AB AB AB AB AB |KED FILE .......|
00000110: AB AB AB AB AB AB AB AB AB AB 00 3B 05 50 00 CB |...........;.P..|
00000120: 42 41 43 4B 20 50 4C 41 3B 20 8E 20 A4 20 45 C5 |BACK PLA; . . E.|
00000130: 20 A4 20 A1 20 82 20 4C 49 4E 45 00 43 05 5A 00 | . . . LINE.C.Z.|
00000140: 50 4C 41 00 6E 05 64 00 4A 4D 50 20 53 54 41 52 |PLA.n.d.JMP STAR|
00000150: 54 4C 49 4E 45 3B AB AB AB AB AB AB AB AB AB AB |TLINE;..........|
00000160: AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 8A |................|
00000170: 05 6E 00 50 53 45 31 20 43 4D 50 20 23 31 32 38 |.n.PSE1 CMP #128|
00000180: 3B 20 49 53 20 49 54 20 2E 80 00 97 05 78 00 42 |; IS IT .....x.B|
00000190: 4E 45 20 50 53 45 45 00 C7 05 82 00 4A 53 52 20 |NE PSEE.....JSR |
000001A0: 50 80 3B 20 31 32 38 20 49 53 20 A4 4B 45 4E 20 |P.; 128 IS .KEN |
000001B0: 81 20 80 20 28 80 20 4F 46 20 43 48 41 49 4E 20 |. . (. OF CHAIN |
000001C0: 50 53 45 55 44 4F 29 00 DD 05 8C 00 4A 4D 50 20 |PSEUDO).....JMP |
000001D0: CB 42 41 43 4B 3B 20 8E 20 A4 20 45 C5 00 22 06 |.BACK; . . E..".|
000001E0: 96 00 50 53 45 45 20 43 4D 50 20 23 36 38 3B 20 |..PSEE CMP #68; |
000001F0: 49 53 20 49 54 20 22 44 22 20 81 20 2E 44 49 53 |IS IT "D" . .DIS|
00000200: 4B 20 28 43 52 45 41 54 45 20 4F 42 4A 45 43 54 |K (CREATE OBJECT|
00000210: 20 43 4F 44 45 20 46 49 4C 45 20 91 20 44 49 53 | CODE FILE . DIS|
00000220: 4B 29 00 30 06 A0 00 42 4E 45 20 50 53 45 45 31 |K).0...BNE PSEE1|
00000230: 00 62 06 AA 00 4A 4D 50 20 50 44 49 53 4B 3B 20 |.b...JMP PDISK; |
00000240: 9F 20 46 49 4C 45 20 91 20 44 49 53 4B 20 81 20 |. FILE . DISK . |
00000250: 4F 42 4A 45 43 54 20 43 4F 44 45 20 53 A4 52 41 |OBJECT CODE S.RA|
00000260: 47 45 00 91 06 B4 00 50 53 45 45 31 20 43 4D 50 |GE.....PSEE1 CMP|
00000270: 20 23 38 30 3B 20 49 53 20 49 54 20 22 50 22 20 | #80; IS IT "P" |
00000280: 81 20 2E 50 20 28 99 45 52 20 4F 55 54 50 55 54 |. .P (.ER OUTPUT|
00000290: 29 00 9F 06 BE 00 42 4E 45 20 50 53 45 45 32 00 |).....BNE PSEE2.|
000002A0: BD 06 C8 00 4A 4D 50 20 50 99 45 52 3B 20 54 55 |....JMP P.ER; TU|
000002B0: 52 4E 20 91 20 99 45 52 20 9B 49 4E 47 00 01 07 |RN . .ER .ING...|
000002C0: D2 00 50 53 45 45 32 20 43 4D 50 20 23 37 38 3B |..PSEE2 CMP #78;|
000002D0: 20 49 53 20 49 54 20 22 4E 22 20 81 20 2E 4E 48 | IS IT "N" . .NH|
000002E0: 20 B0 20 2E 4E 53 20 B0 20 53 4F 4D 45 20 4F 54 | . .NS . SOME OT|
000002F0: 48 45 52 20 22 54 55 52 4E 20 49 54 20 4F 46 46 |HER "TURN IT OFF|
00000300: 22 00 0F 07 DC 00 42 4E 45 20 50 53 45 45 33 00 |".....BNE PSEE3.|
00000310: 2F 07 E6 00 4A 4D 50 20 4E 49 58 3B 20 54 55 52 |/...JMP NIX; TUR|
00000320: 4E 20 53 4F 4D 45 54 48 49 4E 47 20 4F 46 46 00 |N SOMETHING OFF.|
00000330: 6C 07 F0 00 50 53 45 45 33 20 43 4D 50 20 23 37 |l...PSEE3 CMP #7|
00000340: 39 3B 20 49 53 20 49 54 20 22 4F 22 20 81 20 4F |9; IS IT "O" . O|
00000350: 55 54 50 55 54 20 28 97 20 4F 42 4A 45 43 54 20 |UTPUT (. OBJECT |
00000360: 43 4F 44 45 20 B5 4F 20 52 41 4D 29 00 7A 07 FA |CODE .O RAM).z..|
00000370: 00 42 4E 45 20 50 53 45 45 34 00 A8 07 04 01 4A |.BNE PSEE4.....J|
00000380: 4D 50 20 4F 50 91 3B 20 53 54 41 52 54 20 50 4F |MP OP.; START PO|
00000390: 4B 49 4E 47 20 4F 42 4A 45 43 54 20 43 4F 44 45 |KING OBJECT CODE|
000003A0: 20 28 96 41 55 4C 54 29 00 D2 07 0E 01 50 53 45 | (.AULT).....PSE|
000003B0: 45 34 20 43 4D 50 20 23 38 33 3B 20 49 53 20 49 |E4 CMP #83; IS I|
000003C0: 54 20 22 53 22 20 81 20 99 20 A4 20 53 43 52 45 |T "S" . . . SCRE|
000003D0: 45 4E 00 E0 07 18 01 42 4E 45 20 50 53 45 45 35 |EN.....BNE PSEE5|
000003E0: 00 03 08 22 01 4A 4D 50 20 53 43 52 45 49 4E 3B |...".JMP SCREIN;|
000003F0: 20 54 55 52 4E 20 91 20 53 43 52 45 45 4E 20 99 | TURN . SCREEN .|
00000400: 49 4E 47 00 3B 08 2C 01 50 53 45 45 35 20 43 4D |ING.;.,.PSEE5 CM|
00000410: 50 20 23 37 32 3B 20 49 53 20 49 54 20 22 48 22 |P #72; IS IT "H"|
00000420: 20 81 20 48 45 58 20 4E 55 4D 42 45 52 53 20 44 | . HEX NUMBERS D|
00000430: 55 52 49 4E 47 20 99 4F 55 54 53 00 49 08 36 01 |URING .OUTS.I.6.|
00000440: 42 4E 45 20 50 53 45 39 3B 00 68 08 40 01 4A 4D |BNE PSE9;.h.@.JM|
00000450: 50 20 48 45 58 49 54 3B 20 54 55 52 4E 20 91 20 |P HEXIT; TURN . |
00000460: 48 45 58 20 99 49 4E 47 00 AB 08 4A 01 3B AB AB |HEX .ING...J.;..|
00000470: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000480: AB AB AB AB AB AB AB 20 20 99 20 45 52 52 B0 20 |....... . ERR. |
00000490: 4D 45 53 53 41 47 45 20 28 4E 4F 20 53 55 43 48 |MESSAGE (NO SUCH|
000004A0: 20 50 53 45 55 44 4F AB 4F 50 29 00 D3 08 54 01 | PSEUDO.OP)...T.|
000004B0: 50 53 45 39 20 53 54 41 20 4C 41 42 45 4C 2C 59 |PSE9 STA LABEL,Y|
000004C0: 3B 20 53 A4 52 45 20 43 48 41 52 2E 20 81 20 99 |; S.RE CHAR. . .|
000004D0: 4F 55 54 00 E4 08 5E 01 4A 53 52 20 50 52 4E 54 |OUT...^.JSR PRNT|
000004E0: 4C 49 4E 45 00 F6 08 68 01 4A 53 52 20 50 52 4E |LINE...h.JSR PRN|
000004F0: 54 53 50 41 43 45 00 05 09 72 01 4A 53 52 20 50 |TSPACE...r.JSR P|
00000500: 52 4E 54 53 41 00 14 09 7C 01 4A 53 52 20 45 52 |RNTSA...|.JSR ER|
00000510: 52 49 4E 47 00 22 09 86 01 4A 53 52 20 50 52 4E |RING."...JSR PRN|
00000520: 54 85 00 32 09 90 01 4C 44 41 20 23 B3 4D 45 52 |T..2...LDA #.MER|
00000530: 52 B0 00 3F 09 9A 01 53 54 41 20 54 45 4D 50 00 |R..?...STA TEMP.|
00000540: 4F 09 A4 01 4C 44 41 20 23 B1 4D 45 52 52 B0 00 |O...LDA #.MERR..|
00000550: 5E 09 AE 01 53 54 41 20 54 45 4D 50 AA 31 00 6F |^...STA TEMP.1.o|
00000560: 09 B8 01 4A 53 52 20 50 52 4E 54 4D 45 53 53 00 |...JSR PRNTMESS.|
00000570: 7E 09 C2 01 4A 53 52 20 50 52 4E 54 43 52 00 BB |~...JSR PRNTCR..|
00000580: 09 CC 01 4A 4D 50 20 50 55 4C 4C 49 4E 45 3B 20 |...JMP PULLINE; |
00000590: 50 55 4C 4C 20 49 4E 20 28 26 20 49 47 4E B0 45 |PULL IN (& IGN.E|
000005A0: 29 20 52 45 53 54 20 4F 46 20 4C 49 4E 45 2C 20 |) REST OF LINE, |
000005B0: A7 20 42 41 43 4B 20 A4 20 45 C5 00 01 0A D6 01 |. BACK . E......|
000005C0: 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |;...............|
000005D0: AB AB AB AB AB AB AB AB AB AB 20 20 48 AF 4C 45 |.......... H.LE|
000005E0: 20 2E 46 49 4C 45 20 50 53 45 55 44 4F AB 4F 50 | .FILE PSEUDO.OP|
000005F0: 20 AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB | ...............|
00000600: AB 00 15 0A E0 01 46 49 4C 45 20 4A 53 52 20 43 |......FILE JSR C|
00000610: 48 41 52 49 4E 00 4E 0A EA 01 43 4D 50 20 23 33 |HARIN.N...CMP #3|
00000620: 32 3B 20 4C 4F 4F 4B 20 81 20 80 20 4F 46 20 54 |2; LOOK . . OF T|
00000630: 48 45 20 57 B0 44 20 2E 46 49 4C 45 20 28 A4 20 |HE W.D .FILE (. |
00000640: 4C 4F 43 41 54 45 20 46 49 C3 41 4D 45 29 00 5A |LOCATE FI.AME).Z|
00000650: 0A F4 01 42 45 51 20 46 49 30 00 7E 0A FE 01 4A |...BEQ FI0.~...J|
00000660: 4D 50 20 46 49 4C 45 3B 20 9A 49 4E 55 45 20 4C |MP FILE; .INUE L|
00000670: 4F 4F 4B 49 4E 47 20 81 20 42 4C 41 4E 4B 00 8D |OOKING . BLANK..|
00000680: 0A 08 02 46 49 30 20 4C 44 59 20 23 30 00 A0 0A |...FI0 LDY #0...|
00000690: 12 02 46 49 31 20 4A 53 52 20 43 48 41 52 49 4E |..FI1 JSR CHARIN|
000006A0: 00 B6 0A 1C 02 43 4D 50 20 23 30 3B 20 80 20 4F |.....CMP #0; . O|
000006B0: 46 20 4C 49 4E 45 00 C2 0A 26 02 42 45 51 20 46 |F LINE...&.BEQ F|
000006C0: 49 32 00 EA 0A 30 02 43 4D 50 20 23 31 32 37 3B |I2...0.CMP #127;|
000006D0: 20 4B 45 59 57 B0 44 2C 20 53 4F 20 53 54 52 45 | KEYW.D, SO STRE|
000006E0: 54 43 48 20 49 54 20 4F 55 54 00 F7 0A 3A 02 42 |TCH IT OUT...:.B|
000006F0: 43 43 20 46 49 49 31 00 06 0B 44 02 4A 53 52 20 |CC FII1...D.JSR |
00000700: 4B 45 59 57 B0 44 00 31 0B 4E 02 46 49 49 31 20 |KEYW.D.1.N.FII1 |
00000710: 53 54 41 20 4C 41 42 45 4C 2C 59 3B 20 53 A4 52 |STA LABEL,Y; S.R|
00000720: 45 20 43 48 41 52 2E 20 4F 46 20 46 49 C3 41 4D |E CHAR. OF FI.AM|
00000730: 45 00 39 0B 58 02 49 4E 59 00 71 0B 62 02 4A 4D |E.9.X.INY.q.b.JM|
00000740: 50 20 46 49 31 3B 20 9A 49 4E 55 45 20 53 A4 52 |P FI1; .INUE S.R|
00000750: 49 4E 47 20 46 49 C3 41 4D 45 20 49 4E 20 4D 41 |ING FI.AME IN MA|
00000760: 49 4E 20 42 55 46 46 45 52 20 28 4C 41 42 45 4C |IN BUFFER (LABEL|
00000770: 29 00 95 0B 6C 02 46 49 32 20 53 54 59 20 A5 41 |)...l.FI2 STY .A|
00000780: 4D 45 C3 3B 20 53 A4 52 45 20 46 49 C3 41 4D 45 |ME.; S.RE FI.AME|
00000790: 20 C3 47 54 48 00 A0 0B 76 02 4C 44 59 20 23 30 | .GTH...v.LDY #0|
000007A0: 00 DF 0B 80 02 46 49 4C 4F 20 4C 44 41 20 4C 41 |.....FILO LDA LA|
000007B0: 42 45 4C 2C 59 3B AB AB AB AB AB AB AB 20 50 55 |BEL,Y;....... PU|
000007C0: 54 20 46 49 C3 41 4D 45 20 B5 4F 20 50 52 4F 50 |T FI.AME .O PROP|
000007D0: 45 52 20 42 55 46 46 45 52 20 28 46 49 C3 29 00 |ER BUFFER (FI.).|
000007E0: ED 0B 8A 02 42 45 51 20 46 49 4C 4F 31 00 FB 0B |....BEQ FILO1...|
000007F0: 94 02 53 54 41 20 46 49 C3 2C 59 00 03 0C 9E 02 |..STA FI.,Y.....|
00000800: 49 4E 59 00 10 0C A8 02 4A 4D 50 20 46 49 4C 4F |INY.....JMP FILO|
00000810: 00 3C 0C B2 02 46 49 4C 4F 31 20 4C 44 41 20 50 |.<...FILO1 LDA P|
00000820: 41 53 53 3B 20 91 20 50 41 53 53 20 32 2C 20 44 |ASS; . PASS 2, D|
00000830: 91 27 54 20 99 20 4F 55 54 20 50 43 00 48 0C BC |.'T . OUT PC.H..|
00000840: 02 42 4E 45 20 46 49 35 00 65 0C C6 02 4A 53 52 |.BNE FI5.e...JSR|
00000850: 20 50 52 4E 54 53 41 3B 20 99 20 54 48 45 20 46 | PRNTSA; . THE F|
00000860: 49 C3 41 4D 45 00 77 0C D0 02 4A 53 52 20 50 52 |I.AME.w...JSR PR|
00000870: 4E 54 53 50 41 43 45 00 89 0C DA 02 46 49 35 20 |NTSPACE.....FI5 |
00000880: 4A 53 52 20 50 52 4E 54 85 00 A4 0C E4 02 4A 53 |JSR PRNT......JS|
00000890: 52 20 50 52 4E 54 43 52 3B 20 43 41 52 52 49 41 |R PRNTCR; CARRIA|
000008A0: 47 45 20 8E 00 E1 0C EE 02 4A 53 52 20 9F 31 3B |GE ......JSR .1;|
000008B0: 20 9F 20 82 20 4C 49 4E 4B 45 44 20 46 49 4C 45 | . . LINKED FILE|
000008C0: 20 91 20 44 49 53 4B 20 28 81 20 9A 49 4E 55 45 | . DISK (. .INUE|
000008D0: 44 20 87 49 4E 47 20 4F 46 20 53 4F 55 52 43 45 |D .ING OF SOURCE|
000008E0: 29 00 EC 0C F8 02 4C 44 58 20 23 31 00 FA 0C 02 |).....LDX #1....|
000008F0: 03 4A 53 52 20 43 48 4B 49 4E 00 20 0D 0C 03 4A |.JSR CHKIN. ...J|
00000900: 53 52 20 43 48 41 52 49 4E 3B 20 50 55 4C 4C 20 |SR CHARIN; PULL |
00000910: 49 4E 20 82 20 54 57 4F 20 42 59 54 45 53 20 AF |IN . TWO BYTES .|
00000920: 00 2F 0D 16 03 4A 53 52 20 43 48 41 52 49 4E 00 |./...JSR CHARIN.|
00000930: 52 0D 20 03 4A 53 52 20 80 50 52 4F 3B 20 43 48 |R. .JSR .PRO; CH|
00000940: 45 43 4B 20 81 20 80 20 4F 46 20 50 52 4F 47 52 |ECK . . OF PROGR|
00000950: 41 4D 00 5D 0D 2A 03 4C 44 58 20 23 30 00 89 0D |AM.].*.LDX #0...|
00000960: 34 03 53 54 58 20 80 46 4C 41 47 3B 20 53 45 54 |4.STX .FLAG; SET|
00000970: 20 80 20 4F 46 20 50 52 4F 47 52 41 4D 20 46 4C | . OF PROGRAM FL|
00000980: 41 47 20 A4 20 5A 45 52 4F 00 91 0D 3E 03 52 54 |AG . ZERO...>.RT|
00000990: 53 00 CC 0D 48 03 3B AB AB AB AB AB AB AB AB AB |S...H.;.........|
000009A0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000009B0: 20 48 AF 4C 45 20 2E 80 20 50 53 45 55 44 4F AB | H.LE .. PSEUDO.|
000009C0: 4F 50 20 AB AB AB AB AB AB AB AB AB 00 E5 0D 52 |OP ............R|
000009D0: 03 50 80 20 4C 44 41 20 23 34 36 3B 20 99 20 4F |.P. LDA #46; . O|
000009E0: 55 54 20 2E 80 00 EF 0D 5C 03 4A 53 52 20 99 00 |UT .....\.JSR ..|
000009F0: FB 0D 66 03 4C 44 41 20 23 36 39 00 05 0E 70 03 |..f.LDA #69...p.|
00000A00: 4A 53 52 20 99 00 11 0E 7A 03 4C 44 41 20 23 37 |JSR ....z.LDA #7|
00000A10: 38 00 1B 0E 84 03 4A 53 52 20 99 00 27 0E 8E 03 |8.....JSR ..'...|
00000A20: 4C 44 41 20 23 36 38 00 31 0E 98 03 4A 53 52 20 |LDA #68.1...JSR |
00000A30: 99 00 3D 0E A2 03 4C 44 41 20 23 33 32 00 47 0E |..=...LDA #32.G.|
00000A40: AC 03 4A 53 52 20 99 00 56 0E B6 03 4A 53 52 20 |..JSR ..V...JSR |
00000A50: 43 48 41 52 49 4E 00 8F 0E C0 03 4A 53 52 20 46 |CHARIN.....JSR F|
00000A60: 49 30 3B 20 A1 20 46 49 C3 41 4D 45 2C 20 45 54 |I0; . FI.AME, ET|
00000A70: 43 2E 20 4A 55 53 54 20 41 53 20 2E 46 49 4C 45 |C. JUST AS .FILE|
00000A80: 20 50 53 45 55 44 4F AB 4F 50 20 44 4F 45 53 00 | PSEUDO.OP DOES.|
00000A90: BE 0E CA 03 4C 44 41 20 50 41 53 53 3B 20 91 20 |....LDA PASS; . |
00000AA0: 50 41 53 53 20 31 2C 20 44 91 27 54 20 53 45 54 |PASS 1, D.'T SET|
00000AB0: 20 54 48 45 20 80 46 4C 41 47 20 55 50 2E 00 01 | THE .FLAG UP...|
00000AC0: 0F D4 03 42 45 51 20 50 80 31 3B 20 42 55 54 20 |...BEQ P.1; BUT |
00000AD0: 91 20 50 41 53 53 20 32 2C 20 49 54 27 53 20 4E |. PASS 2, IT'S N|
00000AE0: 45 43 45 53 53 41 52 59 20 28 A4 20 80 20 54 48 |ECESSARY (. . TH|
00000AF0: 45 20 45 4E 54 49 52 45 20 50 52 4F 47 52 41 4D |E ENTIRE PROGRAM|
00000B00: 29 00 0F 0F DE 03 49 4E 43 20 80 46 4C 41 47 00 |).....INC .FLAG.|
00000B10: 41 0F E8 03 50 80 31 20 49 4E 43 20 50 41 53 53 |A...P.1 INC PASS|
00000B20: 3B 20 52 41 49 53 45 20 50 41 53 53 20 46 52 4F |; RAISE PASS FRO|
00000B30: 4D 20 50 41 53 53 20 31 20 A4 20 50 41 53 53 20 |M PASS 1 . PASS |
00000B40: 32 00 84 0F F2 03 4C 44 41 20 54 41 3B 20 50 55 |2.....LDA TA; PU|
00000B50: 54 20 B0 49 47 49 4E 41 4C 20 53 54 41 52 54 20 |T .IGINAL START |
00000B60: 41 44 44 52 45 53 53 20 42 41 43 4B 20 B5 4F 20 |ADDRESS BACK .O |
00000B70: 50 43 20 28 53 41 29 20 81 20 52 45 53 54 41 52 |PC (SA) . RESTAR|
00000B80: 54 20 4F 46 00 A3 0F FC 03 53 54 41 20 53 41 3B |T OF.....STA SA;|
00000B90: 20 41 53 53 45 4D 42 4C 59 20 91 20 50 41 53 53 | ASSEMBLY . PASS|
00000BA0: 20 32 2E 00 B0 0F 06 04 4C 44 41 20 54 41 AA 31 | 2......LDA TA.1|
00000BB0: 00 BD 0F 10 04 53 54 41 20 53 41 AA 31 00 DB 0F |.....STA SA.1...|
00000BC0: 1A 04 4A 53 52 20 49 4E 44 49 53 4B 3B 20 53 45 |..JSR INDISK; SE|
00000BD0: 54 20 55 50 20 82 20 4C 49 4E 45 00 E3 0F 24 04 |T UP . LINE...$.|
00000BE0: 52 54 53 00 28 10 2E 04 3B AB AB AB AB AB AB AB |RTS.(...;.......|
00000BF0: AB AB AB AB AB AB AB AB AB AB AB AB 20 48 AF 4C |............ H.L|
00000C00: 45 20 2E 44 20 46 49 C3 41 4D 45 20 50 53 45 55 |E .D FI.AME PSEU|
00000C10: 44 4F AB 4F 50 20 28 4F 42 4A 45 43 54 20 43 4F |DO.OP (OBJECT CO|
00000C20: 44 45 20 46 49 4C 45 29 00 60 10 38 04 50 44 49 |DE FILE).`.8.PDI|
00000C30: 53 4B 20 4C 44 41 20 50 41 53 53 3B 20 91 20 50 |SK LDA PASS; . P|
00000C40: 41 53 53 20 31 2C 20 44 91 27 54 20 53 A4 52 45 |ASS 1, D.'T S.RE|
00000C50: 20 41 4E 59 54 48 49 4E 47 20 A4 20 44 49 53 4B | ANYTHING . DISK|
00000C60: 00 98 10 42 04 42 45 51 20 50 55 4C 4C 4A 3B 20 |...B.BEQ PULLJ; |
00000C70: 50 55 4C 4C 4A 20 49 53 20 41 20 53 50 52 49 4E |PULLJ IS A SPRIN|
00000C80: 47 42 4F 41 52 44 20 28 4A 55 4D 50 53 20 A4 20 |GBOARD (JUMPS . |
00000C90: 50 55 4C 4C 49 4E 45 29 00 B5 10 4C 04 4A 53 52 |PULLINE)...L.JSR|
00000CA0: 20 43 48 41 52 49 4E 3B 20 50 4F B5 20 A4 20 46 | CHARIN; PO. . F|
00000CB0: 49 C3 41 4D 45 00 C5 10 56 04 53 54 41 20 4C 41 |I.AME...V.STA LA|
00000CC0: 42 45 4C 2C 59 00 D0 10 60 04 4C 44 59 20 23 30 |BEL,Y...`.LDY #0|
00000CD0: 00 E6 10 6A 04 50 44 4C 4F 4F 50 20 4A 53 52 20 |...j.PDLOOP JSR |
00000CE0: 43 48 41 52 49 4E 00 FD 10 74 04 42 45 51 20 50 |CHARIN...t.BEQ P|
00000CF0: 44 31 3B 20 80 20 4F 46 20 4C 49 4E 45 00 34 11 |D1; . OF LINE.4.|
00000D00: 7E 04 43 4D 50 20 23 31 32 37 3B 20 49 54 27 53 |~.CMP #127; IT'S|
00000D10: 20 41 20 4B 45 59 57 B0 44 20 28 57 49 54 48 49 | A KEYW.D (WITHI|
00000D20: 4E 20 54 48 45 20 46 49 C3 41 4D 45 29 20 8B 20 |N THE FI.AME) . |
00000D30: B1 31 32 37 00 41 11 88 04 42 43 43 20 50 44 49 |.127.A...BCC PDI|
00000D40: 58 00 50 11 92 04 4A 53 52 20 4B 45 59 57 B0 44 |X.P...JSR KEYW.D|
00000D50: 00 90 11 9C 04 50 44 49 58 20 53 54 41 20 4C 41 |.....PDIX STA LA|
00000D60: 42 45 4C 2C 59 3B 20 4B 45 45 50 20 53 A4 52 49 |BEL,Y; KEEP S.RI|
00000D70: 4E 47 20 46 49 C3 41 4D 45 20 B5 4F 20 99 4F 55 |NG FI.AME .O .OU|
00000D80: 54 20 42 55 46 46 45 52 20 28 4C 41 42 45 4C 29 |T BUFFER (LABEL)|
00000D90: 00 BA 11 A6 04 53 54 41 20 46 49 C3 2C 59 3B 20 |.....STA FI.,Y; |
00000DA0: 41 53 20 57 45 4C 4C 20 41 53 20 9F 31 20 42 55 |AS WELL AS .1 BU|
00000DB0: 46 46 45 52 20 28 46 49 C3 29 00 C2 11 B0 04 49 |FFER (FI.).....I|
00000DC0: 4E 59 00 F8 11 BA 04 4A 4D 50 20 50 44 4C 4F 4F |NY.....JMP PDLOO|
00000DD0: 50 3B 20 4B 45 45 50 20 53 A4 52 49 4E 47 20 46 |P; KEEP S.RING F|
00000DE0: 49 C3 41 4D 45 3B AB AB AB AB AB AB AB AB AB AB |I.AME;..........|
00000DF0: AB AB AB AB AB AB AB AB 00 32 12 C4 04 50 55 4C |.........2...PUL|
00000E00: 4C 4A 20 4A 4D 50 20 50 55 4C 4C 49 4E 45 3B AB |LJ JMP PULLINE;.|
00000E10: AB AB AB AB AB AB AB 20 53 50 52 49 4E 47 42 4F |....... SPRINGBO|
00000E20: 41 52 44 20 A4 20 49 47 4E B0 45 20 46 49 C3 41 |ARD . IGN.E FI.A|
00000E30: 4D 45 00 6F 12 CE 04 50 44 31 20 4C 44 41 20 23 |ME.o...PD1 LDA #|
00000E40: 34 34 3B 20 50 55 54 20 2C 50 2C 57 20 28 50 52 |44; PUT ,P,W (PR|
00000E50: 4F 47 52 41 4D 2C 20 57 52 49 54 45 29 20 53 49 |OGRAM, WRITE) SI|
00000E60: 47 4E 41 4C 53 20 91 A4 20 46 49 C3 41 4D 45 00 |GNALS .. FI.AME.|
00000E70: 7D 12 D8 04 53 54 41 20 46 49 C3 2C 59 00 85 12 |}...STA FI.,Y...|
00000E80: E2 04 49 4E 59 00 91 12 EC 04 4C 44 41 20 23 38 |..INY.....LDA #8|
00000E90: 30 00 9F 12 F6 04 53 54 41 20 46 49 C3 2C 59 00 |0.....STA FI.,Y.|
00000EA0: B3 12 00 05 49 4E 59 3B 20 20 41 44 44 AB AB 2C |....INY; ADD..,|
00000EB0: 50 2C 57 00 BF 12 0A 05 4C 44 41 20 23 34 34 00 |P,W.....LDA #44.|
00000EC0: CD 12 14 05 53 54 41 20 46 49 C3 2C 59 00 D5 12 |....STA FI.,Y...|
00000ED0: 1E 05 49 4E 59 00 E1 12 28 05 4C 44 41 20 23 38 |..INY...(.LDA #8|
00000EE0: 37 00 EF 12 32 05 53 54 41 20 46 49 C3 2C 59 00 |7...2.STA FI.,Y.|
00000EF0: F7 12 3C 05 49 4E 59 00 17 13 46 05 53 54 59 20 |..<.INY...F.STY |
00000F00: A5 41 4D 45 C3 3B 20 53 A4 52 45 20 46 49 C3 41 |.AME.; S.RE FI.A|
00000F10: 4D 45 20 C3 47 54 48 00 35 13 50 05 4A 53 52 20 |ME .GTH.5.P.JSR |
00000F20: 50 52 4E 54 85 3B 20 99 20 4F 55 54 20 54 48 45 |PRNT.; . OUT THE|
00000F30: 20 4C 49 4E 45 00 50 13 5A 05 4A 53 52 20 50 52 | LINE.P.Z.JSR PR|
00000F40: 4E 54 43 52 3B 20 43 41 52 52 49 41 47 45 20 8E |NTCR; CARRIAGE .|
00000F50: 00 97 13 64 05 49 4E 43 20 44 49 53 4B 46 4C 41 |...d.INC DISKFLA|
00000F60: 47 3B 20 52 41 49 53 45 20 44 49 53 4B 46 4C 41 |G; RAISE DISKFLA|
00000F70: 47 20 A4 20 53 48 4F 57 20 54 48 41 54 20 46 55 |G . SHOW THAT FU|
00000F80: 54 55 52 45 20 97 53 20 53 48 4F 55 4C 44 20 CB |TURE .S SHOULD .|
00000F90: 20 A4 20 44 49 53 4B 00 CD 13 6E 05 4A 53 52 20 | . DISK...n.JSR |
00000FA0: 9F 32 3B 20 9F 20 41 20 53 45 43 91 44 20 44 49 |.2; . A SEC.D DI|
00000FB0: 53 4B 20 46 49 4C 45 20 28 54 48 49 53 20 91 45 |SK FILE (THIS .E|
00000FC0: 20 81 20 57 52 49 54 49 4E 47 20 A4 29 00 D8 13 | . WRITING .)...|
00000FD0: 78 05 4C 44 58 20 23 32 00 E7 13 82 05 4A 53 52 |x.LDX #2.....JSR|
00000FE0: 20 43 48 4B 4F 55 54 00 20 14 8C 05 4C 44 41 20 | CHKOUT. ...LDA |
00000FF0: 54 41 3B 20 99 20 4F 42 4A 45 43 54 20 43 4F 44 |TA; . OBJECT COD|
00001000: 45 27 53 20 53 54 41 52 54 49 4E 47 20 41 44 44 |E'S STARTING ADD|
00001010: 52 45 53 53 20 A4 20 44 49 53 4B 20 46 49 4C 45 |RESS . DISK FILE|
00001020: 00 2A 14 96 05 4A 53 52 20 99 00 37 14 A0 05 4C |.*...JSR ..7...L|
00001030: 44 41 20 54 41 AA 31 00 41 14 AA 05 4A 53 52 20 |DA TA.1.A...JSR |
00001040: 99 00 54 14 B4 05 45 44 49 53 4B 20 4A 53 52 20 |..T...EDISK JSR |
00001050: 9C 43 48 4E 00 6C 14 BE 05 4C 44 58 20 23 31 3B |.CHN.l...LDX #1;|
00001060: 20 8C 20 4E B0 4D 41 4C 20 49 AD 4F 00 7A 14 C8 | . N.MAL I.O.z..|
00001070: 05 4A 53 52 20 43 48 4B 49 4E 00 B3 14 D2 05 4A |.JSR CHKIN.....J|
00001080: 53 52 20 44 49 53 45 52 52 3B 20 43 48 45 43 4B |SR DISERR; CHECK|
00001090: 20 81 20 44 49 53 4B 20 45 52 52 B0 20 28 46 41 | . DISK ERR. (FA|
000010A0: 49 4C 55 52 45 20 A4 20 9F 20 43 B0 52 45 43 54 |ILURE . . C.RECT|
000010B0: 4C 59 29 00 D1 14 DC 05 4A 53 52 20 80 50 52 4F |LY).....JSR .PRO|
000010C0: 3B 20 A1 20 82 20 4C 49 4E 45 20 4E 55 4D 42 45 |; . . LINE NUMBE|
000010D0: 52 00 E3 14 E6 05 50 4C 41 3B 20 50 55 4C 4C 20 |R.....PLA; PULL |
000010E0: 52 54 53 00 EB 14 F0 05 50 4C 41 00 F6 14 FA 05 |RTS.....PLA.....|
000010F0: 4C 44 58 20 23 30 00 1D 15 04 06 53 54 58 20 80 |LDX #0.....STX .|
00001100: 46 4C 41 47 3B 20 52 45 53 45 54 20 80 20 4F 46 |FLAG; RESET . OF|
00001110: 20 50 52 4F 47 52 41 4D 20 46 4C 41 47 00 44 15 | PROGRAM FLAG.D.|
00001120: 0E 06 4A 4D 50 20 53 54 41 52 54 4C 49 4E 45 3B |..JMP STARTLINE;|
00001130: 20 AF 20 8E 20 A4 20 45 C5 20 A4 20 A1 20 82 20 | . . . E. . . . |
00001140: 4C 49 4E 45 00 84 15 18 06 3B AB AB AB AB AB AB |LINE.....;......|
00001150: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001160: AB AB AB AB 20 48 AF 4C 45 20 2E 50 20 28 99 45 |.... H.LE .P (.E|
00001170: 52 29 20 50 53 45 55 44 4F AB 4F 50 20 AB AB AB |R) PSEUDO.OP ...|
00001180: AB AB AB AB 00 B2 15 22 06 50 99 45 52 20 4C 44 |.......".P.ER LD|
00001190: 41 20 50 41 53 53 3B 20 91 20 50 41 53 53 20 31 |A PASS; . PASS 1|
000011A0: 2C 20 44 4F 20 4E 4F 20 99 45 52 20 4F 55 54 50 |, DO NO .ER OUTP|
000011B0: 55 54 00 E0 15 2C 06 42 45 51 20 50 55 4C 4C 49 |UT...,.BEQ PULLI|
000011C0: 4E 45 3B 20 A1 20 52 49 44 20 4F 46 20 52 45 53 |NE; . RID OF RES|
000011D0: 54 20 4F 46 20 4C 49 4E 45 20 AF 20 CB 20 91 2E |T OF LINE . . ..|
000011E0: 00 12 16 36 06 4A 53 52 20 9F 34 3B 20 50 41 53 |...6.JSR .4; PAS|
000011F0: 53 20 32 2C 20 53 4F 20 9F 20 99 45 52 20 A4 20 |S 2, SO . .ER . |
00001200: 48 45 41 52 20 46 52 4F 4D 20 43 4F 4D 50 55 54 |HEAR FROM COMPUT|
00001210: 45 52 00 4D 16 40 06 49 4E 43 20 99 46 4C 41 47 |ER.M.@.INC .FLAG|
00001220: 3B 20 52 41 49 53 45 20 99 45 52 20 4F 55 54 50 |; RAISE .ER OUTP|
00001230: 55 54 20 46 4C 41 47 20 28 53 4F 20 99 20 57 49 |UT FLAG (SO . WI|
00001240: 4C 4C 20 53 80 20 42 59 54 45 53 20 A4 00 88 16 |LL S. BYTES ....|
00001250: 4A 06 4A 53 52 20 9C 43 48 4E 3B 20 20 20 20 20 |J.JSR .CHN; |
00001260: 20 20 20 20 20 20 20 20 20 54 48 45 20 99 45 52 | THE .ER|
00001270: 20 41 53 20 57 45 4C 4C 20 41 53 20 54 48 45 20 | AS WELL AS THE |
00001280: 53 43 52 45 45 4E 29 2E 00 A0 16 54 06 4C 44 58 |SCREEN)....T.LDX|
00001290: 20 23 31 3B 20 8C 20 4E B0 4D 41 4C 20 49 AD 4F | #1; . N.MAL I.O|
000012A0: 00 AE 16 5E 06 4A 53 52 20 43 48 4B 49 4E 00 F3 |...^.JSR CHKIN..|
000012B0: 16 68 06 3B AB AB AB AB AB AB AB AB AB AB AB AB |.h.;............|
000012C0: AB AB AB AB AB AB AB AB AB AB 20 53 55 43 54 49 |.......... SUCTI|
000012D0: 91 20 52 4F 55 54 49 4E 45 2E 20 20 A1 20 52 49 |. ROUTINE. . RI|
000012E0: 44 20 4F 46 20 52 45 53 54 20 4F 46 20 41 20 4C |D OF REST OF A L|
000012F0: 49 4E 45 00 2F 17 72 06 50 55 4C 4C 49 4E 45 20 |INE./.r.PULLINE |
00001300: 4A 53 52 20 43 48 41 52 49 4E 3B 20 49 47 4E B0 |JSR CHARIN; IGN.|
00001310: 45 20 41 4C 4C 20 42 59 54 45 53 2C 20 4A 55 53 |E ALL BYTES, JUS|
00001320: 54 20 4C 4F 43 41 54 45 20 82 20 4C 49 4E 45 00 |T LOCATE . LINE.|
00001330: 68 17 7C 06 42 45 51 20 80 50 55 4C 4C 3B 20 5A |h.|.BEQ .PULL; Z|
00001340: 45 52 4F 20 80 20 4F 46 20 4C 49 4E 45 20 53 48 |ERO . OF LINE SH|
00001350: 4F 55 4C 44 20 CB 20 A4 20 80 50 52 4F 20 81 20 |OULD . . .PRO . |
00001360: 82 20 4C 49 4E 45 20 23 00 9B 17 86 06 43 4D 50 |. LINE #.....CMP|
00001370: 20 23 35 38 3B 20 57 48 45 52 45 41 53 20 41 20 | #58; WHEREAS A |
00001380: 43 4F 4C 91 20 80 20 4F 46 20 4C 49 4E 45 20 53 |COL. . OF LINE S|
00001390: 4B 49 50 53 20 54 48 41 54 20 A9 00 B1 17 90 06 |KIPS THAT ......|
000013A0: 42 45 51 20 80 50 55 4C 52 3B 20 28 43 4F 4C 91 |BEQ .PULR; (COL.|
000013B0: 29 00 F3 17 9A 06 4A 4D 50 20 50 55 4C 4C 49 4E |).....JMP PULLIN|
000013C0: 45 3B 20 4E 45 49 54 48 45 52 20 43 4F 4C 91 20 |E; NEITHER COL. |
000013D0: 4E B0 20 5A 45 52 4F 20 28 53 4F 20 50 55 4C 4C |N. ZERO (SO PULL|
000013E0: 20 49 4E 20 4D B0 45 20 43 48 41 52 41 43 54 45 | IN M.E CHARACTE|
000013F0: 52 53 29 00 06 18 A4 06 80 50 55 4C 4C 20 4A 53 |RS)......PULL JS|
00001400: 52 20 80 50 52 4F 00 28 18 AE 06 80 50 55 4C 52 |R .PRO.(....PULR|
00001410: 20 50 4C 41 3B 20 50 55 4C 4C 20 52 54 53 20 4F | PLA; PULL RTS O|
00001420: 46 46 20 53 54 41 43 4B 00 30 18 B8 06 50 4C 41 |FF STACK.0...PLA|
00001430: 00 3B 18 C2 06 4C 44 58 20 23 30 00 59 18 CC 06 |.;...LDX #0.Y...|
00001440: 53 54 58 20 80 46 4C 41 47 3B 20 53 45 54 20 80 |STX .FLAG; SET .|
00001450: 46 4C 41 47 20 44 4F 57 4E 00 8F 18 D6 06 4A 4D |FLAG DOWN.....JM|
00001460: 50 20 53 54 41 52 54 4C 49 4E 45 3B 20 8E 20 A4 |P STARTLINE; . .|
00001470: 20 45 C5 20 28 A4 20 A1 20 82 20 4C 49 4E 45 20 | E. (. . . LINE |
00001480: 4F 46 20 53 4F 55 52 43 45 20 43 4F 44 45 29 00 |OF SOURCE CODE).|
00001490: D1 18 E0 06 3B AB AB AB AB AB AB AB AB AB AB AB |....;...........|
000014A0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB 20 |............... |
000014B0: 48 AF 4C 45 20 2E 4F 20 28 97 20 42 59 54 45 53 |H.LE .O (. BYTES|
000014C0: 20 A4 20 52 41 4D 29 20 50 53 45 55 44 4F AB 4F | . RAM) PSEUDO.O|
000014D0: 50 00 E7 18 EA 06 4F 50 91 20 4C 44 41 20 23 34 |P.....OP. LDA #4|
000014E0: 36 3B 20 99 20 2E 4F 00 F1 18 F4 06 4A 53 52 20 |6; . .O.....JSR |
000014F0: 99 00 02 19 FE 06 4C 44 41 20 23 37 39 3B 20 22 |......LDA #79; "|
00001500: 4F 22 00 0C 19 08 07 4A 53 52 20 99 00 27 19 12 |O".....JSR ..'..|
00001510: 07 4A 53 52 20 50 52 4E 54 43 52 3B 20 43 41 52 |.JSR PRNTCR; CAR|
00001520: 52 49 41 47 45 20 8E 00 32 19 1C 07 4C 44 41 20 |RIAGE ..2...LDA |
00001530: 23 31 00 54 19 26 07 53 54 41 20 97 46 4C 41 47 |#1.T.&.STA .FLAG|
00001540: 3B 20 52 41 49 53 45 20 97 AB A4 AB 52 41 4D 20 |; RAISE ....RAM |
00001550: 46 4C 41 47 00 78 19 30 07 4A 4D 50 20 50 55 4C |FLAG.x.0.JMP PUL|
00001560: 4C 49 4E 45 3B 20 49 47 4E B0 45 20 52 45 53 54 |LINE; IGN.E REST|
00001570: 20 4F 46 20 4C 49 4E 45 00 C2 19 3A 07 3B AB AB | OF LINE...:.;..|
00001580: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001590: AB AB AB AB AB AB AB AB 20 48 AF 4C 45 20 2E 4E |........ H.LE .N|
000015A0: 28 53 4F 4D 45 54 48 49 4E 47 29 2C 54 55 52 4E |(SOMETHING),TURN|
000015B0: AB 49 54 AB 4F 46 46 20 50 53 45 55 44 4F AB 4F |.IT.OFF PSEUDO.O|
000015C0: 50 53 00 FB 19 44 07 4E 49 58 20 4C 44 41 20 50 |PS...D.NIX LDA P|
000015D0: 41 53 53 3B 20 91 20 50 41 53 53 20 31 2C 20 44 |ASS; . PASS 1, D|
000015E0: 91 27 54 20 42 4F 54 48 45 52 20 57 49 54 48 20 |.'T BOTHER WITH |
000015F0: 41 4E 59 20 4F 46 20 54 48 49 53 00 0B 1A 4E 07 |ANY OF THIS...N.|
00001600: 42 45 51 20 50 55 4C 4C 49 4E 45 00 49 1A 58 07 |BEQ PULLINE.I.X.|
00001610: 4A 53 52 20 43 48 41 52 49 4E 3B 20 91 20 50 41 |JSR CHARIN; . PA|
00001620: 53 53 20 32 2C 20 53 45 45 20 57 48 49 43 48 20 |SS 2, SEE WHICH |
00001630: 54 48 49 4E 47 20 49 53 20 42 45 49 4E 47 20 54 |THING IS BEING T|
00001640: 55 52 4E 45 44 20 4F 46 46 00 7B 1A 62 07 43 4D |URNED OFF.{.b.CM|
00001650: 50 20 23 38 30 3B 20 49 53 20 49 54 20 22 2E 4E |P #80; IS IT ".N|
00001660: 50 22 20 A4 20 22 4E 4F 54 20 50 52 49 4E 54 20 |P" . "NOT PRINT |
00001670: 54 4F 20 50 52 49 4E 54 45 52 22 00 88 1A 6C 07 |TO PRINTER"...l.|
00001680: 42 45 51 20 4E 49 58 99 00 C2 1A 76 07 43 4D 50 |BEQ NIX....v.CMP|
00001690: 20 23 37 39 3B 20 49 53 20 49 54 20 22 2E 4E 4F | #79; IS IT ".NO|
000016A0: 22 20 A4 20 22 4E 4F 54 20 50 4F 4B 45 20 4F 42 |" . "NOT POKE OB|
000016B0: 4A 45 43 54 20 42 59 54 45 53 20 54 4F 20 52 41 |JECT BYTES TO RA|
000016C0: 4D 22 00 D0 1A 80 07 42 45 51 20 4E 49 58 4F 50 |M".....BEQ NIXOP|
000016D0: 00 01 1B 8A 07 43 4D 50 20 23 38 33 3B 20 49 53 |.....CMP #83; IS|
000016E0: 20 49 54 20 22 2E 4E 53 22 20 A4 20 22 4E 4F 54 | IT ".NS" . "NOT|
000016F0: 20 50 52 49 4E 54 20 54 4F 20 53 43 52 45 45 4E | PRINT TO SCREEN|
00001700: 22 00 13 1B 94 07 42 45 51 20 4E 49 58 53 43 52 |".....BEQ NIXSCR|
00001710: 45 45 4E 00 59 1B 9E 07 43 4D 50 20 23 37 32 3B |EEN.Y...CMP #72;|
00001720: 20 49 53 20 49 54 20 22 2E 4E 48 22 20 A4 20 22 | IS IT ".NH" . "|
00001730: 4E 4F 54 20 50 52 49 4E 54 4F 55 54 20 48 45 58 |NOT PRINTOUT HEX|
00001740: 22 20 28 54 48 55 53 20 53 57 49 54 43 48 20 A4 |" (THUS SWITCH .|
00001750: 20 44 45 43 49 4D 41 4C 29 00 68 1B A8 07 42 45 | DECIMAL).h...BE|
00001760: 51 20 4E 49 58 48 45 58 00 9C 1B B2 07 3B AB AB |Q NIXHEX.....;..|
00001770: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001780: AB AB AB AB AB AB AB AB 20 54 55 52 4E 20 4F 46 |........ TURN OF|
00001790: 46 20 99 45 52 20 4F 55 54 50 55 54 00 BF 1B BC |F .ER OUTPUT....|
000017A0: 07 4E 49 58 99 20 4C 44 41 20 23 34 36 3B 20 99 |.NIX. LDA #46; .|
000017B0: 20 22 2E 4E 50 22 20 A4 20 53 43 52 45 45 4E 00 | ".NP" . SCREEN.|
000017C0: C9 1B C6 07 4A 53 52 20 99 00 DA 1B D0 07 4C 44 |....JSR ......LD|
000017D0: 41 20 23 37 38 3B 20 22 4E 22 00 E4 1B DA 07 4A |A #78; "N".....J|
000017E0: 53 52 20 99 00 F5 1B E4 07 4C 44 41 20 23 38 30 |SR ......LDA #80|
000017F0: 3B 20 22 50 22 00 FF 1B EE 07 4A 53 52 20 99 00 |; "P".....JSR ..|
00001800: 1A 1C F8 07 4A 53 52 20 50 52 4E 54 43 52 3B 20 |....JSR PRNTCR; |
00001810: 43 41 52 52 49 41 47 45 20 8E 00 3F 1C 02 08 44 |CARRIAGE ..?...D|
00001820: 45 43 20 99 46 4C 41 47 3B 20 4C 4F 57 45 52 20 |EC .FLAG; LOWER |
00001830: 99 AB A4 AB 53 43 52 45 45 4E 20 46 4C 41 47 00 |....SCREEN FLAG.|
00001840: 5A 1C 0C 08 4A 53 52 20 9C 43 48 4E 3B 20 54 55 |Z...JSR .CHN; TU|
00001850: 52 4E 20 4F 46 46 20 99 45 52 00 65 1C 16 08 4C |RN OFF .ER.e...L|
00001860: 44 58 20 23 34 00 74 1C 20 08 4A 53 52 20 43 48 |DX #4.t. .JSR CH|
00001870: 4B 4F 55 54 00 80 1C 2A 08 4C 44 41 20 23 31 33 |KOUT...*.LDA #13|
00001880: 00 8A 1C 34 08 4A 53 52 20 99 00 95 1C 3E 08 4C |...4.JSR ....>.L|
00001890: 44 41 20 23 34 00 9F 1C 48 08 4A 53 52 20 A0 00 |DA #4...H.JSR ..|
000018A0: AC 1C 52 08 4A 53 52 20 9C 43 48 4E 00 C4 1C 5C |..R.JSR .CHN...\|
000018B0: 08 4C 44 58 20 23 31 3B 20 8C 20 4E B0 4D 41 4C |.LDX #1; . N.MAL|
000018C0: 20 49 AD 4F 00 D2 1C 66 08 4A 53 52 20 43 48 4B | I.O...f.JSR CHK|
000018D0: 49 4E 00 01 1D 70 08 4A 4D 50 20 50 55 4C 4C 49 |IN...p.JMP PULLI|
000018E0: 4E 45 3B 20 49 47 4E B0 45 20 52 45 53 54 20 4F |NE; IGN.E REST O|
000018F0: 46 20 4C 49 4E 45 20 28 AF 20 8E 20 A4 20 45 C5 |F LINE (. . . E.|
00001900: 29 00 3B 1D 7A 08 3B AB AB AB AB AB AB AB AB AB |).;.z.;.........|
00001910: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001920: AB 20 90 20 97 49 4E 47 20 4F 42 4A 45 43 54 20 |. . .ING OBJECT |
00001930: 42 59 54 45 53 20 A4 20 52 41 4D 00 56 1D 84 08 |BYTES . RAM.V...|
00001940: 4E 49 58 4F 50 20 4C 44 41 20 23 34 36 3B 20 99 |NIXOP LDA #46; .|
00001950: 20 22 2E 4E 4F 22 00 60 1D 8E 08 4A 53 52 20 99 | ".NO".`...JSR .|
00001960: 00 76 1D 98 08 4C 44 41 20 23 37 38 3B 20 20 20 |.v...LDA #78; |
00001970: 20 20 20 22 4E 22 00 80 1D A2 08 4A 53 52 20 99 | "N".....JSR .|
00001980: 00 96 1D AC 08 4C 44 41 20 23 37 39 3B 20 20 20 |.....LDA #79; |
00001990: 20 20 20 22 4F 22 00 A0 1D B6 08 4A 53 52 20 99 | "O".....JSR .|
000019A0: 00 BA 1D C0 08 4A 53 52 20 50 52 4E 54 43 52 3B |.....JSR PRNTCR;|
000019B0: 43 41 52 52 49 41 47 45 20 8E 00 C5 1D CA 08 4C |CARRIAGE ......L|
000019C0: 44 41 20 23 30 00 E4 1D D4 08 53 54 41 20 97 46 |DA #0.....STA .F|
000019D0: 4C 41 47 3B 20 54 55 52 4E 20 4F 46 46 20 97 20 |LAG; TURN OFF . |
000019E0: 46 4C 41 47 00 13 1E DE 08 4A 4D 50 20 50 55 4C |FLAG.....JMP PUL|
000019F0: 4C 49 4E 45 3B 20 49 47 4E B0 45 20 52 45 53 54 |LINE; IGN.E REST|
00001A00: 20 4F 46 20 4C 49 4E 45 20 28 AF 20 8E 20 A4 20 | OF LINE (. . . |
00001A10: 45 C5 29 00 4F 1E E8 08 3B AB AB AB AB AB AB AB |E.).O...;.......|
00001A20: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001A30: AB AB AB 20 90 20 48 45 58 20 99 4F 55 54 53 20 |... . HEX .OUTS |
00001A40: 28 53 54 41 52 54 20 44 45 43 49 4D 41 4C 29 00 |(START DECIMAL).|
00001A50: 6B 1E F2 08 4E 49 58 48 45 58 20 4C 44 41 20 23 |k...NIXHEX LDA #|
00001A60: 34 36 3B 20 99 20 22 2E 4E 48 22 00 75 1E FC 08 |46; . ".NH".u...|
00001A70: 4A 53 52 20 99 00 8B 1E 06 09 4C 44 41 20 23 37 |JSR ......LDA #7|
00001A80: 38 3B 20 20 20 20 20 20 22 4E 22 00 95 1E 10 09 |8; "N".....|
00001A90: 4A 53 52 20 99 00 AB 1E 1A 09 4C 44 41 20 23 37 |JSR ......LDA #7|
00001AA0: 32 3B 20 20 20 20 20 20 22 48 22 00 B5 1E 24 09 |2; "H"...$.|
00001AB0: 4A 53 52 20 99 00 D0 1E 2E 09 4A 53 52 20 50 52 |JSR ......JSR PR|
00001AC0: 4E 54 43 52 3B 20 43 41 52 52 49 41 47 45 20 8E |NTCR; CARRIAGE .|
00001AD0: 00 DB 1E 38 09 4C 44 41 20 23 30 00 FC 1E 42 09 |...8.LDA #0...B.|
00001AE0: 53 54 41 20 48 58 46 4C 41 47 3B 20 50 55 54 20 |STA HXFLAG; PUT |
00001AF0: 48 45 58 46 4C 41 47 20 44 4F 57 4E 00 2B 1F 4C |HEXFLAG DOWN.+.L|
00001B00: 09 4A 4D 50 20 50 55 4C 4C 49 4E 45 3B 20 49 47 |.JMP PULLINE; IG|
00001B10: 4E B0 45 20 52 45 53 54 20 4F 46 20 4C 49 4E 45 |N.E REST OF LINE|
00001B20: 20 28 AF 20 8E 20 A4 20 45 C5 29 00 5A 1F 56 09 | (. . . E.).Z.V.|
00001B30: 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |;...............|
00001B40: AB AB AB AB AB AB AB AB AB AB AB 20 90 20 53 43 |........... . SC|
00001B50: 52 45 45 4E 20 99 4F 55 54 53 00 79 1F 60 09 4E |REEN .OUTS.y.`.N|
00001B60: 49 58 53 43 52 45 45 4E 20 4C 44 41 20 23 34 36 |IXSCREEN LDA #46|
00001B70: 3B 20 99 20 22 2E 4E 53 22 00 83 1F 6A 09 4A 53 |; . ".NS"...j.JS|
00001B80: 52 20 99 00 99 1F 74 09 4C 44 41 20 23 37 38 3B |R ....t.LDA #78;|
00001B90: 20 20 20 20 20 20 22 4E 22 00 A3 1F 7E 09 4A 53 | "N"...~.JS|
00001BA0: 52 20 99 00 B9 1F 88 09 4C 44 41 20 23 38 33 3B |R ......LDA #83;|
00001BB0: 20 20 20 20 20 20 22 53 22 00 C3 1F 92 09 4A 53 | "S".....JS|
00001BC0: 52 20 99 00 DD 1F 9C 09 4A 53 52 20 50 52 4E 54 |R ......JSR PRNT|
00001BD0: 43 52 3B 43 41 52 52 49 41 47 45 20 8E 00 E8 1F |CR;CARRIAGE ....|
00001BE0: A6 09 4C 44 41 20 23 30 00 11 20 B0 09 53 54 41 |..LDA #0.. ..STA|
00001BF0: 20 53 46 4C 41 47 3B 20 50 55 54 20 44 4F 57 4E | SFLAG; PUT DOWN|
00001C00: 20 53 43 52 45 45 4E 20 99 4F 55 54 20 46 4C 41 | SCREEN .OUT FLA|
00001C10: 47 00 40 20 BA 09 4A 4D 50 20 50 55 4C 4C 49 4E |G.@ ..JMP PULLIN|
00001C20: 45 3B 20 49 47 4E B0 45 20 52 45 53 54 20 4F 46 |E; IGN.E REST OF|
00001C30: 20 4C 49 4E 45 20 28 AF 20 8E 20 A4 20 45 C5 29 | LINE (. . . E.)|
00001C40: 00 85 20 C4 09 3B AB AB AB AB AB AB AB AB AB AB |.. ..;..........|
00001C50: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001C60: 20 20 44 49 53 4B 20 45 52 52 B0 20 44 45 54 45 | DISK ERR. DETE|
00001C70: 43 54 49 91 20 52 4F 55 54 49 4E 45 20 AB AB AB |CTI. ROUTINE ...|
00001C80: AB AB AB AB AB 00 C6 20 CE 09 44 49 53 45 52 52 |....... ..DISERR|
00001C90: 20 4C 44 58 20 53 54 3B 20 43 48 45 43 4B 20 44 | LDX ST; CHECK D|
00001CA0: 49 53 4B 20 53 54 41 54 55 53 20 56 41 52 49 41 |ISK STATUS VARIA|
00001CB0: 42 4C 45 20 28 43 4F 4D 50 55 54 45 52 20 53 50 |BLE (COMPUTER SP|
00001CC0: 45 43 8B 49 43 29 00 04 21 D8 09 42 4E 45 20 4D |EC.IC)..!..BNE M|
00001CD0: 4F 44 49 45 52 3B 20 8B 20 A8 20 5A 45 52 4F 2C |ODIER; . . ZERO,|
00001CE0: 20 54 48 45 52 45 20 49 53 20 53 4F 4D 45 20 46 | THERE IS SOME F|
00001CF0: 41 55 4C 54 20 49 4E 20 54 48 45 20 44 49 53 4B |AULT IN THE DISK|
00001D00: 20 49 AD 4F 00 17 21 E2 09 52 54 53 3B AB AB AB | I.O..!..RTS;...|
00001D10: AB AB AB AB AB AB AB 00 3D 21 EC 09 4D 4F 44 49 |........=!..MODI|
00001D20: 45 52 20 4C 44 41 20 23 30 3B 20 99 20 4F 55 54 |ER LDA #0; . OUT|
00001D30: 20 45 52 52 B0 20 4D 45 53 53 41 47 45 00 4D 21 | ERR. MESSAGE.M!|
00001D40: F6 09 4A 53 52 20 50 52 4E 54 4E 55 4D 00 5F 21 |..JSR PRNTNUM._!|
00001D50: 00 0A 4A 53 52 20 50 52 4E 54 53 50 41 43 45 00 |..JSR PRNTSPACE.|
00001D60: 70 21 0A 0A 4C 44 41 20 23 B3 4D 44 49 53 45 52 |p!..LDA #.MDISER|
00001D70: 00 96 21 14 0A 53 54 41 20 54 45 4D 50 3B 20 50 |..!..STA TEMP; P|
00001D80: 4F B5 20 A4 20 44 49 53 4B 20 45 52 52 B0 20 4D |O. . DISK ERR. M|
00001D90: 45 53 53 41 47 45 00 A7 21 1E 0A 4C 44 41 20 23 |ESSAGE..!..LDA #|
00001DA0: B1 4D 44 49 53 45 52 00 B6 21 28 0A 53 54 41 20 |.MDISER..!(.STA |
00001DB0: 54 45 4D 50 AA 31 00 D0 21 32 0A 4A 53 52 20 45 |TEMP.1..!2.JSR E|
00001DC0: 52 52 49 4E 47 3B 20 52 49 4E 47 20 42 45 4C 4C |RRING; RING BELL|
00001DD0: 00 F1 21 3C 0A 4A 53 52 20 50 52 4E 54 4D 45 53 |..!<.JSR PRNTMES|
00001DE0: 53 3B 20 99 20 45 52 52 B0 20 4D 45 53 53 41 47 |S; . ERR. MESSAG|
00001DF0: 45 00 0D 22 46 0A 50 4C 41 3B 20 50 55 4C 4C 20 |E.."F.PLA; PULL |
00001E00: 52 54 53 20 4F 46 46 20 53 54 41 43 4B 00 15 22 |RTS OFF STACK.."|
00001E10: 50 0A 50 4C 41 00 41 22 5A 0A 4A 4D 50 20 46 49 |P.PLA.A"Z.JMP FI|
00001E20: 4E 3B 20 53 48 55 54 20 44 4F 57 4E 20 45 4E 54 |N; SHUT DOWN ENT|
00001E30: 49 52 45 20 4C 41 44 53 20 4F 50 45 52 41 54 49 |IRE LADS OPERATI|
00001E40: 91 00 7D 22 64 0A 3B AB AB AB AB AB AB AB AB AB |..}"d.;.........|
00001E50: AB AB AB AB AB AB 20 48 AF 4C 45 20 2E 53 20 50 |...... H.LE .S P|
00001E60: 53 45 55 44 4F AB 4F 50 20 28 54 55 52 4E 20 91 |SEUDO.OP (TURN .|
00001E70: 20 53 43 52 45 45 4E 20 99 4F 55 54 29 00 98 22 | SCREEN .OUT).."|
00001E80: 6E 0A 53 43 52 45 49 4E 20 4C 44 41 20 23 34 36 |n.SCREIN LDA #46|
00001E90: 3B 20 99 20 22 2E 53 22 00 A2 22 78 0A 4A 53 52 |; . ".S".."x.JSR|
00001EA0: 20 99 00 BA 22 82 0A 4C 44 41 20 23 38 33 3B 20 | ..."..LDA #83; |
00001EB0: 20 20 20 20 20 20 20 22 53 22 00 C4 22 8C 0A 4A | "S".."..J|
00001EC0: 53 52 20 99 00 DF 22 96 0A 4A 53 52 20 50 52 4E |SR ..."..JSR PRN|
00001ED0: 54 43 52 3B 20 43 41 52 52 49 41 47 45 20 8E 00 |TCR; CARRIAGE ..|
00001EE0: 06 23 A0 0A 4C 44 41 20 50 41 53 53 3B 20 91 20 |.#..LDA PASS; . |
00001EF0: 50 41 53 53 20 31 2C 20 4E 4F 20 53 43 52 45 45 |PASS 1, NO SCREE|
00001F00: 4E 20 99 4F 55 54 00 14 23 AA 0A 42 45 51 20 53 |N .OUT..#..BEQ S|
00001F10: 43 52 45 58 00 49 23 B4 0A 4C 44 41 20 23 31 3B |CREX.I#..LDA #1;|
00001F20: 20 4F 54 48 45 52 57 49 53 45 2C 20 52 41 49 53 | OTHERWISE, RAIS|
00001F30: 45 20 53 43 52 45 45 4E 20 99 4F 55 54 20 28 9B |E SCREEN .OUT (.|
00001F40: 49 4E 47 29 20 46 4C 41 47 00 57 23 BE 0A 53 54 |ING) FLAG.W#..ST|
00001F50: 41 20 53 46 4C 41 47 00 8C 23 C8 0A 53 43 52 45 |A SFLAG..#..SCRE|
00001F60: 58 20 4A 4D 50 20 50 55 4C 4C 49 4E 45 3B 20 49 |X JMP PULLINE; I|
00001F70: 47 4E B0 45 20 52 45 53 54 20 4F 46 20 4C 49 4E |GN.E REST OF LIN|
00001F80: 45 20 28 AF 20 8E 20 A4 20 45 C5 29 00 CC 23 D2 |E (. . . E.)..#.|
00001F90: 0A 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB |.;..............|
00001FA0: 20 48 AF 4C 45 20 2E 48 20 50 53 45 55 44 4F AB | H.LE .H PSEUDO.|
00001FB0: 4F 50 20 28 48 45 58 20 4E 55 4D 42 45 52 53 20 |OP (HEX NUMBERS |
00001FC0: 44 55 52 49 4E 47 20 99 4F 55 54 29 00 E6 23 DC |DURING .OUT)..#.|
00001FD0: 0A 48 45 58 49 54 20 4C 44 41 20 23 34 36 3B 20 |.HEXIT LDA #46; |
00001FE0: 99 20 22 2E 48 22 00 F0 23 E6 0A 4A 53 52 20 99 |. ".H"..#..JSR .|
00001FF0: 00 06 24 F0 0A 4C 44 41 20 23 37 32 3B 20 20 20 |..$..LDA #72; |
00002000: 20 20 20 22 48 22 00 10 24 FA 0A 4A 53 52 20 99 | "H"..$..JSR .|
00002010: 00 2B 24 04 0B 4A 53 52 20 50 52 4E 54 43 52 3B |.+$..JSR PRNTCR;|
00002020: 20 43 41 52 52 49 41 47 45 20 8E 00 36 24 0E 0B | CARRIAGE ..6$..|
00002030: 4C 44 41 20 23 31 00 55 24 18 0B 53 54 41 20 48 |LDA #1.U$..STA H|
00002040: 58 46 4C 41 47 3B 20 53 45 54 20 48 45 58 46 4C |XFLAG; SET HEXFL|
00002050: 41 47 20 55 50 00 84 24 22 0B 4A 4D 50 20 50 55 |AG UP..$".JMP PU|
00002060: 4C 4C 49 4E 45 3B 20 49 47 4E B0 45 20 52 45 53 |LLINE; IGN.E RES|
00002070: 54 20 4F 46 20 4C 49 4E 45 20 28 AF 20 8E 20 A4 |T OF LINE (. . .|
00002080: 20 45 C5 29 00 95 24 2C 0B 2E 46 49 4C 45 20 54 | E.)..$,..FILE T|
00002090: 41 42 4C 45 53 00 00 00 |ABLES... |
../...; "PSEUDO" H.LE ALL PSEUDOPS EXCEP
T .BYTE.5...;.P...; JMP HERE FROM INDISK
.....; (INDISK WAS JSR'ED . FROM EE). .
Y HOLDS PO.ER . LABEL...(.; ............
..............S.2.PSEUDO CMP #70; IS IT
"F" . .FILE...<.BNE PSE1...F.JSR FILE; F
MEANS K . . LINKED FILE ...............
...;.P.KBACK PLA; . . EE . . . LINE.C.Z.
PLA.N.D.JMP STARTLINE;..................
.........N.PSE1 CMP #128; IS IT .....X.B
NE PSEE.G...JSR P.; 128 IS .KEN . . (. O
F CHAIN PSEUDO).....JMP KBACK; . . EE.".
..PSEE CMP #68; IS IT "D" . .DISK (CREAT
E OBJECT CODE FILE . DISK).0. .BNE PSEE1
.B...JMP PDISK; . FILE . DISK . OBJECT C
ODE S.RAGE.....PSEE1 CMP #80; IS IT "P"
. .P (.ER OUTPUT).....BNE PSEE2...H.JMP
P.ER; TURN . .ER .ING...R.PSEE2 CMP #78;
IS IT "N" . .NH . .NS . SOME OTHER "TUR
N IT OFF".....BNE PSEE3./...JMP NIX; TUR
N SOMETHING OFF.L...PSEE3 CMP #79; IS IT
"O" . OUTPUT (. OBJECT CODE .O RAM).Z..
.BNE PSEE4.....JMP OP.; START POKING OBJ
ECT CODE (.AULT).R...PSEE4 CMP #83; IS I
T "S" . . . SCREEN.....BNE PSEE5...".JMP
SCREIN; TURN . SCREEN .ING.;.,.PSEE5 CM
P #72; IS IT "H" . HEX NUMBERS DURING .O
UTS.I.6.BNE PSE9;.H.@.JMP HEXIT; TURN .
HEX .ING...J.;.........................
. ERR. MESSAGE (NO SUCH PSEUDO.OP).S.T.
PSE9 STA LABEL,Y; S.RE CHAR. . .OUT...^.
JSR PRNTLINE...H.JSR PRNTSPACE...R.JSR P
RNTSA...|.JSR ERRING."...JSR PRNT..2...L
DA #.MERR..?...STA TEMP.O...LDA #.MERR..
^...STA TEMP.1.O...JSR PRNTMESS.~.B.JSR
PRNTCR...L.JMP PULLINE; PULL IN (& IGN.E
) REST OF LINE, . BACK . EE...V.;.......
.................. H.LE .FILE PSEUDO.OP
.....................FILE JSR CHARIN.N.
..CMP #32; LOOK . . OF THE W.D .FILE (.
LOCATE FICAME).Z...BEQ FI0.~...JMP FILE;
.INUE LOOKING . BLANK.....FI0 LDY #0. .
..FI1 JSR CHARIN.....CMP #0; . OF LINE.B
.&.BEQ FI2...0.CMP #127; KEYW.D, SO STRE
TCH IT OUT...:.BCC FII1...D.JSR KEYW.D.1
.N.FII1 STA LABEL,Y; S.RE CHAR. OF FICAM
E.9.X.INY.Q.B.JMP FI1; .INUE S.RING FICA
ME IN MAIN BUFFER (LABEL)...L.FI2 STY .A
MEC; S.RE FICAME CGTH. .V.LDY #0.....FIL
O LDA LABEL,Y;....... PUT FICAME .O PROP
ER BUFFER (FIC).....BEQ FILO1.....STA FI
C,Y.....INY.....JMP FILO.<...FILO1 LDA P
ASS; . PASS 2, D.'T . OUT PC.H...BNE FI5
.E.F.JSR PRNTSA; . THE FICAME.W.P.JSR PR
NTSPACE...Z.FI5 JSR PRNT......JSR PRNTCR
; CARRIAGE ......JSR .1; . . LINKED FILE
. DISK (. .INUED .ING OF SOURCE).....LD
X #1.....JSR CHKIN. ...JSR CHARIN; PULL
IN . TWO BYTES ../...JSR CHARIN.R. .JSR
.PRO; CHECK . . OF PROGRAM.].*.LDX #0...
4.STX .FLAG; SET . OF PROGRAM FLAG . ZER
O...>.RTS.L.H.;.........................
H.LE .. PSEUDO.OP ............R.P. LDA
#46; . OUT .....\.JSR ....F.LDA #69...P.
JSR ....Z.LDA #78.....JSR ..'...LDA #68.
1...JSR ..=...LDA #32.G...JSR ..V...JSR
CHARIN.....JSR FI0; . FICAME, ETC. JUST
AS .FILE PSEUDO.OP DOES...J.LDA PASS; .
PASS 1, D.'T SET THE .FLAG UP....T.BEQ P
.1; BUT . PASS 2, IT'S NECESSARY (. . TH
E ENTIRE PROGRAM).....INC .FLAG.A...P.1
INC PASS; RAISE PASS FROM PASS 1 . PASS
2.....LDA TA; PUT .IGINAL START ADDRESS
BACK .O PC (SA) . RESTART OF.....STA SA;
ASSEMBLY . PASS 2......LDA TA.1.....STA
SA.1.....JSR INDISK; SET UP . LINE...$.
RTS.(...;................... H.LE .D FIC
AME PSEUDO.OP (OBJECT CODE FILE).`.8.PDI
SK LDA PASS; . PASS 1, D.'T S.RE ANYTHIN
G . DISK...B.BEQ PULLJ; PULLJ IS A SPRIN
GBOARD (JUMPS . PULLINE)...L.JSR CHARIN;
PO. . FICAME.E.V.STA LABEL,Y.P.`.LDY #0
...J.PDLOOP JSR CHARIN...T.BEQ PD1; . OF
LINE.4.~.CMP #127; IT'S A KEYW.D (WITHI
N THE FICAME) . .127.A...BCC PDIX.P...JS
R KEYW.D.....PDIX STA LABEL,Y; KEEP S.RI
NG FICAME .O .OUT BUFFER (LABEL).....STA
FIC,Y; AS WELL AS .1 BUFFER (FIC).B...I
NY.....JMP PDLOOP; KEEP S.RING FICAME;..
.................2.D.PULLJ JMP PULLINE;.
....... SPRINGBOARD . IGN.E FICAME.O.N.P
D1 LDA #44; PUT ,P,W (PROGRAM, WRITE) SI
GNALS .. FICAME.}.X.STA FIC,Y.....INY...
..LDA #80.....STA FIC,Y.....INY; ADD..,
P,W.....LDA #44.M...STA FIC,Y.U...INY...
(.LDA #87...2.STA FIC,Y...<.INY...F.STY
.AMEC; S.RE FICAME CGTH.5.P.JSR PRNT.; .
OUT THE LINE.P.Z.JSR PRNTCR; CARRIAGE .
...D.INC DISKFLAG; RAISE DISKFLAG . SHOW
THAT FUTURE .S SHOULD K . DISK.M.N.JSR
.2; . A SEC.D DISK FILE (THIS .E . WRITI
NG .).X.X.LDX #2.....JSR CHKOUT. ...LDA
TA; . OBJECT CODE'S STARTING ADDRESS . D
ISK FILE.*...JSR ..7. .LDA TA.1.A...JSR
..T...EDISK JSR .CHN.L...LDX #1; . N.MAL
I.O.Z.H.JSR CHKIN...R.JSR DISERR; CHECK
. DISK ERR. (FAILURE . . C.RECTLY).Q...
JSR .PRO; . . LINE NUMBER.....PLA; PULL
RTS.....PLA.....LDX #0.....STX .FLAG; RE
SET . OF PROGRAM FLAG.D...JMP STARTLINE;
. . . EE . . . LINE.....;..............
............ H.LE .P (.ER) PSEUDO.OP ...
.......".P.ER LDA PASS; . PASS 1, DO NO
.ER OUTPUT...,.BEQ PULLINE; . RID OF RES
T OF LINE . K .....6.JSR .4; PASS 2, SO
. .ER . HEAR FROM COMPUTER.M.@.INC .FLAG
; RAISE .ER OUTPUT FLAG (SO . WILL S. BY
TES ....J.JSR .CHN; THE .ER
AS WELL AS THE SCREEN).. .T.LDX #1; . N
.MAL I.O...^.JSR CHKIN...H.;............
.......... SUCTI. ROUTINE. . RID OF RES
T OF A LINE./.R.PULLINE JSR CHARIN; IGN.
E ALL BYTES, JUST LOCATE . LINE.H.|.BEQ
.PULL; ZERO . OF LINE SHOULD K . .PRO .
. LINE #.....CMP #58; WHEREAS A COL. . O
F LINE SKIPS THAT ......BEQ .PULR; (COL.
).....JMP PULLINE; NEITHER COL. N. ZERO
(SO PULL IN M.E CHARACTERS)......PULL JS
R .PRO.(....PULR PLA; PULL RTS OFF STACK
.0...PLA.;.B.LDX #0.Y.L.STX .FLAG; SET .
FLAG DOWN...V.JMP STARTLINE; . . EE (. .
. LINE OF SOURCE CODE).Q...;...........
............... H.LE .O (. BYTES . RAM)
PSEUDO.OP.....OP. LDA #46; . .O.....JSR
......LDA #79; "O".....JSR ..'...JSR PRN
TCR; CARRIAGE ..2...LDA #1.T.&.STA .FLAG
; RAISE ....RAM FLAG.X.0.JMP PULLINE; IG
N.E REST OF LINE.B.:.;..................
........ H.LE .N(SOMETHING),TURN.IT.OFF
PSEUDO.OPS...D.NIX LDA PASS; . PASS 1, D
.'T BOTHER WITH ANY OF THIS...N.BEQ PULL
INE.I.X.JSR CHARIN; . PASS 2, SEE WHICH
THING IS BEING TURNED OFF.{.B.CMP #80; I
S IT ".NP" . "NOT PRINT TO PRINTER"...L.
BEQ NIX..B.V.CMP #79; IS IT ".NO" . "NOT
POKE OBJECT BYTES TO RAM".P...BEQ NIXOP
.....CMP #83; IS IT ".NS" . "NOT PRINT T
O SCREEN".....BEQ NIXSCREEN.Y...CMP #72;
IS IT ".NH" . "NOT PRINTOUT HEX" (THUS
SWITCH . DECIMAL).H...BEQ NIXHEX.....;..
........................ TURN OFF .ER OU
TPUT.....NIX. LDA #46; . ".NP" . SCREEN.
I.F.JSR ..Z.P.LDA #78; "N"...Z.JSR .....
.LDA #80; "P".....JSR ......JSR PRNTCR;
CARRIAGE ..?...DEC .FLAG; LOWER ....SCRE
EN FLAG.Z...JSR .CHN; TURN OFF .ER.E...L
DX #4.T. .JSR CHKOUT...*.LDA #13...4.JSR
....>.LDA #4...H.JSR ...R.JSR .CHN.D.\
.LDX #1; . N.MAL I.O.R.F.JSR CHKIN...P.J
MP PULLINE; IGN.E REST OF LINE (. . . EE
).;.Z.;.......................... . .ING
OBJECT BYTES . RAM.V...NIXOP LDA #46; .
".NO".`...JSR ..V...LDA #78; "N"..
...JSR ......LDA #79; "O". ...JSR .
.....JSR PRNTCR;CARRIAGE ..E.J.LDA #0...
T.STA .FLAG; TURN OFF . FLAG.....JMP PUL
LINE; IGN.E REST OF LINE (. . . EE).O...
;.......................... . HEX .OUTS
(START DECIMAL).K...NIXHEX LDA #46; . ".
NH".U...JSR ......LDA #78; "N".....
JSR ......LDA #72; "H"...$.JSR ..P.
..JSR PRNTCR; CARRIAGE ....8.LDA #0...B.
STA HXFLAG; PUT HEXFLAG DOWN.+.L.JMP PUL
LINE; IGN.E REST OF LINE (. . . EE).Z.V.
;.......................... . SCREEN .OU
TS.Y.`.NIXSCREEN LDA #46; . ".NS"...J.JS
R ....T.LDA #78; "N"...~.JSR ......
LDA #83; "S".C...JSR ......JSR PRNT
CR;CARRIAGE ......LDA #0.. ..STA SFLAG;
PUT DOWN SCREEN .OUT FLAG.@ ..JMP PULLIN
E; IGN.E REST OF LINE (. . . EE).. D.;..
........................ DISK ERR. DETE
CTI. ROUTINE .........F N.DISERR LDX ST;
CHECK DISK STATUS VARIABLE (COMPUTER SP
EC.IC)..!X.BNE MODIER; . . ZERO, THERE I
S SOME FAULT IN THE DISK I.O..!..RTS;...
........=!..MODIER LDA #0; . OUT ERR. ME
SSAGE.M!..JSR PRNTNUM._!..JSR PRNTSPACE.
P!..LDA #.MDISER..!..STA TEMP; PO. . DIS
K ERR. MESSAGE..!..LDA #.MDISER..!(.STA
TEMP.1.P!2.JSR ERRING; RING BELL..!<.JSR
PRNTMESS; . ERR. MESSAGE.."F.PLA; PULL
RTS OFF STACK.."P.PLA.A"Z.JMP FIN; SHUT
DOWN ENTIRE LADS OPERATI..}"D.;.........
...... H.LE .S PSEUDO.OP (TURN . SCREEN
.OUT).."N.SCREIN LDA #46; . ".S".."X.JSR
..."..LDA #83; "S".D"..JSR ...".
.JSR PRNTCR; CARRIAGE ...# .LDA PASS; .
PASS 1, NO SCREEN .OUT..#..BEQ SCREX.I#.
.LDA #1; OTHERWISE, RAISE SCREEN .OUT (.
ING) FLAG.W#..STA SFLAG..#H.SCREX JMP PU
LLINE; IGN.E REST OF LINE (. . . EE).L#R
.;.............. H.LE .H PSEUDO.OP (HEX
NUMBERS DURING .OUT)..#..HEXIT LDA #46;
. ".H"..#..JSR ...$..LDA #72; "H"..
$..JSR ..+$..JSR PRNTCR; CARRIAGE ..6$..
LDA #1.U$..STA HXFLAG; SET HEXFLAG UP..$
".JMP PULLINE; IGN.E REST OF LINE (. . .
EE)..$,..FILE TABLES...
> CLICK IMAGE PREVIEW FOR FULL MODAL