Home » Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk02b_eug_scripts.adf » SHIP64/DispMap
SHIP64/DispMap
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/DispMap |
| Read OK: | ✔ |
| File size: | 01D0 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF802B |
File contents
10 MODE2:HIMEM=&1F00:*LO. SHIP3 20 FORR=&6C00TO&7FFFSTEP4:!(R-&1000)=!R:NEXT 30 MODE7:HIMEM=&5C00 40 FORys=0TO4:FORxs=0TO15:FORy=0TO9:FORx=0TO9 50 ad=&5C00+ys*&400+xs*&40:bit=50*y+4*x+2*(x DIV 2):ad=ad+(bit DIV8):bit=bit AND7 60 d%=0:FORbitdat=0TO4:d%=d%+2^bitdat*-((?ad AND 2^(bit))<>0) 70 bit=bit+1:IF bit=8 THEN bit=0:ad=ad+1 80 IF bitdat=3 AND (x AND1)=0 THEN bit=bit+4:IF bit>7 THEN bit=bit-8:ad=ad+1 90 IF bitdat=3 AND (x AND1)=1 THEN bit=bit+1:IF bit=8 THEN bit=0:ad=ad+1 100 NEXT:PRINTCHR$(48+d%-7*(d%>9));:NEXT:PRINT:NEXT:REPEAT UNTIL INKEY(-99):PRINT:NEXT,
�2:�=&1F00:*LO. SHIP3 % �R=&6C00�&7FFF�4:!(R-&1000)=!R:� �7:�=&5C00 (# �ys=0�4:�xs=0�15:�y=0�9:�x=0�9 2M ad=&5C00+ys*&400+xs*&40:bit=50*y+4*x+2*(x � 2):ad=ad+(bit �8):bit=bit �7 <: d%=0:�bitdat=0�4:d%=d%+2^bitdat*-((?ad � 2^(bit))<>0) F& bit=bit+1:� bit=8 � bit=0:ad=ad+1 PB � bitdat=3 � (x �1)=0 � bit=bit+4:� bit>7 � bit=bit-8:ad=ad+1 Z> � bitdat=3 � (x �1)=1 � bit=bit+1:� bit=8 � bit=0:ad=ad+1 d0 �:�(48+d%-7*(d%>9));:�:�:�:� � �(-99):�:�, �
00000000 0d 00 0a 1a 20 eb 32 3a d3 3d 26 31 46 30 30 3a |.... .2:.=&1F00:| 00000010 2a 4c 4f 2e 20 53 48 49 50 33 0d 00 14 25 20 e3 |*LO. SHIP3...% .| 00000020 52 3d 26 36 43 30 30 b8 26 37 46 46 46 88 34 3a |R=&6C00.&7FFF.4:| 00000030 21 28 52 2d 26 31 30 30 30 29 3d 21 52 3a ed 0d |!(R-&1000)=!R:..| 00000040 00 1e 0f 20 eb 37 3a d3 3d 26 35 43 30 30 0d 00 |... .7:.=&5C00..| 00000050 28 23 20 e3 79 73 3d 30 b8 34 3a e3 78 73 3d 30 |(# .ys=0.4:.xs=0| 00000060 b8 31 35 3a e3 79 3d 30 b8 39 3a e3 78 3d 30 b8 |.15:.y=0.9:.x=0.| 00000070 39 0d 00 32 4d 20 61 64 3d 26 35 43 30 30 2b 79 |9..2M ad=&5C00+y| 00000080 73 2a 26 34 30 30 2b 78 73 2a 26 34 30 3a 62 69 |s*&400+xs*&40:bi| 00000090 74 3d 35 30 2a 79 2b 34 2a 78 2b 32 2a 28 78 20 |t=50*y+4*x+2*(x | 000000a0 81 20 32 29 3a 61 64 3d 61 64 2b 28 62 69 74 20 |. 2):ad=ad+(bit | 000000b0 81 38 29 3a 62 69 74 3d 62 69 74 20 80 37 0d 00 |.8):bit=bit .7..| 000000c0 3c 3a 20 64 25 3d 30 3a e3 62 69 74 64 61 74 3d |<: d%=0:.bitdat=| 000000d0 30 b8 34 3a 64 25 3d 64 25 2b 32 5e 62 69 74 64 |0.4:d%=d%+2^bitd| 000000e0 61 74 2a 2d 28 28 3f 61 64 20 80 20 32 5e 28 62 |at*-((?ad . 2^(b| 000000f0 69 74 29 29 3c 3e 30 29 0d 00 46 26 20 62 69 74 |it))<>0)..F& bit| 00000100 3d 62 69 74 2b 31 3a e7 20 62 69 74 3d 38 20 8c |=bit+1:. bit=8 .| 00000110 20 62 69 74 3d 30 3a 61 64 3d 61 64 2b 31 0d 00 | bit=0:ad=ad+1..| 00000120 50 42 20 e7 20 62 69 74 64 61 74 3d 33 20 80 20 |PB . bitdat=3 . | 00000130 28 78 20 80 31 29 3d 30 20 8c 20 62 69 74 3d 62 |(x .1)=0 . bit=b| 00000140 69 74 2b 34 3a e7 20 62 69 74 3e 37 20 8c 20 62 |it+4:. bit>7 . b| 00000150 69 74 3d 62 69 74 2d 38 3a 61 64 3d 61 64 2b 31 |it=bit-8:ad=ad+1| 00000160 0d 00 5a 3e 20 e7 20 62 69 74 64 61 74 3d 33 20 |..Z> . bitdat=3 | 00000170 80 20 28 78 20 80 31 29 3d 31 20 8c 20 62 69 74 |. (x .1)=1 . bit| 00000180 3d 62 69 74 2b 31 3a e7 20 62 69 74 3d 38 20 8c |=bit+1:. bit=8 .| 00000190 20 62 69 74 3d 30 3a 61 64 3d 61 64 2b 31 0d 00 | bit=0:ad=ad+1..| 000001a0 64 30 20 ed 3a f1 bd 28 34 38 2b 64 25 2d 37 2a |d0 .:..(48+d%-7*| 000001b0 28 64 25 3e 39 29 29 3b 3a ed 3a f1 3a ed 3a f5 |(d%>9));:.:.:.:.| 000001c0 20 fd 20 a6 28 2d 39 39 29 3a f1 3a ed 2c 0d ff | . .(-99):.:.,..| 000001d0
.