INDISK
FILE INFORMATION
FILENAME(S): INDISK
FILE TYPE(S): PRG
FILE SIZE: 16K
FIRST SEEN: 2025-11-30 16:59:36
APPEARS ON: 1 disk(s)
FILE HASH
27429338fb4209d70e639a79954dce8202bcc0987a13ae97cb68188d722bde83
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LADS64 | INDISK | PRG | High Voltage Complete C64 Collection | 9 | 15 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 2B 04 0A 00 3B 20 22 49 4E 44 49 53 4B 22 |..+...; "INDISK"|
00000010: 20 4D 41 49 4E 20 A1 AB 85 AB 46 52 4F 4D AB 44 | MAIN ....FROM.D|
00000020: 49 53 4B 20 52 4F 55 54 49 4E 45 00 6D 04 14 00 |ISK ROUTINE.m...|
00000030: 3B 53 45 54 55 50 AD BD 45 43 54 53 20 44 49 53 |;SETUP..ECTS DIS|
00000040: 4B 20 A4 20 50 4F B5 20 A4 20 31 53 54 20 43 48 |K . PO. . 1ST CH|
00000050: 41 52 20 49 4E 20 41 20 A2 20 4C 49 4E 45 20 28 |AR IN A . LINE (|
00000060: B0 20 42 45 59 91 44 20 43 4F 4C 91 29 00 B3 04 |. BEY.D COL.)...|
00000070: 1E 00 3B 52 45 53 55 4C 54 53 AD 45 49 54 48 45 |..;RESULTS.EITHE|
00000080: 52 20 46 4C 41 47 53 20 80 20 4F 46 20 50 52 4F |R FLAGS . OF PRO|
00000090: 47 2E 20 B0 20 46 49 4C 4C 53 20 4C 41 42 45 4C |G. . FILLS LABEL|
000000A0: AA 20 57 49 54 48 20 4C 49 4E 45 20 4F 46 20 43 |. WITH LINE OF C|
000000B0: 4F 44 45 00 CB 04 28 00 3B AB AB AB AB AB AB AB |ODE...(.;.......|
000000C0: AB AB AB AB AB AB AB AB AB AB AB 00 0A 05 32 00 |..............2.|
000000D0: 49 4E 44 49 53 4B 20 4A 53 52 20 43 4C 45 41 4E |INDISK JSR CLEAN|
000000E0: 4C 41 42 3B 20 46 49 4C 4C 20 4C 41 42 45 4C 20 |LAB; FILL LABEL |
000000F0: 57 49 54 48 20 5A 45 52 4F 53 20 28 52 4F 55 54 |WITH ZEROS (ROUT|
00000100: 49 4E 45 20 49 4E 20 45 C5 29 00 15 05 3C 00 4C |INE IN E.)...<.L|
00000110: 44 59 20 23 30 00 37 05 46 00 53 54 59 20 48 45 |DY #0.7.F.STY HE|
00000120: 58 46 4C 41 47 3B 20 50 55 54 20 48 45 58 46 4C |XFLAG; PUT HEXFL|
00000130: 41 47 20 44 4F 57 4E 00 5F 05 50 00 53 54 59 20 |AG DOWN._.P.STY |
00000140: 42 41 42 46 4C 41 47 3B 20 50 55 54 20 43 4F 4D |BABFLAG; PUT COM|
00000150: 4D 45 4E 54 53 20 46 4C 41 47 20 44 4F 57 4E 00 |MENTS FLAG DOWN.|
00000160: 8C 05 5A 00 53 54 59 20 42 59 54 46 4C 41 47 3B |..Z.STY BYTFLAG;|
00000170: 20 50 55 54 20 46 4C 41 47 20 53 48 4F 57 49 4E | PUT FLAG SHOWIN|
00000180: 47 20 B3 20 B0 20 B1 20 44 4F 57 4E 00 C5 05 64 |G . . . DOWN...d|
00000190: 00 53 54 59 20 50 4C 55 53 46 4C 41 47 3B 20 50 |.STY PLUSFLAG; P|
000001A0: 55 54 20 41 52 49 54 48 4D 45 54 49 43 20 50 53 |UT ARITHMETIC PS|
000001B0: 45 55 44 4F 20 4F 50 20 28 AA 29 20 46 4C 41 47 |EUDO OP (.) FLAG|
000001C0: 20 44 4F 57 4E 00 0B 06 6E 00 4C 44 41 20 43 4F | DOWN...n.LDA CO|
000001D0: 4C 46 4C 41 47 3B 20 8B 20 54 48 45 52 45 20 57 |LFLAG; . THERE W|
000001E0: 41 53 20 41 20 43 4F 4C 91 20 4A 55 53 54 20 50 |AS A COL. JUST P|
000001F0: 52 49 B0 20 A4 20 54 48 49 53 2C 20 8F 4F 56 45 |RI. . THIS, .OVE|
00000200: 20 41 4E 59 20 42 4C 41 4E 4B 53 00 56 06 78 00 | ANY BLANKS.V.x.|
00000210: 42 4E 45 20 4E 4F 42 4C 41 4E 4B 53 3B 20 28 54 |BNE NOBLANKS; (T|
00000220: 48 49 53 20 54 41 4B 45 53 20 43 41 52 45 20 4F |HIS TAKES CARE O|
00000230: 46 3A 20 49 4E 59 3A 20 20 4C 44 41 20 31 35 3A |F: INY: LDA 15:|
00000240: 20 20 20 20 4C 44 58 20 31 37 20 54 59 50 45 20 | LDX 17 TYPE |
00000250: 45 52 52 B0 53 29 00 9D 06 82 00 4A 53 52 20 43 |ERR.S).....JSR C|
00000260: 48 41 52 49 4E 3B 20 4F 54 48 45 52 57 49 53 45 |HARIN; OTHERWISE|
00000270: 2C 20 50 55 4C 4C 20 49 4E 20 54 48 45 20 31 53 |, PULL IN THE 1S|
00000280: 54 20 43 48 41 52 41 43 54 45 52 20 28 46 52 4F |T CHARACTER (FRO|
00000290: 4D 20 44 49 53 4B 20 B0 20 52 41 4D 29 00 C9 06 |M DISK . RAM)...|
000002A0: 8C 00 53 54 41 20 4C 49 4E 45 4E 3B 20 53 A4 52 |..STA LINEN; S.R|
000002B0: 45 20 4C 4F 57 20 42 59 54 45 20 4F 46 20 4C 49 |E LOW BYTE OF LI|
000002C0: 4E 45 20 4E 55 4D 42 45 52 00 D8 06 96 00 4A 53 |NE NUMBER.....JS|
000002D0: 52 20 43 48 41 52 49 4E 00 07 07 A0 00 53 54 41 |R CHARIN.....STA|
000002E0: 20 4C 49 4E 45 4E AA 31 3B 20 53 A4 52 45 20 48 | LINEN.1; S.RE H|
000002F0: 49 47 48 20 42 59 54 45 20 4F 46 20 4C 49 4E 45 |IGH BYTE OF LINE|
00000300: 20 4E 55 4D 42 45 52 00 4C 07 AA 00 4E 4F 42 4C | NUMBER.L...NOBL|
00000310: 41 4E 4B 53 20 4A 53 52 20 43 48 41 52 49 4E 3B |ANKS JSR CHARIN;|
00000320: 20 52 4F 55 54 49 4E 45 20 A4 20 45 4C 49 4D 49 | ROUTINE . ELIMI|
00000330: 4E 41 54 45 20 42 4C 41 4E 4B 53 20 46 4F 4C 4C |NATE BLANKS FOLL|
00000340: 4F 57 49 4E 47 20 41 20 43 4F 4C 91 00 5C 07 AF |OWING A COL..\..|
00000350: 00 42 4E 45 20 43 4F 4F 4C 4F 4F 4B 00 9C 07 B0 |.BNE COOLOOK....|
00000360: 00 4A 53 52 20 80 50 52 4F 3B 20 54 48 49 53 20 |.JSR .PRO; THIS |
00000370: 48 AF 4C 45 53 20 43 4F 4C 91 53 20 50 4C 41 43 |H.LES COL.S PLAC|
00000380: 45 44 20 41 43 43 49 44 45 4E 54 41 4C 4C 59 20 |ED ACCIDENTALLY |
00000390: 41 54 20 80 20 4F 46 20 4C 49 4E 45 00 B6 07 B1 |AT . OF LINE....|
000003A0: 00 50 4C 41 3A 50 4C 41 3A 4A 4D 50 20 53 54 41 |.PLA:PLA:JMP STA|
000003B0: 52 54 4C 49 4E 45 00 E7 07 B4 00 43 4F 4F 4C 4F |RTLINE.....COOLO|
000003C0: 4F 4B 20 43 4D 50 20 23 33 32 3B 20 28 B0 20 46 |OK CMP #32; (. F|
000003D0: 4F 4C 4C 4F 57 49 4E 47 20 41 20 4C 49 4E 45 20 |OLLOWING A LINE |
000003E0: 4E 55 4D 42 45 52 29 00 13 08 BE 00 42 45 51 20 |NUMBER).....BEQ |
000003F0: 4E 4F 42 4C 41 4E 4B 53 3B AB AB AB AB AB AB AB |NOBLANKS;.......|
00000400: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000410: AB AB AB 00 56 08 C8 00 4A 4D 50 20 4D 4F 49 31 |....V...JMP MOI1|
00000420: 3B 20 53 4B 49 50 20 A4 20 43 48 45 43 4B 20 81 |; SKIP . CHECK .|
00000430: 20 43 4F 4C 91 20 28 49 54 27 53 20 45 51 55 49 | COL. (IT'S EQUI|
00000440: C5 45 4E 54 20 A4 20 41 4E 20 80 20 4F 46 20 4C |.ENT . AN . OF L|
00000450: 49 4E 45 20 30 29 00 9A 08 D2 00 53 54 49 4E 44 |INE 0).....STIND|
00000460: 49 53 4B 20 4A 53 52 20 43 48 41 52 49 4E 3B 20 |ISK JSR CHARIN; |
00000470: 45 4E 54 52 59 20 50 4F B5 20 57 49 54 48 49 4E |ENTRY PO. WITHIN|
00000480: 20 4C 49 4E 45 20 28 A8 20 41 54 20 53 54 41 52 | LINE (. AT STAR|
00000490: 54 20 4F 46 20 4C 49 4E 45 29 00 C5 08 DC 00 4D |T OF LINE).....M|
000004A0: 4F 49 4E 44 49 20 42 4E 45 20 4D 4F 49 31 3B 20 |OINDI BNE MOI1; |
000004B0: 8B 20 A8 20 5A 45 52 4F 2C 20 4C 4F 4F 4B 20 81 |. . ZERO, LOOK .|
000004C0: 20 43 4F 4C 91 00 07 09 E6 00 4A 4D 50 20 80 50 | COL......JMP .P|
000004D0: 52 4F 3B 20 46 4F 55 4E 44 20 41 20 30 20 80 20 |RO; FOUND A 0 . |
000004E0: 4F 46 20 4C 49 4E 45 2E 20 43 48 45 43 4B 20 81 |OF LINE. CHECK .|
000004F0: 20 80 20 4F 46 20 50 52 4F 47 52 41 4D 20 28 33 | . OF PROGRAM (3|
00000500: 20 5A 45 52 4F 53 29 00 26 09 F0 00 4D 4F 49 31 | ZEROS).&...MOI1|
00000510: 20 43 4D 50 20 23 35 38 3B 20 49 53 20 49 54 20 | CMP #58; IS IT |
00000520: 41 20 43 4F 4C 91 00 4A 09 FA 00 42 4E 45 20 58 |A COL..J...BNE X|
00000530: 4D 4F 31 3B 20 8B 20 A8 2C 20 43 48 45 43 4B 20 |MO1; . ., CHECK |
00000540: 81 20 53 45 4D 49 43 4F 4C 91 00 65 09 04 01 4A |. SEMICOL..e...J|
00000550: 4D 50 20 43 4F 4C 91 3B 20 46 4F 55 4E 44 20 41 |MP COL.; FOUND A|
00000560: 20 43 4F 4C 91 00 88 09 0E 01 58 4D 4F 31 20 43 | COL......XMO1 C|
00000570: 4D 50 20 23 35 39 3B 20 49 53 20 49 54 20 41 20 |MP #59; IS IT A |
00000580: 53 45 4D 49 43 4F 4C 91 00 A3 09 18 01 42 4E 45 |SEMICOL......BNE|
00000590: 20 43 4F 4D 4F 41 3B 20 8B 20 A8 20 9A 49 4E 55 | COMOA; . . .INU|
000005A0: 45 20 91 00 C3 09 22 01 53 54 59 20 41 3B 20 46 |E ....".STY A; F|
000005B0: 4F 55 4E 44 20 41 20 53 45 4D 49 43 4F 4C 91 20 |OUND A SEMICOL. |
000005C0: 28 8F 29 00 FC 09 2C 01 4C 44 41 20 99 46 4C 41 |(.)...,.LDA .FLA|
000005D0: 47 3B 20 8B 20 99 4F 55 54 20 A8 20 52 45 51 55 |G; . .OUT . REQU|
000005E0: 45 53 54 45 44 2C 20 A7 20 44 91 27 54 20 53 A4 |ESTED, . D.'T S.|
000005F0: 52 45 20 54 48 45 20 8F 41 52 4B 53 00 0B 0A 36 |RE THE .ARKS...6|
00000600: 01 42 45 51 20 50 55 4C 4C 52 58 00 4F 0A 40 01 |.BEQ PULLRX.O.@.|
00000610: 53 54 41 20 42 41 42 46 4C 41 47 3B 20 53 45 54 |STA BABFLAG; SET|
00000620: 20 55 50 20 99 20 43 4F 4D 4D 45 4E 54 53 20 46 | UP . COMMENTS F|
00000630: 4C 41 47 20 28 41 20 4D 55 53 54 20 42 45 20 B1 |LAG (A MUST BE .|
00000640: 20 30 20 41 54 20 54 48 49 53 20 50 4F B5 29 00 | 0 AT THIS PO.).|
00000650: 93 0A 4A 01 4C 44 41 20 41 3B 20 4F 54 48 45 52 |..J.LDA A; OTHER|
00000660: 57 49 53 45 2C 20 43 48 45 43 4B 20 59 20 28 94 |WISE, CHECK Y (.|
00000670: 44 20 41 42 4F 56 45 29 2E 20 20 8B 20 5A 45 52 |D ABOVE). . ZER|
00000680: 4F 2C 20 49 53 20 41 20 53 45 4D 49 43 4F 4C 91 |O, IS A SEMICOL.|
00000690: 20 41 54 00 DD 0A 54 01 42 45 51 20 50 55 58 3B | AT...T.BEQ PUX;|
000006A0: 20 53 54 41 52 54 20 4F 46 20 54 48 45 20 4C 49 | START OF THE LI|
000006B0: 4E 45 20 28 4E 4F 20 4C 41 42 45 4C 53 20 B0 20 |NE (NO LABELS . |
000006C0: 4D 4E 45 4D 91 49 43 53 2C 20 4A 55 53 54 20 41 |MNEM.ICS, JUST A|
000006D0: 20 42 49 47 20 43 4F 4D 4D 45 4E 54 29 00 1B 0B | BIG COMMENT)...|
000006E0: 5E 01 4A 53 52 20 50 55 4C 4C 52 45 53 54 3B 20 |^.JSR PULLREST; |
000006F0: 4F 54 48 45 52 57 49 53 45 20 94 20 43 4F 4D 4D |OTHERWISE . COMM|
00000700: 45 4E 54 53 20 46 4F 4C 4C 4F 57 49 4E 47 20 54 |ENTS FOLLOWING T|
00000710: 48 45 20 53 45 4D 49 43 4F 4C 91 00 51 0B 68 01 |HE SEMICOL..Q.h.|
00000720: 4A 4D 50 20 4D 50 55 4C 4C 3B 20 AF 20 A7 20 8E |JMP MPULL; . . .|
00000730: 20 A4 20 45 C5 20 AB AB AB AB AB AB AB AB AB AB | . E. ..........|
00000740: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000750: AB 00 88 0B 72 01 50 55 58 20 4A 53 52 20 43 48 |....r.PUX JSR CH|
00000760: 41 52 49 4E 3B 20 50 55 54 20 4E 91 AB 43 4F 4D |ARIN; PUT N..COM|
00000770: 4D 45 4E 54 20 83 20 49 4E 54 4F 20 4C 41 42 45 |MENT . INTO LABE|
00000780: 4C 20 42 55 46 46 45 52 00 A9 0B 7C 01 42 45 51 |L BUFFER...|.BEQ|
00000790: 20 50 55 58 31 3B 20 80 20 4F 46 20 4C 49 4E 45 | PUX1; . OF LINE|
000007A0: 2C 20 53 4F 20 45 58 49 54 00 E3 0B 86 01 43 4D |, SO EXIT.....CM|
000007B0: 50 20 23 31 32 37 3B 20 37 54 48 20 42 49 54 20 |P #127; 7TH BIT |
000007C0: A8 20 53 45 54 20 28 53 4F 20 49 54 27 53 20 A8 |. SET (SO IT'S .|
000007D0: 20 41 20 4B 45 59 57 B0 44 20 49 4E 20 42 41 53 | A KEYW.D IN BAS|
000007E0: 49 43 29 00 F0 0B 90 01 42 43 43 20 50 55 58 32 |IC).....BCC PUX2|
000007F0: 00 2D 0C 9A 01 4A 53 52 20 4B 45 59 57 B0 44 3B |.-...JSR KEYW.D;|
00000800: 20 49 54 20 49 53 20 41 20 4B 45 59 57 B0 44 2C | IT IS A KEYW.D,|
00000810: 20 53 4F 20 45 58 54 80 20 49 54 20 4F 55 54 20 | SO EXT. IT OUT |
00000820: 41 53 20 41 4E 20 C6 49 49 20 57 B0 44 00 64 0C |AS AN .II W.D.d.|
00000830: A4 01 50 55 58 32 20 53 54 41 20 4C 41 42 45 4C |..PUX2 STA LABEL|
00000840: 2C 59 3B 20 50 55 54 20 54 48 45 20 43 48 41 52 |,Y; PUT THE CHAR|
00000850: 2E 20 B5 4F 20 54 48 45 20 4D 41 49 4E 20 42 55 |. .O THE MAIN BU|
00000860: 46 46 45 52 00 6C 0C AE 01 49 4E 59 00 A8 0C B8 |FFER.l...INY....|
00000870: 01 4A 4D 50 20 50 55 58 3B 20 8E 20 A4 20 4C 4F |.JMP PUX; . . LO|
00000880: 4F 50 20 81 20 4D B0 45 20 43 48 41 52 41 43 54 |OP . M.E CHARACT|
00000890: 45 52 53 AB AB AB AB AB AB AB AB AB AB AB AB AB |ERS.............|
000008A0: AB AB AB AB AB AB AB AB 00 D1 0C C2 01 50 55 58 |.............PUX|
000008B0: 31 20 4A 53 52 20 50 52 4E 54 4C 49 4E 45 3B 20 |1 JSR PRNTLINE; |
000008C0: 99 20 54 48 45 20 4C 49 4E 45 20 4E 55 4D 42 45 |. THE LINE NUMBE|
000008D0: 52 00 EE 0C CC 01 4A 53 52 20 50 52 4E 54 53 50 |R.....JSR PRNTSP|
000008E0: 41 43 45 3B 20 99 20 41 20 53 50 41 43 45 00 30 |ACE; . A SPACE.0|
000008F0: 0D D6 01 4A 53 52 20 50 52 4E 54 85 3B 20 99 20 |...JSR PRNT.; . |
00000900: 54 48 45 20 43 48 41 52 41 43 54 45 52 53 20 49 |THE CHARACTERS I|
00000910: 4E 20 54 48 45 20 4C 41 42 45 4C 20 42 55 46 46 |N THE LABEL BUFF|
00000920: 45 52 20 28 4D 41 49 4E 20 42 55 46 46 45 52 29 |ER (MAIN BUFFER)|
00000930: 00 4F 0D E0 01 4A 53 52 20 50 52 4E 54 43 52 3B |.O...JSR PRNTCR;|
00000940: 20 99 20 41 20 43 41 52 52 49 41 47 45 20 8E 00 | . A CARRIAGE ..|
00000950: 8E 0D EA 01 4C 44 41 20 23 30 3B 20 53 45 54 20 |....LDA #0; SET |
00000960: 41 20 56 41 52 49 41 42 4C 45 20 A4 20 5A 45 52 |A VARIABLE . ZER|
00000970: 4F 20 A4 20 53 49 47 4E 8B 59 20 A8 48 49 4E 47 |O . SIGN.Y .HING|
00000980: 20 81 20 45 C5 20 A4 20 45 C5 55 41 54 45 00 98 | . E. . E.UATE..|
00000990: 0D F4 01 53 54 41 20 41 00 D8 0D FE 01 4A 4D 50 |...STA A.....JMP|
000009A0: 20 4D 50 55 4C 4C 3B 20 CB 20 A4 20 45 58 49 54 | MPULL; . . EXIT|
000009B0: 20 52 4F 55 54 49 4E 45 AB AB AB AB AB AB AB AB | ROUTINE........|
000009C0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000009D0: AB AB AB AB AB AB AB AB 00 1D 0E 08 02 50 55 4C |.............PUL|
000009E0: 4C 52 45 53 54 20 53 54 41 20 42 41 42 46 4C 41 |LREST STA BABFLA|
000009F0: 47 3B 20 50 55 54 20 8F 41 52 4B 53 20 49 4E 54 |G; PUT .ARKS INT|
00000A00: 4F 20 42 41 42 55 46 20 28 42 55 46 46 45 52 20 |O BABUF (BUFFER |
00000A10: 46 4F 52 20 43 4F 4D 4D 45 4E 54 53 29 00 5F 0E |FOR COMMENTS)._.|
00000A20: 12 02 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |..; |
00000A30: 20 20 20 20 20 20 20 20 54 48 49 53 20 52 4F 55 | THIS ROU|
00000A40: 54 49 4E 45 20 8F 4F 56 45 53 20 28 41 4E 44 20 |TINE .OVES (AND |
00000A50: 53 41 56 45 53 29 20 43 4F 4D 4D 45 4E 54 53 00 |SAVES) COMMENTS.|
00000A60: 96 0E 1C 02 53 54 41 20 41 3B 20 53 45 54 20 41 |....STA A; SET A|
00000A70: 20 56 41 52 49 41 42 4C 45 20 A4 20 53 49 47 4E | VARIABLE . SIGN|
00000A80: 8B 59 20 A8 48 49 4E 47 20 81 20 45 C5 20 A4 20 |.Y .HING . E. . |
00000A90: 45 C5 55 41 54 45 00 D4 0E 26 02 4C 44 59 20 23 |E.UATE...&.LDY #|
00000AA0: 30 3B 20 53 45 54 20 4F 46 46 53 45 54 20 A4 20 |0; SET OFFSET . |
00000AB0: 42 41 42 55 46 20 42 55 46 46 45 52 20 81 20 46 |BABUF BUFFER . F|
00000AC0: 49 4C 4C 49 4E 47 20 57 49 54 48 20 43 4F 4D 4D |ILLING WITH COMM|
00000AD0: 45 4E 54 53 00 F5 0E 30 02 50 41 58 31 20 4A 53 |ENTS...0.PAX1 JS|
00000AE0: 52 20 43 48 41 52 49 4E 3B 20 A1 20 43 48 41 52 |R CHARIN; . CHAR|
00000AF0: 41 43 54 45 52 00 12 0F 3A 02 42 4E 45 20 50 41 |ACTER...:.BNE PA|
00000B00: 58 3B 20 8B 20 A8 20 5A 45 52 4F 2C 20 9A 49 4E |X; . . ZERO, .IN|
00000B10: 55 45 00 4C 0F 44 02 53 54 41 20 42 41 42 55 46 |UE.L.D.STA BABUF|
00000B20: 2C 59 3B 20 4F 54 48 45 52 57 49 53 45 2C 20 57 |,Y; OTHERWISE, W|
00000B30: 45 27 52 45 20 41 54 20 54 48 45 20 80 20 4F 46 |E'RE AT THE . OF|
00000B40: 20 54 48 45 20 43 4F 4D 4D 45 4E 54 00 56 0F 4E | THE COMMENT.V.N|
00000B50: 02 4C 44 59 20 41 00 96 0F 58 02 52 54 53 3B 20 |.LDY A...X.RTS; |
00000B60: 59 20 4D 55 53 54 20 48 4F 4C 44 20 4F 46 46 53 |Y MUST HOLD OFFS|
00000B70: 45 54 20 81 20 5A 45 52 4F 20 46 49 4C 4C 20 28 |ET . ZERO FILL (|
00000B80: 80 50 52 4F 29 AB AB AB AB AB AB AB AB AB AB AB |.PRO)...........|
00000B90: AB AB AB AB AB AB 00 C3 0F 62 02 50 41 58 20 42 |.........b.PAX B|
00000BA0: 50 4C 20 50 41 58 41 3B 20 A8 20 41 20 4B 45 59 |PL PAXA; . A KEY|
00000BB0: 57 B0 44 20 28 37 54 48 20 42 49 54 20 A8 20 53 |W.D (7TH BIT . S|
00000BC0: 45 54 29 00 FB 0F 6C 02 4A 53 52 20 4B 45 59 57 |ET)...l.JSR KEYW|
00000BD0: 41 44 3B 20 4F 54 48 45 52 57 49 53 45 2C 20 45 |AD; OTHERWISE, E|
00000BE0: 58 54 80 20 4B 45 59 57 B0 44 20 B5 4F 20 41 4E |XT. KEYW.D .O AN|
00000BF0: 20 C6 49 49 20 53 54 52 49 4E 47 00 2B 10 76 02 | .II STRING.+.v.|
00000C00: 50 41 58 41 20 53 54 41 20 42 41 42 55 46 2C 59 |PAXA STA BABUF,Y|
00000C10: 3B 20 53 A4 52 45 20 43 48 41 52 2E 20 49 4E 20 |; S.RE CHAR. IN |
00000C20: 8F 41 52 4B 20 42 55 46 46 45 52 00 33 10 80 02 |.ARK BUFFER.3...|
00000C30: 49 4E 59 00 6C 10 8A 02 4A 4D 50 20 50 41 58 31 |INY.l...JMP PAX1|
00000C40: 3B 20 8E 20 A4 20 4C 4F 4F 50 20 A4 20 A1 20 41 |; . . LOOP . . A|
00000C50: A8 48 45 52 20 43 48 41 52 41 43 54 45 52 AB AB |.HER CHARACTER..|
00000C60: AB AB AB AB AB AB AB AB AB AB AB AB 00 AF 10 94 |................|
00000C70: 02 50 55 4C 4C 52 58 20 4A 53 52 20 43 48 41 52 |.PULLRX JSR CHAR|
00000C80: 49 4E 3B 20 4A 55 53 54 20 50 55 4C 4C 20 49 4E |IN; JUST PULL IN|
00000C90: 20 8F 41 52 4B 20 43 48 41 52 41 43 54 45 52 53 | .ARK CHARACTERS|
00000CA0: 2C 20 49 47 4E 4F 52 49 4E 47 20 54 48 45 4D 00 |, IGNORING THEM.|
00000CB0: DB 10 9E 02 42 45 51 20 4D 50 55 4C 4C 3B 20 4C |....BEQ MPULL; L|
00000CC0: 4F 4F 4B 49 4E 47 20 81 20 54 48 45 20 80 20 4F |OOKING . THE . O|
00000CD0: 46 20 4C 49 4E 45 20 5A 45 52 4F 00 05 11 A8 02 |F LINE ZERO.....|
00000CE0: 4A 4D 50 20 50 55 4C 4C 52 58 3B AB AB AB AB AB |JMP PULLRX;.....|
00000CF0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000D00: AB AB AB AB AB 00 32 11 B2 02 4D 50 55 4C 4C 20 |......2...MPULL |
00000D10: 4A 53 52 20 80 50 52 4F 3B 20 43 48 45 43 4B 20 |JSR .PRO; CHECK |
00000D20: 81 20 80 20 4F 46 20 50 52 4F 47 52 41 4D 20 AF |. . OF PROGRAM .|
00000D30: 20 A7 00 79 11 BC 02 4C 44 41 20 41 3B 20 53 45 | ..y...LDA A; SE|
00000D40: 45 20 8B 20 59 20 B2 20 30 2E 20 20 8B 20 53 4F |E . Y . 0. . SO|
00000D50: 2C 20 54 48 45 20 53 45 4D 49 43 4F 4C 91 20 57 |, THE SEMICOL. W|
00000D60: 41 53 20 41 54 20 54 48 45 20 53 54 41 52 54 20 |AS AT THE START |
00000D70: 4F 46 20 41 20 4C 49 4E 45 00 88 11 C6 02 42 4E |OF A LINE.....BN|
00000D80: 45 20 4D 50 55 4C 4C 31 00 BE 11 D0 02 50 4C 41 |E MPULL1.....PLA|
00000D90: 3B 20 59 20 B2 20 30 20 53 4F 20 4A 55 4D 50 20 |; Y . 0 SO JUMP |
00000DA0: 42 41 43 4B 20 A4 20 45 C5 20 A4 20 50 52 45 50 |BACK . E. . PREP|
00000DB0: 41 52 45 20 A4 20 A1 20 82 20 4C 49 4E 45 00 C6 |ARE . . . LINE..|
00000DC0: 11 DA 02 50 4C 41 00 04 12 E4 02 4A 4D 50 20 53 |...PLA.....JMP S|
00000DD0: 54 41 52 54 4C 49 4E 45 3B 20 53 45 4D 49 20 40 |TARTLINE; SEMI @|
00000DE0: 20 53 54 41 52 54 20 53 4F 20 8E 20 A4 20 45 C5 | START SO . . E.|
00000DF0: 20 A4 20 A1 20 82 20 4C 49 4E 45 AB AB AB AB AB | . . . LINE.....|
00000E00: AB AB AB AB 00 42 12 EE 02 4D 50 55 4C 4C 31 20 |.....B...MPULL1 |
00000E10: 52 54 53 3B 20 53 45 4D 49 43 4F 4C 91 2C 20 42 |RTS; SEMICOL., B|
00000E20: 55 54 20 A8 20 41 54 20 53 54 41 52 54 20 4F 46 |UT . AT START OF|
00000E30: 20 4C 49 4E 45 20 28 8E 20 A4 20 43 41 4C 4C 45 | LINE (. . CALLE|
00000E40: 52 29 00 85 12 F8 02 43 4F 4D 4F 41 20 43 4D 50 |R).....COMOA CMP|
00000E50: 20 23 31 37 37 3B AB AB AB AB AB AB AB AB AB AB | #177;..........|
00000E60: AB AB AB AB AB AB AB AB 20 43 48 45 43 4B 20 81 |........ CHECK .|
00000E70: 20 4F 54 48 45 52 20 4F 44 44 20 43 48 41 52 41 | OTHER ODD CHARA|
00000E80: 43 54 45 52 53 00 99 12 02 03 42 45 51 20 48 49 |CTERS.....BEQ HI|
00000E90: 3B 20 46 4F 55 4E 44 20 B1 00 A6 12 0C 03 43 4D |; FOUND ......CM|
00000EA0: 50 20 23 31 37 39 00 BA 12 16 03 42 45 51 20 4C |P #179.....BEQ L|
00000EB0: 4F 3B 20 46 4F 55 4E 44 20 B3 00 C7 12 20 03 43 |O; FOUND .... .C|
00000EC0: 4D 50 20 23 31 37 30 00 D4 12 2A 03 42 4E 45 20 |MP #170...*.BNE |
00000ED0: 43 4F 4D 4F 00 EE 12 34 03 49 4E 43 20 50 4C 55 |COMO...4.INC PLU|
00000EE0: 53 46 4C 41 47 3B 20 46 4F 55 4E 44 20 AA 00 00 |SFLAG; FOUND ...|
00000EF0: 13 3E 03 43 4F 4D 4F 20 43 4D 50 20 23 31 37 32 |.>.COMO CMP #172|
00000F00: 00 0E 13 48 03 42 4E 45 20 43 4F 4D 4F 31 00 24 |...H.BNE COMO1.$|
00000F10: 13 52 03 4A 4D 50 20 53 54 41 52 3B 20 46 4F 55 |.R.JMP STAR; FOU|
00000F20: 4E 44 20 AC 00 36 13 5C 03 43 4F 4D 4F 31 20 43 |ND ..6.\.COMO1 C|
00000F30: 4D 50 20 23 34 36 00 57 13 66 03 42 45 51 20 50 |MP #46.W.f.BEQ P|
00000F40: 53 45 55 44 4F 4F 3B 20 46 4F 55 4E 44 20 50 53 |SEUDOO; FOUND PS|
00000F50: 45 55 44 4F AB 4F 50 00 63 13 70 03 43 4D 50 20 |EUDO.OP.c.p.CMP |
00000F60: 23 33 36 00 82 13 7A 03 42 45 51 20 48 45 58 58 |#36...z.BEQ HEXX|
00000F70: 3B 20 46 4F 55 4E 44 20 48 45 58 20 4E 55 4D 42 |; FOUND HEX NUMB|
00000F80: 45 52 00 AA 13 84 03 43 4D 50 20 23 31 32 37 3B |ER.....CMP #127;|
00000F90: 20 A8 20 41 20 4B 45 59 57 B0 44 20 28 37 54 48 | . A KEYW.D (7TH|
00000FA0: 20 42 49 54 20 A8 20 55 50 29 00 B9 13 8E 03 42 | BIT . UP).....B|
00000FB0: 43 43 20 41 44 44 4C 41 42 00 F3 13 98 03 4A 53 |CC ADDLAB.....JS|
00000FC0: 52 20 4B 45 59 57 B0 44 3B 20 46 4F 55 4E 44 20 |R KEYW.D; FOUND |
00000FD0: 4B 45 59 57 B0 44 2C 20 53 4F 20 45 58 54 80 20 |KEYW.D, SO EXT. |
00000FE0: 49 54 20 B5 4F 20 41 4E 20 C6 49 49 20 53 54 52 |IT .O AN .II STR|
00000FF0: 49 4E 47 00 32 14 A2 03 41 44 44 4C 41 42 20 53 |ING.2...ADDLAB S|
00001000: 54 41 20 4C 41 42 45 4C 2C 59 3B 20 50 55 54 20 |TA LABEL,Y; PUT |
00001010: 54 48 45 20 43 48 41 52 41 43 54 45 52 20 B5 4F |THE CHARACTER .O|
00001020: 20 54 48 45 20 4D 41 49 4E 20 42 55 46 46 45 52 | THE MAIN BUFFER|
00001030: 20 AF 00 4D 14 AC 03 49 4E 59 3B 20 52 41 49 53 | ..M...INY; RAIS|
00001040: 45 20 54 48 45 20 50 4F B5 45 52 20 AF 00 8B 14 |E THE PO.ER ....|
00001050: B6 03 4A 4D 50 20 53 54 49 4E 44 49 53 4B 3B 20 |..JMP STINDISK; |
00001060: 8E 20 A4 20 A1 20 41 A8 48 45 52 20 43 48 41 52 |. . . A.HER CHAR|
00001070: 41 43 54 45 52 20 28 42 55 54 20 A8 20 41 20 4C |ACTER (BUT . A L|
00001080: 49 4E 45 20 4E 55 4D 42 45 52 29 00 A7 14 C0 03 |INE NUMBER).....|
00001090: 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |;...............|
000010A0: AB AB AB AB AB AB AB 00 DC 14 CA 03 43 4F 4C 91 |............COL.|
000010B0: 20 53 54 41 20 43 4F 4C 46 4C 41 47 3B 20 53 49 | STA COLFLAG; SI|
000010C0: 47 4E 8B 59 20 43 4F 4C 91 20 42 59 20 53 45 54 |GN.Y COL. BY SET|
000010D0: 54 49 4E 47 20 43 4F 4C 46 4C 41 47 00 FB 14 D4 |TING COLFLAG....|
000010E0: 03 52 54 53 3B AB AB AB AB AB AB AB AB AB AB AB |.RTS;...........|
000010F0: AB AB AB AB AB AB AB AB AB AB AB 00 3C 15 DE 03 |............<...|
00001100: 50 53 45 55 44 4F 4F 20 4A 4D 50 20 50 53 45 55 |PSEUDOO JMP PSEU|
00001110: 44 4F 4A 3B 20 53 50 52 49 4E 47 42 4F 41 52 44 |DOJ; SPRINGBOARD|
00001120: 20 A4 20 50 53 45 55 44 4F AB 4F 50 20 48 AF 4C | . PSEUDO.OP H.L|
00001130: 49 4E 47 20 52 4F 55 54 49 4E 45 53 00 75 15 E8 |ING ROUTINES.u..|
00001140: 03 48 45 58 58 20 53 54 41 20 4C 41 42 45 4C 2C |.HEXX STA LABEL,|
00001150: 59 3B 20 53 50 52 49 4E 47 42 4F 41 52 44 20 A4 |Y; SPRINGBOARD .|
00001160: 20 48 45 58 20 4E 55 4D 42 45 52 20 54 52 41 4E | HEX NUMBER TRAN|
00001170: 53 4C 41 A4 52 00 7D 15 F2 03 49 4E 59 00 89 15 |SLA.R.}...INY...|
00001180: FC 03 4A 4D 50 20 48 45 58 00 C7 15 06 04 3B AB |..JMP HEX.....;.|
00001190: AB AB AB AB AB AB AB 20 54 52 41 4E 53 4C 41 54 |....... TRANSLAT|
000011A0: 45 20 41 20 BF 47 4C 45 AB 42 59 54 45 20 4B 45 |E A .GLE.BYTE KE|
000011B0: 59 57 B0 44 20 A4 4B 45 4E 20 B5 4F 20 C6 49 49 |YW.D .KEN .O .II|
000011C0: 20 53 54 52 49 4E 47 00 06 16 10 04 4B 45 59 57 | STRING.....KEYW|
000011D0: B0 44 20 53 45 43 3B 20 46 49 4E 44 20 4E 55 4D |.D SEC; FIND NUM|
000011E0: 42 45 52 20 4F 46 20 4B 45 59 57 B0 44 20 28 49 |BER OF KEYW.D (I|
000011F0: 53 20 49 54 20 31 53 54 2C 20 35 54 48 2C 20 B0 |S IT 1ST, 5TH, .|
00001200: 20 57 48 41 54 29 00 13 16 1A 04 53 42 43 20 23 | WHAT).....SBC #|
00001210: 24 37 46 00 4F 16 24 04 53 54 41 20 4B 45 59 4E |$7F.O.$.STA KEYN|
00001220: 55 4D 3B 20 53 A4 52 45 20 4E 55 4D 42 45 52 20 |UM; S.RE NUMBER |
00001230: 28 B9 49 54 49 91 29 20 49 4E 20 42 41 53 49 43 |(.ITI.) IN BASIC|
00001240: 27 53 20 4B 45 59 57 B0 44 20 54 41 42 4C 45 00 |'S KEYW.D TABLE.|
00001250: 5C 16 2E 04 4C 44 58 20 23 32 35 35 00 A9 16 38 |\...LDX #255...8|
00001260: 04 53 4B 45 59 20 44 45 43 20 4B 45 59 4E 55 4D |.SKEY DEC KEYNUM|
00001270: 3B 20 52 45 44 55 43 45 20 4E 55 4D 42 45 52 20 |; REDUCE NUMBER |
00001280: 42 59 20 31 20 28 57 48 45 4E 20 5A 45 52 4F 2C |BY 1 (WHEN ZERO,|
00001290: 20 57 45 27 56 45 20 46 4F 55 4E 44 20 49 54 20 | WE'VE FOUND IT |
000012A0: 49 4E 20 54 41 42 4C 45 29 00 E8 16 42 04 42 45 |IN TABLE)...B.BE|
000012B0: 51 20 46 4B 45 59 3B 20 AF 20 57 45 20 45 58 49 |Q FKEY; . WE EXI|
000012C0: 54 20 54 48 49 53 20 53 45 41 52 43 48 20 52 4F |T THIS SEARCH RO|
000012D0: 55 54 49 4E 45 20 AF 20 53 A4 52 45 20 54 48 45 |UTINE . S.RE THE|
000012E0: 20 C6 49 49 20 57 B0 44 00 18 17 4C 04 4B 53 58 | .II W.D...L.KSX|
000012F0: 20 49 4E 58 3B 20 42 52 49 4E 47 20 58 20 55 50 | INX; BRING X UP|
00001300: 20 A4 20 5A 45 52 4F 20 41 54 20 53 54 41 52 54 | . ZERO AT START|
00001310: 20 4F 46 20 4C 4F 4F 50 00 4A 17 56 04 4C 44 41 | OF LOOP.J.V.LDA|
00001320: 20 4B 45 59 57 44 53 2C 58 3B 20 4C 4F 4F 4B 20 | KEYWDS,X; LOOK |
00001330: 41 54 20 43 48 41 52 2E 20 49 4E 20 42 41 53 49 |AT CHAR. IN BASI|
00001340: 43 27 53 20 54 41 42 4C 45 2E 00 91 17 60 04 42 |C'S TABLE....`.B|
00001350: 50 4C 20 4B 53 58 3B 44 49 44 20 A8 20 46 49 4E |PL KSX;DID . FIN|
00001360: 44 20 41 20 53 48 8B 54 45 44 20 42 59 54 45 28 |D A SH.TED BYTE(|
00001370: 31 53 54 20 43 48 41 52 2E 20 49 53 20 53 48 8B |1ST CHAR. IS SH.|
00001380: 54 45 44 20 49 4E 20 54 48 45 20 54 41 42 4C 45 |TED IN THE TABLE|
00001390: 29 00 D7 17 6A 04 42 4D 49 20 53 4B 45 59 3B 20 |)...j.BMI SKEY; |
000013A0: 44 49 44 20 46 49 4E 44 20 53 54 41 52 54 AB 4F |DID FIND START.O|
000013B0: 46 AB 4B 45 59 57 B0 44 20 53 48 8B 54 45 44 20 |F.KEYW.D SH.TED |
000013C0: 43 48 41 52 41 43 54 45 52 20 AB AB AB AB AB AB |CHARACTER ......|
000013D0: AB AB AB AB AB AB AB 00 12 18 74 04 46 4B 45 59 |..........t.FKEY|
000013E0: 20 49 4E 58 3B 20 53 A4 52 45 20 54 48 45 20 4B | INX; S.RE THE K|
000013F0: 45 59 57 B0 44 20 B5 4F 20 4C 41 44 53 27 20 4D |EYW.D .O LADS' M|
00001400: 41 49 4E 20 42 55 46 46 45 52 20 28 4C 41 42 45 |AIN BUFFER (LABE|
00001410: 4C 29 00 23 18 7E 04 4C 44 41 20 4B 45 59 57 44 |L).#.~.LDA KEYWD|
00001420: 53 2C 58 00 69 18 88 04 42 4D 49 20 4B 53 45 54 |S,X.i...BMI KSET|
00001430: 3B 20 41 20 53 48 8B 54 45 44 20 43 48 41 52 2E |; A SH.TED CHAR.|
00001440: 20 49 4E 44 49 43 41 54 45 53 20 80 20 4F 46 20 | INDICATES . OF |
00001450: 4B 45 59 57 B0 44 2C 20 53 54 41 52 54 20 4F 46 |KEYW.D, START OF|
00001460: 20 82 20 4B 45 59 57 B0 44 00 94 18 92 04 53 54 | . KEYW.D.....ST|
00001470: 41 20 4C 41 42 45 4C 2C 59 3B 20 50 55 54 20 43 |A LABEL,Y; PUT C|
00001480: 48 41 52 2E 20 B5 4F 20 4C 41 44 53 27 20 42 55 |HAR. .O LADS' BU|
00001490: 46 46 45 52 00 9C 18 9C 04 49 4E 59 00 D4 18 A6 |FFER.....INY....|
000014A0: 04 4A 4D 50 20 46 4B 45 59 3B 20 4C 4F 4F 50 20 |.JMP FKEY; LOOP |
000014B0: 41 47 41 49 4E 20 81 20 82 20 43 48 41 52 2E AB |AGAIN . . CHAR..|
000014C0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000014D0: AB AB AB AB 00 E4 18 B0 04 4B 53 45 54 20 AF 20 |.........KSET . |
000014E0: 23 24 37 46 00 13 19 BA 04 52 54 53 3B 20 43 4C |#$7F.....RTS; CL|
000014F0: 45 41 52 20 4F 55 54 20 42 49 54 20 37 20 AF 20 |EAR OUT BIT 7 . |
00001500: 8E 20 A4 20 43 41 4C 4C 49 4E 47 20 52 4F 55 54 |. . CALLING ROUT|
00001510: 49 4E 45 00 41 19 C4 04 3B AB AB AB AB AB AB AB |INE.A...;.......|
00001520: AB AB AB AB AB AB AB AB AB AB AB 20 48 AF 4C 45 |........... H.LE|
00001530: 20 B1 20 AF 20 B3 20 50 53 45 55 44 4F AB 4F 50 | . . . PSEUDO.OP|
00001540: 53 00 77 19 CE 04 48 49 20 4C 44 41 20 23 32 3B |S.w...HI LDA #2;|
00001550: 20 20 20 20 20 20 20 54 48 45 20 42 59 54 46 4C | THE BYTFL|
00001560: 41 47 20 48 41 53 20 33 20 B9 53 49 42 4C 45 20 |AG HAS 3 .SIBLE |
00001570: 53 54 41 54 45 53 3A 00 B8 19 D8 04 53 54 41 20 |STATES:.....STA |
00001580: 42 59 54 46 4C 41 47 3B 20 20 20 20 20 20 20 20 |BYTFLAG; |
00001590: 20 20 20 20 30 20 B2 20 4C 49 4E 45 20 44 4F 45 | 0 . LINE DOE|
000015A0: 53 4E 27 54 20 9A 41 49 4E 20 41 20 B1 20 B0 20 |SN'T .AIN A . . |
000015B0: B3 20 50 53 45 55 44 4F 00 EA 19 E2 04 4A 4D 50 |. PSEUDO.....JMP|
000015C0: 20 53 54 49 4E 44 49 53 4B 3B 20 20 20 20 20 20 | STINDISK; |
000015D0: 20 20 20 20 20 31 20 B2 20 B3 20 28 4C 4F 57 20 | 1 . . (LOW |
000015E0: 42 59 54 45 29 20 54 59 50 45 00 1D 1A EC 04 4C |BYTE) TYPE.....L|
000015F0: 4F 20 4C 44 41 20 23 31 3B 20 20 20 20 20 20 20 |O LDA #1; |
00001600: 20 20 20 20 20 20 20 32 20 B2 20 B1 20 28 48 49 | 2 . . (HI|
00001610: 47 48 20 42 59 54 45 29 20 54 59 50 45 00 61 1A |GH BYTE) TYPE.a.|
00001620: F6 04 53 54 41 20 42 59 54 46 4C 41 47 3B 20 20 |..STA BYTFLAG; |
00001630: 20 20 20 20 20 20 28 41 43 54 49 91 20 49 53 20 | (ACTI. IS |
00001640: 54 41 4B 45 4E 20 91 20 54 48 49 53 20 50 53 45 |TAKEN . THIS PSE|
00001650: 55 44 4F AB 4F 50 20 57 49 54 48 49 4E 20 54 48 |UDO.OP WITHIN TH|
00001660: 45 00 A9 1A 00 05 4A 4D 50 20 53 54 49 4E 44 49 |E.....JMP STINDI|
00001670: 53 4B 3B 20 20 20 20 20 20 20 20 20 20 20 45 51 |SK; EQ|
00001680: 55 41 54 45 20 53 55 42 50 52 4F 47 52 41 4D 29 |UATE SUBPROGRAM)|
00001690: 2E 20 20 4F 20 57 45 20 46 45 54 43 48 20 54 48 |. O WE FETCH TH|
000016A0: 45 20 82 20 43 48 41 52 2E 00 E7 1A 0A 05 3B AB |E . CHAR......;.|
000016B0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000016C0: AB 20 48 AF 4C 45 20 54 48 45 20 AC B2 20 50 53 |. H.LE THE .. PS|
000016D0: 45 55 44 4F AB 4F 50 20 28 43 48 41 4E 47 45 20 |EUDO.OP (CHANGE |
000016E0: 54 48 45 20 50 43 29 00 FD 1A 14 05 53 54 41 52 |THE PC).....STAR|
000016F0: 20 4A 53 52 20 53 54 49 4E 44 49 53 4B 00 2D 1B | JSR STINDISK.-.|
00001700: 1E 05 3B 4C 44 41 20 50 41 53 53 3B 20 91 20 50 |..;LDA PASS; . P|
00001710: 41 53 53 20 31 2C 20 44 91 27 54 20 99 20 4F 55 |ASS 1, D.'T . OU|
00001720: 54 20 83 20 54 4F 20 53 43 52 45 45 4E 00 3C 1B |T . TO SCREEN.<.|
00001730: 28 05 3B 42 45 51 20 53 54 41 52 4E 00 4F 1B 2D |(.;BEQ STARN.O.-|
00001740: 05 4C 44 41 20 23 24 31 38 3A 4A 53 52 20 99 00 |.LDA #$18:JSR ..|
00001750: 60 1B 32 05 4C 44 41 20 23 34 32 3B 20 99 20 AC |`.2.LDA #42; . .|
00001760: 00 6A 1B 3C 05 4A 53 52 20 99 00 92 1B 46 05 4A |.j.<.JSR ....F.J|
00001770: 53 52 20 50 52 4E 54 85 3B 20 99 20 53 54 52 49 |SR PRNT.; . STRI|
00001780: 4E 47 20 49 4E 20 4C 41 42 45 4C 20 42 55 46 46 |NG IN LABEL BUFF|
00001790: 45 52 00 AF 1B 50 05 4A 53 52 20 50 52 4E 54 43 |ER...P.JSR PRNTC|
000017A0: 52 3B 20 99 20 43 41 52 52 49 41 47 45 20 8E 00 |R; . CARRIAGE ..|
000017B0: F0 1B 5A 05 53 54 41 52 4E 20 4C 44 41 20 48 45 |..Z.STARN LDA HE|
000017C0: 58 46 4C 41 47 3B 20 8B 20 48 45 58 2C 20 54 48 |XFLAG; . HEX, TH|
000017D0: 45 20 41 52 47 55 4D 45 4E 54 20 48 41 53 20 41 |E ARGUMENT HAS A|
000017E0: 4C 87 59 20 42 45 45 4E 20 46 49 47 55 52 45 44 |L.Y BEEN FIGURED|
000017F0: 00 18 1C 64 05 42 4E 45 20 53 54 41 52 52 3B 20 |...d.BNE STARR; |
00001800: 53 4F 20 4A 55 4D 50 20 4F 56 45 52 20 54 48 49 |SO JUMP OVER THI|
00001810: 53 20 82 20 50 41 52 54 00 23 1C 6E 05 4C 44 59 |S . PART.#.n.LDY|
00001820: 20 23 30 00 38 1C 78 05 53 54 41 46 20 4C 44 41 | #0.8.x.STAF LDA|
00001830: 20 4C 41 42 45 4C 2C 59 00 44 1C 82 05 43 4D 50 | LABEL,Y.D...CMP|
00001840: 20 23 33 32 00 52 1C 8C 05 42 45 51 20 53 54 41 | #32.R...BEQ STA|
00001850: 46 31 00 5A 1C 96 05 49 4E 59 00 94 1C A0 05 4A |F1.Z...INY.....J|
00001860: 4D 50 20 53 54 41 46 3B 20 46 49 4E 44 20 4E 55 |MP STAF; FIND NU|
00001870: 4D 42 45 52 20 28 42 59 20 4C 4F 4F 4B 49 4E 47 |MBER (BY LOOKING|
00001880: 20 81 20 54 48 45 20 42 4C 41 4E 4B 3A 20 AC B2 | . THE BLANK: ..|
00001890: 20 31 35 29 00 A2 1C AA 05 53 54 41 46 31 20 49 | 15).....STAF1 I|
000018A0: 4E 59 00 C1 1C B4 05 53 54 59 20 54 45 4D 50 3B |NY.....STY TEMP;|
000018B0: 20 50 4F B5 20 A4 20 C6 49 49 20 4E 55 4D 42 45 | PO. . .II NUMBE|
000018C0: 52 00 D1 1C BE 05 4C 44 41 20 23 B3 4C 41 42 45 |R.....LDA #.LABE|
000018D0: 4C 00 D9 1C C8 05 43 4C 43 00 E6 1C D2 05 41 44 |L.....CLC.....AD|
000018E0: 43 20 54 45 4D 50 00 F3 1C DC 05 53 54 41 20 54 |C TEMP.....STA T|
000018F0: 45 4D 50 00 03 1D E6 05 4C 44 41 20 23 B1 4C 41 |EMP.....LDA #.LA|
00001900: 42 45 4C 00 0E 1D F0 05 41 44 43 20 23 30 00 1D |BEL.....ADC #0..|
00001910: 1D FA 05 53 54 41 20 54 45 4D 50 AA 31 00 55 1D |...STA TEMP.1.U.|
00001920: 04 06 4A 53 52 20 C5 44 45 43 3B 20 54 52 41 4E |..JSR .DEC; TRAN|
00001930: 53 4C 41 54 45 20 C6 49 49 20 4E 55 4D 42 45 52 |SLATE .II NUMBER|
00001940: 20 B5 4F 20 B5 45 47 45 52 20 28 49 4E 20 52 45 | .O .EGER (IN RE|
00001950: 53 55 4C 54 29 00 90 1D 0E 06 53 54 41 52 52 20 |SULT).....STARR |
00001960: 4C 44 41 20 50 41 53 53 3B 20 91 20 50 41 53 53 |LDA PASS; . PASS|
00001970: 20 31 2C 20 4C 45 41 56 45 20 44 49 53 4B 20 4F | 1, LEAVE DISK O|
00001980: 42 4A 45 43 54 20 46 49 4C 45 20 41 4C 91 45 2E |BJECT FILE AL.E.|
00001990: 00 9F 1D 18 06 42 45 51 20 53 54 41 52 52 58 00 |.....BEQ STARRX.|
000019A0: E1 1D 22 06 4C 44 41 20 44 49 53 4B 46 4C 41 47 |..".LDA DISKFLAG|
000019B0: 3B 20 91 20 50 41 53 53 20 32 2C 20 57 45 27 56 |; . PASS 2, WE'V|
000019C0: 45 20 CB 54 20 A4 20 53 54 55 46 46 20 54 48 45 |E .T . STUFF THE|
000019D0: 20 44 49 53 4B 20 4F 42 4A 45 43 54 20 46 49 4C | DISK OBJECT FIL|
000019E0: 45 00 2C 1E 2C 06 42 45 51 20 53 54 41 52 52 58 |E.,.,.BEQ STARRX|
000019F0: 3B 20 8B 20 54 48 45 20 44 49 53 4B 46 4C 41 47 |; . THE DISKFLAG|
00001A00: 20 49 53 20 55 50 20 28 57 45 20 41 52 45 20 43 | IS UP (WE ARE C|
00001A10: 52 45 41 54 49 4E 47 20 41 4E 20 4F 42 4A 45 43 |REATING AN OBJEC|
00001A20: 54 20 43 4F 44 45 20 46 49 4C 45 29 00 57 1E 36 |T CODE FILE).W.6|
00001A30: 06 4A 53 52 20 46 49 4C 4C 44 49 53 4B 3B 20 46 |.JSR FILLDISK; F|
00001A40: 49 4C 4C 44 49 53 4B 20 44 4F 45 53 20 54 48 49 |ILLDISK DOES THI|
00001A50: 53 20 81 20 55 53 2E 00 94 1E 40 06 53 54 41 52 |S . US....@.STAR|
00001A60: 52 58 20 4C 44 41 20 52 45 53 55 4C 54 3B 20 50 |RX LDA RESULT; P|
00001A70: 55 54 20 54 48 45 20 41 52 47 55 4D 45 4E 54 20 |UT THE ARGUMENT |
00001A80: 4F 46 20 AC B2 20 B5 4F 20 54 48 45 20 50 43 20 |OF .. .O THE PC |
00001A90: 28 53 41 29 00 9F 1E 4A 06 53 54 41 20 53 41 00 |(SA)...J.STA SA.|
00001AA0: B0 1E 54 06 4C 44 41 20 52 45 53 55 4C 54 AA 31 |..T.LDA RESULT.1|
00001AB0: 00 BD 1E 5E 06 53 54 41 20 53 41 AA 31 00 D9 1E |...^.STA SA.1...|
00001AC0: 68 06 50 4C 41 3B 20 50 55 4C 4C 20 4F 46 46 20 |h.PLA; PULL OFF |
00001AD0: 54 48 45 20 52 54 53 20 AF 00 E1 1E 72 06 50 4C |THE RTS ....r.PL|
00001AE0: 41 00 10 1F 7C 06 4A 4D 50 20 53 54 41 52 54 4C |A...|.JMP STARTL|
00001AF0: 49 4E 45 3B 20 8E 20 A4 20 45 C5 20 81 20 54 48 |INE; . . E. . TH|
00001B00: 45 20 82 20 4C 49 4E 45 20 4F 46 20 43 4F 44 45 |E . LINE OF CODE|
00001B10: 00 50 1F 86 06 3B AB AB AB AB AB AB AB AB AB AB |.P...;..........|
00001B20: AB AB AB AB AB AB AB AB 20 49 53 20 54 48 49 53 |........ IS THIS|
00001B30: 20 54 48 45 20 80 20 4F 46 20 54 48 45 20 45 4E | THE . OF THE EN|
00001B40: 54 49 52 45 20 53 4F 55 52 43 45 20 43 4F 44 45 |TIRE SOURCE CODE|
00001B50: 00 9A 1F 90 06 80 50 52 4F 20 53 54 41 20 4C 41 |......PRO STA LA|
00001B60: 42 45 4C 2C 59 3B 20 50 55 54 20 54 48 45 20 5A |BEL,Y; PUT THE Z|
00001B70: 45 52 4F 20 28 54 48 41 54 20 53 45 4E 54 20 55 |ERO (THAT SENT U|
00001B80: 53 20 48 45 52 45 29 20 B5 4F 20 54 48 45 20 4D |S HERE) .O THE M|
00001B90: 41 49 4E 20 42 55 46 46 45 52 00 A2 1F 9A 06 49 |AIN BUFFER.....I|
00001BA0: 4E 59 00 AE 1F A4 06 43 50 59 20 23 38 30 00 D9 |NY.....CPY #80..|
00001BB0: 1F AE 06 42 4E 45 20 80 50 52 4F 3B 20 46 49 4C |...BNE .PRO; FIL|
00001BC0: 4C 20 52 45 53 54 20 4F 46 20 42 55 46 46 45 52 |L REST OF BUFFER|
00001BD0: 20 57 49 54 48 20 30 30 53 00 E9 1F B8 06 53 54 | WITH 00S.....ST|
00001BE0: 41 20 4C 41 42 45 4C 2C 59 00 2A 20 C2 06 4A 53 |A LABEL,Y.* ..JS|
00001BF0: 52 20 43 48 41 52 49 4E 3B 20 50 55 4C 4C 20 49 |R CHARIN; PULL I|
00001C00: 4E 20 54 48 45 20 82 20 32 20 42 59 54 45 53 2E |N THE . 2 BYTES.|
00001C10: 20 20 8B 20 54 48 45 59 20 41 52 45 20 42 4F 54 | . THEY ARE BOT|
00001C20: 48 20 5A 45 52 4F 53 2C 20 A7 00 70 20 CC 06 4A |H ZEROS, ..p ..J|
00001C30: 53 52 20 43 48 41 52 49 4E 3B 20 57 45 20 48 41 |SR CHARIN; WE HA|
00001C40: 56 45 2C 20 49 4E 20 46 41 43 54 2C 20 46 4F 55 |VE, IN FACT, FOU|
00001C50: 4E 44 20 54 48 45 20 80 20 4F 46 20 4F 55 52 20 |ND THE . OF OUR |
00001C60: 53 4F 55 52 43 45 20 43 4F 44 45 20 46 49 4C 45 |SOURCE CODE FILE|
00001C70: 00 8C 20 D6 06 42 45 51 20 49 4E 80 3B 20 AF 20 |.. ..BEQ IN.; . |
00001C80: 57 45 20 42 45 51 20 A4 20 49 4E 80 00 D2 20 E0 |WE BEQ . IN... .|
00001C90: 06 4C 44 41 20 23 30 3B 20 4F 54 48 45 52 57 49 |.LDA #0; OTHERWI|
00001CA0: 53 45 20 57 45 20 50 55 54 20 54 48 45 20 43 4F |SE WE PUT THE CO|
00001CB0: 4C 46 4C 41 47 20 28 43 4F 4C 91 29 20 44 4F 57 |LFLAG (COL.) DOW|
00001CC0: 4E 2C 20 42 45 43 41 55 53 45 20 54 48 49 53 20 |N, BECAUSE THIS |
00001CD0: 49 53 00 02 21 EA 06 53 54 41 20 43 4F 4C 46 4C |IS..!..STA COLFL|
00001CE0: 41 47 3B 20 41 4E 20 80 20 4F 46 20 4C 49 4E 45 |AG; AN . OF LINE|
00001CF0: 20 43 91 44 49 54 49 91 2C 20 A8 20 41 20 43 4F | C.DITI., . A CO|
00001D00: 4C 91 00 18 21 F4 06 52 54 53 3B 20 AF 20 8E 20 |L...!..RTS; . . |
00001D10: A4 20 43 41 4C 4C 45 52 00 5C 21 FE 06 49 4E 80 |. CALLER.\!..IN.|
00001D20: 20 4C 44 41 20 23 31 3B AB AB AB AB AB AB AB AB | LDA #1;........|
00001D30: 20 53 45 54 20 80 20 4F 46 20 53 4F 55 52 43 45 | SET . OF SOURCE|
00001D40: 20 43 4F 44 45 20 46 49 4C 45 20 46 4C 41 47 20 | CODE FILE FLAG |
00001D50: A4 20 55 50 20 43 91 44 49 54 49 91 00 6A 21 08 |. UP C.DITI..j!.|
00001D60: 07 53 54 41 20 80 46 4C 41 47 00 80 21 12 07 52 |.STA .FLAG..!..R|
00001D70: 54 53 3B 20 AF 20 8E 20 A4 20 43 41 4C 4C 45 52 |TS; . . . CALLER|
00001D80: 00 C3 21 1C 07 3B AB AB AB AB AB AB AB AB AB AB |..!..;..........|
00001D90: AB AB AB AB AB AB AB AB AB AB AB AB AB AB 20 43 |.............. C|
00001DA0: 48 41 4E 47 45 20 41 20 48 45 58 20 4E 55 4D 42 |HANGE A HEX NUMB|
00001DB0: 45 52 20 A4 20 41 20 32 AB 42 59 54 45 20 B5 45 |ER . A 2.BYTE .E|
00001DC0: 47 45 52 00 01 22 26 07 3B 20 50 55 4C 4C 20 49 |GER.."&.; PULL I|
00001DD0: 4E 20 82 20 46 45 57 20 42 59 54 45 53 2C 20 54 |N . FEW BYTES, T|
00001DE0: 55 52 4E 49 4E 47 20 54 48 45 4D 20 B5 4F 20 41 |URNING THEM .O A|
00001DF0: 4E 20 B5 45 47 45 52 20 49 4E 20 52 45 53 55 4C |N .EGER IN RESUL|
00001E00: 54 00 3F 22 30 07 48 45 58 20 4C 44 58 20 23 30 |T.?"0.HEX LDX #0|
00001E10: 3B 20 50 55 54 53 20 B5 45 47 45 52 20 45 51 55 |; PUTS .EGER EQU|
00001E20: 49 C5 45 4E 54 20 4F 46 20 49 4E 43 4F 4D 49 4E |I.ENT OF INCOMIN|
00001E30: 47 20 48 45 58 20 B5 4F 20 52 45 53 55 4C 54 00 |G HEX .O RESULT.|
00001E40: 51 22 3A 07 48 31 20 4A 53 52 20 43 48 41 52 49 |Q":.H1 JSR CHARI|
00001E50: 4E 00 78 22 44 07 42 45 51 20 44 45 43 49 3B 20 |N.x"D.BEQ DECI; |
00001E60: 80 20 4F 46 20 4C 49 4E 45 20 28 53 4F 20 90 20 |. OF LINE (SO . |
00001E70: 4C 4F 4F 4B 49 4E 47 29 00 84 22 4E 07 43 4D 50 |LOOKING).."N.CMP|
00001E80: 20 23 35 38 00 A6 22 58 07 42 45 51 20 44 45 43 | #58.."X.BEQ DEC|
00001E90: 49 3B 20 43 4F 4C 91 20 28 53 4F 20 90 20 4C 4F |I; COL. (SO . LO|
00001EA0: 4F 4B 49 4E 47 29 00 B2 22 62 07 43 4D 50 20 23 |OKING).."b.CMP #|
00001EB0: 33 32 00 EA 22 6C 07 42 45 51 20 48 31 3B 20 42 |32.."l.BEQ H1; B|
00001EC0: 4C 41 4E 4B 20 43 48 41 52 41 43 54 45 52 20 53 |LANK CHARACTER S|
00001ED0: 4F 20 4B 45 45 50 20 4C 4F 4F 4B 49 4E 47 20 81 |O KEEP LOOKING .|
00001EE0: 20 80 20 4F 46 20 4C 49 4E 45 00 F6 22 76 07 43 | . OF LINE.."v.C|
00001EF0: 4D 50 20 23 35 39 00 1C 23 80 07 42 45 51 20 44 |MP #59..#..BEQ D|
00001F00: 45 43 49 3B 20 53 45 4D 49 43 4F 4C 91 20 28 53 |ECI; SEMICOL. (S|
00001F10: 4F 20 90 20 4C 4F 4F 4B 49 4E 47 29 00 28 23 8A |O . LOOKING).(#.|
00001F20: 07 43 4D 50 20 23 34 34 00 66 23 94 07 42 45 51 |.CMP #44.f#..BEQ|
00001F30: 20 44 45 43 49 54 3B 20 43 4F 4D 4D 41 20 28 53 | DECIT; COMMA (S|
00001F40: 4F 20 90 20 4C 4F 4F 4B 49 4E 47 2C 20 42 55 54 |O . LOOKING, BUT|
00001F50: 20 CB 20 A4 20 41 20 44 8B 46 45 52 45 4E 54 20 | . . A D.FERENT |
00001F60: 50 4C 41 43 45 29 00 A9 23 9E 07 43 4D 50 20 23 |PLACE)..#..CMP #|
00001F70: 34 31 3B 20 28 54 48 49 53 20 22 44 49 46 46 45 |41; (THIS "DIFFE|
00001F80: 52 45 4E 54 20 50 4C 41 43 45 22 20 48 AF 4C 45 |RENT PLACE" H.LE|
00001F90: 53 20 41 20 A8 AB 80 AB 4F 46 AB 4C 49 4E 45 20 |S A ....OF.LINE |
00001FA0: 43 91 44 49 54 49 91 29 2E 00 D7 23 A8 07 42 45 |C.DITI.)...#..BE|
00001FB0: 51 20 44 45 43 49 54 3B 20 A0 20 50 41 52 45 4E |Q DECIT; . PAREN|
00001FC0: 54 48 45 53 49 53 20 29 20 28 53 4F 20 90 20 4C |THESIS ) (SO . L|
00001FD0: 4F 4F 4B 49 4E 47 29 00 1C 24 B2 07 53 54 41 20 |OOKING)..$..STA |
00001FE0: 48 45 58 42 55 46 2C 58 3B 20 4F 54 48 45 52 57 |HEXBUF,X; OTHERW|
00001FF0: 49 53 45 2C 20 50 55 54 20 54 48 45 20 C6 49 49 |ISE, PUT THE .II|
00002000: AB 53 54 59 4C 45 AB 48 45 58 20 43 48 41 52 2E |.STYLE.HEX CHAR.|
00002010: 20 49 4E 20 42 55 46 46 45 52 20 AF 00 37 24 BC | IN BUFFER ..7$.|
00002020: 07 49 4E 58 3B 20 52 41 49 53 45 20 54 48 45 20 |.INX; RAISE THE |
00002030: 49 4E 44 45 58 20 AF 00 6D 24 C6 07 53 54 41 20 |INDEX ..m$..STA |
00002040: 4C 41 42 45 4C 2C 59 3B 20 41 4C 53 4F 20 53 A4 |LABEL,Y; ALSO S.|
00002050: 52 45 20 49 54 20 B5 4F 20 4D 41 49 4E 20 42 55 |RE IT .O MAIN BU|
00002060: 46 46 45 52 20 81 20 99 4F 55 54 20 AF 00 8A 24 |FFER . .OUT ...$|
00002070: D0 07 49 4E 59 3B 20 52 41 49 53 45 20 54 48 49 |..INY; RAISE THI|
00002080: 53 20 49 4E 44 45 58 20 A4 4F 00 CA 24 DA 07 4A |S INDEX .O..$..J|
00002090: 4D 50 20 48 31 3B 20 A7 20 4B 45 45 50 20 91 20 |MP H1; . KEEP . |
000020A0: 50 55 54 54 49 4E 47 20 48 45 58 20 4E 55 4D 42 |PUTTING HEX NUMB|
000020B0: 45 52 20 B5 4F 20 48 45 58 42 55 46 46 45 52 AB |ER .O HEXBUFFER.|
000020C0: AB AB AB AB AB AB AB AB AB AB 00 F7 24 E4 07 44 |............$..D|
000020D0: 45 43 49 54 20 53 54 58 20 48 45 58 C3 3B 20 94 |ECIT STX HEX.; .|
000020E0: 20 C3 47 54 48 20 4F 46 20 C6 49 49 AB 48 45 58 | .GTH OF .II.HEX|
000020F0: 20 4E 55 4D 42 45 52 00 41 25 EE 07 53 54 41 20 | NUMBER.A%..STA |
00002100: 4C 41 42 45 4C 2C 59 3B 20 46 49 4E 49 53 48 20 |LABEL,Y; FINISH |
00002110: 53 A4 52 49 4E 47 20 43 48 41 52 53 2E 20 B5 4F |S.RING CHARS. .O|
00002120: 20 4D 41 49 4E 20 42 55 46 46 45 52 20 28 2C 20 | MAIN BUFFER (, |
00002130: B0 20 29 20 49 4E 20 54 48 49 53 20 43 41 53 45 |. ) IN THIS CASE|
00002140: 29 00 49 25 F8 07 49 4E 59 00 90 25 02 08 4A 53 |).I%..INY..%..JS|
00002150: 52 20 53 54 41 52 54 48 45 58 3B 20 54 52 41 4E |R STARTHEX; TRAN|
00002160: 53 4C 41 54 45 20 C6 49 49 AB 48 45 58 20 4E 55 |SLATE .II.HEX NU|
00002170: 4D 42 45 52 20 B5 4F 20 B5 45 47 45 52 20 49 4E |MBER .O .EGER IN|
00002180: 20 52 45 53 55 4C 54 20 56 41 52 49 41 42 4C 45 | RESULT VARIABLE|
00002190: 00 CB 25 0C 08 4A 4D 50 20 53 54 49 4E 44 49 53 |..%..JMP STINDIS|
000021A0: 4B 3B 20 8E 20 A4 20 50 55 4C 4C 20 49 4E 20 52 |K; . . PULL IN R|
000021B0: 45 53 54 20 4F 46 20 54 48 45 20 4C 49 4E 45 3B |EST OF THE LINE;|
000021C0: AB AB AB AB AB AB AB AB AB AB AB 00 0B 26 16 08 |.............&..|
000021D0: 44 45 43 49 20 53 54 41 20 41 3B 20 94 20 54 48 |DECI STA A; . TH|
000021E0: 45 20 80 20 4F 46 20 4C 49 4E 45 2C 20 43 4F 4C |E . OF LINE, COL|
000021F0: 91 2C 20 B0 20 53 45 4D 49 43 4F 4C 91 20 43 48 |., . SEMICOL. CH|
00002200: 41 52 2E 20 81 20 4C 41 54 45 52 00 16 26 20 08 |AR. . LATER..& .|
00002210: 4C 44 41 20 23 30 00 3D 26 2A 08 53 54 58 20 48 |LDA #0.=&*.STX H|
00002220: 45 58 C3 3B 20 94 20 C3 47 54 48 20 4F 46 20 C6 |EX.; . .GTH OF .|
00002230: 49 49 AB 48 45 58 20 4E 55 4D 42 45 52 00 83 26 |II.HEX NUMBER..&|
00002240: 34 08 53 54 41 20 4C 41 42 45 4C 2C 59 3B 20 46 |4.STA LABEL,Y; F|
00002250: 49 4E 49 53 48 20 53 A4 52 49 4E 47 20 43 48 41 |INISH S.RING CHA|
00002260: 52 53 2E 20 B5 4F 20 4D 41 49 4E 20 42 55 46 46 |RS. .O MAIN BUFF|
00002270: 45 52 20 28 30 20 49 4E 20 54 48 49 53 20 43 41 |ER (0 IN THIS CA|
00002280: 53 45 29 00 CA 26 3E 08 4A 53 52 20 53 54 41 52 |SE)..&>.JSR STAR|
00002290: 54 48 45 58 3B 20 54 52 41 4E 53 4C 41 54 45 20 |THEX; TRANSLATE |
000022A0: C6 49 49 AB 48 45 58 20 4E 55 4D 42 45 52 20 B5 |.II.HEX NUMBER .|
000022B0: 4F 20 B5 45 47 45 52 20 49 4E 20 52 45 53 55 4C |O .EGER IN RESUL|
000022C0: 54 20 56 41 52 49 41 42 4C 45 00 0D 27 48 08 4C |T VARIABLE..'H.L|
000022D0: 44 41 20 41 3B 20 52 45 54 52 49 45 56 45 20 30 |DA A; RETRIEVE 0|
000022E0: 20 B0 20 43 4F 4C 91 20 B0 20 53 45 4D 49 43 4F | . COL. . SEMICO|
000022F0: 4C 91 20 AF 20 CB 20 42 41 43 4B 20 55 50 20 A4 |L. . . BACK UP .|
00002300: 20 4D 4F 49 4E 44 49 20 57 48 49 43 48 00 57 27 | MOINDI WHICH.W'|
00002310: 52 08 4A 4D 50 20 4D 4F 49 4E 44 49 3B AB AB AB |R.JMP MOINDI;...|
00002320: AB AB AB AB AB AB AB AB AB AB AB AB AB AB 20 42 |.............. B|
00002330: 45 48 41 56 45 53 20 41 43 43 B0 44 49 4E 47 20 |EHAVES ACC.DING |
00002340: A4 20 57 48 49 43 48 20 53 59 4D 42 4F 4C 20 41 |. WHICH SYMBOL A|
00002350: 20 48 4F 4C 44 53 2E 00 9D 27 5C 08 53 54 41 52 | HOLDS...'\.STAR|
00002360: 54 48 45 58 20 4C 44 41 20 23 30 3B AB AB AB AB |THEX LDA #0;....|
00002370: AB AB AB AB AB AB AB AB AB AB AB AB AB 20 48 45 |............. HE|
00002380: 58 AB C6 49 49 20 A4 20 B5 45 47 45 52 20 54 52 |X..II . .EGER TR|
00002390: 41 4E 53 4C 41 A4 52 AB AB AB AB AB AB 00 BF 27 |ANSLA.R........'|
000023A0: 66 08 53 54 41 20 52 45 53 55 4C 54 3B 20 53 45 |f.STA RESULT; SE|
000023B0: 54 20 52 45 53 55 4C 54 20 A4 20 5A 45 52 4F 00 |T RESULT . ZERO.|
000023C0: D0 27 70 08 53 54 41 20 52 45 53 55 4C 54 AA 31 |.'p.STA RESULT.1|
000023D0: 00 E6 27 7A 08 54 41 58 3B 20 53 45 54 20 58 20 |..'z.TAX; SET X |
000023E0: A4 20 5A 45 52 4F 00 2D 28 84 08 48 58 4C 4F 4F |. ZERO.-(..HXLOO|
000023F0: 50 20 41 53 4C 20 52 45 53 55 4C 54 3B 20 53 48 |P ASL RESULT; SH|
00002400: 8B 54 20 AF 20 52 4F 4C 4C 20 28 4D 4F 56 45 53 |.T . ROLL (MOVES|
00002410: 20 32 AB 42 59 54 45 20 42 49 54 53 20 A4 20 54 | 2.BYTE BITS . T|
00002420: 48 45 20 4C 45 46 54 29 AB AB AB AB AB 00 70 28 |HE LEFT)......p(|
00002430: 8E 08 52 4F 4C 20 52 45 53 55 4C 54 AA 31 3B 20 |..ROL RESULT.1; |
00002440: 44 4F 49 4E 47 20 54 48 49 53 20 38 20 54 49 4D |DOING THIS 8 TIM|
00002450: 45 53 20 48 41 53 20 54 48 45 20 45 46 46 45 43 |ES HAS THE EFFEC|
00002460: 54 20 4F 46 20 42 52 49 4E 47 49 4E 47 20 49 4E |T OF BRINGING IN|
00002470: 00 B2 28 98 08 41 53 4C 20 52 45 53 55 4C 54 3B |..(..ASL RESULT;|
00002480: 20 54 48 45 20 C6 49 49 20 4E 55 4D 42 45 52 2C | THE .II NUMBER,|
00002490: 20 31 20 42 59 54 45 20 41 54 20 41 20 54 49 4D | 1 BYTE AT A TIM|
000024A0: 45 2C 20 AF 20 54 52 41 4E 53 81 4D 49 4E 47 20 |E, . TRANS.MING |
000024B0: 49 54 00 F8 28 A2 08 52 4F 4C 20 52 45 53 55 4C |IT..(..ROL RESUL|
000024C0: 54 AA 31 3B 20 B5 4F 20 41 20 32 AB 42 59 54 45 |T.1; .O A 2.BYTE|
000024D0: 20 B5 45 47 45 52 20 57 49 54 48 49 4E 20 54 48 | .EGER WITHIN TH|
000024E0: 49 53 20 32 AB 42 59 54 45 20 56 41 52 49 41 42 |IS 2.BYTE VARIAB|
000024F0: 4C 45 20 57 45 27 52 45 00 1A 29 AC 08 41 53 4C |LE WE'RE..)..ASL|
00002500: 20 52 45 53 55 4C 54 3B 20 43 41 4C 4C 49 4E 47 | RESULT; CALLING|
00002510: 20 22 52 45 53 55 4C 54 2E 22 00 2B 29 B6 08 52 | "RESULT.".+)..R|
00002520: 4F 4C 20 52 45 53 55 4C 54 AA 31 00 3A 29 C0 08 |OL RESULT.1.:)..|
00002530: 41 53 4C 20 52 45 53 55 4C 54 00 4B 29 CA 08 52 |ASL RESULT.K)..R|
00002540: 4F 4C 20 52 45 53 55 4C 54 AA 31 00 7E 29 D4 08 |OL RESULT.1.~)..|
00002550: 4C 44 41 20 48 45 58 42 55 46 2C 58 3B 20 A1 20 |LDA HEXBUF,X; . |
00002560: 41 20 42 59 54 45 20 46 52 4F 4D 20 54 48 45 20 |A BYTE FROM THE |
00002570: C6 49 49 AB 48 45 58 20 4E 55 4D 42 45 52 00 C7 |.II.HEX NUMBER..|
00002580: 29 DE 08 43 4D 50 20 23 36 35 3B 20 8B 20 49 54 |)..CMP #65; . IT|
00002590: 27 53 20 4C 4F 57 45 52 20 54 48 41 4E 20 36 35 |'S LOWER THAN 65|
000025A0: 2C 20 49 54 27 53 20 A8 20 41 4E 20 41 4C 50 48 |, IT'S . AN ALPH|
000025B0: 41 42 45 54 49 43 20 28 41 AB 46 29 20 48 45 58 |ABETIC (A.F) HEX|
000025C0: 20 4E 55 4D 42 45 52 00 F1 29 E8 08 42 43 43 20 | NUMBER..)..BCC |
000025D0: 48 58 4D B0 45 3B 20 53 4F 20 44 91 27 54 20 53 |HXM.E; SO D.'T S|
000025E0: 55 42 54 52 41 43 54 20 37 20 46 52 4F 4D 20 49 |UBTRACT 7 FROM I|
000025F0: 54 00 28 2A F2 08 53 42 43 20 23 37 3B 20 42 55 |T.(*..SBC #7; BU|
00002600: 54 20 8B 20 49 54 27 53 20 B1 20 36 35 2C 20 A7 |T . IT'S . 65, .|
00002610: 20 AB 37 2E 20 20 20 B2 20 36 35 2E 20 20 36 35 | .7. . 65. 65|
00002620: AB 37 20 B2 20 35 38 2E 00 63 2A FC 08 48 58 4D |.7 . 58..c*..HXM|
00002630: B0 45 20 AF 20 23 31 35 3B 20 57 48 45 4E 20 59 |.E . #15; WHEN Y|
00002640: 4F 55 20 35 38 20 AF 20 31 35 2C 20 59 4F 55 20 |OU 58 . 15, YOU |
00002650: A1 20 31 30 20 28 54 48 45 20 C5 55 45 20 4F 46 |. 10 (THE .UE OF|
00002660: 20 41 29 00 A4 2A 06 09 B0 41 20 52 45 53 55 4C | A)..*...A RESUL|
00002670: 54 3B 20 23 31 35 20 28 30 30 30 30 31 31 31 31 |T; #15 (00001111|
00002680: 29 20 AF 20 23 35 38 20 28 30 30 31 31 31 30 31 |) . #58 (0011101|
00002690: 30 29 20 20 B2 20 30 30 30 30 31 30 31 30 20 28 |0) . 00001010 (|
000026A0: 54 45 4E 29 00 CB 2A 10 09 53 54 41 20 52 45 53 |TEN)..*..STA RES|
000026B0: 55 4C 54 3B 20 50 55 54 20 54 48 45 20 42 59 54 |ULT; PUT THE BYT|
000026C0: 45 20 B5 4F 20 52 45 53 55 4C 54 00 E4 2A 1A 09 |E .O RESULT..*..|
000026D0: 49 4E 58 3B 20 52 41 49 53 45 20 54 48 45 20 49 |INX; RAISE THE I|
000026E0: 4E 44 45 58 00 18 2B 24 09 43 50 58 20 48 45 58 |NDEX..+$.CPX HEX|
000026F0: C3 3B 20 41 52 45 20 57 45 20 41 54 20 54 48 45 |.; ARE WE AT THE|
00002700: 20 80 20 4F 46 20 4F 55 52 20 C6 49 49 AB 48 45 | . OF OUR .II.HE|
00002710: 58 20 4E 55 4D 42 45 52 00 33 2B 2E 09 42 4E 45 |X NUMBER.3+..BNE|
00002720: 20 48 58 4C 4F 4F 50 3B 20 8B 20 A8 2C 20 9A 49 | HXLOOP; . ., .I|
00002730: 4E 55 45 00 77 2B 38 09 49 4E 43 20 48 45 58 46 |NUE.w+8.INC HEXF|
00002740: 4C 41 47 3B 20 8B 20 53 4F 2C 20 52 41 49 53 45 |LAG; . SO, RAISE|
00002750: 20 48 45 58 46 4C 41 47 20 28 A4 20 53 48 4F 57 | HEXFLAG (. SHOW|
00002760: 20 52 45 53 55 4C 54 20 48 41 53 20 54 48 45 20 | RESULT HAS THE |
00002770: 41 4E 53 57 45 52 29 00 90 2B 42 09 4C 44 41 20 |ANSWER)..+B.LDA |
00002780: 23 31 3B 20 AF 20 8E 20 A4 20 43 41 4C 4C 45 52 |#1; . . . CALLER|
00002790: 00 98 2B 4C 09 52 54 53 00 B5 2B 56 09 3B AB AB |..+L.RTS..+V.;..|
000027A0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000027B0: AB AB AB AB AB 00 D8 2B 60 09 3B 20 48 AF 4C 45 |.......+`.; H.LE|
000027C0: 20 50 53 45 55 44 4F 53 2E 20 20 28 2E 42 59 54 | PSEUDOS. (.BYT|
000027D0: 45 20 54 59 50 45 53 29 00 1F 2C 6A 09 50 53 45 |E TYPES)..,j.PSE|
000027E0: 55 44 4F 4A 20 43 50 59 20 23 30 3B 20 8B 20 59 |UDOJ CPY #0; . Y|
000027F0: 20 B2 20 30 20 A7 20 49 54 27 53 20 A8 20 41 20 | . 0 . IT'S . A |
00002800: 50 43 20 4C 41 42 45 4C 20 4C 49 4B 45 20 28 4C |PC LABEL LIKE (L|
00002810: 41 42 45 4C 20 2E 42 59 54 45 20 30 20 30 29 00 |ABEL .BYTE 0 0).|
00002820: 2C 2C 74 09 42 45 51 20 50 53 45 32 00 75 2C 7E |,,t.BEQ PSE2.u,~|
00002830: 09 4C 44 58 20 50 41 53 53 3B 20 4F 54 48 45 52 |.LDX PASS; OTHER|
00002840: 57 49 53 45 2C 20 91 20 31 53 54 20 50 41 53 53 |WISE, . 1ST PASS|
00002850: 2C 20 53 A4 52 45 20 4C 41 42 45 4C 20 4E 41 4D |, S.RE LABEL NAM|
00002860: 45 20 AF 20 50 43 20 41 44 44 52 2E 20 49 4E 20 |E . PC ADDR. IN |
00002870: 41 52 52 41 59 00 82 2C 88 09 42 4E 45 20 50 53 |ARRAY..,..BNE PS|
00002880: 45 32 00 9D 2C 92 09 50 48 41 3B 20 94 20 41 20 |E2..,..PHA; . A |
00002890: AF 20 59 20 52 45 47 49 53 54 45 52 53 00 A5 2C |. Y REGISTERS..,|
000028A0: 9C 09 54 59 41 00 AD 2C A6 09 50 48 41 00 DC 2C |..TYA..,..PHA..,|
000028B0: B0 09 4A 53 52 20 45 51 55 41 54 45 3B 20 4E 41 |..JSR EQUATE; NA|
000028C0: 4D 45 20 AF 20 50 43 20 41 44 44 52 2E 20 53 A4 |ME . PC ADDR. S.|
000028D0: 52 45 44 20 49 4E 20 41 52 52 41 59 00 07 2D BA |RED IN ARRAY..-.|
000028E0: 09 50 4C 41 3B 20 50 55 4C 4C 20 4F 55 54 20 41 |.PLA; PULL OUT A|
000028F0: 20 AF 20 59 20 52 45 47 49 53 54 45 52 53 20 28 | . Y REGISTERS (|
00002900: 8C 20 54 48 45 4D 29 00 0F 2D C4 09 54 41 59 00 |. THEM)..-..TAY.|
00002910: 17 2D CE 09 50 4C 41 00 3A 2D D8 09 50 53 45 32 |.-..PLA.:-..PSE2|
00002920: 20 53 54 41 20 4C 41 42 45 4C 2C 59 3B 20 53 A4 | STA LABEL,Y; S.|
00002930: 52 45 20 2E 20 43 48 41 52 2E 00 42 2D E2 09 49 |RE . CHAR..B-..I|
00002940: 4E 59 00 73 2D EC 09 4A 53 52 20 43 48 41 52 49 |NY.s-..JSR CHARI|
00002950: 4E 3B 20 A1 20 43 48 41 52 2E 20 46 4F 4C 4C 4F |N; . CHAR. FOLLO|
00002960: 57 49 4E 47 20 54 48 45 20 50 45 52 49 4F 44 20 |WING THE PERIOD |
00002970: 28 2E 29 00 83 2D F6 09 53 54 41 20 4C 41 42 45 |(.)..-..STA LABE|
00002980: 4C 2C 59 00 8B 2D 00 0A 49 4E 59 00 AA 2D 0A 0A |L,Y..-..INY..-..|
00002990: 43 4D 50 20 23 36 36 3B 20 49 53 20 49 54 20 22 |CMP #66; IS IT "|
000029A0: 42 22 20 81 20 2E 42 59 54 45 00 C7 2D 14 0A 42 |B" . .BYTE..-..B|
000029B0: 4E 45 20 50 53 45 55 44 31 3B 20 57 41 53 4E 27 |NE PSEUD1; WASN'|
000029C0: 54 20 2E 42 59 54 45 00 10 2E 1E 0A 4C 44 41 20 |T .BYTE.....LDA |
000029D0: 23 30 3B 20 52 45 53 45 54 20 46 4C 41 47 20 57 |#0; RESET FLAG W|
000029E0: 48 49 43 48 20 57 49 4C 4C 20 44 49 53 54 49 4E |HICH WILL DISTIN|
000029F0: 47 55 49 53 48 20 42 45 54 57 45 45 4E 20 2E 42 |GUISH BETWEEN .B|
00002A00: 59 54 45 20 30 20 AF 20 2E 42 59 54 45 20 22 41 |YTE 0 . .BYTE "A|
00002A10: 00 55 2E 28 0A 53 54 41 20 42 4E 55 4D 46 4C 41 |.U.(.STA BNUMFLA|
00002A20: 47 3B 20 22 20 54 59 50 45 2C 20 4F 52 20 30 30 |G; " TYPE, OR 00|
00002A30: 20 30 38 20 31 35 20 31 37 32 20 54 59 50 45 20 | 08 15 172 TYPE |
00002A40: 28 54 48 45 20 54 57 4F 20 2E 42 59 54 45 20 54 |(THE TWO .BYTE T|
00002A50: 59 50 45 53 29 00 7D 2E 32 0A 4C 44 41 20 50 41 |YPES).}.2.LDA PA|
00002A60: 53 53 3B 20 99 20 A8 48 49 4E 47 20 A4 20 53 43 |SS; . .HING . SC|
00002A70: 52 45 45 4E 20 91 20 50 41 53 53 20 31 00 89 2E |REEN . PASS 1...|
00002A80: 3C 0A 42 45 51 20 43 4C 42 00 AD 2E 46 0A 53 54 |<.BEQ CLB...F.ST|
00002A90: 59 20 59 3B 20 94 20 59 20 52 45 47 49 53 54 45 |Y Y; . Y REGISTE|
00002AA0: 52 20 28 4F 55 52 20 49 4E 44 45 58 29 00 F5 2E |R (OUR INDEX)...|
00002AB0: 50 0A 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |P.; |
00002AC0: 20 20 20 20 20 20 20 20 4E 4F 57 20 57 45 20 52 | NOW WE R|
00002AD0: 45 50 4C 49 43 41 54 45 20 54 48 45 20 41 43 54 |EPLICATE THE ACT|
00002AE0: 49 91 53 20 4F 46 20 49 4E 4C 49 4E 45 20 28 49 |I.S OF INLINE (I|
00002AF0: 4E 20 45 C5 29 00 19 2F 5A 0A 4C 44 41 20 53 46 |N E.)../Z.LDA SF|
00002B00: 4C 41 47 3B 20 53 48 4F 55 4C 44 20 57 45 20 99 |LAG; SHOULD WE .|
00002B10: 20 A4 20 53 43 52 45 45 4E 00 29 2F 64 0A 42 45 | . SCREEN.)/d.BE|
00002B20: 51 20 43 4C 42 3B 20 4E 4F 00 4E 2F 6E 0A 4A 53 |Q CLB; NO.N/n.JS|
00002B30: 52 20 50 52 4E 54 4C 49 4E 45 3B 20 59 45 53 2C |R PRNTLINE; YES,|
00002B40: 20 99 20 4C 49 4E 45 20 4E 55 4D 42 45 52 00 69 | . LINE NUMBER.i|
00002B50: 2F 78 0A 4A 53 52 20 50 52 4E 54 53 50 41 43 45 |/x.JSR PRNTSPACE|
00002B60: 3B 20 99 20 53 50 41 43 45 00 86 2F 82 0A 4A 53 |; . SPACE../..JS|
00002B70: 52 20 50 52 4E 54 53 41 3B 20 99 20 50 43 20 41 |R PRNTSA; . PC A|
00002B80: 44 44 52 45 53 53 00 A1 2F 8C 0A 4A 53 52 20 50 |DDRESS../..JSR P|
00002B90: 52 4E 54 53 50 41 43 45 3B 20 99 20 53 50 41 43 |RNTSPACE; . SPAC|
00002BA0: 45 00 BC 2F 96 0A 4C 44 59 20 59 3B 20 52 45 43 |E../..LDY Y; REC|
00002BB0: 4F 56 45 52 20 59 20 49 4E 44 45 58 00 F0 2F A0 |OVER Y INDEX../.|
00002BC0: 0A 43 4C 42 20 4A 53 52 20 43 48 41 52 49 4E 3B |.CLB JSR CHARIN;|
00002BD0: 20 50 55 4C 4C 20 49 4E 20 43 48 41 52 41 43 54 | PULL IN CHARACT|
00002BE0: 45 52 20 46 52 4F 4D 20 44 49 53 4B AD 52 41 4D |ER FROM DISK.RAM|
00002BF0: 00 15 30 AA 0A 53 54 41 20 4C 41 42 45 4C 2C 59 |..0..STA LABEL,Y|
00002C00: 3B 20 53 A4 52 45 20 49 4E 20 4D 41 49 4E 20 42 |; S.RE IN MAIN B|
00002C10: 55 46 46 45 52 00 1D 30 B4 0A 49 4E 59 00 38 30 |UFFER..0..INY.80|
00002C20: BE 0A 43 4D 50 20 23 33 32 3B 20 49 53 20 49 54 |..CMP #32; IS IT|
00002C30: 20 41 20 53 50 41 43 45 00 76 30 C8 0A 42 4E 45 | A SPACE.v0..BNE|
00002C40: 20 43 4C 42 3B 20 8B 20 A8 2C 20 9A 49 4E 55 45 | CLB; . ., .INUE|
00002C50: 20 50 55 4C 4C 49 4E 47 20 49 4E 20 4D B0 45 20 | PULLING IN M.E |
00002C60: 43 48 41 52 41 43 54 45 52 53 AB AB AB AB AB AB |CHARACTERS......|
00002C70: AB AB AB AB AB AB 00 B2 30 D2 0A 4A 53 52 20 43 |........0..JSR C|
00002C80: 48 41 52 49 4E 3B 20 28 57 45 27 52 45 20 4C 4F |HARIN; (WE'RE LO|
00002C90: 4F 4B 49 4E 47 20 81 20 54 48 45 20 31 53 54 20 |OKING . THE 1ST |
00002CA0: 53 50 41 43 45 20 41 46 54 45 52 20 2E 42 59 54 |SPACE AFTER .BYT|
00002CB0: 45 29 00 CF 30 DC 0A 53 54 41 20 4C 41 42 45 4C |E)..0..STA LABEL|
00002CC0: 2C 59 3B 20 53 A4 52 45 20 81 20 99 49 4E 47 00 |,Y; S.RE . .ING.|
00002CD0: D7 30 E6 0A 49 4E 59 00 22 31 F0 0A 43 4D 50 20 |.0..INY."1..CMP |
00002CE0: 23 33 34 3B 20 49 53 20 54 48 45 20 43 48 41 52 |#34; IS THE CHAR|
00002CF0: 41 43 54 45 52 20 41 20 51 55 4F 54 45 20 28 22 |ACTER A QUOTE ("|
00002D00: 29 2E 20 20 49 46 20 53 4F 2C 20 49 54 27 53 20 |). IF SO, IT'S |
00002D10: 41 20 2E 42 59 54 45 20 22 41 42 43 44 20 54 59 |A .BYTE "ABCD TY|
00002D20: 50 45 00 50 31 FA 0A 42 4E 45 20 42 4E 55 4D 57 |PE.P1..BNE BNUMW|
00002D30: 45 52 4B 3B 20 4F 54 48 45 52 57 49 53 45 20 49 |ERK; OTHERWISE I|
00002D40: 54 27 53 20 A8 20 54 48 45 20 22 20 54 59 50 45 |T'S . THE " TYPE|
00002D50: 00 8B 31 04 0B 42 59 31 20 4A 53 52 20 43 48 41 |..1..BY1 JSR CHA|
00002D60: 52 49 4E 3B AB AB AB AB AB AB AB AB AB AB 20 20 |RIN;.......... |
00002D70: 48 AF 4C 45 20 C6 49 49 20 53 54 52 49 4E 47 20 |H.LE .II STRING |
00002D80: 2E 42 59 54 45 20 54 59 50 45 53 00 97 31 0E 0B |.BYTE TYPES..1..|
00002D90: 42 4E 45 20 42 59 32 00 C6 31 18 0B 4A 4D 50 20 |BNE BY2..1..JMP |
00002DA0: 42 80 50 52 4F 3B 20 46 4F 55 4E 44 20 41 20 30 |B.PRO; FOUND A 0|
00002DB0: 20 80 20 4F 46 20 4C 49 4E 45 20 28 B0 20 50 52 | . OF LINE (. PR|
00002DC0: 4F 47 52 41 4D 29 00 F2 31 22 0B 42 59 32 20 43 |OGRAM)..1".BY2 C|
00002DD0: 4D 50 20 23 35 38 3B 20 46 4F 55 4E 44 20 41 20 |MP #58; FOUND A |
00002DE0: 43 4F 4C 91 20 22 45 4E 44 20 4F 46 20 4C 49 4E |COL. "END OF LIN|
00002DF0: 45 22 00 FF 31 2C 0B 42 4E 45 20 42 59 32 58 00 |E"..1,.BNE BY2X.|
00002E00: 1A 32 36 0B 4A 4D 50 20 42 45 4E 31 3B 20 46 4F |.26.JMP BEN1; FO|
00002E10: 55 4E 44 20 41 20 43 4F 4C 91 00 4B 32 40 0B 42 |UND A COL..K2@.B|
00002E20: 59 32 58 20 43 4D 50 20 23 35 39 3B 20 46 4F 55 |Y2X CMP #59; FOU|
00002E30: 4E 44 20 41 20 53 45 4D 49 43 4F 4C 91 20 22 45 |ND A SEMICOL. "E|
00002E40: 4E 44 20 4F 46 20 4C 49 4E 45 22 00 57 32 4A 0B |ND OF LINE".W2J.|
00002E50: 42 4E 45 20 42 59 33 00 91 32 54 0B 4A 53 52 20 |BNE BY3..2T.JSR |
00002E60: 50 55 4C 4C 52 45 53 54 3B 20 53 A4 52 45 20 43 |PULLREST; S.RE C|
00002E70: 4F 4D 4D 45 4E 54 53 20 49 4E 20 43 4F 4D 4D 45 |OMMENTS IN COMME|
00002E80: 4E 54 20 42 55 46 46 45 52 20 28 42 41 42 55 46 |NT BUFFER (BABUF|
00002E90: 29 00 B7 32 5E 0B 4C 44 58 20 99 46 4C 41 47 3B |)..2^.LDX .FLAG;|
00002EA0: 20 8B 20 4E 4F 20 99 4F 55 54 20 52 45 51 55 45 | . NO .OUT REQUE|
00002EB0: 53 54 45 44 2C 20 A7 00 D8 32 68 0B 53 54 58 20 |STED, ...2h.STX |
00002EC0: 42 41 42 46 4C 41 47 3B 20 44 91 27 54 20 99 20 |BABFLAG; D.'T . |
00002ED0: 43 4F 4D 4D 45 4E 54 53 00 11 33 72 0B 4A 4D 50 |COMMENTS..3r.JMP|
00002EE0: 20 42 80 50 52 4F 3B 20 41 20 53 45 4D 49 43 4F | B.PRO; A SEMICO|
00002EF0: 4C 91 20 53 4F 20 80 20 54 48 49 53 20 52 4F 55 |L. SO . THIS ROU|
00002F00: 54 49 4E 45 20 49 4E 20 54 48 41 54 20 57 41 59 |TINE IN THAT WAY|
00002F10: 2E 00 46 33 7C 0B 42 59 33 20 43 4D 50 20 23 33 |..F3|.BY3 CMP #3|
00002F20: 34 3B 20 48 41 56 45 20 57 45 20 46 4F 55 4E 44 |4; HAVE WE FOUND|
00002F30: 20 41 20 43 91 43 4C 55 44 49 4E 47 20 51 55 4F | A C.CLUDING QUO|
00002F40: 54 45 20 28 22 29 00 53 33 86 0B 42 4E 45 20 42 |TE (").S3..BNE B|
00002F50: 59 33 58 00 77 33 90 0B 4A 4D 50 20 42 59 31 3B |Y3X.w3..JMP BY1;|
00002F60: 20 46 4F 55 4E 44 20 41 20 22 20 53 4F 20 49 47 | FOUND A " SO IG|
00002F70: 4E 4F 52 45 20 49 54 00 BE 33 9A 0B 42 59 33 58 |NORE IT..3..BY3X|
00002F80: 20 4C 44 58 20 50 41 53 53 3B 20 91 20 50 41 53 | LDX PASS; . PAS|
00002F90: 53 20 31 2C 20 4A 55 53 54 20 52 41 49 53 45 20 |S 1, JUST RAISE |
00002FA0: 50 43 20 43 4F 55 4E 54 45 52 20 28 49 4E 43 53 |PC COUNTER (INCS|
00002FB0: 41 29 3B 20 44 91 27 54 20 97 20 49 54 2E 00 CD |A); D.'T . IT...|
00002FC0: 33 A4 0B 42 4E 45 20 50 53 4C 4F 4F 50 00 DB 33 |3..BNE PSLOOP..3|
00002FD0: AE 0B 4A 53 52 20 49 4E 43 53 41 00 F9 33 B8 0B |..JSR INCSA..3..|
00002FE0: 4A 4D 50 20 42 59 31 3B AB AB AB AB AB AB AB AB |JMP BY1;........|
00002FF0: AB AB AB AB AB AB AB AB AB 00 40 34 C2 0B 50 53 |..........@4..PS|
00003000: 45 55 44 31 20 4A 4D 50 20 50 53 45 55 44 4F 3B |EUD1 JMP PSEUDO;|
00003010: 20 53 4F 4D 45 20 4F 54 48 45 52 20 50 53 45 55 | SOME OTHER PSEU|
00003020: 44 4F 20 54 59 50 45 2C 20 A8 20 2E 42 59 54 45 |DO TYPE, . .BYTE|
00003030: 20 28 41 20 53 50 52 49 4E 47 42 4F 41 52 44 29 | (A SPRINGBOARD)|
00003040: 00 85 34 CC 0B 50 53 4C 4F 4F 50 20 53 54 41 20 |..4..PSLOOP STA |
00003050: 4C 41 42 45 4C 2C 59 3B 20 53 A4 52 45 20 41 20 |LABEL,Y; S.RE A |
00003060: 43 48 41 52 41 43 54 45 52 20 49 4E 20 4D 41 49 |CHARACTER IN MAI|
00003070: 4E 20 42 55 46 46 45 52 3B AB AB AB AB AB AB AB |N BUFFER;.......|
00003080: AB AB AB AB AB 00 8D 34 D6 0B 54 41 58 00 A2 34 |.......4..TAX..4|
00003090: E0 0B 53 54 59 20 59 3B 20 94 20 59 20 49 4E 44 |..STY Y; . Y IND|
000030A0: 45 58 00 DC 34 EA 0B 4A 53 52 20 97 49 54 3B 20 |EX..4..JSR .IT; |
000030B0: 50 41 53 53 20 32 2C 20 53 4F 20 97 20 49 54 20 |PASS 2, SO . IT |
000030C0: B5 4F 20 4D 45 4D B0 59 20 28 54 48 45 20 C6 49 |.O MEM.Y (THE .I|
000030D0: 49 20 43 48 41 52 41 43 54 45 52 29 00 EB 34 F4 |I CHARACTER)..4.|
000030E0: 0B 4C 44 59 20 59 3B 20 8C 20 59 00 02 35 FE 0B |.LDY Y; . Y..5..|
000030F0: 49 4E 59 3B 20 52 41 49 53 45 20 49 4E 44 45 58 |INY; RAISE INDEX|
00003100: 20 AF 00 1D 35 08 0C 4A 4D 50 20 42 59 31 3B 20 | ...5..JMP BY1; |
00003110: A1 20 82 20 43 48 41 52 41 43 54 45 52 00 5A 35 |. . CHARACTER.Z5|
00003120: 12 0C 42 4E 55 4D 57 45 52 4B 20 4C 44 58 20 23 |..BNUMWERK LDX #|
00003130: 30 3B AB AB AB AB AB AB AB AB 20 48 AF 4C 45 20 |0;........ H.LE |
00003140: 2E 42 59 54 45 20 31 20 32 20 33 20 28 4E 55 4D |.BYTE 1 2 3 (NUM|
00003150: 45 52 49 43 20 54 59 50 45 29 00 8B 35 1C 0C 53 |ERIC TYPE)..5..S|
00003160: 54 58 20 42 46 4C 41 47 3B 20 50 55 54 20 44 4F |TX BFLAG; PUT DO|
00003170: 57 4E 20 42 46 4C 41 47 20 28 80 20 4F 46 20 4C |WN BFLAG (. OF L|
00003180: 49 4E 45 20 53 49 47 4E 41 4C 29 00 C5 35 26 0C |INE SIGNAL)..5&.|
00003190: 53 54 41 20 4E 55 42 55 46 2C 58 3B 20 57 45 27 |STA NUBUF,X; WE'|
000031A0: 52 45 20 42 B0 52 4F 57 49 4E 47 20 54 48 45 20 |RE B.ROWING THE |
000031B0: 4E 55 42 55 46 20 81 20 54 48 49 53 20 52 4F 55 |NUBUF . THIS ROU|
000031C0: 54 49 4E 45 2E 00 CD 35 30 0C 49 4E 58 00 FC 35 |TINE...50.INX..5|
000031D0: 3A 0C 57 45 52 4B 31 20 4C 44 41 20 42 46 4C 41 |:.WERK1 LDA BFLA|
000031E0: 47 3B 20 8B 20 42 46 4C 41 47 20 49 53 20 55 50 |G; . BFLAG IS UP|
000031F0: 2C 20 57 45 27 52 45 20 44 91 45 2E 00 1A 36 44 |, WE'RE D.E...6D|
00003200: 0C 42 4E 45 20 42 42 80 3B 20 53 4F 20 CB 20 A4 |.BNE BB.; SO . .|
00003210: 20 80 20 52 4F 55 54 49 4E 45 00 55 36 4E 0C 57 | . ROUTINE.U6N.W|
00003220: 4B 30 20 4A 53 52 20 43 48 41 52 49 4E 3B 20 4F |K0 JSR CHARIN; O|
00003230: 54 48 45 52 57 49 53 45 2C 20 A1 20 41 20 43 48 |THERWISE, . A CH|
00003240: 41 52 41 43 54 45 52 20 46 52 4F 4D 20 44 49 53 |ARACTER FROM DIS|
00003250: 4B AD 52 41 4D 00 86 36 58 0C 42 45 51 20 42 53 |K.RAM..6X.BEQ BS|
00003260: 46 4C 41 47 3B 20 8B 20 5A 45 52 4F 20 28 80 20 |FLAG; . ZERO (. |
00003270: 4F 46 20 4C 49 4E 45 29 20 53 45 54 20 42 46 4C |OF LINE) SET BFL|
00003280: 41 47 20 55 50 2E 00 A3 36 62 0C 43 4D 50 20 23 |AG UP...6b.CMP #|
00003290: 35 38 3B 20 4C 49 4B 45 57 49 53 45 20 8B 20 43 |58; LIKEWISE . C|
000032A0: 4F 4C 91 00 B2 36 6C 0C 42 45 51 20 42 53 46 4C |OL...6l.BEQ BSFL|
000032B0: 41 47 00 F7 36 76 0C 43 4D 50 20 23 35 39 3B 20 |AG..6v.CMP #59; |
000032C0: 53 45 4D 49 43 4F 4C 91 20 52 45 51 55 49 52 45 |SEMICOL. REQUIRE|
000032D0: 53 20 54 48 41 54 20 57 45 20 46 49 52 53 54 20 |S THAT WE FIRST |
000032E0: 46 49 4C 4C 20 54 48 45 20 43 4F 4D 4D 45 4E 54 |FILL THE COMMENT|
000032F0: 20 42 55 46 46 45 52 00 3A 37 80 0C 42 4E 45 20 | BUFFER.:7..BNE |
00003300: 57 4B 31 3B 20 20 20 20 20 20 20 20 42 45 81 45 |WK1; BE.E|
00003310: 20 53 45 54 54 49 4E 47 20 54 48 45 20 42 46 4C | SETTING THE BFL|
00003320: 41 47 20 28 49 4E 20 54 48 45 20 42 53 46 4C 41 |AG (IN THE BSFLA|
00003330: 47 20 52 4F 55 54 49 4E 45 29 00 76 37 8A 0C 4A |G ROUTINE).v7..J|
00003340: 53 52 20 50 55 4C 4C 52 45 53 54 3B 20 48 45 52 |SR PULLREST; HER|
00003350: 45 27 53 20 57 48 45 52 45 20 54 48 45 20 43 4F |E'S WHERE THE CO|
00003360: 4D 4D 45 4E 54 20 42 55 46 46 45 52 20 49 53 20 |MMENT BUFFER IS |
00003370: 46 49 4C 4C 45 44 00 9C 37 94 0C 4C 44 58 20 99 |FILLED..7..LDX .|
00003380: 46 4C 41 47 3B 20 8B 20 4E 4F 20 99 4F 55 54 20 |FLAG; . NO .OUT |
00003390: 52 45 51 55 45 53 54 45 44 2C 20 A7 00 BD 37 9E |REQUESTED, ...7.|
000033A0: 0C 53 54 58 20 42 41 42 46 4C 41 47 3B 20 44 91 |.STX BABFLAG; D.|
000033B0: 27 54 20 99 20 43 4F 4D 4D 45 4E 54 53 00 DC 37 |'T . COMMENTS..7|
000033C0: A8 0C 4A 4D 50 20 42 53 46 4C 41 47 3B 20 46 4F |..JMP BSFLAG; FO|
000033D0: 55 4E 44 20 53 45 4D 49 43 4F 4C 91 00 09 38 B2 |UND SEMICOL...8.|
000033E0: 0C 57 4B 31 20 53 54 41 20 42 55 46 4D 3B 20 50 |.WK1 STA BUFM; P|
000033F0: 55 54 20 43 48 41 52 2E 20 B5 4F 20 22 42 55 46 |UT CHAR. .O "BUF|
00003400: 4D 22 20 42 55 46 46 45 52 00 41 38 BC 0C 4C 44 |M" BUFFER.A8..LD|
00003410: 41 20 50 41 53 53 3B 20 91 20 50 41 53 53 20 31 |A PASS; . PASS 1|
00003420: 2C 20 52 41 49 53 45 20 54 48 45 20 50 43 20 91 |, RAISE THE PC .|
00003430: 4C 59 20 28 49 4E 43 53 41 29 2C 20 4E 4F 20 97 |LY (INCSA), NO .|
00003440: 53 00 4F 38 C6 0C 42 4E 45 20 57 45 52 4B 35 00 |S.O8..BNE WERK5.|
00003450: 5C 38 D0 0C 4C 44 41 20 42 55 46 4D 00 77 38 DA |\8..LDA BUFM.w8.|
00003460: 0C 43 4D 50 20 23 33 32 3B 20 49 53 20 49 54 20 |.CMP #32; IS IT |
00003470: 41 20 53 50 41 43 45 00 AC 38 E4 0C 42 4E 45 20 |A SPACE..8..BNE |
00003480: 57 45 52 4B 31 3B 20 8B 20 A8 2C 20 8E 20 81 20 |WERK1; . ., . . |
00003490: 4D B0 45 20 4F 46 20 54 48 45 20 4E 55 4D 42 45 |M.E OF THE NUMBE|
000034A0: 52 20 28 30 20 56 53 20 35 35 35 29 00 D1 38 EE |R (0 VS 555)..8.|
000034B0: 0C 4A 53 52 20 49 4E 43 53 41 3B 20 52 41 49 53 |.JSR INCSA; RAIS|
000034C0: 45 20 50 43 20 43 4F 55 4E 54 45 52 20 42 59 20 |E PC COUNTER BY |
000034D0: 31 00 EB 38 F8 0C 4A 4D 50 20 57 45 52 4B 31 3B |1..8..JMP WERK1;|
000034E0: 20 A1 20 82 20 4E 55 4D 42 45 52 00 1D 39 02 0D | . . NUMBER..9..|
000034F0: 57 45 52 4B 35 20 4C 44 41 20 42 55 46 4D 3B 20 |WERK5 LDA BUFM; |
00003500: 50 55 54 20 43 48 41 52 2E 20 B5 4F 20 99 4F 55 |PUT CHAR. .O .OU|
00003510: 54 20 4D 41 49 4E 20 42 55 46 46 45 52 00 2D 39 |T MAIN BUFFER.-9|
00003520: 0C 0D 53 54 41 20 4C 41 42 45 4C 2C 59 00 35 39 |..STA LABEL,Y.59|
00003530: 16 0D 49 4E 59 00 50 39 20 0D 43 4D 50 20 23 33 |..INY.P9 .CMP #3|
00003540: 32 3B 20 49 53 20 49 54 20 41 20 53 50 41 43 45 |2; IS IT A SPACE|
00003550: 00 5E 39 2A 0D 42 45 51 20 57 45 52 4B 32 00 7A |.^9*.BEQ WERK2.z|
00003560: 39 34 0D 43 4D 50 20 23 30 3B 20 49 53 20 49 54 |94.CMP #0; IS IT|
00003570: 20 80 20 4F 46 20 4C 49 4E 45 00 88 39 3E 0D 42 | . OF LINE..9>.B|
00003580: 45 51 20 57 45 52 4B 32 00 A0 39 48 0D 43 4D 50 |EQ WERK2..9H.CMP|
00003590: 20 23 35 38 3B 20 49 53 20 49 54 20 43 4F 4C 91 | #58; IS IT COL.|
000035A0: 00 AE 39 52 0D 42 45 51 20 57 45 52 4B 32 00 D2 |..9R.BEQ WERK2..|
000035B0: 39 5C 0D 53 54 41 20 4E 55 42 55 46 2C 58 3B 20 |9\.STA NUBUF,X; |
000035C0: 4F 54 48 45 52 57 49 53 45 2C 20 53 A4 52 45 20 |OTHERWISE, S.RE |
000035D0: 49 54 00 DA 39 66 0D 49 4E 58 00 11 3A 70 0D 4A |IT..9f.INX..:p.J|
000035E0: 4D 50 20 57 45 52 4B 31 3B 20 AF 20 8E 20 81 20 |MP WERK1; . . . |
000035F0: 4D B0 45 20 4F 46 20 54 48 45 20 4E 55 4D 42 45 |M.E OF THE NUMBE|
00003600: 52 AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |R...............|
00003610: AB 00 43 3A 7A 0D 42 53 46 4C 41 47 20 49 4E 43 |..C:z.BSFLAG INC|
00003620: 20 42 46 4C 41 47 3B 20 52 41 49 53 45 20 55 50 | BFLAG; RAISE UP|
00003630: 20 54 48 45 20 80 20 4F 46 20 4C 49 4E 45 20 46 | THE . OF LINE F|
00003640: 4C 41 47 00 7C 3A 84 0D 53 54 41 20 42 55 46 4D |LAG.|:..STA BUFM|
00003650: AA 31 3B 20 94 20 43 4F 4C 91 2C 20 53 45 4D 49 |.1; . COL., SEMI|
00003660: 43 4F 4C 91 2C 20 B0 20 57 48 41 54 45 56 45 52 |COL., . WHATEVER|
00003670: 20 81 20 4C 41 54 45 52 20 55 53 45 00 BA 3A 8E | . LATER USE..:.|
00003680: 0D 4A 4D 50 20 57 4B 31 3B 20 8E 20 81 20 4D B0 |.JMP WK1; . . M.|
00003690: 45 20 28 42 55 54 20 54 48 49 53 20 54 49 4D 45 |E (BUT THIS TIME|
000036A0: 20 49 54 20 57 49 4C 4C 20 80 20 4C 49 4E 45 29 | IT WILL . LINE)|
000036B0: 3B AB AB AB AB AB AB AB AB AB 00 F5 3A 98 0D 57 |;...........:..W|
000036C0: 45 52 4B 32 20 4C 44 41 20 23 B3 4E 55 42 55 46 |ERK2 LDA #.NUBUF|
000036D0: 3B 20 50 4F B5 20 A4 20 54 48 45 20 C6 49 49 20 |; PO. . THE .II |
000036E0: 4E 55 4D 42 45 52 20 53 A4 52 45 44 20 49 4E 20 |NUMBER S.RED IN |
000036F0: 42 41 42 55 46 00 02 3B A2 0D 53 54 41 20 54 45 |BABUF..;..STA TE|
00003700: 4D 50 00 12 3B AC 0D 4C 44 41 20 23 B1 4E 55 42 |MP..;..LDA #.NUB|
00003710: 55 46 00 21 3B B6 0D 53 54 41 20 54 45 4D 50 AA |UF.!;..STA TEMP.|
00003720: 31 00 2B 3B C0 0D 53 54 59 20 59 00 5C 3B CA 0D |1.+;..STY Y.\;..|
00003730: 4A 53 52 20 C5 44 45 43 3B 20 54 55 52 4E 20 54 |JSR .DEC; TURN T|
00003740: 48 45 20 C6 49 49 20 B5 4F 20 41 4E 20 B5 45 47 |HE .II .O AN .EG|
00003750: 45 52 20 49 4E 20 52 45 53 55 4C 54 00 6B 3B D4 |ER IN RESULT.k;.|
00003760: 0D 4C 44 58 20 52 45 53 55 4C 54 00 A3 3B DE 0D |.LDX RESULT..;..|
00003770: 4A 53 52 20 97 49 54 3B 20 97 20 54 48 45 20 52 |JSR .IT; . THE R|
00003780: 45 53 55 4C 54 20 B5 4F 20 4D 45 4D B0 59 20 28 |ESULT .O MEM.Y (|
00003790: B0 20 44 49 53 4B 20 4F 42 4A 45 43 54 20 46 49 |. DISK OBJECT FI|
000037A0: 4C 45 29 00 C9 3B E8 0D 4C 44 59 20 59 3B 20 45 |LE)..;..LDY Y; E|
000037B0: 52 41 53 45 20 54 48 45 20 4E 55 4D 42 45 52 20 |RASE THE NUMBER |
000037C0: 49 4E 20 48 45 58 42 55 46 00 D4 3B F2 0D 4C 44 |IN HEXBUF..;..LD|
000037D0: 41 20 23 30 00 DF 3B FC 0D 4C 44 58 20 23 35 00 |A #0..;..LDX #5.|
000037E0: F4 3B 06 0E 43 4C 45 58 20 53 54 41 20 4E 55 42 |.;..CLEX STA NUB|
000037F0: 55 46 2C 58 00 FC 3B 10 0E 44 45 58 00 09 3C 1A |UF,X..;..DEX..<.|
00003800: 0E 42 4E 45 20 43 4C 45 58 00 42 3C 24 0E 4A 4D |.BNE CLEX.B<$.JM|
00003810: 50 20 57 45 52 4B 31 3B 20 AF 20 A7 20 8E 20 A4 |P WERK1; . . . .|
00003820: 20 46 45 54 43 48 20 54 48 45 20 82 20 4E 55 4D | FETCH THE . NUM|
00003830: 42 45 52 3B AB AB AB AB AB AB AB AB AB AB AB AB |BER;............|
00003840: AB AB 00 85 3C 2E 0E 42 42 80 20 4C 44 41 20 50 |....<..BB. LDA P|
00003850: 41 53 53 3B 20 80 20 2E 42 59 54 45 20 4C 49 4E |ASS; . .BYTE LIN|
00003860: 45 2E 20 20 91 20 50 41 53 53 20 31 2C 20 52 41 |E. . PASS 1, RA|
00003870: 49 53 45 20 50 43 20 28 97 49 54 20 52 41 49 53 |ISE PC (.IT RAIS|
00003880: 45 53 20 49 54 00 B3 3C 38 0E 42 4E 45 20 42 42 |ES IT..<8.BNE BB|
00003890: 80 31 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |.1; |
000038A0: 20 20 20 20 20 20 20 20 20 91 20 50 41 53 53 20 | . PASS |
000038B0: 32 29 2E 00 C1 3C 42 0E 4A 53 52 20 49 4E 43 53 |2)...<B.JSR INCS|
000038C0: 41 00 F7 3C 4C 0E 42 42 80 31 20 4C 44 41 20 42 |A..<L.BB.1 LDA B|
000038D0: 55 46 4D AA 31 3B 20 8B 20 80 20 4F 46 20 4C 49 |UFM.1; . . OF LI|
000038E0: 4E 45 20 53 49 47 4E 41 4C 20 57 41 53 20 41 20 |NE SIGNAL WAS A |
000038F0: 43 4F 4C 91 2C 20 A7 00 03 3D 56 0E 43 4D 50 20 |COL., ...=V.CMP |
00003900: 23 35 38 00 48 3D 60 0E 42 45 51 20 42 45 4E 31 |#58.H=`.BEQ BEN1|
00003910: 3B 20 44 91 27 54 20 4C 4F 4F 4B 20 81 20 4C 49 |; D.'T LOOK . LI|
00003920: 4E 45 20 4E 55 4D 42 45 52 20 B0 20 80 20 4F 46 |NE NUMBER . . OF|
00003930: 20 53 4F 55 52 43 45 20 43 4F 44 45 20 46 49 4C | SOURCE CODE FIL|
00003940: 45 20 28 80 50 52 4F 29 00 5B 3D 6A 0E 42 80 50 |E (.PRO).[=j.B.P|
00003950: 52 4F 20 4A 53 52 20 80 50 52 4F 00 99 3D 74 0E |RO JSR .PRO..=t.|
00003960: 42 45 4E 31 20 53 54 41 20 43 4F 4C 46 4C 41 47 |BEN1 STA COLFLAG|
00003970: 3B 20 53 45 54 20 49 54 20 28 43 4F 4C 91 29 20 |; SET IT (COL.) |
00003980: B0 20 A8 20 28 80 50 52 4F 20 8E 53 20 57 49 54 |. . (.PRO .S WIT|
00003990: 48 20 30 20 49 4E 20 41 29 00 C2 3D 7E 0E 49 4E |H 0 IN A)..=~.IN|
000039A0: 43 20 4C 4F 43 46 4C 41 47 3B 20 52 41 49 53 45 |C LOCFLAG; RAISE|
000039B0: 20 99 AB 41 AB 50 43 AB 4C 41 42 45 4C 20 46 4C | ..A.PC.LABEL FL|
000039C0: 41 47 00 DF 3D 88 0E 50 4C 41 3B 20 50 55 4C 4C |AG..=..PLA; PULL|
000039D0: 20 52 54 53 20 46 52 4F 4D 20 53 54 41 43 4B 00 | RTS FROM STACK.|
000039E0: E7 3D 92 0E 50 4C 41 00 13 3E 9C 0E 4C 44 41 20 |.=..PLA..>..LDA |
000039F0: 50 41 53 53 3B 20 91 20 50 41 53 53 20 31 2C 20 |PASS; . PASS 1, |
00003A00: 44 91 27 54 20 99 20 41 4E 59 20 43 4F 4D 4D 45 |D.'T . ANY COMME|
00003A10: 4E 54 53 00 20 3E A6 0E 42 45 51 20 4E 4F 50 52 |NTS. >..BEQ NOPR|
00003A20: 00 59 3E B0 0E 4C 44 41 20 53 46 4C 41 47 3B 20 |.Y>..LDA SFLAG; |
00003A30: 8B 20 53 43 52 45 45 4E 46 4C 41 47 20 49 53 20 |. SCREENFLAG IS |
00003A40: 44 4F 57 4E 2C 20 44 91 27 54 20 99 20 41 4E 59 |DOWN, D.'T . ANY|
00003A50: 20 43 4F 4D 4D 45 4E 54 53 00 66 3E BA 0E 42 45 | COMMENTS.f>..BE|
00003A60: 51 20 4E 4F 50 52 00 9A 3E C4 0E 4A 4D 50 20 50 |Q NOPR..>..JMP P|
00003A70: 52 4D 4D 46 49 4E 3B 20 42 41 43 4B 20 A4 20 45 |RMMFIN; BACK . E|
00003A80: C5 20 28 57 48 45 52 45 20 43 4F 4D 4D 45 4E 54 |. (WHERE COMMENT|
00003A90: 53 20 41 52 45 20 99 45 44 29 00 CB 3E CE 0E 4E |S ARE .ED)..>..N|
00003AA0: 4F 50 52 20 4A 4D 50 20 53 54 41 52 54 4C 49 4E |OPR JMP STARTLIN|
00003AB0: 45 3B 20 42 41 43 4B 20 A4 20 45 C5 20 28 42 59 |E; BACK . E. (BY|
00003AC0: 50 41 53 BF 47 20 99 4F 55 54 29 00 F8 3E D8 0E |PAS.G .OUT)..>..|
00003AD0: 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |;...............|
00003AE0: AB AB AB AB AB AB AB AB 20 20 81 20 43 48 41 4E |........ . CHAN|
00003AF0: 47 45 20 4F 46 20 50 43 00 42 3F E2 0E 46 49 4C |GE OF PC.B?..FIL|
00003B00: 4C 44 49 53 4B 20 4C 44 41 20 50 41 53 53 3B 20 |LDISK LDA PASS; |
00003B10: 41 20 43 48 41 4E 47 45 20 4F 46 20 50 43 20 52 |A CHANGE OF PC R|
00003B20: 45 51 55 49 52 45 53 20 46 49 4C 4C 49 4E 47 20 |EQUIRES FILLING |
00003B30: 41 20 44 49 53 4B 20 4F 42 4A 45 43 54 20 46 49 |A DISK OBJECT FI|
00003B40: 4C 45 00 88 3F EC 0E 43 4D 50 20 23 32 3B 20 20 |LE..?..CMP #2; |
00003B50: 20 20 20 20 20 20 20 20 20 20 57 49 54 48 20 54 | WITH T|
00003B60: 48 45 20 52 45 51 55 49 53 49 54 45 20 4E 55 4D |HE REQUISITE NUM|
00003B70: 42 45 52 20 4F 46 20 42 59 54 45 53 20 A4 20 4D |BER OF BYTES . M|
00003B80: 41 4B 45 20 55 50 20 81 00 C9 3F F6 0E 42 4E 45 |AKE UP ...?..BNE|
00003B90: 20 46 49 4C 4C 58 3B 20 20 20 20 20 20 20 20 20 | FILLX; |
00003BA0: 54 48 45 20 41 44 56 41 4E 43 49 4E 47 20 4F 46 |THE ADVANCING OF|
00003BB0: 20 54 48 45 20 50 52 4F 47 52 41 4D 20 43 4F 55 | THE PROGRAM COU|
00003BC0: 4E 54 45 52 20 28 50 43 29 00 0B 40 00 0F 52 54 |NTER (PC)..@..RT|
00003BD0: 53 3B 20 A8 20 41 54 20 53 54 41 52 54 20 4F 46 |S; . AT START OF|
00003BE0: 20 33 52 44 20 50 41 53 53 20 28 33 52 44 20 50 | 3RD PASS (3RD P|
00003BF0: 41 53 53 20 49 53 20 4A 55 53 54 20 42 45 81 45 |ASS IS JUST BE.E|
00003C00: 20 53 48 55 54 20 44 4F 57 4E 29 00 1E 40 0A 0F | SHUT DOWN)..@..|
00003C10: 46 49 4C 4C 58 20 4A 53 52 20 9C 43 48 4E 00 29 |FILLX JSR .CHN.)|
00003C20: 40 14 0F 4C 44 58 20 23 32 00 56 40 1E 0F 4A 53 |@..LDX #2.V@..JS|
00003C30: 52 20 43 48 4B 4F 55 54 3B 20 50 55 54 20 53 50 |R CHKOUT; PUT SP|
00003C40: 41 43 45 52 53 20 49 4E 20 44 49 53 4B 46 49 4C |ACERS IN DISKFIL|
00003C50: 45 20 81 20 AC B2 00 9E 40 28 0F 53 45 43 3B 20 |E . ....@(.SEC; |
00003C60: 46 49 4E 44 20 4F 55 54 20 48 4F 57 20 4D 41 4E |FIND OUT HOW MAN|
00003C70: 59 20 53 50 41 43 45 52 53 20 A4 20 53 80 20 A4 |Y SPACERS . S. .|
00003C80: 20 44 49 53 4B 20 42 59 20 53 55 42 54 52 41 43 | DISK BY SUBTRAC|
00003C90: 54 49 4E 47 3A 52 45 53 55 4C 54 AB 53 41 00 AD |TING:RESULT.SA..|
00003CA0: 40 32 0F 4C 44 41 20 52 45 53 55 4C 54 00 B8 40 |@2.LDA RESULT..@|
00003CB0: 3C 0F 53 42 43 20 53 41 00 E4 40 46 0F 53 54 41 |<.SBC SA..@F.STA|
00003CC0: 20 57 B0 4B 3B 20 41 4E 53 57 45 52 20 48 45 4C | W.K; ANSWER HEL|
00003CD0: 44 20 49 4E 20 22 57 4F 52 4B 22 20 56 41 52 49 |D IN "WORK" VARI|
00003CE0: 41 42 4C 45 00 F5 40 50 0F 4C 44 41 20 52 45 53 |ABLE..@P.LDA RES|
00003CF0: 55 4C 54 AA 31 00 02 41 5A 0F 53 42 43 20 53 41 |ULT.1..AZ.SBC SA|
00003D00: AA 31 00 10 41 64 0F 53 54 41 20 57 B0 4B AA 31 |.1..Ad.STA W.K.1|
00003D10: 00 23 41 6E 0F 50 55 54 53 50 43 52 20 4C 44 41 |.#An.PUTSPCR LDA|
00003D20: 20 23 30 00 3E 41 78 0F 4A 53 52 20 99 3B 20 99 | #0.>Ax.JSR .; .|
00003D30: 20 53 50 41 43 45 52 20 A4 20 44 49 53 4B 00 5A | SPACER . DISK.Z|
00003D40: 41 82 0F 4C 44 41 20 57 B0 4B 3B 20 4C 4F 57 45 |A..LDA W.K; LOWE|
00003D50: 52 20 57 B0 4B 20 42 59 20 31 00 6A 41 8C 0F 42 |R W.K BY 1.jA..B|
00003D60: 4E 45 20 44 45 43 57 B0 4B 58 00 78 41 96 0F 44 |NE DECW.KX.xA..D|
00003D70: 45 43 20 57 B0 4B AA 31 00 8C 41 A0 0F 44 45 43 |EC W.K.1..A..DEC|
00003D80: 57 B0 4B 58 20 44 45 43 20 57 B0 4B 00 9C 41 AA |W.KX DEC W.K..A.|
00003D90: 0F 42 4E 45 20 50 55 54 53 50 43 52 00 AA 41 B4 |.BNE PUTSPCR..A.|
00003DA0: 0F 4C 44 41 20 57 B0 4B AA 31 00 F1 41 BE 0F 42 |.LDA W.K.1..A..B|
00003DB0: 4E 45 20 50 55 54 53 50 43 52 3B 20 50 55 54 20 |NE PUTSPCR; PUT |
00003DC0: 4D B0 45 20 53 50 41 43 45 52 53 20 49 4E 20 55 |M.E SPACERS IN U|
00003DD0: 4E 54 49 4C 20 22 57 4F 52 4B 22 20 49 53 20 44 |NTIL "WORK" IS D|
00003DE0: 45 43 8F 45 4E 54 45 44 20 54 4F 20 5A 45 52 4F |EC.ENTED TO ZERO|
00003DF0: 2E 00 06 42 C8 0F 52 45 53 46 49 4C 4C 20 4A 53 |...B..RESFILL JS|
00003E00: 52 20 9C 43 48 4E 00 1E 42 D2 0F 4C 44 58 20 23 |R .CHN..B..LDX #|
00003E10: 31 3B 20 8C 20 4E B0 4D 41 4C 20 49 AD 4F 00 2C |1; . N.MAL I.O.,|
00003E20: 42 DC 0F 4A 53 52 20 43 48 4B 49 4E 00 34 42 E6 |B..JSR CHKIN.4B.|
00003E30: 0F 52 54 53 00 50 42 F0 0F 3B AB AB AB AB AB AB |.RTS.PB..;......|
00003E40: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00003E50: 00 93 42 FA 0F 4B 45 59 57 41 44 20 53 45 43 3B |..B..KEYWAD SEC;|
00003E60: 20 53 45 45 20 4B 45 59 57 B0 44 20 41 42 4F 56 | SEE KEYW.D ABOV|
00003E70: 45 20 28 53 41 4D 45 20 4B 45 57 B0 44 20 A4 20 |E (SAME KEW.D . |
00003E80: C6 49 49 20 53 54 52 49 4E 47 20 52 4F 55 54 49 |.II STRING ROUTI|
00003E90: 4E 45 29 00 DD 42 04 10 53 42 43 20 23 24 37 46 |NE)..B..SBC #$7F|
00003EA0: 3B 20 54 48 49 53 20 49 53 20 41 20 56 45 52 53 |; THIS IS A VERS|
00003EB0: 49 91 20 4F 46 20 4B 45 59 57 B0 44 2C 20 42 55 |I. OF KEYW.D, BU|
00003EC0: 54 20 81 20 43 4F 4D 4D 45 4E 54 53 28 50 55 54 |T . COMMENTS(PUT|
00003ED0: 53 20 49 54 20 49 4E 20 42 41 42 55 46 00 18 43 |S IT IN BABUF..C|
00003EE0: 0E 10 53 54 41 20 4B 45 59 4E 55 4D 3B 20 20 20 |..STA KEYNUM; |
00003EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 | I|
00003F00: 4E 53 54 45 41 44 20 4F 46 20 4C 41 42 45 4C 20 |NSTEAD OF LABEL |
00003F10: 42 55 46 46 45 52 29 2E 00 25 43 18 10 4C 44 58 |BUFFER)..%C..LDX|
00003F20: 20 23 32 35 35 00 39 43 22 10 53 4B 45 58 20 44 | #255.9C".SKEX D|
00003F30: 45 43 20 4B 45 59 4E 55 4D 00 46 43 2C 10 42 45 |EC KEYNUM.FC,.BE|
00003F40: 51 20 46 4B 45 58 00 53 43 36 10 4B 53 58 58 20 |Q FKEX.SC6.KSXX |
00003F50: 49 4E 58 00 64 43 40 10 4C 44 41 20 4B 45 59 57 |INX.dC@.LDA KEYW|
00003F60: 44 53 2C 58 00 71 43 4A 10 42 50 4C 20 4B 53 58 |DS,X.qCJ.BPL KSX|
00003F70: 58 00 7E 43 54 10 42 4D 49 20 53 4B 45 58 00 8B |X.~CT.BMI SKEX..|
00003F80: 43 5E 10 46 4B 45 58 20 49 4E 58 00 9C 43 68 10 |C^.FKEX INX..Ch.|
00003F90: 4C 44 41 20 4B 45 59 57 44 53 2C 58 00 A9 43 72 |LDA KEYWDS,X..Cr|
00003FA0: 10 42 4D 49 20 4B 53 45 58 00 B9 43 7C 10 53 54 |.BMI KSEX..C|.ST|
00003FB0: 41 20 42 41 42 55 46 2C 59 00 C1 43 86 10 49 4E |A BABUF,Y..C..IN|
00003FC0: 59 00 CE 43 90 10 4A 4D 50 20 46 4B 45 58 00 DE |Y..C..JMP FKEX..|
00003FD0: 43 9A 10 4B 53 45 58 20 AF 20 23 24 37 46 00 E6 |C..KSEX . #$7F..|
00003FE0: 43 A4 10 52 54 53 00 FE 43 AE 10 3B AB AB AB AB |C..RTS..C..;....|
00003FF0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 0D |................|
00004000: 44 B8 10 2E 46 49 4C 45 20 4D 41 54 48 00 00 00 |D...FILE MATH...|
..+...; "INDISK" MAIN ....FROM.DISK ROUT
INE.M...;SETUP..ECTS DISK . PO. . 1ST CH
AR IN A . LINE (. BEY.D COL.).....;RESUL
TS.EITHER FLAGS . OF PROG. . FILLS LABEL
. WITH LINE OF CODE.K.(.;...............
......2.INDISK JSR CLEANLAB; FILL LABEL
WITH ZEROS (ROUTINE IN EE)...<.LDY #0.7.
F.STY HEXFLAG; PUT HEXFLAG DOWN._.P.STY
BABFLAG; PUT COMMENTS FLAG DOWN...Z.STY
BYTFLAG; PUT FLAG SHOWING . . . DOWN.E.D
.STY PLUSFLAG; PUT ARITHMETIC PSEUDO OP
(.) FLAG DOWN...N.LDA COLFLAG; . THERE W
AS A COL. JUST PRI. . THIS, .OVE ANY BLA
NKS.V.X.BNE NOBLANKS; (THIS TAKES CARE O
F: INY: LDA 15: LDX 17 TYPE ERR.S)..
...JSR CHARIN; OTHERWISE, PULL IN THE 1S
T CHARACTER (FROM DISK . RAM).I...STA LI
NEN; S.RE LOW BYTE OF LINE NUMBER.X...JS
R CHARIN... .STA LINEN.1; S.RE HIGH BYTE
OF LINE NUMBER.L...NOBLANKS JSR CHARIN;
ROUTINE . ELIMINATE BLANKS FOLLOWING A
COL..\...BNE COOLOOK.....JSR .PRO; THIS
H.LES COL.S PLACED ACCIDENTALLY AT . OF
LINE.....PLA:PLA:JMP STARTLINE.....COOLO
OK CMP #32; (. FOLLOWING A LINE NUMBER).
....BEQ NOBLANKS;.......................
....V.H.JMP MOI1; SKIP . CHECK . COL. (I
T'S EQUIEENT . AN . OF LINE 0)...R.STIND
ISK JSR CHARIN; ENTRY PO. WITHIN LINE (.
AT START OF LINE).E...MOINDI BNE MOI1;
. . ZERO, LOOK . COL......JMP .PRO; FOUN
D A 0 . OF LINE. CHECK . . OF PROGRAM (3
ZEROS).&...MOI1 CMP #58; IS IT A COL..J
...BNE XMO1; . ., CHECK . SEMICOL..E...J
MP COL.; FOUND A COL......XMO1 CMP #59;
IS IT A SEMICOL......BNE COMOA; . . .INU
E ..C.".STY A; FOUND A SEMICOL. (.)...,.
LDA .FLAG; . .OUT . REQUESTED, . D.'T S.
RE THE .ARKS...6.BEQ PULLRX.O.@.STA BABF
LAG; SET UP . COMMENTS FLAG (A MUST BE .
0 AT THIS PO.)...J.LDA A; OTHERWISE, CH
ECK Y (.D ABOVE). . ZERO, IS A SEMICOL.
AT...T.BEQ PUX; START OF THE LINE (NO L
ABELS . MNEM.ICS, JUST A BIG COMMENT)...
^.JSR PULLREST; OTHERWISE . COMMENTS FOL
LOWING THE SEMICOL..Q.H.JMP MPULL; . . .
. EE ..............................R.PU
X JSR CHARIN; PUT N..COMMENT . INTO LABE
L BUFFER...|.BEQ PUX1; . OF LINE, SO EXI
T.....CMP #127; 7TH BIT . SET (SO IT'S .
A KEYW.D IN BASIC).....BCC PUX2.-...JSR
KEYW.D; IT IS A KEYW.D, SO EXT. IT OUT
AS AN FII W.D.D...PUX2 STA LABEL,Y; PUT
THE CHAR. .O THE MAIN BUFFER.L...INY....
.JMP PUX; . . LOOP . M.E CHARACTERS.....
.................Q.B.PUX1 JSR PRNTLINE;
. THE LINE NUMBER...L.JSR PRNTSPACE; . A
SPACE.0.V.JSR PRNT.; . THE CHARACTERS I
N THE LABEL BUFFER (MAIN BUFFER).O...JSR
PRNTCR; . A CARRIAGE ......LDA #0; SET
A VARIABLE . ZERO . SIGN.Y .HING . EE .
EEUATE.....STA A.X...JMP MPULL; K . EXIT
ROUTINE................................
.....PULLREST STA BABFLAG; PUT .ARKS INT
O BABUF (BUFFER FOR COMMENTS)._...;
THIS ROUTINE .OVES (AND
SAVES) COMMENTS.....STA A; SET A VARIABL
E . SIGN.Y .HING . EE . EEUATE.T.&.LDY #
0; SET OFFSET . BABUF BUFFER . FILLING W
ITH COMMENTS...0.PAX1 JSR CHARIN; . CHAR
ACTER...:.BNE PAX; . . ZERO, .INUE.L.D.S
TA BABUF,Y; OTHERWISE, WE'RE AT THE . OF
THE COMMENT.V.N.LDY A...X.RTS; Y MUST H
OLD OFFSET . ZERO FILL (.PRO)...........
.......C.B.PAX BPL PAXA; . A KEYW.D (7TH
BIT . SET)...L.JSR KEYWAD; OTHERWISE, E
XT. KEYW.D .O AN FII STRING.+.V.PAXA STA
BABUF,Y; S.RE CHAR. IN .ARK BUFFER.3...
INY.L...JMP PAX1; . . LOOP . . A.HER CHA
RACTER...................PULLRX JSR CHAR
IN; JUST PULL IN .ARK CHARACTERS, IGNORI
NG THEM.....BEQ MPULL; LOOKING . THE . O
F LINE ZERO.....JMP PULLRX;.............
..............2...MPULL JSR .PRO; CHECK
. . OF PROGRAM . ..Y...LDA A; SEE . Y .
0. . SO, THE SEMICOL. WAS AT THE START
OF A LINE...F.BNE MPULL1...P.PLA; Y . 0
SO JUMP BACK . EE . PREPARE . . . LINE.F
.Z.PLA.....JMP STARTLINE; SEMI @ START S
O . . EE . . . LINE..........B...MPULL1
RTS; SEMICOL., BUT . AT START OF LINE (.
. CALLER).....COMOA CMP #177;..........
........ CHECK . OTHER ODD CHARACTERS...
..BEQ HI; FOUND ......CMP #179.....BEQ L
O; FOUND ..G. .CMP #170.T.*.BNE COMO...4
.INC PLUSFLAG; FOUND ....>.COMO CMP #172
...H.BNE COMO1.$.R.JMP STAR; FOUND ..6.\
.COMO1 CMP #46.W.F.BEQ PSEUDOO; FOUND PS
EUDO.OP.C.P.CMP #36...Z.BEQ HEXX; FOUND
HEX NUMBER.....CMP #127; . A KEYW.D (7TH
BIT . UP).....BCC ADDLAB.....JSR KEYW.D
; FOUND KEYW.D, SO EXT. IT .O AN FII STR
ING.2...ADDLAB STA LABEL,Y; PUT THE CHAR
ACTER .O THE MAIN BUFFER ..M...INY; RAIS
E THE PO.ER ......JMP STINDISK; . . . A.
HER CHARACTER (BUT . A LINE NUMBER).....
;.........................J.COL. STA COL
FLAG; SIGN.Y COL. BY SETTING COLFLAG...T
.RTS;.......................<...PSEUDOO
JMP PSEUDOJ; SPRINGBOARD . PSEUDO.OP H.L
ING ROUTINES.U...HEXX STA LABEL,Y; SPRIN
GBOARD . HEX NUMBER TRANSLA.R.}...INY...
..JMP HEX.G...;........ TRANSLATE A .GLE
.BYTE KEYW.D .KEN .O FII STRING.....KEYW
.D SEC; FIND NUMBER OF KEYW.D (IS IT 1ST
, 5TH, . WHAT).....SBC #$7F.O.$.STA KEYN
UM; S.RE NUMBER (.ITI.) IN BASIC'S KEYW.
D TABLE.\...LDX #255...8.SKEY DEC KEYNUM
; REDUCE NUMBER BY 1 (WHEN ZERO, WE'VE F
OUND IT IN TABLE)...B.BEQ FKEY; . WE EXI
T THIS SEARCH ROUTINE . S.RE THE FII W.D
...L.KSX INX; BRING X UP . ZERO AT START
OF LOOP.J.V.LDA KEYWDS,X; LOOK AT CHAR.
IN BASIC'S TABLE....`.BPL KSX;DID . FIN
D A SH.TED BYTE(1ST CHAR. IS SH.TED IN T
HE TABLE).W.J.BMI SKEY; DID FIND START.O
F.KEYW.D SH.TED CHARACTER ..............
..T.FKEY INX; S.RE THE KEYW.D .O LADS' M
AIN BUFFER (LABEL).#.~.LDA KEYWDS,X.I...
BMI KSET; A SH.TED CHAR. INDICATES . OF
KEYW.D, START OF . KEYW.D.....STA LABEL,
Y; PUT CHAR. .O LADS' BUFFER.....INY.T..
.JMP FKEY; LOOP AGAIN . . CHAR..........
.................KSET . #$7F.....RTS; CL
EAR OUT BIT 7 . . . CALLING ROUTINE.A.D.
;.................. H.LE . . . PSEUDO.OP
S.W.N.HI LDA #2; THE BYTFLAG HAS 3
.SIBLE STATES:...X.STA BYTFLAG;
0 . LINE DOESN'T .AIN A . . . PSEUDO
.....JMP STINDISK; 1 . . (LOW
BYTE) TYPE.....LO LDA #1; 2
. . (HIGH BYTE) TYPE.A...STA BYTFLAG;
(ACTI. IS TAKEN . THIS PSEUDO.OP W
ITHIN THE.....JMP STINDISK; EQ
UATE SUBPROGRAM). O WE FETCH THE . CHAR
......;.................. H.LE THE .. PS
EUDO.OP (CHANGE THE PC).....STAR JSR STI
NDISK.-...;LDA PASS; . PASS 1, D.'T . OU
T . TO SCREEN.<.(.;BEQ STARN.O.-.LDA #$1
8:JSR ..`.2.LDA #42; . ..J.<.JSR ....F.J
SR PRNT.; . STRING IN LABEL BUFFER...P.J
SR PRNTCR; . CARRIAGE ....Z.STARN LDA HE
XFLAG; . HEX, THE ARGUMENT HAS AL.Y BEEN
FIGURED...D.BNE STARR; SO JUMP OVER THI
S . PART.#.N.LDY #0.8.X.STAF LDA LABEL,Y
.D...CMP #32.R...BEQ STAF1.Z...INY... .J
MP STAF; FIND NUMBER (BY LOOKING . THE B
LANK: .. 15).....STAF1 INY.A...STY TEMP;
PO. . FII NUMBER.Q...LDA #.LABEL.Y.H.CL
C...R.ADC TEMP.....STA TEMP.....LDA #.LA
BEL.....ADC #0.....STA TEMP.1.U...JSR ED
EC; TRANSLATE FII NUMBER .O .EGER (IN RE
SULT).....STARR LDA PASS; . PASS 1, LEAV
E DISK OBJECT FILE AL.E......BEQ STARRX.
..".LDA DISKFLAG; . PASS 2, WE'VE KT . S
TUFF THE DISK OBJECT FILE.,.,.BEQ STARRX
; . THE DISKFLAG IS UP (WE ARE CREATING
AN OBJECT CODE FILE).W.6.JSR FILLDISK; F
ILLDISK DOES THIS . US....@.STARRX LDA R
ESULT; PUT THE ARGUMENT OF .. .O THE PC
(SA)...J.STA SA...T.LDA RESULT.1...^.STA
SA.1.Y.H.PLA; PULL OFF THE RTS ....R.PL
A...|.JMP STARTLINE; . . EE . THE . LINE
OF CODE.P...;.................. IS THIS
THE . OF THE ENTIRE SOURCE CODE......PR
O STA LABEL,Y; PUT THE ZERO (THAT SENT U
S HERE) .O THE MAIN BUFFER.....INY.....C
PY #80.Y...BNE .PRO; FILL REST OF BUFFER
WITH 00S.....STA LABEL,Y.* B.JSR CHARIN
; PULL IN THE . 2 BYTES. . THEY ARE BOT
H ZEROS, ..P L.JSR CHARIN; WE HAVE, IN F
ACT, FOUND THE . OF OUR SOURCE CODE FILE
.. V.BEQ IN.; . WE BEQ . IN..R ..LDA #0;
OTHERWISE WE PUT THE COLFLAG (COL.) DOW
N, BECAUSE THIS IS..!..STA COLFLAG; AN .
OF LINE C.DITI., . A COL...!..RTS; . .
. CALLER.\!..IN. LDA #1;........ SET . O
F SOURCE CODE FILE FLAG . UP C.DITI..J!.
.STA .FLAG..!..RTS; . . . CALLER.C!..;..
...................... CHANGE A HEX NUMB
ER . A 2.BYTE .EGER.."&.; PULL IN . FEW
BYTES, TURNING THEM .O AN .EGER IN RESUL
T.?"0.HEX LDX #0; PUTS .EGER EQUIEENT OF
INCOMING HEX .O RESULT.Q":.H1 JSR CHARI
N.X"D.BEQ DECI; . OF LINE (SO . LOOKING)
.."N.CMP #58.."X.BEQ DECI; COL. (SO . LO
OKING).."B.CMP #32.."L.BEQ H1; BLANK CHA
RACTER SO KEEP LOOKING . . OF LINE.."V.C
MP #59..#..BEQ DECI; SEMICOL. (SO . LOOK
ING).(#..CMP #44.F#..BEQ DECIT; COMMA (S
O . LOOKING, BUT K . A D.FERENT PLACE)..
#..CMP #41; (THIS "DIFFERENT PLACE" H.LE
S A ....OF.LINE C.DITI.)..W#..BEQ DECIT;
PARENTHESIS ) (SO . LOOKING)..$..STA
HEXBUF,X; OTHERWISE, PUT THE FII.STYLE.H
EX CHAR. IN BUFFER ..7$..INX; RAISE THE
INDEX ..M$F.STA LABEL,Y; ALSO S.RE IT .O
MAIN BUFFER . .OUT ...$P.INY; RAISE THI
S INDEX .O.J$Z.JMP H1; . KEEP . PUTTING
HEX NUMBER .O HEXBUFFER.............$..D
ECIT STX HEXC; . CGTH OF FII.HEX NUMBER.
A%..STA LABEL,Y; FINISH S.RING CHARS. .O
MAIN BUFFER (, . ) IN THIS CASE).I%..IN
Y..%..JSR STARTHEX; TRANSLATE FII.HEX NU
MBER .O .EGER IN RESULT VARIABLE.K%..JMP
STINDISK; . . PULL IN REST OF THE LINE;
.............&..DECI STA A; . THE . OF L
INE, COL., . SEMICOL. CHAR. . LATER..& .
LDA #0.=&*.STX HEXC; . CGTH OF FII.HEX N
UMBER..&4.STA LABEL,Y; FINISH S.RING CHA
RS. .O MAIN BUFFER (0 IN THIS CASE).J&>.
JSR STARTHEX; TRANSLATE FII.HEX NUMBER .
O .EGER IN RESULT VARIABLE..'H.LDA A; RE
TRIEVE 0 . COL. . SEMICOL. . K BACK UP .
MOINDI WHICH.W'R.JMP MOINDI;...........
...... BEHAVES ACC.DING . WHICH SYMBOL A
HOLDS...'\.STARTHEX LDA #0;............
..... HEX.FII . .EGER TRANSLA.R........'
F.STA RESULT; SET RESULT . ZERO.P'P.STA
RESULT.1..'Z.TAX; SET X . ZERO.-(..HXLOO
P ASL RESULT; SH.T . ROLL (MOVES 2.BYTE
BITS . THE LEFT)......P(..ROL RESULT.1;
DOING THIS 8 TIMES HAS THE EFFECT OF BRI
NGING IN..(..ASL RESULT; THE FII NUMBER,
1 BYTE AT A TIME, . TRANS.MING IT..(..R
OL RESULT.1; .O A 2.BYTE .EGER WITHIN TH
IS 2.BYTE VARIABLE WE'RE..)..ASL RESULT;
CALLING "RESULT.".+)..ROL RESULT.1.:)..
ASL RESULT.K)J.ROL RESULT.1.~)T.LDA HEXB
UF,X; . A BYTE FROM THE FII.HEX NUMBER.G
)..CMP #65; . IT'S LOWER THAN 65, IT'S .
AN ALPHABETIC (A.F) HEX NUMBER..)..BCC
HXM.E; SO D.'T SUBTRACT 7 FROM IT.(*..SB
C #7; BUT . IT'S . 65, . .7. . 65. 65
.7 . 58..C*..HXM.E . #15; WHEN YOU 58 .
15, YOU . 10 (THE EUE OF A)..*...A RESUL
T; #15 (00001111) . #58 (00111010) . 00
001010 (TEN).K*..STA RESULT; PUT THE BYT
E .O RESULT..*..INX; RAISE THE INDEX..+$
.CPX HEXC; ARE WE AT THE . OF OUR FII.HE
X NUMBER.3+..BNE HXLOOP; . ., .INUE.W+8.
INC HEXFLAG; . SO, RAISE HEXFLAG (. SHOW
RESULT HAS THE ANSWER)..+B.LDA #1; . .
. CALLER..+L.RTS..+V.;..................
......X+`.; H.LE PSEUDOS. (.BYTE TYPES)
..,J.PSEUDOJ CPY #0; . Y . 0 . IT'S . A
PC LABEL LIKE (LABEL .BYTE 0 0).,,T.BEQ
PSE2.U,~.LDX PASS; OTHERWISE, . 1ST PASS
, S.RE LABEL NAME . PC ADDR. IN ARRAY..,
..BNE PSE2..,..PHA; . A . Y REGISTERS..,
..TYA..,..PHA..,..JSR EQUATE; NAME . PC
ADDR. S.RED IN ARRAY..-..PLA; PULL OUT A
. Y REGISTERS (. THEM)..-D.TAY..-N.PLA.
:-X.PSE2 STA LABEL,Y; S.RE . CHAR..B-..I
NY.S-..JSR CHARIN; . CHAR. FOLLOWING THE
PERIOD (.)..-..STA LABEL,Y..-..INY..-..
CMP #66; IS IT "B" . .BYTE.G-..BNE PSEUD
1; WASN'T .BYTE.....LDA #0; RESET FLAG W
HICH WILL DISTINGUISH BETWEEN .BYTE 0 .
.BYTE "A.U.(.STA BNUMFLAG; " TYPE, OR 00
08 15 172 TYPE (THE TWO .BYTE TYPES).}.
2.LDA PASS; . .HING . SCREEN . PASS 1...
<.BEQ CLB...F.STY Y; . Y REGISTER (OUR I
NDEX)...P.; NOW WE R
EPLICATE THE ACTI.S OF INLINE (IN EE)../
Z.LDA SFLAG; SHOULD WE . . SCREEN.)/D.BE
Q CLB; NO.N/N.JSR PRNTLINE; YES, . LINE
NUMBER.I/X.JSR PRNTSPACE; . SPACE../..JS
R PRNTSA; . PC ADDRESS../..JSR PRNTSPACE
; . SPACE../..LDY Y; RECOVER Y INDEX../
.CLB JSR CHARIN; PULL IN CHARACTER FROM
DISK.RAM..0..STA LABEL,Y; S.RE IN MAIN B
UFFER..0..INY.80..CMP #32; IS IT A SPACE
.V0H.BNE CLB; . ., .INUE PULLING IN M.E
CHARACTERS..............0R.JSR CHARIN; (
WE'RE LOOKING . THE 1ST SPACE AFTER .BYT
E).O0..STA LABEL,Y; S.RE . .ING.W0..INY.
"1..CMP #34; IS THE CHARACTER A QUOTE ("
). IF SO, IT'S A .BYTE "ABCD TYPE.P1..B
NE BNUMWERK; OTHERWISE IT'S . THE " TYPE
..1..BY1 JSR CHARIN;.......... H.LE FII
STRING .BYTE TYPES..1..BNE BY2.F1..JMP
B.PRO; FOUND A 0 . OF LINE (. PROGRAM)..
1".BY2 CMP #58; FOUND A COL. "END OF LIN
E"..1,.BNE BY2X..26.JMP BEN1; FOUND A CO
L..K2@.BY2X CMP #59; FOUND A SEMICOL. "E
ND OF LINE".W2J.BNE BY3..2T.JSR PULLREST
; S.RE COMMENTS IN COMMENT BUFFER (BABUF
)..2^.LDX .FLAG; . NO .OUT REQUESTED, ..
X2H.STX BABFLAG; D.'T . COMMENTS..3R.JMP
B.PRO; A SEMICOL. SO . THIS ROUTINE IN
THAT WAY..F3|.BY3 CMP #34; HAVE WE FOUND
A C.CLUDING QUOTE (").S3..BNE BY3X.W3..
JMP BY1; FOUND A " SO IGNORE IT..3..BY3X
LDX PASS; . PASS 1, JUST RAISE PC COUNT
ER (INCSA); D.'T . IT..M3..BNE PSLOOP..3
..JSR INCSA..3..JMP BY1;................
..@4B.PSEUD1 JMP PSEUDO; SOME OTHER PSEU
DO TYPE, . .BYTE (A SPRINGBOARD)..4L.PSL
OOP STA LABEL,Y; S.RE A CHARACTER IN MAI
N BUFFER;..............4V.TAX..4..STY Y;
. Y INDEX..4..JSR .IT; PASS 2, SO . IT
.O MEM.Y (THE FII CHARACTER)..4..LDY Y;
. Y..5..INY; RAISE INDEX ...5..JMP BY1;
. . CHARACTER.Z5..BNUMWERK LDX #0;......
.. H.LE .BYTE 1 2 3 (NUMERIC TYPE)..5..S
TX BFLAG; PUT DOWN BFLAG (. OF LINE SIGN
AL).E5&.STA NUBUF,X; WE'RE B.ROWING THE
NUBUF . THIS ROUTINE..M50.INX..5:.WERK1
LDA BFLAG; . BFLAG IS UP, WE'RE D.E...6D
.BNE BB.; SO K . . ROUTINE.U6N.WK0 JSR C
HARIN; OTHERWISE, . A CHARACTER FROM DIS
K.RAM..6X.BEQ BSFLAG; . ZERO (. OF LINE)
SET BFLAG UP...6B.CMP #58; LIKEWISE . C
OL...6L.BEQ BSFLAG..6V.CMP #59; SEMICOL.
REQUIRES THAT WE FIRST FILL THE COMMENT
BUFFER.:7..BNE WK1; BE.E SETTING
THE BFLAG (IN THE BSFLAG ROUTINE).V7..J
SR PULLREST; HERE'S WHERE THE COMMENT BU
FFER IS FILLED..7..LDX .FLAG; . NO .OUT
REQUESTED, ...7..STX BABFLAG; D.'T . COM
MENTS..7..JMP BSFLAG; FOUND SEMICOL...8.
.WK1 STA BUFM; PUT CHAR. .O "BUFM" BUFFE
R.A8..LDA PASS; . PASS 1, RAISE THE PC .
LY (INCSA), NO .S.O8F.BNE WERK5.\8P.LDA
BUFM.W8Z.CMP #32; IS IT A SPACE..8..BNE
WERK1; . ., . . M.E OF THE NUMBER (0 VS
555).Q8..JSR INCSA; RAISE PC COUNTER BY
1..8..JMP WERK1; . . NUMBER..9..WERK5 LD
A BUFM; PUT CHAR. .O .OUT MAIN BUFFER.-9
..STA LABEL,Y.59..INY.P9 .CMP #32; IS IT
A SPACE.^9*.BEQ WERK2.Z94.CMP #0; IS IT
. OF LINE..9>.BEQ WERK2. 9H.CMP #58; IS
IT COL...9R.BEQ WERK2.R9\.STA NUBUF,X;
OTHERWISE, S.RE IT.Z9F.INX..:P.JMP WERK1
; . . . M.E OF THE NUMBER...............
..C:Z.BSFLAG INC BFLAG; RAISE UP THE . O
F LINE FLAG.|:..STA BUFM.1; . COL., SEMI
COL., . WHATEVER . LATER USE..:..JMP WK1
; . . M.E (BUT THIS TIME IT WILL . LINE)
;...........:..WERK2 LDA #.NUBUF; PO. .
THE FII NUMBER S.RED IN BABUF..;..STA TE
MP..;..LDA #.NUBUF.!;..STA TEMP.1.+;..ST
Y Y.\;J.JSR EDEC; TURN THE FII .O AN .EG
ER IN RESULT.K;T.LDX RESULT..;..JSR .IT;
. THE RESULT .O MEM.Y (. DISK OBJECT FI
LE).I;..LDY Y; ERASE THE NUMBER IN HEXBU
F.T;..LDA #0..;..LDX #5..;..CLEX STA NUB
UF,X..;..DEX..<..BNE CLEX.B<$.JMP WERK1;
. . . . FETCH THE . NUMBER;............
....<..BB. LDA PASS; . .BYTE LINE. . PA
SS 1, RAISE PC (.IT RAISES IT..<8.BNE BB
.1; . PASS 2)..A<B.
JSR INCSA..<L.BB.1 LDA BUFM.1; . . OF LI
NE SIGNAL WAS A COL., ...=V.CMP #58.H=`.
BEQ BEN1; D.'T LOOK . LINE NUMBER . . OF
SOURCE CODE FILE (.PRO).[=J.B.PRO JSR .
PRO..=T.BEN1 STA COLFLAG; SET IT (COL.)
. . (.PRO .S WITH 0 IN A).B=~.INC LOCFLA
G; RAISE ..A.PC.LABEL FLAG..=..PLA; PULL
RTS FROM STACK..=..PLA..>..LDA PASS; .
PASS 1, D.'T . ANY COMMENTS. >..BEQ NOPR
.Y>..LDA SFLAG; . SCREENFLAG IS DOWN, D.
'T . ANY COMMENTS.F>..BEQ NOPR..>D.JMP P
RMMFIN; BACK . EE (WHERE COMMENTS ARE .E
D).K>N.NOPR JMP STARTLINE; BACK . EE (BY
PAS.G .OUT)..>X.;.......................
. CHANGE OF PC.B?..FILLDISK LDA PASS;
A CHANGE OF PC REQUIRES FILLING A DISK O
BJECT FILE..?..CMP #2; WITH T
HE REQUISITE NUMBER OF BYTES . MAKE UP .
.I?..BNE FILLX; THE ADVANCING OF
THE PROGRAM COUNTER (PC)..@..RTS; . AT
START OF 3RD PASS (3RD PASS IS JUST BE.E
SHUT DOWN)..@..FILLX JSR .CHN.)@..LDX #
2.V@..JSR CHKOUT; PUT SPACERS IN DISKFIL
E . ....@(.SEC; FIND OUT HOW MANY SPACER
S . S. . DISK BY SUBTRACTING:RESULT.SA..
@2.LDA RESULT..@<.SBC SA..@F.STA W.K; AN
SWER HELD IN "WORK" VARIABLE..@P.LDA RES
ULT.1..AZ.SBC SA.1..AD.STA W.K.1.#AN.PUT
SPCR LDA #0.>AX.JSR .; . SPACER . DISK.Z
A..LDA W.K; LOWER W.K BY 1.JA..BNE DECW.
KX.XA..DEC W.K.1..A .DECW.KX DEC W.K..A.
.BNE PUTSPCR..A..LDA W.K.1..A..BNE PUTSP
CR; PUT M.E SPACERS IN UNTIL "WORK" IS D
EC.ENTED TO ZERO...BH.RESFILL JSR .CHN..
BR.LDX #1; . N.MAL I.O.,B..JSR CHKIN.4B.
.RTS.PB..;........................B..KEY
WAD SEC; SEE KEYW.D ABOVE (SAME KEW.D .
FII STRING ROUTINE)..B..SBC #$7F; THIS I
S A VERSI. OF KEYW.D, BUT . COMMENTS(PUT
S IT IN BABUF..C..STA KEYNUM;
INSTEAD OF LABEL BUFFER)..%C..LDX
#255.9C".SKEX DEC KEYNUM.FC,.BEQ FKEX.S
C6.KSXX INX.DC@.LDA KEYWDS,X.QCJ.BPL KSX
X.~CT.BMI SKEX..C^.FKEX INX..CH.LDA KEYW
DS,X..CR.BMI KSEX..C|.STA BABUF,Y.AC..IN
Y.NC..JMP FKEX..C..KSEX . #$7F..C..RTS..
C..;....................D...FILE MATH...
> CLICK IMAGE PREVIEW FOR FULL MODAL