/ Loadstar 19 / 019.d81 / bload.s

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 20 6f 72 67 20 38 | 32 38 0d 20 6c 73 74 20 |.. org 8|28. lst |
|00000010| 6f 66 66 0d 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |off.****|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000030| 2a 2a 2a 2a 2a 0d 4c 4f | 41 44 20 3d 20 24 46 46 |*****.LO|AD = $FF|
|00000040| 44 35 0d 53 41 56 45 20 | 3d 20 24 46 46 44 38 0d |D5.SAVE |= $FFD8.|
|00000050| 53 45 54 4c 46 53 20 3d | 20 24 46 46 42 41 0d 53 |SETLFS =| $FFBA.S|
|00000060| 45 54 4e 41 4d 20 3d 20 | 24 46 46 42 44 0d 65 72 |ETNAM = |$FFBD.er|
|00000070| 72 6f 72 20 3d 20 24 65 | 33 38 62 0d 72 65 61 64 |ror = $e|38b.read|
|00000080| 73 74 20 3d 20 24 66 65 | 30 37 0d 63 68 6b 63 6f |st = $fe|07.chkco|
|00000090| 6d 20 3d 20 24 61 65 66 | 64 0d 66 72 6d 65 76 61 |m = $aef|d.frmeva|
|000000a0| 6c 20 3d 20 34 34 34 34 | 36 0d 66 72 65 73 74 72 |l = 4444|6.frestr|
|000000b0| 20 3d 20 24 62 36 61 33 | 0d 6c 61 73 74 62 79 74 | = $b6a3|.lastbyt|
|000000c0| 20 3d 20 32 35 33 0d 62 | 61 73 6c 20 3d 20 32 35 | = 253.b|asl = 25|
|000000d0| 31 0d 66 61 63 74 6f 69 | 6e 74 20 3d 20 24 62 63 |1.factoi|nt = $bc|
|000000e0| 39 62 0d 66 61 63 20 3d | 20 24 36 31 0d 6c 65 6e |9b.fac =| $61.len|
|000000f0| 67 74 68 20 3d 20 32 35 | 30 0d 63 68 72 6f 75 74 |gth = 25|0.chrout|
|00000100| 20 3d 20 24 66 66 64 32 | 0d 0d 4c 4f 41 44 46 49 | = $ffd2|..LOADFI|
|00000110| 4c 45 0d 2a a0 41 2c 58 | a0 3d a0 4c 4f 41 44 a0 |LE.*.A,X|.=.LOAD.|
|00000120| 41 44 52 53 0d 2a a0 42 | 41 53 4c a0 2d 3e a0 53 |ADRS.*.B|ASL.->.S|
|00000130| 54 41 52 54 a0 4f 46 a0 | 46 49 4c 45 4e 41 4d 45 |TART.OF.|FILENAME|
|00000140| 0d 2a a0 28 45 4e 44 49 | 4e 47 a0 57 2f a0 30 29 |.*.(ENDI|NG.W/.0)|
|00000150| 0d 0d 20 6a 73 72 20 67 | 65 74 69 6e 75 6d 62 65 |.. jsr g|etinumbe|
|00000160| 72 0d 20 73 74 78 20 6c | 61 64 64 6c 6f 2b 31 0d |r. stx l|addlo+1.|
|00000170| 20 73 74 79 20 6c 61 64 | 64 68 69 2b 31 0d 0d 20 | sty lad|dhi+1.. |
|00000180| 6a 73 72 20 67 65 74 69 | 6e 73 74 72 0d 2a 0d 2a |jsr geti|nstr.*.*|
|00000190| a0 a0 a0 6c 65 6e 67 74 | 68 a0 69 6e a0 61 63 63 |...lengt|h.in.acc|
|000001a0| 75 6d 75 6c 61 74 6f 72 | 0d 2a a0 a0 a0 61 64 64 |umulator|.*...add|
|000001b0| 72 65 73 73 a0 69 6e a0 | 24 32 32 2d 32 33 0d 2a |ress.in.|$22-23.*|
|000001c0| 0d 20 73 74 61 20 6c 65 | 6e 67 74 68 0d 20 6c 64 |. sta le|ngth. ld|
|000001d0| 61 20 24 32 32 0d 20 73 | 74 61 20 62 61 73 6c 0d |a $22. s|ta basl.|
|000001e0| 20 6c 64 61 20 24 32 33 | 0d 20 73 74 61 20 62 61 | lda $23|. sta ba|
|000001f0| 73 6c 2b 31 0d 20 6c 64 | 79 20 23 24 30 30 0d 20 |sl+1. ld|y #$00. |
|00000200| 4a 53 52 20 53 45 54 44 | 49 53 4b 50 41 52 4d 53 |JSR SETD|ISKPARMS|
|00000210| 0d 0d 6c 61 64 64 6c 6f | 20 4c 44 58 20 23 24 46 |..laddlo| LDX #$F|
|00000220| 46 0d 6c 61 64 64 68 69 | 20 4c 44 59 20 23 24 46 |F.laddhi| LDY #$F|
|00000230| 46 0d 20 4c 44 41 20 23 | 30 0d 20 4a 53 52 20 4c |F. LDA #|0. JSR L|
|00000240| 4f 41 44 0d 0d 20 62 63 | 63 20 6c 6f 61 64 6f 6b |OAD.. bc|c loadok|
|00000250| 0d 20 6c 64 78 20 23 32 | 39 0d 20 6a 6d 70 20 65 |. ldx #2|9. jmp e|
|00000260| 72 72 6f 72 0d 6c 6f 61 | 64 6f 6b 0d 20 53 54 58 |rror.loa|dok. STX|
|00000270| 20 6c 61 73 74 62 79 74 | 0d 20 53 54 59 20 6c 61 | lastbyt|. STY la|
|00000280| 73 74 62 79 74 2b 31 0d | 20 4c 44 41 20 23 30 0d |stbyt+1.| LDA #0.|
|00000290| 20 52 54 53 0d 0d 0d 2a | 2a 2a 2a 2a 2a 2a 2a 2a | RTS...*|********|
|000002a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002b0| 2a 2a 2a 2a 2a 2a 2a 0d | 2a 2a 2a 2a 2a 2a 2a 2a |*******.|********|
|000002c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002d0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 53 45 54 44 49 53 4b |********|.SETDISK|
|000002e0| 50 41 52 4d 53 0d 20 4c | 44 58 20 23 38 0d 20 4c |PARMS. L|DX #8. L|
|000002f0| 44 41 20 23 31 0d 20 4c | 44 59 20 23 30 0d 20 4a |DA #1. L|DY #0. J|
|00000300| 53 52 20 53 45 54 4c 46 | 53 0d 0d 2a a0 42 41 53 |SR SETLF|S..*.BAS|
|00000310| 4c a0 3d a0 53 54 41 52 | 54 a0 4f 46 a0 46 49 4c |L.=.STAR|T.OF.FIL|
|00000320| 45 4e 41 4d 45 0d 2a a0 | 6c 65 6e 67 74 68 a0 6e |ENAME.*.|length.n|
|00000330| 65 65 64 73 a0 74 6f a0 | 62 65 a0 69 6e a0 61 63 |eeds.to.|be.in.ac|
|00000340| 63 75 6d 0d 0d 20 6c 64 | 61 20 6c 65 6e 67 74 68 |cum.. ld|a length|
|00000350| 0d 20 4c 44 58 20 62 61 | 73 6c 0d 20 4c 44 59 20 |. LDX ba|sl. LDY |
|00000360| 62 61 73 6c 2b 31 0d 20 | 4a 4d 50 20 53 45 54 4e |basl+1. |JMP SETN|
|00000370| 41 4d 0d 20 72 74 73 0d | 44 49 53 4b 45 52 52 0d |AM. rts.|DISKERR.|
|00000380| 0d 20 52 54 53 0d 67 65 | 74 69 6e 75 6d 62 65 72 |. RTS.ge|tinumber|
|00000390| 0d 20 6a 73 72 20 63 68 | 6b 63 6f 6d 0d 20 6a 73 |. jsr ch|kcom. js|
|000003a0| 72 20 66 72 6d 65 76 61 | 6c 0d 20 6a 73 72 20 66 |r frmeva|l. jsr f|
|000003b0| 61 63 74 6f 69 6e 74 0d | 20 6c 64 79 20 23 24 30 |actoint.| ldy #$0|
|000003c0| 30 0d 20 6c 64 61 20 66 | 61 63 2b 34 0d 20 74 61 |0. lda f|ac+4. ta|
|000003d0| 78 0d 20 6c 64 61 20 66 | 61 63 2b 33 0d 20 74 61 |x. lda f|ac+3. ta|
|000003e0| 79 0d 20 72 74 73 0d 0d | 67 65 74 69 6e 73 74 72 |y. rts..|getinstr|
|000003f0| 0d 20 6a 73 72 20 63 68 | 6b 63 6f 6d 0d 20 6a 73 |. jsr ch|kcom. js|
|00000400| 72 20 66 72 6d 65 76 61 | 6c 0d 20 6a 73 72 20 66 |r frmeva|l. jsr f|
|00000410| 72 65 73 74 72 0d 20 72 | 74 73 0d                |restr. r|ts.     |
+--------+-------------------------+-------------------------+--------+--------+