/ Loadstar Extras 3 / Ex3side2.d64 / unidir source

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 80 0d 45 4e 20 3d 24 | 46 46 43 30 0d 53 54 4f |...EN =$|FFC0.STO|
|00000010| 50 20 3d 20 24 46 46 45 | 31 0d 52 45 41 44 53 54 |P = $FFE|1.READST|
|00000020| 20 3d 24 46 46 42 37 0d | 53 45 54 4c 46 53 20 3d | =$FFB7.|SETLFS =|
|00000030| 24 46 46 42 41 0d 53 45 | 54 4e 41 4d 20 3d 24 46 |$FFBA.SE|TNAM =$F|
|00000040| 46 42 44 0d 4c 4f 41 44 | 20 3d 24 46 46 44 35 0d |FBD.LOAD| =$FFD5.|
|00000050| 47 45 54 49 4e 20 3d 24 | 46 46 45 34 0d 43 4c 52 |GETIN =$|FFE4.CLR|
|00000060| 43 48 4e 20 3d 24 46 46 | 43 43 0d 43 4c 4f 53 45 |CHN =$FF|CC.CLOSE|
|00000070| 20 3d 24 46 46 43 33 20 | 20 20 3b 41 0d 43 48 52 | =$FFC3 |  ;A.CHR|
|00000080| 49 4e 20 3d 24 46 46 43 | 46 0d 43 48 4b 4f 55 54 |IN =$FFC|F.CHKOUT|
|00000090| 20 3d 24 46 46 43 39 20 | 20 3b 58 0d 43 48 4b 49 | =$FFC9 | ;X.CHKI|
|000000a0| 4e 20 3d 24 46 46 43 36 | 20 20 20 3b 58 0d 50 4c |N =$FFC6|   ;X.PL|
|000000b0| 4f 54 20 3d 24 46 46 46 | 30 0d 43 48 52 4f 55 54 |OT =$FFF|0.CHROUT|
|000000c0| 20 3d 24 46 46 44 32 0d | 43 4f 4c 4f 52 27 50 4f | =$FFD2.|COLOR'PO|
|000000d0| 49 4e 54 45 52 20 3d 32 | 34 33 0d 53 43 52 45 45 |INTER =2|43.SCREE|
|000000e0| 4e 27 4c 49 4e 45 27 50 | 4f 49 4e 54 45 52 20 3d |N'LINE'P|OINTER =|
|000000f0| 32 30 39 0d 50 52 49 4e | 54 27 4e 55 4d 42 45 52 |209.PRIN|T'NUMBER|
|00000100| 20 3d 24 42 44 43 44 20 | 3b 58 2c 41 0d 43 4c 45 | =$BDCD |;X,A.CLE|
|00000110| 41 52 27 4c 49 4e 45 20 | 3d 35 39 39 30 33 0d 42 |AR'LINE |=59903.B|
|00000120| 41 43 4b 47 52 4f 55 4e | 44 20 3d 35 33 32 38 31 |ACKGROUN|D =53281|
|00000130| 0d 42 4f 52 44 45 52 20 | 3d 35 33 32 38 30 0d 55 |.BORDER |=53280.U|
|00000140| 4e 4c 49 53 54 45 4e 20 | 3d 24 46 46 41 45 0d 43 |NLISTEN |=$FFAE.C|
|00000150| 4c 41 4c 4c 20 3d 24 46 | 46 45 37 0d 53 54 52 4f |LALL =$F|FE7.STRO|
|00000160| 55 54 20 3d 24 41 42 31 | 45 0d 0d 2e 4f 52 47 20 |UT =$AB1|E...ORG |
|00000170| 24 43 30 30 30 0d 2e 4d | 45 4d 0d 2e 4f 42 4a 20 |$C000..M|EM..OBJ |
|00000180| 22 40 30 3a 55 4e 49 44 | 49 52 20 43 30 30 30 22 |"@0:UNID|IR C000"|
|00000190| 0d 4c 44 41 20 23 30 0d | 53 54 41 20 50 52 49 4e |.LDA #0.|STA PRIN|
|000001a0| 54 45 52 0d 53 54 41 20 | 35 33 32 38 31 0d 53 54 |TER.STA |53281.ST|
|000001b0| 41 20 35 33 32 38 30 0d | 53 54 41 20 44 45 4c 0d |A 53280.|STA DEL.|
|000001c0| 53 54 41 20 43 4d 44 0d | 53 54 41 20 43 4f 55 4e |STA CMD.|STA COUN|
|000001d0| 54 0d 53 54 41 20 42 4c | 4f 43 4b 53 0d 53 54 41 |T.STA BL|OCKS.STA|
|000001e0| 20 42 4c 4f 43 4b 53 2b | 31 0d 4c 44 41 20 23 32 | BLOCKS+|1.LDA #2|
|000001f0| 0d 4a 53 52 20 43 4c 4f | 53 45 0d 4c 44 41 20 23 |.JSR CLO|SE.LDA #|
|00000200| 31 35 0d 4a 53 52 20 43 | 4c 4f 53 45 0d 4a 53 52 |15.JSR C|LOSE.JSR|
|00000210| 20 47 45 54 27 4e 55 4d | 42 45 52 0d 53 54 59 20 | GET'NUM|BER.STY |
|00000220| 44 45 56 49 43 45 0d 53 | 54 41 20 50 52 49 4e 54 |DEVICE.S|TA PRINT|
|00000230| 45 52 0d 4a 53 52 20 47 | 45 54 27 4e 55 4d 42 45 |ER.JSR G|ET'NUMBE|
|00000240| 52 0d 53 54 59 20 44 45 | 4c 0d 4c 44 41 20 23 31 |R.STY DE|L.LDA #1|
|00000250| 0d 4c 44 58 20 3c 49 4e | 41 4d 45 0d 4c 44 59 20 |.LDX <IN|AME.LDY |
|00000260| 3e 49 4e 41 4d 45 0d 4a | 53 52 20 53 45 54 4e 41 |>INAME.J|SR SETNA|
|00000270| 4d 0d 4c 44 41 20 23 31 | 35 0d 4c 44 58 20 44 45 |M.LDA #1|5.LDX DE|
|00000280| 56 49 43 45 0d 4c 44 59 | 20 23 31 35 0d 4a 53 52 |VICE.LDY| #15.JSR|
|00000290| 20 53 45 54 4c 46 53 0d | 4a 53 52 20 4f 50 45 4e | SETLFS.|JSR OPEN|
|000002a0| 0d 4a 53 52 20 43 4c 52 | 43 48 4e 0d 0d 43 48 45 |.JSR CLR|CHN..CHE|
|000002b0| 43 4b 27 43 4d 44 20 4c | 44 58 20 23 31 35 0d 4a |CK'CMD L|DX #15.J|
|000002c0| 53 52 20 43 48 4b 4f 55 | 54 0d 4c 44 59 20 23 30 |SR CHKOU|T.LDY #0|
|000002d0| 0d 2d 20 4c 44 41 20 4d | 41 4b 45 27 45 52 52 4f |.- LDA M|AKE'ERRO|
|000002e0| 52 2c 59 0d 4a 53 52 20 | 43 48 52 4f 55 54 0d 49 |R,Y.JSR |CHROUT.I|
|000002f0| 4e 59 0d 43 50 59 20 23 | 34 0d 42 4e 45 20 2d 0d |NY.CPY #|4.BNE -.|
|00000300| 0d 4a 53 52 20 43 4c 52 | 43 48 4e 0d 4c 44 58 20 |.JSR CLR|CHN.LDX |
|00000310| 23 31 35 0d 4a 53 52 20 | 43 48 4b 49 4e 0d 4c 44 |#15.JSR |CHKIN.LD|
|00000320| 59 20 23 30 0d 2d 20 4a | 53 52 20 47 45 54 49 4e |Y #0.- J|SR GETIN|
|00000330| 0d 53 54 41 20 42 55 46 | 46 45 52 2c 59 0d 49 4e |.STA BUF|FER,Y.IN|
|00000340| 59 0d 43 4d 50 20 23 31 | 33 0d 42 4e 45 20 2d 0d |Y.CMP #1|3.BNE -.|
|00000350| 0d 4c 44 41 20 42 55 46 | 46 45 52 0d 43 4d 50 20 |.LDA BUF|FER.CMP |
|00000360| 42 55 46 46 45 52 2b 31 | 0d 42 4e 45 20 2b 0d 43 |BUFFER+1|.BNE +.C|
|00000370| 4d 50 20 22 37 22 0d 42 | 4e 45 20 2b 0d 0d 4c 44 |MP "7".B|NE +..LD|
|00000380| 41 20 23 31 0d 53 54 41 | 20 43 4d 44 0d 0d 2b 20 |A #1.STA| CMD..+ |
|00000390| 4c 44 58 20 23 31 35 0d | 4a 53 52 20 43 48 4b 4f |LDX #15.|JSR CHKO|
|000003a0| 55 54 0d 4c 44 41 20 22 | 49 22 0d 4a 53 52 20 43 |UT.LDA "|I".JSR C|
|000003b0| 48 52 4f 55 54 0d 4c 44 | 41 20 23 31 33 0d 4a 53 |HROUT.LD|A #13.JS|
|000003c0| 52 20 43 48 52 4f 55 54 | 0d 0d 4a 53 52 20 43 4c |R CHROUT|..JSR CL|
|000003d0| 52 43 48 4e 0d 4c 44 41 | 20 23 32 0d 4c 44 58 20 |RCHN.LDA| #2.LDX |
|000003e0| 3c 4e 41 4d 45 0d 4c 44 | 59 20 3e 4e 41 4d 45 0d |<NAME.LD|Y >NAME.|
|000003f0| 4a 53 52 20 53 45 54 4e | 41 4d 0d 4c 44 41 20 23 |JSR SETN|AM.LDA #|
|00000400| 32 0d 4c 44 58 20 44 45 | 56 49 43 45 0d 4c 44 59 |2.LDX DE|VICE.LDY|
|00000410| 20 23 32 0d 4a 53 52 20 | 53 45 54 4c 46 53 0d 4a | #2.JSR |SETLFS.J|
|00000420| 53 52 20 4f 50 45 4e 0d | 0d 4c 44 41 20 50 52 49 |SR OPEN.|.LDA PRI|
|00000430| 4e 54 45 52 0d 42 45 51 | 20 42 45 47 49 4e 0d 4c |NTER.BEQ| BEGIN.L|
|00000440| 44 41 20 23 34 0d 4a 53 | 52 20 43 4c 4f 53 45 0d |DA #4.JS|R CLOSE.|
|00000450| 4c 44 41 20 23 30 0d 54 | 41 59 0d 54 41 58 0d 4a |LDA #0.T|AY.TAX.J|
|00000460| 53 52 20 53 45 54 4e 41 | 4d 0d 4c 44 41 20 23 34 |SR SETNA|M.LDA #4|
|00000470| 0d 4c 44 58 20 23 34 0d | 4c 44 59 20 23 37 0d 4a |.LDX #4.|LDY #7.J|
|00000480| 53 52 20 53 45 54 4c 46 | 53 0d 4a 53 52 20 4f 50 |SR SETLF|S.JSR OP|
|00000490| 45 4e 0d 0d 42 45 47 49 | 4e 20 4a 53 52 20 46 49 |EN..BEGI|N JSR FI|
|000004a0| 4c 4c 27 42 55 46 46 45 | 52 0d 4c 44 41 20 23 31 |LL'BUFFE|R.LDA #1|
|000004b0| 33 0d 53 54 41 20 36 34 | 36 0d 4c 44 41 20 42 55 |3.STA 64|6.LDA BU|
|000004c0| 46 46 45 52 2b 32 0d 53 | 54 41 20 44 52 49 56 45 |FFER+2.S|TA DRIVE|
|000004d0| 27 54 59 50 45 0d 43 4d | 50 20 23 36 35 0d 42 4e |'TYPE.CM|P #65.BN|
|000004e0| 45 20 2b 0d 4c 44 41 20 | 3c 46 4c 4f 50 50 59 0d |E +.LDA |<FLOPPY.|
|000004f0| 4c 44 59 20 3e 46 4c 4f | 50 50 59 0d 4a 53 52 20 |LDY >FLO|PPY.JSR |
|00000500| 53 54 52 4f 55 54 0d 4c | 44 41 20 42 55 46 46 45 |STROUT.L|DA BUFFE|
|00000510| 52 2b 33 0d 43 4d 50 20 | 23 31 32 38 0d 42 4e 45 |R+3.CMP |#128.BNE|
|00000520| 20 50 52 49 4e 54 27 53 | 49 4e 47 4c 45 0d 4c 44 | PRINT'S|INGLE.LD|
|00000530| 41 20 3c 44 4f 55 42 4c | 45 0d 4c 44 59 20 3e 44 |A <DOUBL|E.LDY >D|
|00000540| 4f 55 42 4c 45 0d 4a 53 | 52 20 53 54 52 4f 55 54 |OUBLE.JS|R STROUT|
|00000550| 0d 4a 4d 50 20 47 45 54 | 27 48 45 41 44 45 52 0d |.JMP GET|'HEADER.|
|00000560| 0d 50 52 49 4e 54 27 53 | 49 4e 47 4c 45 20 4c 44 |.PRINT'S|INGLE LD|
|00000570| 41 20 3c 53 49 4e 47 4c | 45 0d 4c 44 59 20 3e 53 |A <SINGL|E.LDY >S|
|00000580| 49 4e 47 4c 45 0d 4a 53 | 52 20 53 54 52 4f 55 54 |INGLE.JS|R STROUT|
|00000590| 0d 4a 4d 50 20 47 45 54 | 27 48 45 41 44 45 52 0d |.JMP GET|'HEADER.|
|000005a0| 0d 2b 20 43 4d 50 20 23 | 36 38 0d 42 4e 45 20 2b |.+ CMP #|68.BNE +|
|000005b0| 0d 4c 44 41 20 3c 54 48 | 52 45 45 44 0d 4c 44 59 |.LDA <TH|REED.LDY|
|000005c0| 20 3e 54 48 52 45 45 44 | 0d 4a 53 52 20 53 54 52 | >THREED|.JSR STR|
|000005d0| 4f 55 54 0d 4a 4d 50 20 | 47 45 54 27 48 45 41 44 |OUT.JMP |GET'HEAD|
|000005e0| 45 52 0d 0d 2b 20 43 4d | 50 20 23 37 32 0d 42 4e |ER..+ CM|P #72.BN|
|000005f0| 45 20 2b 0d 4c 44 41 20 | 3c 48 44 4e 41 4d 45 0d |E +.LDA |<HDNAME.|
|00000600| 4c 44 59 20 3e 48 44 4e | 41 4d 45 0d 4a 53 52 20 |LDY >HDN|AME.JSR |
|00000610| 53 54 52 4f 55 54 0d 4c | 44 41 20 23 30 0d 4c 44 |STROUT.L|DA #0.LD|
|00000620| 59 20 23 33 34 0d 2d 20 | 4f 52 41 20 42 55 46 46 |Y #34.- |ORA BUFF|
|00000630| 45 52 2c 59 0d 49 4e 59 | 0d 43 50 59 20 23 33 39 |ER,Y.INY|.CPY #39|
|00000640| 0d 42 4e 45 20 2d 0d 43 | 4d 50 20 23 30 0d 42 45 |.BNE -.C|MP #0.BE|
|00000650| 51 20 50 52 49 4e 54 27 | 52 4f 4f 54 0d 0d 4c 44 |Q PRINT'|ROOT..LD|
|00000660| 41 20 3c 53 55 42 44 49 | 52 0d 4c 44 59 20 3e 53 |A <SUBDI|R.LDY >S|
|00000670| 55 42 44 49 52 0d 4a 53 | 52 20 53 54 52 4f 55 54 |UBDIR.JS|R STROUT|
|00000680| 0d 4a 4d 50 20 47 45 54 | 27 48 45 41 44 45 52 0d |.JMP GET|'HEADER.|
|00000690| 0d 50 52 49 4e 54 27 52 | 4f 4f 54 20 4c 44 41 20 |.PRINT'R|OOT LDA |
|000006a0| 3c 52 4f 4f 54 0d 4c 44 | 59 20 3e 52 4f 4f 54 0d |<ROOT.LD|Y >ROOT.|
|000006b0| 4a 53 52 20 53 54 52 4f | 55 54 0d 4a 4d 50 20 47 |JSR STRO|UT.JMP G|
|000006c0| 45 54 27 48 45 41 44 45 | 52 0d 0d 2b 20 4c 44 41 |ET'HEADE|R..+ LDA|
|000006d0| 20 3c 55 4e 4b 4e 4f 57 | 4e 0d 4c 44 59 20 3e 55 | <UNKNOW|N.LDY >U|
|000006e0| 4e 4b 4e 4f 57 4e 0d 4a | 53 52 20 53 54 52 4f 55 |NKNOWN.J|SR STROU|
|000006f0| 54 0d 0d 47 45 54 27 48 | 45 41 44 45 52 20 4c 44 |T..GET'H|EADER LD|
|00000700| 41 20 23 31 33 0d 4a 53 | 52 20 43 48 52 4f 55 54 |A #13.JS|R CHROUT|
|00000710| 0d 4c 44 41 20 44 52 49 | 56 45 27 54 59 50 45 0d |.LDA DRI|VE'TYPE.|
|00000720| 43 4d 50 20 22 48 22 0d | 42 45 51 20 2b 0d 0d 4c |CMP "H".|BEQ +..L|
|00000730| 44 41 20 43 4d 44 0d 42 | 45 51 20 2b 0d 0d 4c 44 |DA CMD.B|EQ +..LD|
|00000740| 41 20 3c 4d 4f 44 45 0d | 4c 44 59 20 3e 4d 4f 44 |A <MODE.|LDY >MOD|
|00000750| 45 0d 4a 53 52 20 53 54 | 52 4f 55 54 0d 0d 2b 20 |E.JSR ST|ROUT..+ |
|00000760| 4c 44 41 20 23 31 33 0d | 53 54 41 20 36 34 36 0d |LDA #13.|STA 646.|
|00000770| 4c 44 41 20 42 55 46 46 | 45 52 2b 32 0d 43 4d 50 |LDA BUFF|ER+2.CMP|
|00000780| 20 23 36 35 0d 42 4e 45 | 20 2b 0d 4c 44 59 20 23 | #65.BNE| +.LDY #|
|00000790| 31 34 34 0d 42 4e 45 20 | 4f 56 45 52 0d 0d 2b 20 |144.BNE |OVER..+ |
|000007a0| 4c 44 59 20 23 34 0d 0d | 4f 56 45 52 20 4c 44 41 |LDY #4..|OVER LDA|
|000007b0| 20 23 31 0d 53 54 41 20 | 31 39 39 0d 4c 44 41 20 | #1.STA |199.LDA |
|000007c0| 23 33 34 0d 4a 53 52 20 | 43 48 52 4f 55 54 0d 4c |#34.JSR |CHROUT.L|
|000007d0| 44 58 20 23 30 0d 2d 20 | 4c 44 41 20 42 55 46 46 |DX #0.- |LDA BUFF|
|000007e0| 45 52 2c 59 0d 4a 53 52 | 20 43 48 52 4f 55 54 0d |ER,Y.JSR| CHROUT.|
|000007f0| 49 4e 59 0d 49 4e 58 0d | 43 50 58 20 23 31 36 0d |INY.INX.|CPX #16.|
|00000800| 42 4e 45 20 2d 0d 0d 4c | 44 41 20 23 33 34 0d 4a |BNE -..L|DA #34.J|
|00000810| 53 52 20 43 48 52 4f 55 | 54 0d 2d 20 4c 44 41 20 |SR CHROU|T.- LDA |
|00000820| 42 55 46 46 45 52 2c 59 | 0d 42 45 51 20 2b 0d 4a |BUFFER,Y|.BEQ +.J|
|00000830| 53 52 20 43 48 52 4f 55 | 54 0d 49 4e 59 0d 42 4e |SR CHROU|T.INY.BN|
|00000840| 45 20 2d 0d 0d 2b 20 4c | 44 59 20 23 39 0d 4c 44 |E -..+ L|DY #9.LD|
|00000850| 41 20 22 20 22 0d 2d 20 | 4a 53 52 20 43 48 52 4f |A " ".- |JSR CHRO|
|00000860| 55 54 0d 44 45 59 0d 42 | 50 4c 20 2d 0d 0d 4c 44 |UT.DEY.B|PL -..LD|
|00000870| 41 20 23 31 33 0d 4a 53 | 52 20 43 48 52 4f 55 54 |A #13.JS|R CHROUT|
|00000880| 0d 0d 4c 44 41 20 3c 45 | 58 50 4c 41 49 4e 0d 4c |..LDA <E|XPLAIN.L|
|00000890| 44 59 20 3e 45 58 50 4c | 41 49 4e 0d 4a 53 52 20 |DY >EXPL|AIN.JSR |
|000008a0| 53 54 52 4f 55 54 0d 0d | 47 45 54 27 46 49 4c 45 |STROUT..|GET'FILE|
|000008b0| 27 45 4e 54 52 49 45 53 | 20 4a 53 52 20 46 49 4c |'ENTRIES| JSR FIL|
|000008c0| 4c 27 42 55 46 46 45 52 | 0d 4c 44 41 20 23 31 0d |L'BUFFER|.LDA #1.|
|000008d0| 53 54 41 20 36 34 36 0d | 4c 44 41 20 23 30 0d 53 |STA 646.|LDA #0.S|
|000008e0| 54 41 20 43 4f 55 4e 54 | 0d 4c 44 41 20 3c 42 55 |TA COUNT|.LDA <BU|
|000008f0| 46 46 45 52 2b 32 0d 53 | 54 41 20 32 35 31 0d 4c |FFER+2.S|TA 251.L|
|00000900| 44 41 20 3e 42 55 46 46 | 45 52 2b 32 0d 53 54 41 |DA >BUFF|ER+2.STA|
|00000910| 20 32 35 32 0d 0d 47 45 | 54 27 42 4c 4f 43 4b 53 | 252..GE|T'BLOCKS|
|00000920| 20 4a 53 52 20 53 54 4f | 50 0d 42 4e 45 20 2b 0d | JSR STO|P.BNE +.|
|00000930| 4a 4d 50 20 51 55 49 54 | 0d 20 2b 20 4c 44 41 20 |JMP QUIT|. + LDA |
|00000940| 44 45 4c 0d 42 4e 45 20 | 2b 0d 4c 44 59 20 23 30 |DEL.BNE |+.LDY #0|
|00000950| 0d 4c 44 41 20 28 32 35 | 31 29 2c 59 0d 42 4e 45 |.LDA (25|1),Y.BNE|
|00000960| 20 2b 0d 4a 4d 50 20 4e | 45 58 54 27 46 49 4c 45 | +.JMP N|EXT'FILE|
|00000970| 0d 0d 2b 20 20 4c 44 41 | 20 23 31 34 0d 53 54 41 |..+  LDA| #14.STA|
|00000980| 20 36 34 36 0d 4c 44 41 | 20 3c 4c 49 4e 45 0d 4c | 646.LDA| <LINE.L|
|00000990| 44 59 20 3e 4c 49 4e 45 | 0d 4a 53 52 20 53 54 52 |DY >LINE|.JSR STR|
|000009a0| 4f 55 54 0d 4c 44 41 20 | 23 31 0d 53 54 41 20 36 |OUT.LDA |#1.STA 6|
|000009b0| 34 36 0d 4c 44 59 20 23 | 31 0d 4c 44 41 20 28 32 |46.LDY #|1.LDA (2|
|000009c0| 35 31 29 2c 59 0d 42 4e | 45 20 2b 0d 0d 4a 4d 50 |51),Y.BN|E +..JMP|
|000009d0| 20 51 55 49 54 0d 0d 2b | 20 4c 44 59 20 23 32 38 | QUIT..+| LDY #28|
|000009e0| 0d 4c 44 41 20 28 32 35 | 31 29 2c 59 0d 53 54 41 |.LDA (25|1),Y.STA|
|000009f0| 20 54 45 4d 50 27 42 4c | 4f 43 4b 53 0d 54 41 58 | TEMP'BL|OCKS.TAX|
|00000a00| 0d 49 4e 59 0d 4c 44 41 | 20 28 32 35 31 29 2c 59 |.INY.LDA| (251),Y|
|00000a10| 0d 53 54 41 20 54 45 4d | 50 27 42 4c 4f 43 4b 53 |.STA TEM|P'BLOCKS|
|00000a20| 2b 31 0d 4a 53 52 20 24 | 42 44 43 44 0d 53 54 59 |+1.JSR $|BDCD.STY|
|00000a30| 20 54 45 4d 50 0d 0d 4c | 44 59 20 23 30 0d 4c 44 | TEMP..L|DY #0.LD|
|00000a40| 41 20 28 32 35 31 29 2c | 59 0d 42 45 51 20 2b 0d |A (251),|Y.BEQ +.|
|00000a50| 0d 4c 44 41 20 54 45 4d | 50 27 42 4c 4f 43 4b 53 |.LDA TEM|P'BLOCKS|
|00000a60| 0d 43 4c 43 0d 41 44 43 | 20 42 4c 4f 43 4b 53 0d |.CLC.ADC| BLOCKS.|
|00000a70| 53 54 41 20 42 4c 4f 43 | 4b 53 0d 4c 44 41 20 54 |STA BLOC|KS.LDA T|
|00000a80| 45 4d 50 27 42 4c 4f 43 | 4b 53 2b 31 0d 41 44 43 |EMP'BLOC|KS+1.ADC|
|00000a90| 20 42 4c 4f 43 4b 53 2b | 31 0d 53 54 41 20 42 4c | BLOCKS+|1.STA BL|
|00000aa0| 4f 43 4b 53 2b 31 0d 0d | 2b 20 4c 44 59 20 54 45 |OCKS+1..|+ LDY TE|
|00000ab0| 4d 50 0d 4c 44 41 20 23 | 36 0d 53 54 41 20 43 4f |MP.LDA #|6.STA CO|
|00000ac0| 4c 53 0d 4a 53 52 20 54 | 41 42 0d 0d 47 45 54 27 |LS.JSR T|AB..GET'|
|00000ad0| 54 52 41 43 4b 20 4c 44 | 59 20 23 31 0d 4c 44 41 |TRACK LD|Y #1.LDA|
|00000ae0| 20 28 32 35 31 29 2c 59 | 0d 54 41 58 0d 4c 44 41 | (251),Y|.TAX.LDA|
|00000af0| 20 23 30 0d 4a 53 52 20 | 24 42 44 43 44 0d 0d 4c | #0.JSR |$BDCD..L|
|00000b00| 44 41 20 23 33 0d 53 54 | 41 20 43 4f 4c 53 0d 4a |DA #3.ST|A COLS.J|
|00000b10| 53 52 20 54 41 42 0d 0d | 47 45 54 27 53 45 43 54 |SR TAB..|GET'SECT|
|00000b20| 4f 52 20 4c 44 59 20 23 | 32 0d 4c 44 41 20 28 32 |OR LDY #|2.LDA (2|
|00000b30| 35 31 29 2c 59 0d 54 41 | 58 0d 4c 44 41 20 23 30 |51),Y.TA|X.LDA #0|
|00000b40| 0d 4a 53 52 20 24 42 44 | 43 44 0d 0d 4c 44 41 20 |.JSR $BD|CD..LDA |
|00000b50| 23 33 0d 53 54 41 20 43 | 4f 4c 53 0d 4a 53 52 20 |#3.STA C|OLS.JSR |
|00000b60| 54 41 42 0d 0d 47 45 54 | 27 46 49 4c 45 4e 41 4d |TAB..GET|'FILENAM|
|00000b70| 45 20 4c 44 41 20 23 33 | 34 0d 4a 53 52 20 43 48 |E LDA #3|4.JSR CH|
|00000b80| 52 4f 55 54 0d 4c 44 59 | 20 23 33 0d 2d 20 4c 44 |ROUT.LDY| #3.- LD|
|00000b90| 41 20 28 32 35 31 29 2c | 59 0d 4c 44 58 20 23 31 |A (251),|Y.LDX #1|
|00000ba0| 0d 53 54 41 20 32 31 32 | 0d 43 4d 50 20 22 20 22 |.STA 212|.CMP " "|
|00000bb0| 0d 42 4e 45 20 2b 0d 4c | 44 41 20 22 20 22 0d 2b |.BNE +.L|DA " ".+|
|00000bc0| 20 4a 53 52 20 43 48 52 | 4f 55 54 0d 49 4e 59 0d | JSR CHR|OUT.INY.|
|00000bd0| 43 50 59 20 23 31 39 0d | 42 4e 45 20 2d 0d 4c 44 |CPY #19.|BNE -.LD|
|00000be0| 41 20 23 30 0d 53 54 41 | 20 32 31 32 0d 0d 4c 44 |A #0.STA| 212..LD|
|00000bf0| 41 20 23 33 34 0d 4a 53 | 52 20 43 48 52 4f 55 54 |A #34.JS|R CHROUT|
|00000c00| 0d 0d 4c 44 59 20 23 32 | 0d 4c 44 41 20 22 20 22 |..LDY #2|.LDA " "|
|00000c10| 0d 2d 20 4a 53 52 20 43 | 48 52 4f 55 54 0d 44 45 |.- JSR C|HROUT.DE|
|00000c20| 59 0d 42 50 4c 20 2d 0d | 0d 0d 47 45 54 27 54 59 |Y.BPL -.|..GET'TY|
|00000c30| 50 45 20 4c 44 59 20 23 | 30 0d 4c 44 41 20 28 32 |PE LDY #|0.LDA (2|
|00000c40| 35 31 29 2c 59 0d 53 54 | 41 20 54 45 4d 50 0d 41 |51),Y.ST|A TEMP.A|
|00000c50| 4e 44 20 23 31 32 37 0d | 41 4e 44 20 23 31 39 31 |ND #127.|AND #191|
|00000c60| 0d 41 4e 44 20 23 31 35 | 39 0d 43 4d 50 20 23 37 |.AND #15|9.CMP #7|
|00000c70| 0d 42 43 43 20 2b 0d 4c | 44 41 20 23 37 0d 2b 20 |.BCC +.L|DA #7.+ |
|00000c80| 53 54 41 20 54 59 50 45 | 0d 41 53 4c 0d 43 4c 43 |STA TYPE|.ASL.CLC|
|00000c90| 0d 41 44 43 20 54 59 50 | 45 0d 0d 54 41 59 0d 4c |.ADC TYP|E..TAY.L|
|00000ca0| 44 58 20 23 30 0d 2d 20 | 4c 44 41 20 54 59 50 45 |DX #0.- |LDA TYPE|
|00000cb0| 53 2c 59 0d 4a 53 52 20 | 43 48 52 4f 55 54 0d 49 |S,Y.JSR |CHROUT.I|
|00000cc0| 4e 59 0d 49 4e 58 0d 43 | 50 58 20 23 33 0d 42 4e |NY.INX.C|PX #3.BN|
|00000cd0| 45 20 2d 0d 0d 4c 44 41 | 20 54 59 50 45 0d 42 45 |E -..LDA| TYPE.BE|
|00000ce0| 51 20 2b 0d 4c 44 41 20 | 54 45 4d 50 0d 42 4d 49 |Q +.LDA |TEMP.BMI|
|00000cf0| 20 2b 0d 0d 4c 44 41 20 | 22 2a 22 0d 4a 53 52 20 | +..LDA |"*".JSR |
|00000d00| 43 48 52 4f 55 54 0d 0d | 2b 20 4c 44 41 20 54 45 |CHROUT..|+ LDA TE|
|00000d10| 4d 50 0d 43 4d 50 20 23 | 31 39 32 0d 42 43 43 20 |MP.CMP #|192.BCC |
|00000d20| 2b 0d 4c 44 41 20 22 3c | 22 0d 4a 53 52 20 43 48 |+.LDA "<|".JSR CH|
|00000d30| 52 4f 55 54 0d 0d 2b 20 | 4c 44 41 20 23 31 33 0d |ROUT..+ |LDA #13.|
|00000d40| 4a 53 52 20 43 48 52 4f | 55 54 0d 0d 47 45 54 27 |JSR CHRO|UT..GET'|
|00000d50| 44 41 54 45 20 4c 44 41 | 20 23 33 0d 53 54 41 20 |DATE LDA| #3.STA |
|00000d60| 36 34 36 0d 4c 44 41 20 | 23 30 0d 53 54 41 20 45 |646.LDA |#0.STA E|
|00000d70| 4d 55 4c 41 54 49 4f 4e | 0d 4c 44 59 20 23 32 33 |MULATION|.LDY #23|
|00000d80| 0d 2d 20 4f 52 41 20 28 | 32 35 31 29 2c 59 0d 49 |.- ORA (|251),Y.I|
|00000d90| 4e 59 0d 43 50 59 20 23 | 32 36 0d 42 4e 45 20 2d |NY.CPY #|26.BNE -|
|00000da0| 0d 43 4d 50 20 23 30 0d | 42 4e 45 20 2b 0d 4a 4d |.CMP #0.|BNE +.JM|
|00000db0| 50 20 43 48 45 43 4b 27 | 52 45 4c 0d 0d 2b 20 53 |P CHECK'|REL..+ S|
|00000dc0| 54 41 20 45 4d 55 4c 41 | 54 49 4f 4e 0d 4c 44 41 |TA EMULA|TION.LDA|
|00000dd0| 20 23 31 34 0d 53 54 41 | 20 43 4f 4c 53 0d 4c 44 | #14.STA| COLS.LD|
|00000de0| 59 20 23 30 0d 4a 53 52 | 20 54 41 42 0d 4c 44 41 |Y #0.JSR| TAB.LDA|
|00000df0| 20 3c 43 52 45 41 54 49 | 4f 4e 0d 4c 44 59 20 3e | <CREATI|ON.LDY >|
|00000e00| 43 52 45 41 54 49 4f 4e | 0d 4a 53 52 20 53 54 52 |CREATION|.JSR STR|
|00000e10| 4f 55 54 0d 0d 4c 44 59 | 20 23 32 34 0d 4c 44 41 |OUT..LDY| #24.LDA|
|00000e20| 20 28 32 35 31 29 2c 59 | 0d 54 41 58 0d 43 4d 50 | (251),Y|.TAX.CMP|
|00000e30| 20 23 31 30 0d 42 43 53 | 20 2b 0d 4c 44 41 20 22 | #10.BCS| +.LDA "|
|00000e40| 30 22 0d 4a 53 52 20 43 | 48 52 4f 55 54 0d 2b 20 |0".JSR C|HROUT.+ |
|00000e50| 4c 44 41 20 23 30 0d 4a | 53 52 20 24 42 44 43 44 |LDA #0.J|SR $BDCD|
|00000e60| 0d 4c 44 41 20 22 2f 22 | 0d 4a 53 52 20 43 48 52 |.LDA "/"|.JSR CHR|
|00000e70| 4f 55 54 0d 4c 44 59 20 | 23 32 35 0d 4c 44 41 20 |OUT.LDY |#25.LDA |
|00000e80| 28 32 35 31 29 2c 59 0d | 54 41 58 0d 43 4d 50 20 |(251),Y.|TAX.CMP |
|00000e90| 23 31 30 0d 42 43 53 20 | 2b 0d 4c 44 41 20 22 30 |#10.BCS |+.LDA "0|
|00000ea0| 22 0d 4a 53 52 20 43 48 | 52 4f 55 54 0d 2b 20 4c |".JSR CH|ROUT.+ L|
|00000eb0| 44 41 20 23 30 0d 4a 53 | 52 20 24 42 44 43 44 0d |DA #0.JS|R $BDCD.|
|00000ec0| 4c 44 41 20 22 2f 22 0d | 4a 53 52 20 43 48 52 4f |LDA "/".|JSR CHRO|
|00000ed0| 55 54 0d 4c 44 59 20 23 | 32 33 0d 4c 44 41 20 28 |UT.LDY #|23.LDA (|
|00000ee0| 32 35 31 29 2c 59 0d 54 | 41 58 0d 43 4d 50 20 23 |251),Y.T|AX.CMP #|
|00000ef0| 31 30 0d 42 43 53 20 2b | 0d 4c 44 41 20 22 30 22 |10.BCS +|.LDA "0"|
|00000f00| 0d 4a 53 52 20 43 48 52 | 4f 55 54 0d 2b 20 4c 44 |.JSR CHR|OUT.+ LD|
|00000f10| 41 20 23 30 0d 4a 53 52 | 20 24 42 44 43 44 0d 4c |A #0.JSR| $BDCD.L|
|00000f20| 44 41 20 22 20 22 0d 4a | 53 52 20 43 48 52 4f 55 |DA " ".J|SR CHROU|
|00000f30| 54 0d 0d 4c 44 41 20 23 | 30 0d 53 54 41 20 54 45 |T..LDA #|0.STA TE|
|00000f40| 4d 50 0d 4c 44 59 20 23 | 32 36 0d 4c 44 41 20 28 |MP.LDY #|26.LDA (|
|00000f50| 32 35 31 29 2c 59 0d 43 | 4d 50 20 23 31 33 0d 42 |251),Y.C|MP #13.B|
|00000f60| 43 43 20 2b 0d 53 54 41 | 20 54 45 4d 50 0d 53 45 |CC +.STA| TEMP.SE|
|00000f70| 43 0d 53 42 43 20 23 31 | 32 0d 0d 2b 20 54 41 58 |C.SBC #1|2..+ TAX|
|00000f80| 0d 43 4d 50 20 23 31 30 | 0d 42 43 53 20 2b 0d 4c |.CMP #10|.BCS +.L|
|00000f90| 44 41 20 22 30 22 0d 4a | 53 52 20 43 48 52 4f 55 |DA "0".J|SR CHROU|
|00000fa0| 54 0d 2b 20 4c 44 41 20 | 23 30 0d 4a 53 52 20 24 |T.+ LDA |#0.JSR $|
|00000fb0| 42 44 43 44 0d 4c 44 41 | 20 22 3a 22 0d 4a 53 52 |BDCD.LDA| ":".JSR|
|00000fc0| 20 43 48 52 4f 55 54 0d | 4c 44 59 20 23 32 37 0d | CHROUT.|LDY #27.|
|00000fd0| 4c 44 41 20 28 32 35 31 | 29 2c 59 0d 54 41 58 0d |LDA (251|),Y.TAX.|
|00000fe0| 43 4d 50 20 23 31 30 0d | 42 43 53 20 2b 0d 4c 44 |CMP #10.|BCS +.LD|
|00000ff0| 41 20 22 30 22 0d 4a 53 | 52 20 43 48 52 4f 55 54 |A "0".JS|R CHROUT|
|00001000| 0d 0d 2b 20 4c 44 41 20 | 23 30 0d 4a 53 52 20 24 |..+ LDA |#0.JSR $|
|00001010| 42 44 43 44 0d 4c 44 41 | 20 22 41 22 0d 4c 44 58 |BDCD.LDA| "A".LDX|
|00001020| 20 54 45 4d 50 0d 42 45 | 51 20 2b 0d 4c 44 41 20 | TEMP.BE|Q +.LDA |
|00001030| 22 50 22 0d 2b 20 4a 53 | 52 20 43 48 52 4f 55 54 |"P".+ JS|R CHROUT|
|00001040| 0d 4c 44 41 20 23 31 33 | 0d 4a 53 52 20 43 48 52 |.LDA #13|.JSR CHR|
|00001050| 4f 55 54 0d 0d 43 48 45 | 43 4b 27 52 45 4c 20 4c |OUT..CHE|CK'REL L|
|00001060| 44 41 20 23 37 0d 53 54 | 41 20 36 34 36 0d 4c 44 |DA #7.ST|A 646.LD|
|00001070| 41 20 54 59 50 45 0d 43 | 4d 50 20 23 34 0d 42 45 |A TYPE.C|MP #4.BE|
|00001080| 51 20 2b 0d 4a 4d 50 20 | 43 48 45 43 4b 27 52 45 |Q +.JMP |CHECK'RE|
|00001090| 50 4c 41 43 45 0d 0d 2b | 20 4c 44 59 20 23 30 0d |PLACE..+| LDY #0.|
|000010a0| 4c 44 41 20 23 36 0d 53 | 54 41 20 43 4f 4c 53 0d |LDA #6.S|TA COLS.|
|000010b0| 4a 53 52 20 54 41 42 0d | 0d 47 45 54 27 52 54 52 |JSR TAB.|.GET'RTR|
|000010c0| 41 43 4b 20 4c 44 59 20 | 23 31 39 0d 4c 44 41 20 |ACK LDY |#19.LDA |
|000010d0| 28 32 35 31 29 2c 59 0d | 54 41 58 0d 4c 44 41 20 |(251),Y.|TAX.LDA |
|000010e0| 23 30 0d 4a 53 52 20 24 | 42 44 43 44 0d 0d 4c 44 |#0.JSR $|BDCD..LD|
|000010f0| 41 20 23 33 0d 53 54 41 | 20 43 4f 4c 53 0d 4a 53 |A #3.STA| COLS.JS|
|00001100| 52 20 54 41 42 0d 0d 47 | 45 54 27 52 53 45 43 54 |R TAB..G|ET'RSECT|
|00001110| 4f 52 20 4c 44 59 20 23 | 32 30 0d 4c 44 41 20 28 |OR LDY #|20.LDA (|
|00001120| 32 35 31 29 2c 59 0d 54 | 41 58 0d 4c 44 41 20 23 |251),Y.T|AX.LDA #|
|00001130| 30 0d 4a 53 52 20 24 42 | 44 43 44 0d 0d 4c 44 41 |0.JSR $B|DCD..LDA|
|00001140| 20 23 33 0d 53 54 41 20 | 43 4f 4c 53 0d 4a 53 52 | #3.STA |COLS.JSR|
|00001150| 20 54 41 42 0d 0d 4c 44 | 41 20 3c 53 49 44 45 27 | TAB..LD|A <SIDE'|
|00001160| 53 45 43 54 4f 52 0d 4c | 44 59 20 3e 53 49 44 45 |SECTOR.L|DY >SIDE|
|00001170| 27 53 45 43 54 4f 52 0d | 4a 53 52 20 53 54 52 4f |'SECTOR.|JSR STRO|
|00001180| 55 54 0d 0d 4c 44 59 20 | 23 30 0d 4c 44 41 20 23 |UT..LDY |#0.LDA #|
|00001190| 36 0d 53 54 41 20 43 4f | 4c 53 0d 4a 53 52 20 54 |6.STA CO|LS.JSR T|
|000011a0| 41 42 0d 0d 47 45 54 27 | 52 45 43 27 4c 45 4e 47 |AB..GET'|REC'LENG|
|000011b0| 54 48 20 4c 44 59 20 23 | 32 31 0d 4c 44 41 20 28 |TH LDY #|21.LDA (|
|000011c0| 32 35 31 29 2c 59 0d 54 | 41 58 0d 4c 44 41 20 23 |251),Y.T|AX.LDA #|
|000011d0| 30 0d 4a 53 52 20 24 42 | 44 43 44 0d 0d 4c 44 41 |0.JSR $B|DCD..LDA|
|000011e0| 20 23 37 0d 53 54 41 20 | 43 4f 4c 53 0d 4a 53 52 | #7.STA |COLS.JSR|
|000011f0| 20 54 41 42 0d 0d 4c 44 | 41 20 3c 4c 45 4e 47 54 | TAB..LD|A <LENGT|
|00001200| 48 0d 4c 44 59 20 3e 4c | 45 4e 47 54 48 0d 4a 53 |H.LDY >L|ENGTH.JS|
|00001210| 52 20 53 54 52 4f 55 54 | 0d 4a 4d 50 20 4e 45 58 |R STROUT|.JMP NEX|
|00001220| 54 27 46 49 4c 45 0d 0d | 43 48 45 43 4b 27 52 45 |T'FILE..|CHECK'RE|
|00001230| 50 4c 41 43 45 20 4c 44 | 41 20 23 31 30 0d 53 54 |PLACE LD|A #10.ST|
|00001240| 41 20 36 34 36 0d 4c 44 | 41 20 45 4d 55 4c 41 54 |A 646.LD|A EMULAT|
|00001250| 49 4f 4e 0d 42 4e 45 20 | 4e 45 58 54 27 46 49 4c |ION.BNE |NEXT'FIL|
|00001260| 45 0d 4c 44 41 20 44 52 | 49 56 45 27 54 59 50 45 |E.LDA DR|IVE'TYPE|
|00001270| 0d 43 4d 50 20 22 48 22 | 0d 42 4e 45 20 2b 0d 4a |.CMP "H"|.BNE +.J|
|00001280| 4d 50 20 4e 45 58 54 27 | 46 49 4c 45 0d 0d 2b 20 |MP NEXT'|FILE..+ |
|00001290| 4c 44 59 20 23 32 36 0d | 4c 44 41 20 28 32 35 31 |LDY #26.|LDA (251|
|000012a0| 29 2c 59 0d 42 4e 45 20 | 2b 0d 4a 4d 50 20 4e 45 |),Y.BNE |+.JMP NE|
|000012b0| 58 54 27 46 49 4c 45 0d | 0d 2b 20 4c 44 59 20 23 |XT'FILE.|.+ LDY #|
|000012c0| 30 0d 4c 44 41 20 23 36 | 0d 53 54 41 20 43 4f 4c |0.LDA #6|.STA COL|
|000012d0| 53 0d 4a 53 52 20 54 41 | 42 0d 0d 47 45 54 27 53 |S.JSR TA|B..GET'S|
|000012e0| 52 54 52 41 43 4b 20 4c | 44 59 20 23 32 36 0d 4c |RTRACK L|DY #26.L|
|000012f0| 44 41 20 28 32 35 31 29 | 2c 59 0d 54 41 58 0d 4c |DA (251)|,Y.TAX.L|
|00001300| 44 41 20 23 30 0d 4a 53 | 52 20 24 42 44 43 44 0d |DA #0.JS|R $BDCD.|
|00001310| 0d 4c 44 41 20 23 33 0d | 53 54 41 20 43 4f 4c 53 |.LDA #3.|STA COLS|
|00001320| 0d 4a 53 52 20 54 41 42 | 0d 0d 47 45 54 27 53 52 |.JSR TAB|..GET'SR|
|00001330| 53 45 43 54 4f 52 20 4c | 44 59 20 23 32 37 0d 4c |SECTOR L|DY #27.L|
|00001340| 44 41 20 28 32 35 31 29 | 2c 59 0d 54 41 58 0d 4c |DA (251)|,Y.TAX.L|
|00001350| 44 41 20 23 30 0d 4a 53 | 52 20 24 42 44 43 44 0d |DA #0.JS|R $BDCD.|
|00001360| 0d 4c 44 41 20 23 33 0d | 53 54 41 20 43 4f 4c 53 |.LDA #3.|STA COLS|
|00001370| 0d 4a 53 52 20 54 41 42 | 0d 0d 4c 44 41 20 3c 52 |.JSR TAB|..LDA <R|
|00001380| 45 50 4c 41 43 45 44 0d | 4c 44 59 20 3e 52 45 50 |EPLACED.|LDY >REP|
|00001390| 4c 41 43 45 44 0d 4a 53 | 52 20 53 54 52 4f 55 54 |LACED.JS|R STROUT|
|000013a0| 0d 0d 0d 4e 45 58 54 27 | 46 49 4c 45 20 4c 44 41 |...NEXT'|FILE LDA|
|000013b0| 20 36 35 33 0d 42 4e 45 | 20 4e 45 58 54 27 46 49 | 653.BNE| NEXT'FI|
|000013c0| 4c 45 0d 49 4e 43 20 43 | 4f 55 4e 54 0d 4c 44 41 |LE.INC C|OUNT.LDA|
|000013d0| 20 43 4f 55 4e 54 0d 43 | 4d 50 20 23 38 0d 42 45 | COUNT.C|MP #8.BE|
|000013e0| 51 20 2b 0d 0d 4c 44 41 | 20 23 33 32 0d 43 4c 43 |Q +..LDA| #32.CLC|
|000013f0| 0d 41 44 43 20 32 35 31 | 0d 53 54 41 20 32 35 31 |.ADC 251|.STA 251|
|00001400| 0d 4c 44 41 20 23 30 0d | 41 44 43 20 32 35 32 0d |.LDA #0.|ADC 252.|
|00001410| 53 54 41 20 32 35 32 0d | 4a 4d 50 20 47 45 54 27 |STA 252.|JMP GET'|
|00001420| 42 4c 4f 43 4b 53 0d 0d | 2b 20 4c 44 41 20 45 4f |BLOCKS..|+ LDA EO|
|00001430| 46 0d 42 4e 45 20 51 55 | 49 54 0d 4a 4d 50 20 47 |F.BNE QU|IT.JMP G|
|00001440| 45 54 27 46 49 4c 45 27 | 45 4e 54 52 49 45 53 0d |ET'FILE'|ENTRIES.|
|00001450| 0d 51 55 49 54 20 4c 44 | 41 20 23 31 0d 53 54 41 |.QUIT LD|A #1.STA|
|00001460| 20 36 34 36 0d 4c 44 41 | 20 23 32 0d 4a 53 52 20 | 646.LDA| #2.JSR |
|00001470| 43 4c 4f 53 45 0d 4c 44 | 41 20 23 31 35 0d 4a 53 |CLOSE.LD|A #15.JS|
|00001480| 52 20 43 4c 4f 53 45 0d | 4a 53 52 20 43 4c 52 43 |R CLOSE.|JSR CLRC|
|00001490| 48 4e 0d 0d 4c 44 41 20 | 23 31 35 0d 4c 44 58 20 |HN..LDA |#15.LDX |
|000014a0| 3c 42 4c 4f 43 4b 27 4e | 41 4d 45 0d 4c 44 59 20 |<BLOCK'N|AME.LDY |
|000014b0| 3e 42 4c 4f 43 4b 27 4e | 41 4d 45 0d 4a 53 52 20 |>BLOCK'N|AME.JSR |
|000014c0| 53 45 54 4e 41 4d 0d 4c | 44 41 20 23 32 0d 4c 44 |SETNAM.L|DA #2.LD|
|000014d0| 58 20 44 45 56 49 43 45 | 0d 4c 44 59 20 23 30 0d |X DEVICE|.LDY #0.|
|000014e0| 4a 53 52 20 53 45 54 4c | 46 53 0d 4a 53 52 20 4f |JSR SETL|FS.JSR O|
|000014f0| 50 45 4e 0d 4a 53 52 20 | 43 4c 52 43 48 4e 0d 4c |PEN.JSR |CLRCHN.L|
|00001500| 44 58 20 23 32 0d 4a 53 | 52 20 43 48 4b 49 4e 0d |DX #2.JS|R CHKIN.|
|00001510| 0d 4c 44 59 20 23 33 33 | 0d 2d 20 4a 53 52 20 47 |.LDY #33|.- JSR G|
|00001520| 45 54 49 4e 0d 44 45 59 | 0d 42 50 4c 20 2d 0d 0d |ETIN.DEY|.BPL -..|
|00001530| 4a 53 52 20 47 45 54 49 | 4e 0d 53 54 41 20 54 45 |JSR GETI|N.STA TE|
|00001540| 4d 50 0d 4a 53 52 20 47 | 45 54 49 4e 0d 53 54 41 |MP.JSR G|ETIN.STA|
|00001550| 20 54 45 4d 50 2b 31 0d | 0d 4c 44 41 20 50 52 49 | TEMP+1.|.LDA PRI|
|00001560| 4e 54 45 52 0d 42 45 51 | 20 2b 0d 4a 53 52 20 43 |NTER.BEQ| +.JSR C|
|00001570| 4c 52 43 48 4e 0d 4c 44 | 58 20 23 34 0d 4a 53 52 |LRCHN.LD|X #4.JSR|
|00001580| 20 43 48 4b 4f 55 54 0d | 0d 2b 20 4c 44 41 20 23 | CHKOUT.|.+ LDA #|
|00001590| 31 33 0d 4a 53 52 20 43 | 48 52 4f 55 54 0d 4c 44 |13.JSR C|HROUT.LD|
|000015a0| 58 20 54 45 4d 50 0d 4c | 44 41 20 54 45 4d 50 2b |X TEMP.L|DA TEMP+|
|000015b0| 31 0d 4a 53 52 20 24 42 | 44 43 44 0d 0d 4c 44 41 |1.JSR $B|DCD..LDA|
|000015c0| 20 3c 46 52 45 45 0d 4c | 44 59 20 3e 46 52 45 45 | <FREE.L|DY >FREE|
|000015d0| 0d 4a 53 52 20 53 54 52 | 4f 55 54 0d 0d 4c 44 41 |.JSR STR|OUT..LDA|
|000015e0| 20 23 31 33 0d 4a 53 52 | 20 43 48 52 4f 55 54 0d | #13.JSR| CHROUT.|
|000015f0| 4c 44 58 20 42 4c 4f 43 | 4b 53 0d 4c 44 41 20 42 |LDX BLOC|KS.LDA B|
|00001600| 4c 4f 43 4b 53 2b 31 0d | 4a 53 52 20 24 42 44 43 |LOCKS+1.|JSR $BDC|
|00001610| 44 0d 0d 4c 44 41 20 3c | 55 53 45 44 0d 4c 44 59 |D..LDA <|USED.LDY|
|00001620| 20 3e 55 53 45 44 0d 4a | 53 52 20 53 54 52 4f 55 | >USED.J|SR STROU|
|00001630| 54 0d 4a 53 52 20 43 4c | 52 43 48 4e 0d 0d 4c 44 |T.JSR CL|RCHN..LD|
|00001640| 41 20 23 34 0d 4a 53 52 | 20 43 4c 4f 53 45 0d 4c |A #4.JSR| CLOSE.L|
|00001650| 44 41 20 23 32 0d 4a 53 | 52 20 43 4c 4f 53 45 0d |DA #2.JS|R CLOSE.|
|00001660| 52 54 53 0d 0d 46 49 4c | 4c 27 42 55 46 46 45 52 |RTS..FIL|L'BUFFER|
|00001670| 20 4a 53 52 20 43 4c 52 | 43 48 4e 0d 4c 44 58 20 | JSR CLR|CHN.LDX |
|00001680| 23 32 0d 4a 53 52 20 43 | 48 4b 49 4e 0d 0d 4c 44 |#2.JSR C|HKIN..LD|
|00001690| 59 20 23 30 0d 2d 20 4a | 53 52 20 47 45 54 49 4e |Y #0.- J|SR GETIN|
|000016a0| 0d 53 54 41 20 42 55 46 | 46 45 52 2b 32 2c 59 0d |.STA BUF|FER+2,Y.|
|000016b0| 49 4e 59 0d 43 50 59 20 | 23 32 35 34 0d 42 4e 45 |INY.CPY |#254.BNE|
|000016c0| 20 2d 0d 4a 53 52 20 52 | 45 41 44 53 54 0d 41 4e | -.JSR R|EADST.AN|
|000016d0| 44 20 23 36 34 0d 53 54 | 41 20 45 4f 46 0d 4a 53 |D #64.ST|A EOF.JS|
|000016e0| 52 20 43 4c 52 43 48 4e | 0d 4c 44 41 20 50 52 49 |R CLRCHN|.LDA PRI|
|000016f0| 4e 54 45 52 0d 42 45 51 | 20 2b 0d 4c 44 58 20 23 |NTER.BEQ| +.LDX #|
|00001700| 34 0d 4a 53 52 20 43 48 | 4b 4f 55 54 0d 2b 20 52 |4.JSR CH|KOUT.+ R|
|00001710| 54 53 0d 0d 3b 2a 2a 2a | 2a 20 47 45 54 20 4e 55 |TS..;***|* GET NU|
|00001720| 4d 42 45 52 20 46 52 4f | 4d 20 c2 c1 d3 c9 c3 20 |MBER FRO|M ..... |
|00001730| 2a 2a 2a 2a 0d 0d 47 45 | 54 27 4e 55 4d 42 45 52 |****..GE|T'NUMBER|
|00001740| 20 4a 53 52 20 24 41 45 | 46 44 0d 4a 53 52 20 24 | JSR $AE|FD.JSR $|
|00001750| 41 44 38 41 0d 4a 53 52 | 20 24 42 37 46 37 0d 52 |AD8A.JSR| $B7F7.R|
|00001760| 54 53 0d 0d 3b 2a 2a 2a | 2a 2a 20 47 45 54 20 53 |TS..;***|** GET S|
|00001770| 54 52 49 4e 47 20 46 52 | 4f 4d 20 c2 c1 d3 c9 c3 |TRING FR|OM .....|
|00001780| 20 2a 2a 2a 2a 0d 0d 47 | 45 54 27 53 54 52 49 4e | ****..G|ET'STRIN|
|00001790| 47 20 4a 53 52 20 24 41 | 45 46 44 0d 4a 53 52 20 |G JSR $A|EFD.JSR |
|000017a0| 24 41 44 39 45 0d 4a 53 | 52 20 24 42 36 41 33 0d |$AD9E.JS|R $B6A3.|
|000017b0| 0d 4c 44 58 20 24 32 32 | 0d 4c 44 59 20 24 32 33 |.LDX $22|.LDY $23|
|000017c0| 0d 52 54 53 0d 0d 54 41 | 42 20 53 54 59 20 54 45 |.RTS..TA|B STY TE|
|000017d0| 4d 50 3b 20 4c 45 4e 47 | 54 48 20 4f 46 20 4e 55 |MP; LENG|TH OF NU|
|000017e0| 4d 42 45 52 20 53 54 52 | 49 4e 47 0d 4c 44 41 20 |MBER STR|ING.LDA |
|000017f0| 43 4f 4c 53 0d 53 45 43 | 0d 53 42 43 20 54 45 4d |COLS.SEC|.SBC TEM|
|00001800| 50 0d 54 41 59 0d 4c 44 | 41 20 22 20 22 0d 2d 20 |P.TAY.LD|A " ".- |
|00001810| 4a 53 52 20 43 48 52 4f | 55 54 0d 44 45 59 0d 42 |JSR CHRO|UT.DEY.B|
|00001820| 50 4c 20 2d 0d 52 54 53 | 0d 0d 4e 41 4d 45 20 2e |PL -.RTS|..NAME .|
|00001830| 41 53 43 20 22 24 3a 22 | 0d 44 45 56 49 43 45 20 |ASC "$:"|.DEVICE |
|00001840| 2e 42 59 54 20 30 0d 3b | 42 55 46 46 45 52 20 2e |.BYT 0.;|BUFFER .|
|00001850| 42 55 46 20 32 35 36 0d | 46 4c 4f 50 50 59 20 2e |BUF 256.|FLOPPY .|
|00001860| 41 53 43 20 22 31 35 34 | 31 2f 37 31 20 44 49 53 |ASC "154|1/71 DIS|
|00001870| 4b 22 3a 2e 42 59 54 20 | 30 0d 53 49 4e 47 4c 45 |K":.BYT |0.SINGLE|
|00001880| 20 2e 41 53 43 20 22 20 | 31 2d 53 49 44 45 44 20 | .ASC " |1-SIDED |
|00001890| 28 36 36 34 20 42 4c 4f | 43 4b 53 29 22 3a 2e 42 |(664 BLO|CKS)":.B|
|000018a0| 59 54 20 30 0d 44 4f 55 | 42 4c 45 20 2e 41 53 43 |YT 0.DOU|BLE .ASC|
|000018b0| 20 22 20 32 2d 53 49 44 | 45 44 20 28 31 33 32 38 | " 2-SID|ED (1328|
|000018c0| 20 42 4c 4f 43 4b 53 29 | 22 3a 2e 42 59 54 20 30 | BLOCKS)|":.BYT 0|
|000018d0| 0d 54 48 52 45 45 44 20 | 2e 41 53 43 20 22 31 35 |.THREED |.ASC "15|
|000018e0| 38 31 20 44 49 53 4b 20 | 28 33 31 36 30 20 42 4c |81 DISK |(3160 BL|
|000018f0| 4f 43 4b 53 29 22 3a 2e | 42 59 54 20 30 0d 48 44 |OCKS)":.|BYT 0.HD|
|00001900| 4e 41 4d 45 20 2e 41 53 | 43 20 22 43 4d 44 20 4e |NAME .AS|C "CMD N|
|00001910| 41 54 49 56 45 20 50 41 | 52 54 49 54 49 4f 4e 22 |ATIVE PA|RTITION"|
|00001920| 3a 2e 42 59 54 20 30 0d | 52 4f 4f 54 20 2e 41 53 |:.BYT 0.|ROOT .AS|
|00001930| 43 20 22 20 28 52 4f 4f | 54 29 22 3a 2e 42 59 54 |C " (ROO|T)":.BYT|
|00001940| 20 30 0d 55 4e 4b 4e 4f | 57 4e 20 2e 41 53 43 20 | 0.UNKNO|WN .ASC |
|00001950| 22 55 4e 4b 4e 4f 57 4e | 22 3a 2e 42 59 54 20 30 |"UNKNOWN|":.BYT 0|
|00001960| 0d 53 55 42 44 49 52 20 | 2e 41 53 43 20 22 20 28 |.SUBDIR |.ASC " (|
|00001970| 53 55 42 44 49 52 45 43 | 54 4f 52 59 29 22 3a 2e |SUBDIREC|TORY)":.|
|00001980| 42 59 54 20 30 0d 4d 4f | 44 45 20 2e 41 53 43 20 |BYT 0.MO|DE .ASC |
|00001990| 22 43 4d 44 20 45 4d 55 | 4c 41 54 49 4f 4e 20 4d |"CMD EMU|LATION M|
|000019a0| 4f 44 45 20 50 41 52 54 | 49 54 49 4f 4e 22 3a 2e |ODE PART|ITION":.|
|000019b0| 42 59 54 20 31 33 2c 30 | 0d 45 58 50 4c 41 49 4e |BYT 13,0|.EXPLAIN|
|000019c0| 20 2e 41 53 43 20 22 42 | 4c 4f 43 4b 53 20 54 52 | .ASC "B|LOCKS TR|
|000019d0| 4b 20 53 45 43 20 46 49 | 4c 45 4e 41 4d 45 20 20 |K SEC FI|LENAME  |
|000019e0| 20 20 20 20 20 20 20 20 | 20 20 54 59 50 45 22 3a |        |  TYPE":|
|000019f0| 2e 42 59 54 20 31 33 2c | 30 0d 4c 49 4e 45 20 20 |.BYT 13,|0.LINE  |
|00001a00| 20 20 2e 41 53 43 20 22 | 2d 2d 2d 2d 2d 2d 2d 2d |  .ASC "|--------|
|00001a10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 22 |--------|-------"|
|00001a30| 3a 2e 42 59 54 20 31 33 | 2c 30 0d 43 52 45 41 54 |:.BYT 13|,0.CREAT|
|00001a40| 49 4f 4e 20 2e 41 53 43 | 20 22 43 52 45 41 54 45 |ION .ASC| "CREATE|
|00001a50| 44 3a 20 22 3a 2e 42 59 | 54 20 30 0d 53 49 44 45 |D: ":.BY|T 0.SIDE|
|00001a60| 27 53 45 43 54 4f 52 20 | 2e 41 53 43 20 22 3c 2d |'SECTOR |.ASC "<-|
|00001a70| 2d 20 53 49 44 45 20 53 | 45 43 54 4f 52 20 54 2f |- SIDE S|ECTOR T/|
|00001a80| 53 22 3a 2e 42 59 54 20 | 31 33 2c 30 0d 4c 45 4e |S":.BYT |13,0.LEN|
|00001a90| 47 54 48 20 2e 41 53 43 | 20 22 3c 2d 2d 20 52 45 |GTH .ASC| "<-- RE|
|00001aa0| 43 4f 52 44 20 4c 45 4e | 47 54 48 22 3a 2e 42 59 |CORD LEN|GTH":.BY|
|00001ab0| 54 20 31 33 2c 30 0d 52 | 45 50 4c 41 43 45 44 20 |T 13,0.R|EPLACED |
|00001ac0| 2e 41 53 43 20 22 3c 2d | 2d 20 42 4f 54 43 48 45 |.ASC "<-|- BOTCHE|
|00001ad0| 44 20 53 41 56 45 2f 4f | 50 45 4e 40 22 3a 2e 42 |D SAVE/O|PEN@":.B|
|00001ae0| 59 54 20 31 33 2c 30 0d | 49 4e 41 4d 45 20 2e 41 |YT 13,0.|INAME .A|
|00001af0| 53 43 20 22 49 22 0d 42 | 4c 4f 43 4b 27 4e 41 4d |SC "I".B|LOCK'NAM|
|00001b00| 45 20 2e 41 53 43 20 22 | 24 3a ca 45 c6 46 c2 45 |E .ASC "|$:.E.F.E|
|00001b10| c7 4f 30 44 21 5c 27 22 | 0d 46 52 45 45 20 2e 41 |.O0D!\'"|.FREE .A|
|00001b20| 53 43 20 22 20 20 42 4c | 4f 43 4b 53 20 46 52 45 |SC "  BL|OCKS FRE|
|00001b30| 45 2e 22 3a 2e 42 59 54 | 20 31 33 2c 30 0d 55 53 |E.":.BYT| 13,0.US|
|00001b40| 45 44 20 2e 41 53 43 20 | 22 20 20 42 4c 4f 43 4b |ED .ASC |"  BLOCK|
|00001b50| 53 20 41 4c 4c 4f 43 41 | 54 45 44 20 42 59 20 46 |S ALLOCA|TED BY F|
|00001b60| 49 4c 45 53 2e 22 3a 2e | 42 59 54 20 31 33 2c 30 |ILES.":.|BYT 13,0|
|00001b70| 0d 42 4c 4f 43 4b 53 20 | 2e 57 4f 52 44 20 30 0d |.BLOCKS |.WORD 0.|
|00001b80| 44 52 49 56 45 27 54 59 | 50 45 20 2e 42 59 54 20 |DRIVE'TY|PE .BYT |
|00001b90| 30 0d 43 4f 55 4e 54 20 | 2e 42 59 54 20 30 0d 54 |0.COUNT |.BYT 0.T|
|00001ba0| 59 50 45 53 20 2e 41 53 | 43 20 22 44 45 4c 53 45 |YPES .AS|C "DELSE|
|00001bb0| 51 50 52 47 55 53 52 52 | 45 4c 43 42 4d 44 49 52 |QPRGUSRR|ELCBMDIR|
|00001bc0| 3f 3f 3f 22 0d 54 45 4d | 50 20 2e 42 59 54 20 30 |???".TEM|P .BYT 0|
|00001bd0| 0d 43 4f 4c 53 20 2e 42 | 59 54 20 30 0d 54 59 50 |.COLS .B|YT 0.TYP|
|00001be0| 45 20 2e 42 59 54 20 30 | 0d 45 4d 55 4c 41 54 49 |E .BYT 0|.EMULATI|
|00001bf0| 4f 4e 20 2e 42 59 54 20 | 30 0d 50 52 49 4e 54 45 |ON .BYT |0.PRINTE|
|00001c00| 52 20 2e 42 59 54 20 30 | 0d 45 4f 46 20 2e 42 59 |R .BYT 0|.EOF .BY|
|00001c10| 54 20 30 0d 4d 41 4b 45 | 27 45 52 52 4f 52 20 2e |T 0.MAKE|'ERROR .|
|00001c20| 41 53 43 20 22 43 50 30 | 22 3a 2e 42 59 54 20 31 |ASC "CP0|":.BYT 1|
|00001c30| 33 0d 43 4d 44 20 2e 42 | 59 54 20 30 0d 44 45 4c |3.CMD .B|YT 0.DEL|
|00001c40| 20 2e 42 59 54 20 30 0d | 54 45 4d 50 27 42 4c 4f | .BYT 0.|TEMP'BLO|
|00001c50| 43 4b 53 20 2e 42 55 46 | 20 32 0d 42 55 46 46 45 |CKS .BUF| 2.BUFFE|
|00001c60| 52 20 3d                |                         |R =     |        |
+--------+-------------------------+-------------------------+--------+--------+