Coleco SmartBASIC V1.0

A Coleco ADAM Blog

DDP Verifier


The DDP verifier is a program I wrote in Z80 machine language that will attempt to load all 256 blocks from tape and if not will let you know that it could not load the block. It does not do any writing to the tape, it just verifies that all blocks are readable. The ML code has been converted into data statements that along with the SmartBASIC loader will create a boot tape that will contain the verifier.

SmartBASIC type in:

1 HIMEM :39000: R = 40004: B = 40128
2 DATA 1,0,0,17,0,0,62,8,33,192,156,205,246,252,201
3 FOR K = 40000 TO 40014: READ D: POKE K,D: NEXT K
4 PRINT “PLACE BLANK TAPE IN DRIVE #1”: PRINT “AND PRESS RETURN”: INPUT Z$
5 READ A
6 IF A = -3 THEN CALL 40000: PRINT ” DONE”:END
7 IF A = -2 THEN READ A: POKE R,A: PRINT “WRITING RECORD “;A;: GOTO 5
8 IF A = -1 THEN READ A: FOR K = 0 TO 15: POKE B,A: B = B + 1: NEXT K: GOTO 5
9 POKE B,A: B = B + 1: GOTO 5
30 DATA -2,0
31 DATA 243,049,142,211,120,050,255,255,033,050,201,017,088,246,001,003
32 DATA 000,237,176,001,000,000,205,032,253,001,192,001,205,032,253,033
33 DATA 000,000,062,003,205,041,253,033,000,008,062,002,205,041,253,205
34 DATA 056,253,017,000,004,033,000,000,001,128,000,205,023,253,033,192
35 DATA 011,062,004,205,041,253,033,000,056,062,001,205,041,253,033,128
36 DATA 056,175,205,041,253,001,001,007,205,032,253,014,003,006,001,022
37 DATA 000,030,000,033,192,011,025,017,032,000,121,203,007,203,007,203
38 DATA 007,203,007,128,205,038,253,006,031,014,023,022,000,030,000,033
39 DATA 000,008,205,054,252,062,032,017,000,003,033,000,008,205,038,253
40 DATA 062,000,050,053,201,033,054,201,205,041,201,033,187,201,205,013
41 DATA 201,205,108,252,033,005,202,205,013,201,062,028,022,000,030,006
42 DATA 205,057,252,006,255,014,001,017,000,000,197,033,184,201,205,041
43 DATA 201,001,000,000,058,255,255,033,000,001,205,243,252,032,004,062
44 DATA 079,024,020,033,110,202,205,013,201,205,108,252,033,005,202,205
45 DATA 013,201,062,127,050,053,201,205,051,252,193,019,016,204,062,001
46 DATA 185,032,006,014,000,006,001,024,193,033,007,202,058,053,201,183
47 DATA 040,003,033,059,202,205,013,201,205,108,252,024,131,058,166,254
48 DATA 087,058,165,254,095,213,062,028,022,000,030,020,205,057,252,205
49 DATA 041,201,209,062,028,205,057,252,201,126,183,200,205,057,252,035
50 DATA 024,247,000,000,000,000,012,043,045,045,045,045,045,045,045,045
51 DATA 045,045,045,045,045,045,045,045,045,045,045,045,045,045,045,045
52 DATA 045,045,045,045,045,045,043,124,032,068,068,080,032,086,101,114
53 DATA 105,102,121,032,040,099,041,032,087,105,108,108,105,097,109,032
54 DATA 072,105,099,107,115,032,124,043,045,045,045,045,045,045,045,045
55 DATA 045,045,045,045,045,045,045,045,045,045,045,045,045,045,045,045
56 DATA 045,045,045,045,045,045,043,013,010,032,111,032,061,032,082,101
57 DATA 097,100,105,110,103,032,079,032,061,032,080,097,115,115,032,127
58 DATA 032,061,032,070,097,105,108,000,111,008,000,032,082,101,112,108
59 DATA 097,099,101,032,116,097,112,101,032,119,105,116,104,032,116,104
60 DATA 101,032,116,097,112,101,013,010,032,116,111,032,098,101,032,118
61 DATA 101,114,105,102,105,101,100,032,097,110,100,032,116,104,101,110
62 DATA 013,010,032,112,114,101,115,115,032,097,110,121,032,107,101,121
63 DATA 046,046,046,032,000,024,000,032,078,111,032,101,114,114,111,114
64 DATA 115,032,112,114,101,115,101,110,116,044,032,112,114,101,115,115
65 DATA 032,097,110,121,013,010,032,107,101,121,032,116,111,032,099,111
66 DATA 110,116,105,110,117,101,046,046,046,032,000,032,069,114,114,111
67 DATA 114,040,115,041,032,112,114,101,115,101,110,116,044,032,112,114
68 DATA 101,115,115,032,097,110,121,013,010,032,107,101,121,032,116,111
69 DATA 032,099,111,110,116,105,110,117,101,046,046,046,032,000,032,065
70 DATA 100,106,117,115,116,032,116,097,112,101,032,116,104,101,110,032
71 DATA 112,114,101,115,115,013,010,032,097,110,121,032,107,101,121,032
72 DATA 116,111,032,099,111,110,116,105,110,117,101,046,046,046,032,000
73 DATA -3

You can also view it in PDF format here.

Leave me a comment letting me know how this works for you.


Categorized as: Hardware | Software



Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.


© William "Milli" Hicks