Home » Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk02b_eug_scripts.adf » SHIP64/Convert64
SHIP64/Convert64
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk02b_eug_scripts.adf |
| Filename: | SHIP64/Convert64 |
| Read OK: | ✔ |
| File size: | 0220 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF802B |
File contents
10 BD=&2000:MODE2:HIMEM=&2000:OSCLI"LOAD BLOCDAT 2000":VDU23,1,0;0;0;0;:DIMC(2):FORS=0TO31 20 FORR=0TO127 30 A=?BD:BD=BD+1:?(&3000+R+&240*(R DIV 64))=A 40 NEXT 50 C(0)=-1:C(1)=-1:C(2)=-1:CM=-1:FORX=0TO15:FORY=0TO15 60 C%=POINT(X*8,1020-Y*4) 70 IF C%=0 THEN COL%=0:GOTO130 80 IF C%=C(0) THEN COL%=1:GOTO130 90 IF C%=C(1) THEN COL%=2:GOTO130 100 IF C%=C(2) THEN COL%=3:GOTO130 110 CM=CM+1:IF CM=3 THEN PRINT"COLOURS":END 120 C(CM)=C%:COL%=CM+1 130 AD=&3A00+64*S+32*(Y DIV 8)+8*(X DIV 4)+(Y MOD 8):BT=4^(X AND 3) 140 ?AD=(?AD AND (255-3*BT))+COL%*BT 150 NEXT, 160 PRINTTAB(0,20)C(0)'C(1)'C(2) 180 NEXT 190 *SA. C64ChDat 3A00 4200
J BD=&2000:�2:�=&2000:�"LOAD BLOCDAT 2000":�23,1,0;0;0;0;:�C(2):�S=0�31 �R=0�127 - A=?BD:BD=BD+1:?(&3000+R+&240*(R � 64))=A ( � 22 C(0)=-1:C(1)=-1:C(2)=-1:CM=-1:�X=0�15:�Y=0�15 < C%=�X*8,1020-Y*4) F � C%=0 � COL%=0:�tB@ P � C%=C(0) � COL%=1:�tB@ Z � C%=C(1) � COL%=2:�tB@ d � C%=C(2) � COL%=3:�tB@ n" CM=CM+1:� CM=3 � �"COLOURS":� x C(CM)=C%:COL%=CM+1 �< AD=&3A00+64*S+32*(Y � 8)+8*(X � 4)+(Y � 8):BT=4^(X � 3) �# ?AD=(?AD � (255-3*BT))+COL%*BT � �, � �0,20)C(0)'C(1)'C(2) � � � *SA. C64ChDat 3A00 4200 �
00000000 0d 00 0a 4a 20 42 44 3d 26 32 30 30 30 3a eb 32 |...J BD=&2000:.2| 00000010 3a d3 3d 26 32 30 30 30 3a ff 22 4c 4f 41 44 20 |:.=&2000:."LOAD | 00000020 42 4c 4f 43 44 41 54 20 32 30 30 30 22 3a ef 32 |BLOCDAT 2000":.2| 00000030 33 2c 31 2c 30 3b 30 3b 30 3b 30 3b 3a de 43 28 |3,1,0;0;0;0;:.C(| 00000040 32 29 3a e3 53 3d 30 b8 33 31 0d 00 14 0d 20 e3 |2):.S=0.31.... .| 00000050 52 3d 30 b8 31 32 37 0d 00 1e 2d 20 41 3d 3f 42 |R=0.127...- A=?B| 00000060 44 3a 42 44 3d 42 44 2b 31 3a 3f 28 26 33 30 30 |D:BD=BD+1:?(&300| 00000070 30 2b 52 2b 26 32 34 30 2a 28 52 20 81 20 36 34 |0+R+&240*(R . 64| 00000080 29 29 3d 41 0d 00 28 06 20 ed 0d 00 32 32 20 43 |))=A..(. ...22 C| 00000090 28 30 29 3d 2d 31 3a 43 28 31 29 3d 2d 31 3a 43 |(0)=-1:C(1)=-1:C| 000000a0 28 32 29 3d 2d 31 3a 43 4d 3d 2d 31 3a e3 58 3d |(2)=-1:CM=-1:.X=| 000000b0 30 b8 31 35 3a e3 59 3d 30 b8 31 35 0d 00 3c 16 |0.15:.Y=0.15..<.| 000000c0 20 43 25 3d b0 58 2a 38 2c 31 30 32 30 2d 59 2a | C%=.X*8,1020-Y*| 000000d0 34 29 0d 00 46 1a 20 e7 20 43 25 3d 30 20 8c 20 |4)..F. . C%=0 . | 000000e0 43 4f 4c 25 3d 30 3a e5 8d 74 42 40 0d 00 50 1d |COL%=0:..tB@..P.| 000000f0 20 e7 20 43 25 3d 43 28 30 29 20 8c 20 43 4f 4c | . C%=C(0) . COL| 00000100 25 3d 31 3a e5 8d 74 42 40 0d 00 5a 1d 20 e7 20 |%=1:..tB@..Z. . | 00000110 43 25 3d 43 28 31 29 20 8c 20 43 4f 4c 25 3d 32 |C%=C(1) . COL%=2| 00000120 3a e5 8d 74 42 40 0d 00 64 1d 20 e7 20 43 25 3d |:..tB@..d. . C%=| 00000130 43 28 32 29 20 8c 20 43 4f 4c 25 3d 33 3a e5 8d |C(2) . COL%=3:..| 00000140 74 42 40 0d 00 6e 22 20 43 4d 3d 43 4d 2b 31 3a |tB@..n" CM=CM+1:| 00000150 e7 20 43 4d 3d 33 20 8c 20 f1 22 43 4f 4c 4f 55 |. CM=3 . ."COLOU| 00000160 52 53 22 3a e0 0d 00 78 17 20 43 28 43 4d 29 3d |RS":...x. C(CM)=| 00000170 43 25 3a 43 4f 4c 25 3d 43 4d 2b 31 0d 00 82 3c |C%:COL%=CM+1...<| 00000180 20 41 44 3d 26 33 41 30 30 2b 36 34 2a 53 2b 33 | AD=&3A00+64*S+3| 00000190 32 2a 28 59 20 81 20 38 29 2b 38 2a 28 58 20 81 |2*(Y . 8)+8*(X .| 000001a0 20 34 29 2b 28 59 20 83 20 38 29 3a 42 54 3d 34 | 4)+(Y . 8):BT=4| 000001b0 5e 28 58 20 80 20 33 29 0d 00 8c 23 20 3f 41 44 |^(X . 3)...# ?AD| 000001c0 3d 28 3f 41 44 20 80 20 28 32 35 35 2d 33 2a 42 |=(?AD . (255-3*B| 000001d0 54 29 29 2b 43 4f 4c 25 2a 42 54 0d 00 96 07 20 |T))+COL%*BT.... | 000001e0 ed 2c 0d 00 a0 1a 20 f1 8a 30 2c 32 30 29 43 28 |.,.... ..0,20)C(| 000001f0 30 29 27 43 28 31 29 27 43 28 32 29 0d 00 b4 06 |0)'C(1)'C(2)....| 00000200 20 ed 0d 00 be 1c 20 2a 53 41 2e 20 43 36 34 43 | ..... *SA. C64C| 00000210 68 44 61 74 20 33 41 30 30 20 34 32 30 30 0d ff |hDat 3A00 4200..| 00000220
SHIP64/Convert64.m0
SHIP64/Convert64.m1
SHIP64/Convert64.m2
SHIP64/Convert64.m4
SHIP64/Convert64.m5
.