> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 5A 00 8F 20 2A 2A 2A 20 43 50 2F 4D |..!.Z.. *** CP/M|
00000010: 2D 43 36 34 20 44 4F 57 4E 4C 4F 41 44 20 2A 2A |-C64 DOWNLOAD **|
00000020: 2A 00 38 08 64 00 89 20 32 31 30 3A 8F 20 49 4E |*.8.d.. 210:. IN|
00000030: 49 54 49 41 4C 49 5A 45 00 81 08 6E 00 A1 23 32 |ITIALIZE...n..#2|
00000040: 2C 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 31 31 |,A$:. A$."" . 11|
00000050: 30 3A 8F 20 47 45 54 53 20 41 20 43 48 41 54 41 |0:. GETS A CHATA|
00000060: 43 54 45 52 20 46 52 4F 4D 20 42 55 46 46 45 52 |CTER FROM BUFFER|
00000070: 2D 57 4F 4E 27 54 20 54 41 4B 45 20 4E 55 4C 4C |-WON'T TAKE NULL|
00000080: 53 00 BD 08 78 00 8B 20 41 24 B2 22 47 22 20 A7 |S...x.. A$."G" .|
00000090: 20 99 22 46 49 4C 45 20 45 4E 44 53 20 41 54 22 | ."FILE ENDS AT"|
000000A0: 3B 41 44 3A A0 22 3A 45 4E 44 3A 52 45 4D 20 47 |;AD:.":END:REM G|
000000B0: 20 49 53 20 4F 46 20 53 49 47 4E 41 4C 00 DC 08 | IS OF SIGNAL...|
000000C0: 82 00 54 25 B2 C6 28 41 24 29 3A 8F 20 47 45 54 |..T%..(A$):. GET|
000000D0: 53 20 41 53 43 49 49 20 43 4F 44 45 00 1D 09 8C |S ASCII CODE....|
000000E0: 00 99 41 24 3B 3A 97 20 41 44 2C 54 25 3A 41 44 |..A$;:. AD,T%:AD|
000000F0: B2 41 44 AA 31 3A 8F 20 50 4F 4B 45 53 20 20 20 |.AD.1:. POKES |
00000100: 4D 45 4D 4F 52 59 20 41 4E 44 20 49 4E 43 52 45 |MEMORY AND INCRE|
00000110: 4D 45 4E 54 53 20 41 44 44 52 45 53 53 00 5F 09 |MENTS ADDRESS._.|
00000120: 96 00 53 52 B2 53 54 3A 8B 53 52 B2 30 20 A7 20 |..SR.ST:.SR.0 . |
00000130: 31 31 30 3A 8F 20 45 52 52 4F 52 20 20 20 20 20 |110:. ERROR |
00000140: 43 48 45 43 4B 49 4E 47 2D 49 46 20 4F 4B 20 47 |CHECKING-IF OK G|
00000150: 4F 45 53 20 42 41 43 4B 20 54 4F 20 31 31 30 00 |OES BACK TO 110.|
00000160: 6C 09 A0 00 99 22 45 52 52 4F 52 22 00 85 09 AA |l...."ERROR"....|
00000170: 00 8B 20 53 52 20 AF 20 31 20 A7 20 99 22 50 41 |.. SR . 1 . ."PA|
00000180: 52 49 54 59 22 00 9D 09 B4 00 8B 20 53 52 20 AF |RITY"...... SR .|
00000190: 20 32 20 A7 20 99 22 46 52 41 4D 45 22 00 C4 09 | 2 . ."FRAME"...|
000001A0: BE 00 8B 20 53 52 20 AF 20 34 20 A7 20 99 22 52 |... SR . 4 . ."R|
000001B0: 45 43 45 49 56 45 52 20 42 55 46 46 45 52 20 46 |ECEIVER BUFFER F|
000001C0: 55 4C 4C 22 00 DE 09 C8 00 8B 20 53 52 20 AF 20 |ULL"...... SR . |
000001D0: 31 32 38 20 A7 20 99 22 42 52 45 41 4B 22 00 23 |128 . ."BREAK".#|
000001E0: 0A D2 00 9F 20 32 2C 32 2C 33 2C C7 28 33 38 29 |.... 2,2,3,.(38)|
000001F0: AA C7 28 31 37 36 29 3A 8F 20 20 33 4C 49 4E 45 |..(176):. 3LINE|
00000200: 2C 20 4D 41 52 4B 20 50 41 52 49 54 59 2C 20 49 |, MARK PARITY, I|
00000210: 20 53 54 4F 50 20 42 49 54 2C 20 33 30 30 20 42 | STOP BIT, 300 B|
00000220: 41 55 44 00 67 0A DC 00 41 44 B2 39 32 31 36 3A |AUD.g...AD.9216:|
00000230: 8F 20 54 48 49 53 20 49 53 20 57 48 45 52 45 20 |. THIS IS WHERE |
00000240: 50 52 4F 47 52 41 4D 20 53 54 41 52 54 53 20 49 |PROGRAM STARTS I|
00000250: 4E 20 4D 45 4D 4F 52 59 2D 24 31 34 30 30 20 46 |N MEMORY-$1400 F|
00000260: 4F 52 20 43 50 2F 4D 00 84 0A E6 00 A1 20 23 32 |OR CP/M...... #2|
00000270: 2C 41 24 3A 8F 20 54 55 52 4E 53 20 4F 4E 20 52 |,A$:. TURNS ON R|
00000280: 53 32 33 32 00 A3 0A F0 00 99 22 50 52 45 53 53 |S232......"PRESS|
00000290: 20 52 45 54 55 52 4E 20 57 48 45 4E 20 52 45 41 | RETURN WHEN REA|
000002A0: 44 59 22 00 D2 0A FA 00 A1 20 41 24 3A 8B 20 41 |DY"...... A$:. A|
000002B0: 24 B3 B1 C7 28 31 33 29 20 A7 20 32 35 30 3A 20 |$...(13) . 250: |
000002C0: 8F 20 57 41 49 54 53 20 46 4F 52 20 52 45 54 55 |. WAITS FOR RETU|
000002D0: 52 4E 00 F6 0A 04 01 99 22 93 52 45 41 44 59 20 |RN......".READY |
000002E0: 54 4F 20 52 45 43 45 49 56 45 20 44 41 54 41 22 |TO RECEIVE DATA"|
000002F0: 3A 89 20 31 31 30 00 00 00 |:. 110... |
..!.Z.. *** CP/M-C64 DOWNLOAD ***.8.D..
210:. INITIALIZE...N..#2,A$:. A$."" . 11
0:. GETS A CHATACTER FROM BUFFER-WON'T T
AKE NULLS...X.. A$."G" . ."FILE ENDS AT"
;AD: ":END:REM G IS OF SIGNAL.....T%.F(A
$):. GETS ASCII CODE......A$;:. AD,T%:AD
.AD.1:. POKES MEMORY AND INCREMENTS AD
DRESS._...SR.ST:.SR.0 . 110:. ERROR
CHECKING-IF OK GOES BACK TO 110.L. .."ER
ROR"...... SR . 1 . ."PARITY"...... SR .
2 . ."FRAME".D.... SR . 4 . ."RECEIVER
BUFFER FULL"...H.. SR . 128 . ."BREAK".#
.R.. 2,2,3,G(38).G(176):. 3LINE, MARK P
ARITY, I STOP BIT, 300 BAUD.G...AD.9216:
. THIS IS WHERE PROGRAM STARTS IN MEMORY
-$1400 FOR CP/M...... #2,A$:. TURNS ON R
S232......"PRESS RETURN WHEN READY".R...
. A$:. A$..G(13) . 250: . WAITS FOR RETU
RN......".READY TO RECEIVE DATA":. 110..
.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL