Home » Personal collection » Acorn hard disk » files » BASIC » SpinZoomF

SpinZoomF

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 hard disk » files » BASIC
Filename: SpinZoomF
Read OK:
File size: 13A7 bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
    1REM ** Real time spin & zoom Version 2 - loops unwrapped **
    2REM ** By Benjohn Barnes & Alan Taylor (University of Warwick) **
    3REM ** Move mouse left/right to zoom ** 
    4
    5MODE13
    6hpix% = 320
    7vpix% = 256
    8OFF
    9
   10DIM Code% 1024
   11
   12result         = 0
   13point          = 1
   14endofline      = 2
   15finished       = 3
   16worldlinestart = 4
   17worldxy        = 5
   18worldli        = 6
   19worlddi        = 7
   20colour         = 8
   21colour2        = 9
   22colour3        = 10
   23colour4        = 11
   24mask           = 12
   25link           = 14
   26pc             = 15
   27
   28FOR Pass%=0 TO 2 STEP 2
   29P%=Code%
   30[
   31OPT Pass%
   32
   33.begin   STMFD r13!, {link}
   34         LDR    point, ssa
   35         LDR    endofline, eol
   36         LDR    finished, sea
   37         LDR    worldlinestart, wxy
   38         MOV    worldxy,   worldlinestart
   39         LDR    worldli, wli
   40         LDR    worlddi, wdi
   41         MOV    mask, #&ff000000
   42
   43.loop    AND    result, worldxy, worldxy, ASL #16
   44         AND    result, result, mask
   45         MOV    colour, result, LSR #24
   46         ADD    worldxy, worldxy, worldli
   47
   48         AND    result, worldxy, worldxy, ASL #16
   49         AND    result, result, mask
   50         ORR    colour, colour, result, LSR #16
   51         ADD    worldxy,   worldxy,   worldli
   52
   53         AND    result, worldxy, worldxy, ASL #16
   54         AND    result, result, mask
   55         ORR    colour, colour, result, LSR #8
   56         ADD    worldxy,   worldxy,   worldli
   57
   58         AND    result, worldxy, worldxy, ASL #16
   59         AND    result, result, mask
   60         ORR    colour, colour, result
   61         ADD    worldxy, worldxy, worldli
   62
   63         AND    result, worldxy, worldxy, ASL #16
   64         AND    result, result, mask
   65         MOV    colour2, result, LSR #24
   66         ADD    worldxy, worldxy, worldli
   67
   68         AND    result, worldxy, worldxy, ASL #16
   69         AND    result, result, mask
   70         ORR    colour2, colour2, result, LSR #16
   71         ADD    worldxy,   worldxy,   worldli
   72
   73         AND    result, worldxy, worldxy, ASL #16
   74         AND    result, result, mask
   75         ORR    colour2, colour2, result, LSR #8
   76         ADD    worldxy,   worldxy,   worldli
   77
   78         AND    result, worldxy, worldxy, ASL #16
   79         AND    result, result, mask
   80         ORR    colour2, colour2, result
   81         ADD    worldxy, worldxy, worldli
   82                                      
   83         AND    result, worldxy, worldxy, ASL #16
   84         AND    result, result, mask
   85         MOV    colour3, result, LSR #24
   86         ADD    worldxy, worldxy, worldli
   87
   88         AND    result, worldxy, worldxy, ASL #16
   89         AND    result, result, mask
   90         ORR    colour3, colour3, result, LSR #16
   91         ADD    worldxy,   worldxy,   worldli
   92
   93         AND    result, worldxy, worldxy, ASL #16
   94         AND    result, result, mask
   95         ORR    colour3, colour3, result, LSR #8
   96         ADD    worldxy,   worldxy,   worldli
   97
   98         AND    result, worldxy, worldxy, ASL #16
   99         AND    result, result, mask
  100         ORR    colour3, colour3, result
  101         ADD    worldxy, worldxy, worldli
  102
  103         AND    result, worldxy, worldxy, ASL #16
  104         AND    result, result, mask
  105         MOV    colour4, result, LSR #24
  106         ADD    worldxy, worldxy, worldli
  107
  108         AND    result, worldxy, worldxy, ASL #16
  109         AND    result, result, mask
  110         ORR    colour4, colour4, result, LSR #16
  111         ADD    worldxy,   worldxy,   worldli
  112
  113         AND    result, worldxy, worldxy, ASL #16
  114         AND    result, result, mask
  115         ORR    colour4, colour4, result, LSR #8
  116         ADD    worldxy,   worldxy,   worldli
  117
  118         AND    result, worldxy, worldxy, ASL #16
  119         AND    result, result, mask
  120         ORR    colour4, colour4, result
  121         ADD    worldxy, worldxy, worldli
  122         
  123         STMib  (point)!, {colour - colour4}
  124        
  125         CMP    point, endofline
  126         Blt    loop
  127
  128         ADD    worldlinestart, worldlinestart, worlddi
  129         MOV    worldxy, worldlinestart
  130         ADD    endofline, endofline, #hpix%
  131         CMP    endofline, finished
  132         Blt    loop
  133
  134.ret     LDMFD  r13!, {pc}
  135
  136.ssa     EQUD  FNScreenAddress - 4
  137.eol     EQUD  !ssa + hpix%
  138.sea     EQUD  !ssa + hpix% * vpix%
  139.wxy     EQUD  &00000000
  140.wli     EQUD  &00000080
  141.wdi     EQUD  &00800000
  142]
  143NEXT
  144
  145T = 2^14
  146REPEAT
  147      FOR S% = 0 TO 359
  148          MOUSE A%,B%,C%
  149          WAIT
  150          CALL begin
  151          !wli = INT(A%*SINRAD(S%)) + INT(A%*COSRAD(S%))*2^16
  152          !wdi = INT(A%*COSRAD(S%)) - INT(A%*SINRAD(S%))*2^16
  153          !wxy = -INT(T*SINRAD(S%)+T*COSRAD(S%)) - INT(T*COSRAD(S%)-T*SINRAD(S%))*2^16
  154      NEXT
  155UNTIL FALSE
  156END
  157
  158DEF FNScreenAddress
  159    DIM Blk% 16
  160    Blk%!00 = 149
  161    Blk%!04 = -1
  162    SYS "OS_ReadVduVariables", Blk%, Blk%+8
  163= Blk%!08
  164
  165
  166
  167
=� ** Real time spin & zoom Version 2 - loops unwrapped **
C� ** By Benjohn Barnes & Alan Taylor (University of Warwick) **
*� ** Move mouse left/right to zoom ** 

�13
hpix% = 320
vpix% = 256
�
	

� Code% 1024

result         = 0

point          = 1
endofline      = 2
finished       = 3
worldlinestart = 4
worldxy        = 5
worldli        = 6
worlddi        = 7
colour         = 8
colour2        = 9
colour3        = 10
colour4        = 11
mask           = 12
link           = 14
pc             = 15

� Pass%=0 � 2 � 2
P%=Code%
[

OPT Pass%
 
!.begin   STMFD r13!, {link}
"         LDR    point, ssa
#"         LDR    endofline, eol
$!         LDR    finished, sea
%'         LDR    worldlinestart, wxy
&-         MOV    worldxy,   worldlinestart
'          LDR    worldli, wli
(          LDR    worlddi, wdi
)$         MOV    mask, #&ff000000
*
+3.loop    �    result, worldxy, worldxy, ASL #16
,&         �    result, result, mask
-+         MOV    colour, result, LSR #24
.-         ADD    worldxy, worldxy, worldli
/
03         �    result, worldxy, worldxy, ASL #16
1&         �    result, result, mask
22         �R    colour, colour, result, LSR #16
31         ADD    worldxy,   worldxy,   worldli
4
53         �    result, worldxy, worldxy, ASL #16
6&         �    result, result, mask
71         �R    colour, colour, result, LSR #8
81         ADD    worldxy,   worldxy,   worldli
9
:3         �    result, worldxy, worldxy, ASL #16
;&         �    result, result, mask
<)         �R    colour, colour, result
=-         ADD    worldxy, worldxy, worldli
>
?3         �    result, worldxy, worldxy, ASL #16
@&         �    result, result, mask
A,         MOV    colour2, result, LSR #24
B-         ADD    worldxy, worldxy, worldli
C
D3         �    result, worldxy, worldxy, ASL #16
E&         �    result, result, mask
F4         �R    colour2, colour2, result, LSR #16
G1         ADD    worldxy,   worldxy,   worldli
H
I3         �    result, worldxy, worldxy, ASL #16
J&         �    result, result, mask
K3         �R    colour2, colour2, result, LSR #8
L1         ADD    worldxy,   worldxy,   worldli
M
N3         �    result, worldxy, worldxy, ASL #16
O&         �    result, result, mask
P+         �R    colour2, colour2, result
Q-         ADD    worldxy, worldxy, worldli
R*                                      
S3         �    result, worldxy, worldxy, ASL #16
T&         �    result, result, mask
U,         MOV    colour3, result, LSR #24
V-         ADD    worldxy, worldxy, worldli
W
X3         �    result, worldxy, worldxy, ASL #16
Y&         �    result, result, mask
Z4         �R    colour3, colour3, result, LSR #16
[1         ADD    worldxy,   worldxy,   worldli
\
]3         �    result, worldxy, worldxy, ASL #16
^&         �    result, result, mask
_3         �R    colour3, colour3, result, LSR #8
`1         ADD    worldxy,   worldxy,   worldli
a
b3         �    result, worldxy, worldxy, ASL #16
c&         �    result, result, mask
d+         �R    colour3, colour3, result
e-         ADD    worldxy, worldxy, worldli
f
g3         �    result, worldxy, worldxy, ASL #16
h&         �    result, result, mask
i,         MOV    colour4, result, LSR #24
j-         ADD    worldxy, worldxy, worldli
k
l3         �    result, worldxy, worldxy, ASL #16
m&         �    result, result, mask
n4         �R    colour4, colour4, result, LSR #16
o1         ADD    worldxy,   worldxy,   worldli
p
q3         �    result, worldxy, worldxy, ASL #16
r&         �    result, result, mask
s3         �R    colour4, colour4, result, LSR #8
t1         ADD    worldxy,   worldxy,   worldli
u
v3         �    result, worldxy, worldxy, ASL #16
w&         �    result, result, mask
x+         �R    colour4, colour4, result
y-         ADD    worldxy, worldxy, worldli
z
         
{0         STMib  (point)!, {colour - colour4}
|        
}$         CMP    point, endofline
~         Blt    loop

�;         ADD    worldlinestart, worldlinestart, worlddi
�+         MOV    worldxy, worldlinestart
�0         ADD    endofline, endofline, #hpix%
�'         CMP    endofline, finished
�         Blt    loop
�
�.ret     LDMFD  r13!, {pc}
�
�%.ssa     EQUD  �ScreenAddress - 4
�.eol     EQUD  !ssa + hpix%
�'.sea     EQUD  !ssa + hpix% * vpix%
�.wxy     EQUD  &00000000
�.wli     EQUD  &00000080
�.wdi     EQUD  &00800000
�]
��
�
�T = 2^14
��
�      � S% = 0 � 359
�          ȗ A%,B%,C%
�          Ȗ
�          � begin
�5          !wli = �(A%*��(S%)) + �(A%*��(S%))*2^16
�5          !wdi = �(A%*��(S%)) - �(A%*��(S%))*2^16
�F          !wxy = -�(T*��(S%)+T*��(S%)) - �(T*��(S%)-T*��(S%))*2^16
�      �
�� �
��
�
�� �ScreenAddress
�    � Blk% 16
�    Blk%!00 = 149
�    Blk%!04 = -1
�.    ș "OS_ReadVduVariables", Blk%, Blk%+8
�
= Blk%!08
�
�
�
�
�
00000000  0d 00 01 3d f4 20 2a 2a  20 52 65 61 6c 20 74 69  |...=. ** Real ti|
00000010  6d 65 20 73 70 69 6e 20  26 20 7a 6f 6f 6d 20 56  |me spin & zoom V|
00000020  65 72 73 69 6f 6e 20 32  20 2d 20 6c 6f 6f 70 73  |ersion 2 - loops|
00000030  20 75 6e 77 72 61 70 70  65 64 20 2a 2a 0d 00 02  | unwrapped **...|
00000040  43 f4 20 2a 2a 20 42 79  20 42 65 6e 6a 6f 68 6e  |C. ** By Benjohn|
00000050  20 42 61 72 6e 65 73 20  26 20 41 6c 61 6e 20 54  | Barnes & Alan T|
00000060  61 79 6c 6f 72 20 28 55  6e 69 76 65 72 73 69 74  |aylor (Universit|
00000070  79 20 6f 66 20 57 61 72  77 69 63 6b 29 20 2a 2a  |y of Warwick) **|
00000080  0d 00 03 2a f4 20 2a 2a  20 4d 6f 76 65 20 6d 6f  |...*. ** Move mo|
00000090  75 73 65 20 6c 65 66 74  2f 72 69 67 68 74 20 74  |use left/right t|
000000a0  6f 20 7a 6f 6f 6d 20 2a  2a 20 0d 00 04 04 0d 00  |o zoom ** ......|
000000b0  05 07 eb 31 33 0d 00 06  0f 68 70 69 78 25 20 3d  |...13....hpix% =|
000000c0  20 33 32 30 0d 00 07 0f  76 70 69 78 25 20 3d 20  | 320....vpix% = |
000000d0  32 35 36 0d 00 08 05 87  0d 00 09 04 0d 00 0a 10  |256.............|
000000e0  de 20 43 6f 64 65 25 20  31 30 32 34 0d 00 0b 04  |. Code% 1024....|
000000f0  0d 00 0c 16 72 65 73 75  6c 74 20 20 20 20 20 20  |....result      |
00000100  20 20 20 3d 20 30 0d 00  0d 16 70 6f 69 6e 74 20  |   = 0....point |
00000110  20 20 20 20 20 20 20 20  20 3d 20 31 0d 00 0e 16  |         = 1....|
00000120  65 6e 64 6f 66 6c 69 6e  65 20 20 20 20 20 20 3d  |endofline      =|
00000130  20 32 0d 00 0f 16 66 69  6e 69 73 68 65 64 20 20  | 2....finished  |
00000140  20 20 20 20 20 3d 20 33  0d 00 10 16 77 6f 72 6c  |     = 3....worl|
00000150  64 6c 69 6e 65 73 74 61  72 74 20 3d 20 34 0d 00  |dlinestart = 4..|
00000160  11 16 77 6f 72 6c 64 78  79 20 20 20 20 20 20 20  |..worldxy       |
00000170  20 3d 20 35 0d 00 12 16  77 6f 72 6c 64 6c 69 20  | = 5....worldli |
00000180  20 20 20 20 20 20 20 3d  20 36 0d 00 13 16 77 6f  |       = 6....wo|
00000190  72 6c 64 64 69 20 20 20  20 20 20 20 20 3d 20 37  |rlddi        = 7|
000001a0  0d 00 14 16 63 6f 6c 6f  75 72 20 20 20 20 20 20  |....colour      |
000001b0  20 20 20 3d 20 38 0d 00  15 16 63 6f 6c 6f 75 72  |   = 8....colour|
000001c0  32 20 20 20 20 20 20 20  20 3d 20 39 0d 00 16 17  |2        = 9....|
000001d0  63 6f 6c 6f 75 72 33 20  20 20 20 20 20 20 20 3d  |colour3        =|
000001e0  20 31 30 0d 00 17 17 63  6f 6c 6f 75 72 34 20 20  | 10....colour4  |
000001f0  20 20 20 20 20 20 3d 20  31 31 0d 00 18 17 6d 61  |      = 11....ma|
00000200  73 6b 20 20 20 20 20 20  20 20 20 20 20 3d 20 31  |sk           = 1|
00000210  32 0d 00 19 17 6c 69 6e  6b 20 20 20 20 20 20 20  |2....link       |
00000220  20 20 20 20 3d 20 31 34  0d 00 1a 17 70 63 20 20  |    = 14....pc  |
00000230  20 20 20 20 20 20 20 20  20 20 20 3d 20 31 35 0d  |           = 15.|
00000240  00 1b 04 0d 00 1c 15 e3  20 50 61 73 73 25 3d 30  |........ Pass%=0|
00000250  20 b8 20 32 20 88 20 32  0d 00 1d 0c 50 25 3d 43  | . 2 . 2....P%=C|
00000260  6f 64 65 25 0d 00 1e 05  5b 0d 00 1f 0d 4f 50 54  |ode%....[....OPT|
00000270  20 50 61 73 73 25 0d 00  20 04 0d 00 21 1f 2e 62  | Pass%.. ...!..b|
00000280  65 67 69 6e 20 20 20 53  54 4d 46 44 20 72 31 33  |egin   STMFD r13|
00000290  21 2c 20 7b 6c 69 6e 6b  7d 0d 00 22 1e 20 20 20  |!, {link}..".   |
000002a0  20 20 20 20 20 20 4c 44  52 20 20 20 20 70 6f 69  |      LDR    poi|
000002b0  6e 74 2c 20 73 73 61 0d  00 23 22 20 20 20 20 20  |nt, ssa..#"     |
000002c0  20 20 20 20 4c 44 52 20  20 20 20 65 6e 64 6f 66  |    LDR    endof|
000002d0  6c 69 6e 65 2c 20 65 6f  6c 0d 00 24 21 20 20 20  |line, eol..$!   |
000002e0  20 20 20 20 20 20 4c 44  52 20 20 20 20 66 69 6e  |      LDR    fin|
000002f0  69 73 68 65 64 2c 20 73  65 61 0d 00 25 27 20 20  |ished, sea..%'  |
00000300  20 20 20 20 20 20 20 4c  44 52 20 20 20 20 77 6f  |       LDR    wo|
00000310  72 6c 64 6c 69 6e 65 73  74 61 72 74 2c 20 77 78  |rldlinestart, wx|
00000320  79 0d 00 26 2d 20 20 20  20 20 20 20 20 20 4d 4f  |y..&-         MO|
00000330  56 20 20 20 20 77 6f 72  6c 64 78 79 2c 20 20 20  |V    worldxy,   |
00000340  77 6f 72 6c 64 6c 69 6e  65 73 74 61 72 74 0d 00  |worldlinestart..|
00000350  27 20 20 20 20 20 20 20  20 20 20 4c 44 52 20 20  |'          LDR  |
00000360  20 20 77 6f 72 6c 64 6c  69 2c 20 77 6c 69 0d 00  |  worldli, wli..|
00000370  28 20 20 20 20 20 20 20  20 20 20 4c 44 52 20 20  |(          LDR  |
00000380  20 20 77 6f 72 6c 64 64  69 2c 20 77 64 69 0d 00  |  worlddi, wdi..|
00000390  29 24 20 20 20 20 20 20  20 20 20 4d 4f 56 20 20  |)$         MOV  |
000003a0  20 20 6d 61 73 6b 2c 20  23 26 66 66 30 30 30 30  |  mask, #&ff0000|
000003b0  30 30 0d 00 2a 04 0d 00  2b 33 2e 6c 6f 6f 70 20  |00..*...+3.loop |
000003c0  20 20 20 80 20 20 20 20  72 65 73 75 6c 74 2c 20  |   .    result, |
000003d0  77 6f 72 6c 64 78 79 2c  20 77 6f 72 6c 64 78 79  |worldxy, worldxy|
000003e0  2c 20 41 53 4c 20 23 31  36 0d 00 2c 26 20 20 20  |, ASL #16..,&   |
000003f0  20 20 20 20 20 20 80 20  20 20 20 72 65 73 75 6c  |      .    resul|
00000400  74 2c 20 72 65 73 75 6c  74 2c 20 6d 61 73 6b 0d  |t, result, mask.|
00000410  00 2d 2b 20 20 20 20 20  20 20 20 20 4d 4f 56 20  |.-+         MOV |
00000420  20 20 20 63 6f 6c 6f 75  72 2c 20 72 65 73 75 6c  |   colour, resul|
00000430  74 2c 20 4c 53 52 20 23  32 34 0d 00 2e 2d 20 20  |t, LSR #24...-  |
00000440  20 20 20 20 20 20 20 41  44 44 20 20 20 20 77 6f  |       ADD    wo|
00000450  72 6c 64 78 79 2c 20 77  6f 72 6c 64 78 79 2c 20  |rldxy, worldxy, |
00000460  77 6f 72 6c 64 6c 69 0d  00 2f 04 0d 00 30 33 20  |worldli../...03 |
00000470  20 20 20 20 20 20 20 20  80 20 20 20 20 72 65 73  |        .    res|
00000480  75 6c 74 2c 20 77 6f 72  6c 64 78 79 2c 20 77 6f  |ult, worldxy, wo|
00000490  72 6c 64 78 79 2c 20 41  53 4c 20 23 31 36 0d 00  |rldxy, ASL #16..|
000004a0  31 26 20 20 20 20 20 20  20 20 20 80 20 20 20 20  |1&         .    |
000004b0  72 65 73 75 6c 74 2c 20  72 65 73 75 6c 74 2c 20  |result, result, |
000004c0  6d 61 73 6b 0d 00 32 32  20 20 20 20 20 20 20 20  |mask..22        |
000004d0  20 84 52 20 20 20 20 63  6f 6c 6f 75 72 2c 20 63  | .R    colour, c|
000004e0  6f 6c 6f 75 72 2c 20 72  65 73 75 6c 74 2c 20 4c  |olour, result, L|
000004f0  53 52 20 23 31 36 0d 00  33 31 20 20 20 20 20 20  |SR #16..31      |
00000500  20 20 20 41 44 44 20 20  20 20 77 6f 72 6c 64 78  |   ADD    worldx|
00000510  79 2c 20 20 20 77 6f 72  6c 64 78 79 2c 20 20 20  |y,   worldxy,   |
00000520  77 6f 72 6c 64 6c 69 0d  00 34 04 0d 00 35 33 20  |worldli..4...53 |
00000530  20 20 20 20 20 20 20 20  80 20 20 20 20 72 65 73  |        .    res|
00000540  75 6c 74 2c 20 77 6f 72  6c 64 78 79 2c 20 77 6f  |ult, worldxy, wo|
00000550  72 6c 64 78 79 2c 20 41  53 4c 20 23 31 36 0d 00  |rldxy, ASL #16..|
00000560  36 26 20 20 20 20 20 20  20 20 20 80 20 20 20 20  |6&         .    |
00000570  72 65 73 75 6c 74 2c 20  72 65 73 75 6c 74 2c 20  |result, result, |
00000580  6d 61 73 6b 0d 00 37 31  20 20 20 20 20 20 20 20  |mask..71        |
00000590  20 84 52 20 20 20 20 63  6f 6c 6f 75 72 2c 20 63  | .R    colour, c|
000005a0  6f 6c 6f 75 72 2c 20 72  65 73 75 6c 74 2c 20 4c  |olour, result, L|
000005b0  53 52 20 23 38 0d 00 38  31 20 20 20 20 20 20 20  |SR #8..81       |
000005c0  20 20 41 44 44 20 20 20  20 77 6f 72 6c 64 78 79  |  ADD    worldxy|
000005d0  2c 20 20 20 77 6f 72 6c  64 78 79 2c 20 20 20 77  |,   worldxy,   w|
000005e0  6f 72 6c 64 6c 69 0d 00  39 04 0d 00 3a 33 20 20  |orldli..9...:3  |
000005f0  20 20 20 20 20 20 20 80  20 20 20 20 72 65 73 75  |       .    resu|
00000600  6c 74 2c 20 77 6f 72 6c  64 78 79 2c 20 77 6f 72  |lt, worldxy, wor|
00000610  6c 64 78 79 2c 20 41 53  4c 20 23 31 36 0d 00 3b  |ldxy, ASL #16..;|
00000620  26 20 20 20 20 20 20 20  20 20 80 20 20 20 20 72  |&         .    r|
00000630  65 73 75 6c 74 2c 20 72  65 73 75 6c 74 2c 20 6d  |esult, result, m|
00000640  61 73 6b 0d 00 3c 29 20  20 20 20 20 20 20 20 20  |ask..<)         |
00000650  84 52 20 20 20 20 63 6f  6c 6f 75 72 2c 20 63 6f  |.R    colour, co|
00000660  6c 6f 75 72 2c 20 72 65  73 75 6c 74 0d 00 3d 2d  |lour, result..=-|
00000670  20 20 20 20 20 20 20 20  20 41 44 44 20 20 20 20  |         ADD    |
00000680  77 6f 72 6c 64 78 79 2c  20 77 6f 72 6c 64 78 79  |worldxy, worldxy|
00000690  2c 20 77 6f 72 6c 64 6c  69 0d 00 3e 04 0d 00 3f  |, worldli..>...?|
000006a0  33 20 20 20 20 20 20 20  20 20 80 20 20 20 20 72  |3         .    r|
000006b0  65 73 75 6c 74 2c 20 77  6f 72 6c 64 78 79 2c 20  |esult, worldxy, |
000006c0  77 6f 72 6c 64 78 79 2c  20 41 53 4c 20 23 31 36  |worldxy, ASL #16|
000006d0  0d 00 40 26 20 20 20 20  20 20 20 20 20 80 20 20  |..@&         .  |
000006e0  20 20 72 65 73 75 6c 74  2c 20 72 65 73 75 6c 74  |  result, result|
000006f0  2c 20 6d 61 73 6b 0d 00  41 2c 20 20 20 20 20 20  |, mask..A,      |
00000700  20 20 20 4d 4f 56 20 20  20 20 63 6f 6c 6f 75 72  |   MOV    colour|
00000710  32 2c 20 72 65 73 75 6c  74 2c 20 4c 53 52 20 23  |2, result, LSR #|
00000720  32 34 0d 00 42 2d 20 20  20 20 20 20 20 20 20 41  |24..B-         A|
00000730  44 44 20 20 20 20 77 6f  72 6c 64 78 79 2c 20 77  |DD    worldxy, w|
00000740  6f 72 6c 64 78 79 2c 20  77 6f 72 6c 64 6c 69 0d  |orldxy, worldli.|
00000750  00 43 04 0d 00 44 33 20  20 20 20 20 20 20 20 20  |.C...D3         |
00000760  80 20 20 20 20 72 65 73  75 6c 74 2c 20 77 6f 72  |.    result, wor|
00000770  6c 64 78 79 2c 20 77 6f  72 6c 64 78 79 2c 20 41  |ldxy, worldxy, A|
00000780  53 4c 20 23 31 36 0d 00  45 26 20 20 20 20 20 20  |SL #16..E&      |
00000790  20 20 20 80 20 20 20 20  72 65 73 75 6c 74 2c 20  |   .    result, |
000007a0  72 65 73 75 6c 74 2c 20  6d 61 73 6b 0d 00 46 34  |result, mask..F4|
000007b0  20 20 20 20 20 20 20 20  20 84 52 20 20 20 20 63  |         .R    c|
000007c0  6f 6c 6f 75 72 32 2c 20  63 6f 6c 6f 75 72 32 2c  |olour2, colour2,|
000007d0  20 72 65 73 75 6c 74 2c  20 4c 53 52 20 23 31 36  | result, LSR #16|
000007e0  0d 00 47 31 20 20 20 20  20 20 20 20 20 41 44 44  |..G1         ADD|
000007f0  20 20 20 20 77 6f 72 6c  64 78 79 2c 20 20 20 77  |    worldxy,   w|
00000800  6f 72 6c 64 78 79 2c 20  20 20 77 6f 72 6c 64 6c  |orldxy,   worldl|
00000810  69 0d 00 48 04 0d 00 49  33 20 20 20 20 20 20 20  |i..H...I3       |
00000820  20 20 80 20 20 20 20 72  65 73 75 6c 74 2c 20 77  |  .    result, w|
00000830  6f 72 6c 64 78 79 2c 20  77 6f 72 6c 64 78 79 2c  |orldxy, worldxy,|
00000840  20 41 53 4c 20 23 31 36  0d 00 4a 26 20 20 20 20  | ASL #16..J&    |
00000850  20 20 20 20 20 80 20 20  20 20 72 65 73 75 6c 74  |     .    result|
00000860  2c 20 72 65 73 75 6c 74  2c 20 6d 61 73 6b 0d 00  |, result, mask..|
00000870  4b 33 20 20 20 20 20 20  20 20 20 84 52 20 20 20  |K3         .R   |
00000880  20 63 6f 6c 6f 75 72 32  2c 20 63 6f 6c 6f 75 72  | colour2, colour|
00000890  32 2c 20 72 65 73 75 6c  74 2c 20 4c 53 52 20 23  |2, result, LSR #|
000008a0  38 0d 00 4c 31 20 20 20  20 20 20 20 20 20 41 44  |8..L1         AD|
000008b0  44 20 20 20 20 77 6f 72  6c 64 78 79 2c 20 20 20  |D    worldxy,   |
000008c0  77 6f 72 6c 64 78 79 2c  20 20 20 77 6f 72 6c 64  |worldxy,   world|
000008d0  6c 69 0d 00 4d 04 0d 00  4e 33 20 20 20 20 20 20  |li..M...N3      |
000008e0  20 20 20 80 20 20 20 20  72 65 73 75 6c 74 2c 20  |   .    result, |
000008f0  77 6f 72 6c 64 78 79 2c  20 77 6f 72 6c 64 78 79  |worldxy, worldxy|
00000900  2c 20 41 53 4c 20 23 31  36 0d 00 4f 26 20 20 20  |, ASL #16..O&   |
00000910  20 20 20 20 20 20 80 20  20 20 20 72 65 73 75 6c  |      .    resul|
00000920  74 2c 20 72 65 73 75 6c  74 2c 20 6d 61 73 6b 0d  |t, result, mask.|
00000930  00 50 2b 20 20 20 20 20  20 20 20 20 84 52 20 20  |.P+         .R  |
00000940  20 20 63 6f 6c 6f 75 72  32 2c 20 63 6f 6c 6f 75  |  colour2, colou|
00000950  72 32 2c 20 72 65 73 75  6c 74 0d 00 51 2d 20 20  |r2, result..Q-  |
00000960  20 20 20 20 20 20 20 41  44 44 20 20 20 20 77 6f  |       ADD    wo|
00000970  72 6c 64 78 79 2c 20 77  6f 72 6c 64 78 79 2c 20  |rldxy, worldxy, |
00000980  77 6f 72 6c 64 6c 69 0d  00 52 2a 20 20 20 20 20  |worldli..R*     |
00000990  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000009b0  20 0d 00 53 33 20 20 20  20 20 20 20 20 20 80 20  | ..S3         . |
000009c0  20 20 20 72 65 73 75 6c  74 2c 20 77 6f 72 6c 64  |   result, world|
000009d0  78 79 2c 20 77 6f 72 6c  64 78 79 2c 20 41 53 4c  |xy, worldxy, ASL|
000009e0  20 23 31 36 0d 00 54 26  20 20 20 20 20 20 20 20  | #16..T&        |
000009f0  20 80 20 20 20 20 72 65  73 75 6c 74 2c 20 72 65  | .    result, re|
00000a00  73 75 6c 74 2c 20 6d 61  73 6b 0d 00 55 2c 20 20  |sult, mask..U,  |
00000a10  20 20 20 20 20 20 20 4d  4f 56 20 20 20 20 63 6f  |       MOV    co|
00000a20  6c 6f 75 72 33 2c 20 72  65 73 75 6c 74 2c 20 4c  |lour3, result, L|
00000a30  53 52 20 23 32 34 0d 00  56 2d 20 20 20 20 20 20  |SR #24..V-      |
00000a40  20 20 20 41 44 44 20 20  20 20 77 6f 72 6c 64 78  |   ADD    worldx|
00000a50  79 2c 20 77 6f 72 6c 64  78 79 2c 20 77 6f 72 6c  |y, worldxy, worl|
00000a60  64 6c 69 0d 00 57 04 0d  00 58 33 20 20 20 20 20  |dli..W...X3     |
00000a70  20 20 20 20 80 20 20 20  20 72 65 73 75 6c 74 2c  |    .    result,|
00000a80  20 77 6f 72 6c 64 78 79  2c 20 77 6f 72 6c 64 78  | worldxy, worldx|
00000a90  79 2c 20 41 53 4c 20 23  31 36 0d 00 59 26 20 20  |y, ASL #16..Y&  |
00000aa0  20 20 20 20 20 20 20 80  20 20 20 20 72 65 73 75  |       .    resu|
00000ab0  6c 74 2c 20 72 65 73 75  6c 74 2c 20 6d 61 73 6b  |lt, result, mask|
00000ac0  0d 00 5a 34 20 20 20 20  20 20 20 20 20 84 52 20  |..Z4         .R |
00000ad0  20 20 20 63 6f 6c 6f 75  72 33 2c 20 63 6f 6c 6f  |   colour3, colo|
00000ae0  75 72 33 2c 20 72 65 73  75 6c 74 2c 20 4c 53 52  |ur3, result, LSR|
00000af0  20 23 31 36 0d 00 5b 31  20 20 20 20 20 20 20 20  | #16..[1        |
00000b00  20 41 44 44 20 20 20 20  77 6f 72 6c 64 78 79 2c  | ADD    worldxy,|
00000b10  20 20 20 77 6f 72 6c 64  78 79 2c 20 20 20 77 6f  |   worldxy,   wo|
00000b20  72 6c 64 6c 69 0d 00 5c  04 0d 00 5d 33 20 20 20  |rldli..\...]3   |
00000b30  20 20 20 20 20 20 80 20  20 20 20 72 65 73 75 6c  |      .    resul|
00000b40  74 2c 20 77 6f 72 6c 64  78 79 2c 20 77 6f 72 6c  |t, worldxy, worl|
00000b50  64 78 79 2c 20 41 53 4c  20 23 31 36 0d 00 5e 26  |dxy, ASL #16..^&|
00000b60  20 20 20 20 20 20 20 20  20 80 20 20 20 20 72 65  |         .    re|
00000b70  73 75 6c 74 2c 20 72 65  73 75 6c 74 2c 20 6d 61  |sult, result, ma|
00000b80  73 6b 0d 00 5f 33 20 20  20 20 20 20 20 20 20 84  |sk.._3         .|
00000b90  52 20 20 20 20 63 6f 6c  6f 75 72 33 2c 20 63 6f  |R    colour3, co|
00000ba0  6c 6f 75 72 33 2c 20 72  65 73 75 6c 74 2c 20 4c  |lour3, result, L|
00000bb0  53 52 20 23 38 0d 00 60  31 20 20 20 20 20 20 20  |SR #8..`1       |
00000bc0  20 20 41 44 44 20 20 20  20 77 6f 72 6c 64 78 79  |  ADD    worldxy|
00000bd0  2c 20 20 20 77 6f 72 6c  64 78 79 2c 20 20 20 77  |,   worldxy,   w|
00000be0  6f 72 6c 64 6c 69 0d 00  61 04 0d 00 62 33 20 20  |orldli..a...b3  |
00000bf0  20 20 20 20 20 20 20 80  20 20 20 20 72 65 73 75  |       .    resu|
00000c00  6c 74 2c 20 77 6f 72 6c  64 78 79 2c 20 77 6f 72  |lt, worldxy, wor|
00000c10  6c 64 78 79 2c 20 41 53  4c 20 23 31 36 0d 00 63  |ldxy, ASL #16..c|
00000c20  26 20 20 20 20 20 20 20  20 20 80 20 20 20 20 72  |&         .    r|
00000c30  65 73 75 6c 74 2c 20 72  65 73 75 6c 74 2c 20 6d  |esult, result, m|
00000c40  61 73 6b 0d 00 64 2b 20  20 20 20 20 20 20 20 20  |ask..d+         |
00000c50  84 52 20 20 20 20 63 6f  6c 6f 75 72 33 2c 20 63  |.R    colour3, c|
00000c60  6f 6c 6f 75 72 33 2c 20  72 65 73 75 6c 74 0d 00  |olour3, result..|
00000c70  65 2d 20 20 20 20 20 20  20 20 20 41 44 44 20 20  |e-         ADD  |
00000c80  20 20 77 6f 72 6c 64 78  79 2c 20 77 6f 72 6c 64  |  worldxy, world|
00000c90  78 79 2c 20 77 6f 72 6c  64 6c 69 0d 00 66 04 0d  |xy, worldli..f..|
00000ca0  00 67 33 20 20 20 20 20  20 20 20 20 80 20 20 20  |.g3         .   |
00000cb0  20 72 65 73 75 6c 74 2c  20 77 6f 72 6c 64 78 79  | result, worldxy|
00000cc0  2c 20 77 6f 72 6c 64 78  79 2c 20 41 53 4c 20 23  |, worldxy, ASL #|
00000cd0  31 36 0d 00 68 26 20 20  20 20 20 20 20 20 20 80  |16..h&         .|
00000ce0  20 20 20 20 72 65 73 75  6c 74 2c 20 72 65 73 75  |    result, resu|
00000cf0  6c 74 2c 20 6d 61 73 6b  0d 00 69 2c 20 20 20 20  |lt, mask..i,    |
00000d00  20 20 20 20 20 4d 4f 56  20 20 20 20 63 6f 6c 6f  |     MOV    colo|
00000d10  75 72 34 2c 20 72 65 73  75 6c 74 2c 20 4c 53 52  |ur4, result, LSR|
00000d20  20 23 32 34 0d 00 6a 2d  20 20 20 20 20 20 20 20  | #24..j-        |
00000d30  20 41 44 44 20 20 20 20  77 6f 72 6c 64 78 79 2c  | ADD    worldxy,|
00000d40  20 77 6f 72 6c 64 78 79  2c 20 77 6f 72 6c 64 6c  | worldxy, worldl|
00000d50  69 0d 00 6b 04 0d 00 6c  33 20 20 20 20 20 20 20  |i..k...l3       |
00000d60  20 20 80 20 20 20 20 72  65 73 75 6c 74 2c 20 77  |  .    result, w|
00000d70  6f 72 6c 64 78 79 2c 20  77 6f 72 6c 64 78 79 2c  |orldxy, worldxy,|
00000d80  20 41 53 4c 20 23 31 36  0d 00 6d 26 20 20 20 20  | ASL #16..m&    |
00000d90  20 20 20 20 20 80 20 20  20 20 72 65 73 75 6c 74  |     .    result|
00000da0  2c 20 72 65 73 75 6c 74  2c 20 6d 61 73 6b 0d 00  |, result, mask..|
00000db0  6e 34 20 20 20 20 20 20  20 20 20 84 52 20 20 20  |n4         .R   |
00000dc0  20 63 6f 6c 6f 75 72 34  2c 20 63 6f 6c 6f 75 72  | colour4, colour|
00000dd0  34 2c 20 72 65 73 75 6c  74 2c 20 4c 53 52 20 23  |4, result, LSR #|
00000de0  31 36 0d 00 6f 31 20 20  20 20 20 20 20 20 20 41  |16..o1         A|
00000df0  44 44 20 20 20 20 77 6f  72 6c 64 78 79 2c 20 20  |DD    worldxy,  |
00000e00  20 77 6f 72 6c 64 78 79  2c 20 20 20 77 6f 72 6c  | worldxy,   worl|
00000e10  64 6c 69 0d 00 70 04 0d  00 71 33 20 20 20 20 20  |dli..p...q3     |
00000e20  20 20 20 20 80 20 20 20  20 72 65 73 75 6c 74 2c  |    .    result,|
00000e30  20 77 6f 72 6c 64 78 79  2c 20 77 6f 72 6c 64 78  | worldxy, worldx|
00000e40  79 2c 20 41 53 4c 20 23  31 36 0d 00 72 26 20 20  |y, ASL #16..r&  |
00000e50  20 20 20 20 20 20 20 80  20 20 20 20 72 65 73 75  |       .    resu|
00000e60  6c 74 2c 20 72 65 73 75  6c 74 2c 20 6d 61 73 6b  |lt, result, mask|
00000e70  0d 00 73 33 20 20 20 20  20 20 20 20 20 84 52 20  |..s3         .R |
00000e80  20 20 20 63 6f 6c 6f 75  72 34 2c 20 63 6f 6c 6f  |   colour4, colo|
00000e90  75 72 34 2c 20 72 65 73  75 6c 74 2c 20 4c 53 52  |ur4, result, LSR|
00000ea0  20 23 38 0d 00 74 31 20  20 20 20 20 20 20 20 20  | #8..t1         |
00000eb0  41 44 44 20 20 20 20 77  6f 72 6c 64 78 79 2c 20  |ADD    worldxy, |
00000ec0  20 20 77 6f 72 6c 64 78  79 2c 20 20 20 77 6f 72  |  worldxy,   wor|
00000ed0  6c 64 6c 69 0d 00 75 04  0d 00 76 33 20 20 20 20  |ldli..u...v3    |
00000ee0  20 20 20 20 20 80 20 20  20 20 72 65 73 75 6c 74  |     .    result|
00000ef0  2c 20 77 6f 72 6c 64 78  79 2c 20 77 6f 72 6c 64  |, worldxy, world|
00000f00  78 79 2c 20 41 53 4c 20  23 31 36 0d 00 77 26 20  |xy, ASL #16..w& |
00000f10  20 20 20 20 20 20 20 20  80 20 20 20 20 72 65 73  |        .    res|
00000f20  75 6c 74 2c 20 72 65 73  75 6c 74 2c 20 6d 61 73  |ult, result, mas|
00000f30  6b 0d 00 78 2b 20 20 20  20 20 20 20 20 20 84 52  |k..x+         .R|
00000f40  20 20 20 20 63 6f 6c 6f  75 72 34 2c 20 63 6f 6c  |    colour4, col|
00000f50  6f 75 72 34 2c 20 72 65  73 75 6c 74 0d 00 79 2d  |our4, result..y-|
00000f60  20 20 20 20 20 20 20 20  20 41 44 44 20 20 20 20  |         ADD    |
00000f70  77 6f 72 6c 64 78 79 2c  20 77 6f 72 6c 64 78 79  |worldxy, worldxy|
00000f80  2c 20 77 6f 72 6c 64 6c  69 0d 00 7a 0d 20 20 20  |, worldli..z.   |
00000f90  20 20 20 20 20 20 0d 00  7b 30 20 20 20 20 20 20  |      ..{0      |
00000fa0  20 20 20 53 54 4d 69 62  20 20 28 70 6f 69 6e 74  |   STMib  (point|
00000fb0  29 21 2c 20 7b 63 6f 6c  6f 75 72 20 2d 20 63 6f  |)!, {colour - co|
00000fc0  6c 6f 75 72 34 7d 0d 00  7c 0c 20 20 20 20 20 20  |lour4}..|.      |
00000fd0  20 20 0d 00 7d 24 20 20  20 20 20 20 20 20 20 43  |  ..}$         C|
00000fe0  4d 50 20 20 20 20 70 6f  69 6e 74 2c 20 65 6e 64  |MP    point, end|
00000ff0  6f 66 6c 69 6e 65 0d 00  7e 18 20 20 20 20 20 20  |ofline..~.      |
00001000  20 20 20 42 6c 74 20 20  20 20 6c 6f 6f 70 0d 00  |   Blt    loop..|
00001010  7f 04 0d 00 80 3b 20 20  20 20 20 20 20 20 20 41  |.....;         A|
00001020  44 44 20 20 20 20 77 6f  72 6c 64 6c 69 6e 65 73  |DD    worldlines|
00001030  74 61 72 74 2c 20 77 6f  72 6c 64 6c 69 6e 65 73  |tart, worldlines|
00001040  74 61 72 74 2c 20 77 6f  72 6c 64 64 69 0d 00 81  |tart, worlddi...|
00001050  2b 20 20 20 20 20 20 20  20 20 4d 4f 56 20 20 20  |+         MOV   |
00001060  20 77 6f 72 6c 64 78 79  2c 20 77 6f 72 6c 64 6c  | worldxy, worldl|
00001070  69 6e 65 73 74 61 72 74  0d 00 82 30 20 20 20 20  |inestart...0    |
00001080  20 20 20 20 20 41 44 44  20 20 20 20 65 6e 64 6f  |     ADD    endo|
00001090  66 6c 69 6e 65 2c 20 65  6e 64 6f 66 6c 69 6e 65  |fline, endofline|
000010a0  2c 20 23 68 70 69 78 25  0d 00 83 27 20 20 20 20  |, #hpix%...'    |
000010b0  20 20 20 20 20 43 4d 50  20 20 20 20 65 6e 64 6f  |     CMP    endo|
000010c0  66 6c 69 6e 65 2c 20 66  69 6e 69 73 68 65 64 0d  |fline, finished.|
000010d0  00 84 18 20 20 20 20 20  20 20 20 20 42 6c 74 20  |...         Blt |
000010e0  20 20 20 6c 6f 6f 70 0d  00 85 04 0d 00 86 1e 2e  |   loop.........|
000010f0  72 65 74 20 20 20 20 20  4c 44 4d 46 44 20 20 72  |ret     LDMFD  r|
00001100  31 33 21 2c 20 7b 70 63  7d 0d 00 87 04 0d 00 88  |13!, {pc}.......|
00001110  25 2e 73 73 61 20 20 20  20 20 45 51 55 44 20 20  |%.ssa     EQUD  |
00001120  a4 53 63 72 65 65 6e 41  64 64 72 65 73 73 20 2d  |.ScreenAddress -|
00001130  20 34 0d 00 89 1f 2e 65  6f 6c 20 20 20 20 20 45  | 4.....eol     E|
00001140  51 55 44 20 20 21 73 73  61 20 2b 20 68 70 69 78  |QUD  !ssa + hpix|
00001150  25 0d 00 8a 27 2e 73 65  61 20 20 20 20 20 45 51  |%...'.sea     EQ|
00001160  55 44 20 20 21 73 73 61  20 2b 20 68 70 69 78 25  |UD  !ssa + hpix%|
00001170  20 2a 20 76 70 69 78 25  0d 00 8b 1c 2e 77 78 79  | * vpix%.....wxy|
00001180  20 20 20 20 20 45 51 55  44 20 20 26 30 30 30 30  |     EQUD  &0000|
00001190  30 30 30 30 0d 00 8c 1c  2e 77 6c 69 20 20 20 20  |0000.....wli    |
000011a0  20 45 51 55 44 20 20 26  30 30 30 30 30 30 38 30  | EQUD  &00000080|
000011b0  0d 00 8d 1c 2e 77 64 69  20 20 20 20 20 45 51 55  |.....wdi     EQU|
000011c0  44 20 20 26 30 30 38 30  30 30 30 30 0d 00 8e 05  |D  &00800000....|
000011d0  5d 0d 00 8f 05 ed 0d 00  90 04 0d 00 91 0c 54 20  |].............T |
000011e0  3d 20 32 5e 31 34 0d 00  92 05 f5 0d 00 93 18 20  |= 2^14......... |
000011f0  20 20 20 20 20 e3 20 53  25 20 3d 20 30 20 b8 20  |     . S% = 0 . |
00001200  33 35 39 0d 00 94 19 20  20 20 20 20 20 20 20 20  |359....         |
00001210  20 c8 97 20 41 25 2c 42  25 2c 43 25 0d 00 95 10  | .. A%,B%,C%....|
00001220  20 20 20 20 20 20 20 20  20 20 c8 96 0d 00 96 15  |          ......|
00001230  20 20 20 20 20 20 20 20  20 20 d6 20 62 65 67 69  |          . begi|
00001240  6e 0d 00 97 35 20 20 20  20 20 20 20 20 20 20 21  |n...5          !|
00001250  77 6c 69 20 3d 20 a8 28  41 25 2a b5 b2 28 53 25  |wli = .(A%*..(S%|
00001260  29 29 20 2b 20 a8 28 41  25 2a 9b b2 28 53 25 29  |)) + .(A%*..(S%)|
00001270  29 2a 32 5e 31 36 0d 00  98 35 20 20 20 20 20 20  |)*2^16...5      |
00001280  20 20 20 20 21 77 64 69  20 3d 20 a8 28 41 25 2a  |    !wdi = .(A%*|
00001290  9b b2 28 53 25 29 29 20  2d 20 a8 28 41 25 2a b5  |..(S%)) - .(A%*.|
000012a0  b2 28 53 25 29 29 2a 32  5e 31 36 0d 00 99 46 20  |.(S%))*2^16...F |
000012b0  20 20 20 20 20 20 20 20  20 21 77 78 79 20 3d 20  |         !wxy = |
000012c0  2d a8 28 54 2a b5 b2 28  53 25 29 2b 54 2a 9b b2  |-.(T*..(S%)+T*..|
000012d0  28 53 25 29 29 20 2d 20  a8 28 54 2a 9b b2 28 53  |(S%)) - .(T*..(S|
000012e0  25 29 2d 54 2a b5 b2 28  53 25 29 29 2a 32 5e 31  |%)-T*..(S%))*2^1|
000012f0  36 0d 00 9a 0b 20 20 20  20 20 20 ed 0d 00 9b 07  |6....      .....|
00001300  fd 20 a3 0d 00 9c 05 e0  0d 00 9d 04 0d 00 9e 14  |. ..............|
00001310  dd 20 a4 53 63 72 65 65  6e 41 64 64 72 65 73 73  |. .ScreenAddress|
00001320  0d 00 9f 11 20 20 20 20  de 20 42 6c 6b 25 20 31  |....    . Blk% 1|
00001330  36 0d 00 a0 15 20 20 20  20 42 6c 6b 25 21 30 30  |6....    Blk%!00|
00001340  20 3d 20 31 34 39 0d 00  a1 14 20 20 20 20 42 6c  | = 149....    Bl|
00001350  6b 25 21 30 34 20 3d 20  2d 31 0d 00 a2 2e 20 20  |k%!04 = -1....  |
00001360  20 20 c8 99 20 22 4f 53  5f 52 65 61 64 56 64 75  |  .. "OS_ReadVdu|
00001370  56 61 72 69 61 62 6c 65  73 22 2c 20 42 6c 6b 25  |Variables", Blk%|
00001380  2c 20 42 6c 6b 25 2b 38  0d 00 a3 0d 3d 20 42 6c  |, Blk%+8....= Bl|
00001390  6b 25 21 30 38 0d 00 a4  04 0d 00 a5 04 0d 00 a6  |k%!08...........|
000013a0  04 0d 00 a7 04 0d ff                              |.......|
000013a7