Home » Archimedes archive » Micro User » MU 1992-07.adf » Listings » 32bit/VDIG1
32bit/VDIG1
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 » Archimedes archive » Micro User » MU 1992-07.adf » Listings |
| Filename: | 32bit/VDIG1 |
| Read OK: | ✔ |
| File size: | 0EFE bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >VIDEO.VDIG1
20REM Video Digitiser software By Mike Cook
30SS%=&15000
40DIM CODE% 330,HS%(7), SP% SS%
50PROC_CSU
60REPEAT
70PROC_TITLE
80A$=GET$
90IF A$="T" OR A$="t" THEN PROC_TAKE
100IF A$="A" OR A$="a" THEN PROC_ADJUST
110IF A$="V" OR A$="v" THEN PROC_VIEW
120IF A$="S" OR A$="s" THEN PROC_SAVE
130UNTIL FALSE
140END
150
160DEF PROC_TITLE
170MODE 0
180PRINTTAB(0,5)"Beeb Body Build Course"
190PRINT"Video Digitiser Software By Mike Cook"
200PRINTTAB(0,8)"Select options:-"
210PRINT"T - Take a Picture - then any key to return here"
220PRINT"A - Adjust camara - continious picture sampling until SPACE pressed"
230PRINT"V - View the current sprite - then any key to return here"
240PRINT"S - Save picture as a sprite file"
250ENDPROC
260
270DEF PROC_PAL
280FOR A%=0 TO 7
290VDU19,A%,16,A%<<5,A%<<5,A%<<5
300NEXT
310VDU19,8,16,&F0,0,0
320VDU19,9,16,0,0,&F0
330VDU 23,1,0|
340ENDPROC
350
360DEF PROC_TAKE
370MODE 2:PROC_PAL
380PROC_SNAP
390D$=GET$
400ENDPROC
410
420DEF PROC_VIEW
430MODE 2:PROC_PAL
440SYS("OS_SpriteOp"),28+256,SP%,"PIC",0
450D$=GET$
460ENDPROC
470
480DEF PROC_ADJUST
490MODE 2:PROC_PAL
500REPEAT:PROC_SNAP
510UNTIL INKEY(-99)
520*FX15,0
530ENDPROC
540
550DEF PROC_SAVE
560INPUT"Enter file name for sprite ",F$
570SYS("OS_SpriteOp"),12+256,SP%,F$
580ENDPROC
590
600DEF PROC_SNAP
610SYS 6,150,&60 TO ,,A%
620*FX19
630SYS 6,150,&6D TO ,,A%
640IF A%=0 THEN
650VDU 7
660PRINTTAB(0,0)"No Video"
670ELSE
680FOR A%=HIST TO HIST+28 STEP 4
690!A%=0
700NEXT
710CALL SNAP
720SYS("OS_SpriteOp"),16+256,SP%,"PIC",1,0,0,1279,1023
730PROC_DHIST
740ENDIF
750ENDPROC
760
770DEF PROC_DHIST
780LOCAL MX%,A%,B%
790B%=HIST
800FOR A%=0 TO 7
810HS%(A%)=!B%
820IF HS%(A%)>MX% THEN MX%=HS%(A%)
830B%+=4
840NEXT
850X%=1240
860FOR A%=0 TO 7
870B%=512*HS%(A%)/MX%
880MOVE X%,0:GCOL 0,9
890DRAW X%,0:GCOL 0,8
900IF HS%(A%)<>0 DRAW X%,B%
910X%-=16
920NEXT
930ENDPROC
940
950DEF PROC_CSU :REM CODE SETUP
960SYS(&40500) TO ,PodB%
970PodB%=PodB% OR &2000
980SYS 6,151,&62,&28 : REM SET UP DATA DIRECTION
990SYS 6,151,&60,&0 : REM INITAL OUTPUT
1000SYS 6,151,&6C,&10 : REM SET UP CONTROL LINES
1010SYS 6,151,&6E,&98 : REM ENABLE CONTROL LINE INTERRUPTS
1020FOR A=0 TO 3 STEP 3
1030P%=CODE%
1040[
1050OPT A
1060.SNAP
1070MOV R0,#&18 \ UNUSED VECTOR NUMBER
1080ADR R1,GV \ ROUTINE TO CALL ON UNKNOWN SWI
1090MOV R2,#0 \ NUMBER TO PASS TO CALLING ROUTINE
1100SWI "OS_Claim" \ CLAME VECTOR
1110SWI &80101 \ UNUSED VECTOR TO CALL READ IN ROUTINE
1120MOV R2,#0
1130MOV R0,#&18 \ VECTOR NUMBER
1140ADR R1,GV
1150SWI &20 \ RELESE VECTOR
1160MOV R15,R14 \ BACK TO BASIC
1170
1180.VIA EQUD PodB%
1190.TFS EQUD 0
1200
1210.GV \ GATHER VIDEO
1220REM TEQP R15,#&C000003 \DISABLE INTERRUPTS
1230LDR R0,VIA \ VIA BASE ADDRESS
1240MOV R7,#&2000000 \ SCREEN ADDRESS
1250
1260MOV R1,#0
1270STR R1,[R0] \ RESET COUNTERS
1280MOV R1,#&280000
1290STR R1,[R0] \ RELEASE RESET
1300
1310\ MOVE COLOUM (X) TO START
1320MOV R2,#60
1330.PCC
1340MOV R1,#&80000
1350STR R1,[R0]:MOV R1,#&280000
1360STR R1,[R0]:SUBS R2,R2,#1
1370BNE PCC
1380
1390MOV R2,#160 \ NUMBER OF COLOUMBS (X)
1400.HF \ HOLD UNTIL START OF FRAME
1410LDRB R1,[R0]:TST R1,#&80
1420BNE HF
1430MOV R8,#0 \ Y STORAGE ADDRESS
1440.HFE \ HOLD UNTIL END OF FRAME PULSE
1450LDRB R1,[R0]:TST R1,#&80
1460BEQ HFE
1470
1480MOV R3,#20
1490.HLS \ HOLD UNTIL N LINES ARE MISSED AT THE START
1500LDR R1,[R0,#52]
1510TST R1,#&10 \ SEE IF A LINE SYNC
1520BEQ HLS
1530MOV R1,R1,LSL #16
1540STR R1,[R0,#52]
1550SUBS R3,R3,#1
1560BNE HLS
1570
1580\ GATHER IN A COLOUMB
1590MOV R6,#256
1600.HDT \ HOLD UNTIL DATA IS READY
1610LDR R1,[R0,#52]:TST R1,#&8
1620BEQ HDT
1630
1640LDRB R4,[R0] \ GET DATA
1650AND R4,R4,#&15 \ LEAVE VIDEO DATA
1660ADR R1,GLT
1670LDRB R4,[R1,R4] \ LOOK UP TABLE
1680\ UPDATE HISTORGRAM
1690ADR R1,HIST
1700LDR R5,[R1,R4,LSL#2]
1710ADD R5,R5,#1
1720STR R5,[R1,R4,LSL#2]
1730\ STORE PIXEL
1740ORR R4,R4,R4,LSL #4 \MAKE DOUBLE PIXEL
1750STRB R4,[R7,R8]
1760ADD R8,R8,#160 \ INC Y COUNT
1770
1780SUBS R6,R6,#1 \ NEXT LINE
1790BNE HDT
1800
1810\ MOVE X COUNTER
1820MOV R1,#&80000:STR R1,[R0]
1830MOV R1,#&280000:STR R1,[R0]
1840ADD R7,R7,#1 \ INC X COUNT
1850
1860SUBS R2,R2,#1 \ ONE LESS X
1870BNE HF
1880LDMFD R13!, {PC} \ BACK FROM WHENST YOU CAME
1890.HIST
1900]
1910P%=P%+8*4
1920[
1930.GLT
1940]
1950NEXT
1960FOR A%=0 TO 7
1970READ W%
1980GLT?W%=A%
1990NEXT
2000DATA 0,1,4,5,16,17,20,21
2010!SP%=SS%
2020SP%!8=16
2030SYS("OS_SpriteOp"),9+256,SP%
2040ENDPROC
� >VIDEO.VDIG1
+� Video Digitiser software By Mike Cook
SS%=&15000
( � CODE% 330,HS%(7), SP% SS%
2 �_CSU
<�
F �_TITLE
PA$=�
Z � A$="T" � A$="t" � �_TAKE
d � A$="A" � A$="a" � �_ADJUST
n � A$="V" � A$="v" � �_VIEW
x � A$="S" � A$="s" � �_SAVE
�� �
��
�
�
� �_TITLE
�� 0
�"�0,5)"Beeb Body Build Course"
�,�"Video Digitiser Software By Mike Cook"
� �0,8)"Select options:-"
�7�"T - Take a Picture - then any key to return here"
�J�"A - Adjust camara - continious picture sampling until SPACE pressed"
�@�"V - View the current sprite - then any key to return here"
�(�"S - Save picture as a sprite file"
��
� �_PAL
� A%=0 � 7
" �19,A%,16,A%<<5,A%<<5,A%<<5
,�
6�19,8,16,&F0,0,0
@�19,9,16,0,0,&F0
J
� 23,1,0|
T�
^
h � �_TAKE
r
� 2:�_PAL
|
�_SNAP
�D$=�
��
�
� � �_VIEW
�
� 2:�_PAL
�(ș("OS_SpriteOp"),28+256,SP%,"PIC",0
�D$=�
��
�
�� �_ADJUST
�
� 2:�_PAL
� �:�_SNAP
� � �(-99)
*FX15,0
�
& � �_SAVE
0%�"Enter file name for sprite ",F$
:#ș("OS_SpriteOp"),12+256,SP%,F$
D�
N
X � �_SNAP
bș 6,150,&60 � ,,A%
l *FX19
vș 6,150,&6D � ,,A%
� � A%=0 �
�� 7
��0,0)"No Video"
��
�� A%=HIST � HIST+28 � 4
� !A%=0
��
�
� SNAP
�6ș("OS_SpriteOp"),16+256,SP%,"PIC",1,0,0,1279,1023
� �_DHIST
��
��
�
� �_DHIST
� MX%,A%,B%
B%=HIST
� A%=0 � 7
*HS%(A%)=!B%
4 � HS%(A%)>MX% � MX%=HS%(A%)
> B%+=4
H�
R X%=1240
\� A%=0 � 7
fB%=512*HS%(A%)/MX%
p� X%,0:� 0,9
z� X%,0:� 0,8
�� HS%(A%)<>0 � X%,B%
�
X%-=16
��
��
�
�� �_CSU :� CODE SETUP
�ș(&40500) � ,PodB%
�PodB%=PodB% � &2000
�.ș 6,151,&62,&28 : � SET UP DATA DIRECTION
�&ș 6,151,&60,&0 : � INITAL OUTPUT
�-ș 6,151,&6C,&10 : � SET UP CONTROL LINES
�7ș 6,151,&6E,&98 : � ENABLE CONTROL LINE INTERRUPTS
�� A=0 � 3 � 3
P%=CODE%
[
OPT A
$ .SNAP
.&MOV R0,#&18 \ UNUSED VECTOR NUMBER
8)ADR R1,GV \ ROUTINE � � � UNKNOWN SWI
B,MOV R2,#0 \ NUMBER � PASS � �ING ROUTINE
L!SWI "OS_Claim" \ CLAME VECTOR
V/SWI &80101 \ UNUSED VECTOR � � � IN ROUTINE
`
MOV R2,#0
j MOV R0,#&18 \ VECTOR NUMBER
t
ADR R1,GV
~SWI &20 \ RELESE VECTOR
� MOV R15,R14 \ BACK � BASIC
�
�.VIA EQUD PodB%
�.TFS EQUD 0
�
�.GV \ GATHER VIDEO
�,� TEQP R15,#&C000003 \DISABLE INTERRUPTS
�!LDR R0,VIA \ VIA BASE ADDRESS
�%MOV R7,#&2000000 \ SCREEN ADDRESS
�
�
MOV R1,#0
� STR R1,[R0] \ RESET COUNTERS
MOV R1,#&280000
STR R1,[R0] \ RELEASE RESET
\ � COLOUM (X) � START
(MOV R2,#60
2.PCC
<MOV R1,#&80000
F STR R1,[R0]:MOV R1,#&280000
P STR R1,[R0]:SUBS R2,R2,#1
Z BNE PCC
d
n'MOV R2,#160 \ NUMBER � COLOUMBS (X)
x .HF \ HOLD � START � FRAME
� LDRB R1,[R0]:TST R1,#&80
�
BNE HF
�!MOV R8,#0 \ Y STORAGE ADDRESS
�!.HFE \ HOLD � � � FRAME PULSE
� LDRB R1,[R0]:TST R1,#&80
� BEQ HFE
�
�MOV R3,#20
�/.HLS \ HOLD � N �S ARE MISSED AT THE START
�LDR R1,[R0,#52]
� TST R1,#&10 \ SEE � A � SYNC
� BEQ HLS
�MOV R1,R1,LSL #16
STR R1,[R0,#52]
SUBS R3,R3,#1
BNE HLS
"
,\ GATHER IN A COLOUMB
6MOV R6,#256
@ .HDT \ HOLD � � IS READY
J LDR R1,[R0,#52]:TST R1,#&8
T BEQ HDT
^
hLDRB R4,[R0] \ � �
r � R4,R4,#&15 \ LEAVE VIDEO �
|ADR R1,GLT
�#LDRB R4,[R1,R4] \ LOOK UP TABLE
�\ UPDATE HISTORGRAM
�ADR R1,HIST
�LDR R5,[R1,R4,LSL#2]
�ADD R5,R5,#1
�STR R5,[R1,R4,LSL#2]
�\ STORE PIXEL
�)�R R4,R4,R4,LSL #4 \MAKE DOUBLE PIXEL
�STRB R4,[R7,R8]
� ADD R8,R8,#160 \ INC Y �
�
�SUBS R6,R6,#1 \ � �
� BNE HDT
\ � X COUNTER
MOV R1,#&80000:STR R1,[R0]
& MOV R1,#&280000:STR R1,[R0]
0ADD R7,R7,#1 \ INC X �
:
D SUBS R2,R2,#1 \ �E LESS X
N
BNE HF
X-LDMFD R13!, {PC} \ BACK FROM �ST YOU CAME
b .HIST
l]
v
P%=P%+8*4
�[
�.GLT
�]
��
�� A%=0 � 7
�� W%
�
GLT?W%=A%
��
�� 0,1,4,5,16,17,20,21
� !SP%=SS%
� SP%!8=16
� ș("OS_SpriteOp"),9+256,SP%
��
� 00000000 0d 00 0a 12 f4 20 3e 56 49 44 45 4f 2e 56 44 49 |..... >VIDEO.VDI|
00000010 47 31 0d 00 14 2b f4 20 56 69 64 65 6f 20 44 69 |G1...+. Video Di|
00000020 67 69 74 69 73 65 72 20 73 6f 66 74 77 61 72 65 |gitiser software|
00000030 20 42 79 20 4d 69 6b 65 20 43 6f 6f 6b 0d 00 1e | By Mike Cook...|
00000040 0e 53 53 25 3d 26 31 35 30 30 30 0d 00 28 1f de |.SS%=&15000..(..|
00000050 20 43 4f 44 45 25 20 33 33 30 2c 48 53 25 28 37 | CODE% 330,HS%(7|
00000060 29 2c 20 53 50 25 20 53 53 25 0d 00 32 09 f2 5f |), SP% SS%..2.._|
00000070 43 53 55 0d 00 3c 05 f5 0d 00 46 0b f2 5f 54 49 |CSU..<....F.._TI|
00000080 54 4c 45 0d 00 50 08 41 24 3d be 0d 00 5a 1e e7 |TLE..P.A$=...Z..|
00000090 20 41 24 3d 22 54 22 20 84 20 41 24 3d 22 74 22 | A$="T" . A$="t"|
000000a0 20 8c 20 f2 5f 54 41 4b 45 0d 00 64 20 e7 20 41 | . ._TAKE..d . A|
000000b0 24 3d 22 41 22 20 84 20 41 24 3d 22 61 22 20 8c |$="A" . A$="a" .|
000000c0 20 f2 5f 41 44 4a 55 53 54 0d 00 6e 1e e7 20 41 | ._ADJUST..n.. A|
000000d0 24 3d 22 56 22 20 84 20 41 24 3d 22 76 22 20 8c |$="V" . A$="v" .|
000000e0 20 f2 5f 56 49 45 57 0d 00 78 1e e7 20 41 24 3d | ._VIEW..x.. A$=|
000000f0 22 53 22 20 84 20 41 24 3d 22 73 22 20 8c 20 f2 |"S" . A$="s" . .|
00000100 5f 53 41 56 45 0d 00 82 07 fd 20 a3 0d 00 8c 05 |_SAVE..... .....|
00000110 e0 0d 00 96 04 0d 00 a0 0d dd 20 f2 5f 54 49 54 |.......... ._TIT|
00000120 4c 45 0d 00 aa 07 eb 20 30 0d 00 b4 22 f1 8a 30 |LE..... 0..."..0|
00000130 2c 35 29 22 42 65 65 62 20 42 6f 64 79 20 42 75 |,5)"Beeb Body Bu|
00000140 69 6c 64 20 43 6f 75 72 73 65 22 0d 00 be 2c f1 |ild Course"...,.|
00000150 22 56 69 64 65 6f 20 44 69 67 69 74 69 73 65 72 |"Video Digitiser|
00000160 20 53 6f 66 74 77 61 72 65 20 42 79 20 4d 69 6b | Software By Mik|
00000170 65 20 43 6f 6f 6b 22 0d 00 c8 1c f1 8a 30 2c 38 |e Cook"......0,8|
00000180 29 22 53 65 6c 65 63 74 20 6f 70 74 69 6f 6e 73 |)"Select options|
00000190 3a 2d 22 0d 00 d2 37 f1 22 54 20 2d 20 54 61 6b |:-"...7."T - Tak|
000001a0 65 20 61 20 50 69 63 74 75 72 65 20 2d 20 74 68 |e a Picture - th|
000001b0 65 6e 20 61 6e 79 20 6b 65 79 20 74 6f 20 72 65 |en any key to re|
000001c0 74 75 72 6e 20 68 65 72 65 22 0d 00 dc 4a f1 22 |turn here"...J."|
000001d0 41 20 2d 20 41 64 6a 75 73 74 20 63 61 6d 61 72 |A - Adjust camar|
000001e0 61 20 2d 20 63 6f 6e 74 69 6e 69 6f 75 73 20 70 |a - continious p|
000001f0 69 63 74 75 72 65 20 73 61 6d 70 6c 69 6e 67 20 |icture sampling |
00000200 75 6e 74 69 6c 20 53 50 41 43 45 20 70 72 65 73 |until SPACE pres|
00000210 73 65 64 22 0d 00 e6 40 f1 22 56 20 2d 20 56 69 |sed"...@."V - Vi|
00000220 65 77 20 74 68 65 20 63 75 72 72 65 6e 74 20 73 |ew the current s|
00000230 70 72 69 74 65 20 2d 20 74 68 65 6e 20 61 6e 79 |prite - then any|
00000240 20 6b 65 79 20 74 6f 20 72 65 74 75 72 6e 20 68 | key to return h|
00000250 65 72 65 22 0d 00 f0 28 f1 22 53 20 2d 20 53 61 |ere"...(."S - Sa|
00000260 76 65 20 70 69 63 74 75 72 65 20 61 73 20 61 20 |ve picture as a |
00000270 73 70 72 69 74 65 20 66 69 6c 65 22 0d 00 fa 05 |sprite file"....|
00000280 e1 0d 01 04 04 0d 01 0e 0b dd 20 f2 5f 50 41 4c |.......... ._PAL|
00000290 0d 01 18 0e e3 20 41 25 3d 30 20 b8 20 37 0d 01 |..... A%=0 . 7..|
000002a0 22 1f ef 31 39 2c 41 25 2c 31 36 2c 41 25 3c 3c |"..19,A%,16,A%<<|
000002b0 35 2c 41 25 3c 3c 35 2c 41 25 3c 3c 35 0d 01 2c |5,A%<<5,A%<<5..,|
000002c0 05 ed 0d 01 36 14 ef 31 39 2c 38 2c 31 36 2c 26 |....6..19,8,16,&|
000002d0 46 30 2c 30 2c 30 0d 01 40 14 ef 31 39 2c 39 2c |F0,0,0..@..19,9,|
000002e0 31 36 2c 30 2c 30 2c 26 46 30 0d 01 4a 0d ef 20 |16,0,0,&F0..J.. |
000002f0 32 33 2c 31 2c 30 7c 0d 01 54 05 e1 0d 01 5e 04 |23,1,0|..T....^.|
00000300 0d 01 68 0c dd 20 f2 5f 54 41 4b 45 0d 01 72 0d |..h.. ._TAKE..r.|
00000310 eb 20 32 3a f2 5f 50 41 4c 0d 01 7c 0a f2 5f 53 |. 2:._PAL..|.._S|
00000320 4e 41 50 0d 01 86 08 44 24 3d be 0d 01 90 05 e1 |NAP....D$=......|
00000330 0d 01 9a 04 0d 01 a4 0c dd 20 f2 5f 56 49 45 57 |......... ._VIEW|
00000340 0d 01 ae 0d eb 20 32 3a f2 5f 50 41 4c 0d 01 b8 |..... 2:._PAL...|
00000350 28 c8 99 28 22 4f 53 5f 53 70 72 69 74 65 4f 70 |(..("OS_SpriteOp|
00000360 22 29 2c 32 38 2b 32 35 36 2c 53 50 25 2c 22 50 |"),28+256,SP%,"P|
00000370 49 43 22 2c 30 0d 01 c2 08 44 24 3d be 0d 01 cc |IC",0....D$=....|
00000380 05 e1 0d 01 d6 04 0d 01 e0 0e dd 20 f2 5f 41 44 |........... ._AD|
00000390 4a 55 53 54 0d 01 ea 0d eb 20 32 3a f2 5f 50 41 |JUST..... 2:._PA|
000003a0 4c 0d 01 f4 0c f5 3a f2 5f 53 4e 41 50 0d 01 fe |L.....:._SNAP...|
000003b0 0c fd 20 a6 28 2d 39 39 29 0d 02 08 0b 2a 46 58 |.. .(-99)....*FX|
000003c0 31 35 2c 30 0d 02 12 05 e1 0d 02 1c 04 0d 02 26 |15,0...........&|
000003d0 0c dd 20 f2 5f 53 41 56 45 0d 02 30 25 e8 22 45 |.. ._SAVE..0%."E|
000003e0 6e 74 65 72 20 66 69 6c 65 20 6e 61 6d 65 20 66 |nter file name f|
000003f0 6f 72 20 73 70 72 69 74 65 20 22 2c 46 24 0d 02 |or sprite ",F$..|
00000400 3a 23 c8 99 28 22 4f 53 5f 53 70 72 69 74 65 4f |:#..("OS_SpriteO|
00000410 70 22 29 2c 31 32 2b 32 35 36 2c 53 50 25 2c 46 |p"),12+256,SP%,F|
00000420 24 0d 02 44 05 e1 0d 02 4e 04 0d 02 58 0c dd 20 |$..D....N...X.. |
00000430 f2 5f 53 4e 41 50 0d 02 62 17 c8 99 20 36 2c 31 |._SNAP..b... 6,1|
00000440 35 30 2c 26 36 30 20 b8 20 2c 2c 41 25 0d 02 6c |50,&60 . ,,A%..l|
00000450 09 2a 46 58 31 39 0d 02 76 17 c8 99 20 36 2c 31 |.*FX19..v... 6,1|
00000460 35 30 2c 26 36 44 20 b8 20 2c 2c 41 25 0d 02 80 |50,&6D . ,,A%...|
00000470 0c e7 20 41 25 3d 30 20 8c 0d 02 8a 07 ef 20 37 |.. A%=0 ...... 7|
00000480 0d 02 94 14 f1 8a 30 2c 30 29 22 4e 6f 20 56 69 |......0,0)"No Vi|
00000490 64 65 6f 22 0d 02 9e 05 cc 0d 02 a8 1b e3 20 41 |deo".......... A|
000004a0 25 3d 48 49 53 54 20 b8 20 48 49 53 54 2b 32 38 |%=HIST . HIST+28|
000004b0 20 88 20 34 0d 02 b2 09 21 41 25 3d 30 0d 02 bc | . 4....!A%=0...|
000004c0 05 ed 0d 02 c6 0a d6 20 53 4e 41 50 0d 02 d0 36 |....... SNAP...6|
000004d0 c8 99 28 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |..("OS_SpriteOp"|
000004e0 29 2c 31 36 2b 32 35 36 2c 53 50 25 2c 22 50 49 |),16+256,SP%,"PI|
000004f0 43 22 2c 31 2c 30 2c 30 2c 31 32 37 39 2c 31 30 |C",1,0,0,1279,10|
00000500 32 33 0d 02 da 0b f2 5f 44 48 49 53 54 0d 02 e4 |23....._DHIST...|
00000510 05 cd 0d 02 ee 05 e1 0d 02 f8 04 0d 03 02 0d dd |................|
00000520 20 f2 5f 44 48 49 53 54 0d 03 0c 0f ea 20 4d 58 | ._DHIST..... MX|
00000530 25 2c 41 25 2c 42 25 0d 03 16 0b 42 25 3d 48 49 |%,A%,B%....B%=HI|
00000540 53 54 0d 03 20 0e e3 20 41 25 3d 30 20 b8 20 37 |ST.. .. A%=0 . 7|
00000550 0d 03 2a 0f 48 53 25 28 41 25 29 3d 21 42 25 0d |..*.HS%(A%)=!B%.|
00000560 03 34 1f e7 20 48 53 25 28 41 25 29 3e 4d 58 25 |.4.. HS%(A%)>MX%|
00000570 20 8c 20 4d 58 25 3d 48 53 25 28 41 25 29 0d 03 | . MX%=HS%(A%)..|
00000580 3e 09 42 25 2b 3d 34 0d 03 48 05 ed 0d 03 52 0b |>.B%+=4..H....R.|
00000590 58 25 3d 31 32 34 30 0d 03 5c 0e e3 20 41 25 3d |X%=1240..\.. A%=|
000005a0 30 20 b8 20 37 0d 03 66 16 42 25 3d 35 31 32 2a |0 . 7..f.B%=512*|
000005b0 48 53 25 28 41 25 29 2f 4d 58 25 0d 03 70 10 ec |HS%(A%)/MX%..p..|
000005c0 20 58 25 2c 30 3a e6 20 30 2c 39 0d 03 7a 10 df | X%,0:. 0,9..z..|
000005d0 20 58 25 2c 30 3a e6 20 30 2c 38 0d 03 84 18 e7 | X%,0:. 0,8.....|
000005e0 20 48 53 25 28 41 25 29 3c 3e 30 20 df 20 58 25 | HS%(A%)<>0 . X%|
000005f0 2c 42 25 0d 03 8e 0a 58 25 2d 3d 31 36 0d 03 98 |,B%....X%-=16...|
00000600 05 ed 0d 03 a2 05 e1 0d 03 ac 04 0d 03 b6 19 dd |................|
00000610 20 f2 5f 43 53 55 20 3a f4 20 43 4f 44 45 20 53 | ._CSU :. CODE S|
00000620 45 54 55 50 0d 03 c0 17 c8 99 28 26 34 30 35 30 |ETUP......(&4050|
00000630 30 29 20 b8 20 2c 50 6f 64 42 25 0d 03 ca 17 50 |0) . ,PodB%....P|
00000640 6f 64 42 25 3d 50 6f 64 42 25 20 84 20 26 32 30 |odB%=PodB% . &20|
00000650 30 30 0d 03 d4 2e c8 99 20 36 2c 31 35 31 2c 26 |00...... 6,151,&|
00000660 36 32 2c 26 32 38 20 3a 20 f4 20 53 45 54 20 55 |62,&28 : . SET U|
00000670 50 20 44 41 54 41 20 44 49 52 45 43 54 49 4f 4e |P DATA DIRECTION|
00000680 0d 03 de 26 c8 99 20 36 2c 31 35 31 2c 26 36 30 |...&.. 6,151,&60|
00000690 2c 26 30 20 20 3a 20 f4 20 49 4e 49 54 41 4c 20 |,&0 : . INITAL |
000006a0 4f 55 54 50 55 54 0d 03 e8 2d c8 99 20 36 2c 31 |OUTPUT...-.. 6,1|
000006b0 35 31 2c 26 36 43 2c 26 31 30 20 3a 20 f4 20 53 |51,&6C,&10 : . S|
000006c0 45 54 20 55 50 20 43 4f 4e 54 52 4f 4c 20 4c 49 |ET UP CONTROL LI|
000006d0 4e 45 53 0d 03 f2 37 c8 99 20 36 2c 31 35 31 2c |NES...7.. 6,151,|
000006e0 26 36 45 2c 26 39 38 20 3a 20 f4 20 45 4e 41 42 |&6E,&98 : . ENAB|
000006f0 4c 45 20 43 4f 4e 54 52 4f 4c 20 4c 49 4e 45 20 |LE CONTROL LINE |
00000700 49 4e 54 45 52 52 55 50 54 53 0d 03 fc 11 e3 20 |INTERRUPTS..... |
00000710 41 3d 30 20 b8 20 33 20 88 20 33 0d 04 06 0c 50 |A=0 . 3 . 3....P|
00000720 25 3d 43 4f 44 45 25 0d 04 10 05 5b 0d 04 1a 09 |%=CODE%....[....|
00000730 4f 50 54 20 41 0d 04 24 09 2e 53 4e 41 50 0d 04 |OPT A..$..SNAP..|
00000740 2e 26 4d 4f 56 20 52 30 2c 23 26 31 38 20 5c 20 |.&MOV R0,#&18 \ |
00000750 55 4e 55 53 45 44 20 56 45 43 54 4f 52 20 4e 55 |UNUSED VECTOR NU|
00000760 4d 42 45 52 0d 04 38 29 41 44 52 20 52 31 2c 47 |MBER..8)ADR R1,G|
00000770 56 20 5c 20 52 4f 55 54 49 4e 45 20 b8 20 d6 20 |V \ ROUTINE . . |
00000780 ee 20 55 4e 4b 4e 4f 57 4e 20 53 57 49 0d 04 42 |. UNKNOWN SWI..B|
00000790 2c 4d 4f 56 20 52 32 2c 23 30 20 5c 20 4e 55 4d |,MOV R2,#0 \ NUM|
000007a0 42 45 52 20 b8 20 50 41 53 53 20 b8 20 d6 49 4e |BER . PASS . .IN|
000007b0 47 20 52 4f 55 54 49 4e 45 0d 04 4c 21 53 57 49 |G ROUTINE..L!SWI|
000007c0 20 22 4f 53 5f 43 6c 61 69 6d 22 20 5c 20 43 4c | "OS_Claim" \ CL|
000007d0 41 4d 45 20 56 45 43 54 4f 52 0d 04 56 2f 53 57 |AME VECTOR..V/SW|
000007e0 49 20 26 38 30 31 30 31 20 5c 20 55 4e 55 53 45 |I &80101 \ UNUSE|
000007f0 44 20 56 45 43 54 4f 52 20 b8 20 d6 20 f3 20 49 |D VECTOR . . . I|
00000800 4e 20 52 4f 55 54 49 4e 45 0d 04 60 0d 4d 4f 56 |N ROUTINE..`.MOV|
00000810 20 52 32 2c 23 30 0d 04 6a 1f 4d 4f 56 20 52 30 | R2,#0..j.MOV R0|
00000820 2c 23 26 31 38 20 5c 20 56 45 43 54 4f 52 20 4e |,#&18 \ VECTOR N|
00000830 55 4d 42 45 52 0d 04 74 0d 41 44 52 20 52 31 2c |UMBER..t.ADR R1,|
00000840 47 56 0d 04 7e 1b 53 57 49 20 26 32 30 20 5c 20 |GV..~.SWI &20 \ |
00000850 52 45 4c 45 53 45 20 56 45 43 54 4f 52 0d 04 88 |RELESE VECTOR...|
00000860 1e 4d 4f 56 20 52 31 35 2c 52 31 34 20 5c 20 42 |.MOV R15,R14 \ B|
00000870 41 43 4b 20 b8 20 42 41 53 49 43 0d 04 92 04 0d |ACK . BASIC.....|
00000880 04 9c 13 2e 56 49 41 20 45 51 55 44 20 50 6f 64 |....VIA EQUD Pod|
00000890 42 25 0d 04 a6 0f 2e 54 46 53 20 45 51 55 44 20 |B%.....TFS EQUD |
000008a0 30 0d 04 b0 04 0d 04 ba 16 2e 47 56 20 5c 20 47 |0.........GV \ G|
000008b0 41 54 48 45 52 20 56 49 44 45 4f 0d 04 c4 2c f4 |ATHER VIDEO...,.|
000008c0 20 54 45 51 50 20 52 31 35 2c 23 26 43 30 30 30 | TEQP R15,#&C000|
000008d0 30 30 33 20 5c 44 49 53 41 42 4c 45 20 49 4e 54 |003 \DISABLE INT|
000008e0 45 52 52 55 50 54 53 0d 04 ce 21 4c 44 52 20 52 |ERRUPTS...!LDR R|
000008f0 30 2c 56 49 41 20 5c 20 56 49 41 20 42 41 53 45 |0,VIA \ VIA BASE|
00000900 20 41 44 44 52 45 53 53 0d 04 d8 25 4d 4f 56 20 | ADDRESS...%MOV |
00000910 52 37 2c 23 26 32 30 30 30 30 30 30 20 5c 20 53 |R7,#&2000000 \ S|
00000920 43 52 45 45 4e 20 41 44 44 52 45 53 53 0d 04 e2 |CREEN ADDRESS...|
00000930 04 0d 04 ec 0d 4d 4f 56 20 52 31 2c 23 30 0d 04 |.....MOV R1,#0..|
00000940 f6 20 53 54 52 20 52 31 2c 5b 52 30 5d 20 5c 20 |. STR R1,[R0] \ |
00000950 52 45 53 45 54 20 43 4f 55 4e 54 45 52 53 0d 05 |RESET COUNTERS..|
00000960 00 13 4d 4f 56 20 52 31 2c 23 26 32 38 30 30 30 |..MOV R1,#&28000|
00000970 30 0d 05 0a 1f 53 54 52 20 52 31 2c 5b 52 30 5d |0....STR R1,[R0]|
00000980 20 5c 20 52 45 4c 45 41 53 45 20 52 45 53 45 54 | \ RELEASE RESET|
00000990 0d 05 14 04 0d 05 1e 1a 5c 20 ec 20 43 4f 4c 4f |........\ . COLO|
000009a0 55 4d 20 28 58 29 20 b8 20 53 54 41 52 54 0d 05 |UM (X) . START..|
000009b0 28 0e 4d 4f 56 20 52 32 2c 23 36 30 0d 05 32 08 |(.MOV R2,#60..2.|
000009c0 2e 50 43 43 0d 05 3c 12 4d 4f 56 20 52 31 2c 23 |.PCC..<.MOV R1,#|
000009d0 26 38 30 30 30 30 0d 05 46 1f 53 54 52 20 52 31 |&80000..F.STR R1|
000009e0 2c 5b 52 30 5d 3a 4d 4f 56 20 52 31 2c 23 26 32 |,[R0]:MOV R1,#&2|
000009f0 38 30 30 30 30 0d 05 50 1d 53 54 52 20 52 31 2c |80000..P.STR R1,|
00000a00 5b 52 30 5d 3a 53 55 42 53 20 52 32 2c 52 32 2c |[R0]:SUBS R2,R2,|
00000a10 23 31 0d 05 5a 0b 42 4e 45 20 50 43 43 0d 05 64 |#1..Z.BNE PCC..d|
00000a20 04 0d 05 6e 27 4d 4f 56 20 52 32 2c 23 31 36 30 |...n'MOV R2,#160|
00000a30 20 5c 20 4e 55 4d 42 45 52 20 ca 20 43 4f 4c 4f | \ NUMBER . COLO|
00000a40 55 4d 42 53 20 28 58 29 0d 05 78 1e 2e 48 46 20 |UMBS (X)..x..HF |
00000a50 5c 20 48 4f 4c 44 20 fd 20 53 54 41 52 54 20 ca |\ HOLD . START .|
00000a60 20 46 52 41 4d 45 0d 05 82 1c 4c 44 52 42 20 52 | FRAME....LDRB R|
00000a70 31 2c 5b 52 30 5d 3a 54 53 54 20 52 31 2c 23 26 |1,[R0]:TST R1,#&|
00000a80 38 30 0d 05 8c 0a 42 4e 45 20 48 46 0d 05 96 21 |80....BNE HF...!|
00000a90 4d 4f 56 20 52 38 2c 23 30 20 5c 20 59 20 53 54 |MOV R8,#0 \ Y ST|
00000aa0 4f 52 41 47 45 20 41 44 44 52 45 53 53 0d 05 a0 |ORAGE ADDRESS...|
00000ab0 21 2e 48 46 45 20 5c 20 48 4f 4c 44 20 fd 20 e0 |!.HFE \ HOLD . .|
00000ac0 20 ca 20 46 52 41 4d 45 20 50 55 4c 53 45 0d 05 | . FRAME PULSE..|
00000ad0 aa 1c 4c 44 52 42 20 52 31 2c 5b 52 30 5d 3a 54 |..LDRB R1,[R0]:T|
00000ae0 53 54 20 52 31 2c 23 26 38 30 0d 05 b4 0b 42 45 |ST R1,#&80....BE|
00000af0 51 20 48 46 45 0d 05 be 04 0d 05 c8 0e 4d 4f 56 |Q HFE........MOV|
00000b00 20 52 33 2c 23 32 30 0d 05 d2 2f 2e 48 4c 53 20 | R3,#20.../.HLS |
00000b10 20 5c 20 48 4f 4c 44 20 fd 20 4e 20 86 53 20 41 | \ HOLD . N .S A|
00000b20 52 45 20 4d 49 53 53 45 44 20 41 54 20 54 48 45 |RE MISSED AT THE|
00000b30 20 53 54 41 52 54 0d 05 dc 13 4c 44 52 20 52 31 | START....LDR R1|
00000b40 2c 5b 52 30 2c 23 35 32 5d 0d 05 e6 20 54 53 54 |,[R0,#52]... TST|
00000b50 20 52 31 2c 23 26 31 30 20 5c 20 53 45 45 20 e7 | R1,#&10 \ SEE .|
00000b60 20 41 20 86 20 53 59 4e 43 0d 05 f0 0b 42 45 51 | A . SYNC....BEQ|
00000b70 20 48 4c 53 0d 05 fa 15 4d 4f 56 20 52 31 2c 52 | HLS....MOV R1,R|
00000b80 31 2c 4c 53 4c 20 23 31 36 0d 06 04 13 53 54 52 |1,LSL #16....STR|
00000b90 20 52 31 2c 5b 52 30 2c 23 35 32 5d 0d 06 0e 11 | R1,[R0,#52]....|
00000ba0 53 55 42 53 20 52 33 2c 52 33 2c 23 31 0d 06 18 |SUBS R3,R3,#1...|
00000bb0 0b 42 4e 45 20 48 4c 53 0d 06 22 04 0d 06 2c 19 |.BNE HLS.."...,.|
00000bc0 5c 20 47 41 54 48 45 52 20 49 4e 20 41 20 43 4f |\ GATHER IN A CO|
00000bd0 4c 4f 55 4d 42 0d 06 36 0f 4d 4f 56 20 52 36 2c |LOUMB..6.MOV R6,|
00000be0 23 32 35 36 0d 06 40 1c 2e 48 44 54 20 5c 20 48 |#256..@..HDT \ H|
00000bf0 4f 4c 44 20 fd 20 dc 20 49 53 20 52 45 41 44 59 |OLD . . IS READY|
00000c00 0d 06 4a 1e 4c 44 52 20 52 31 2c 5b 52 30 2c 23 |..J.LDR R1,[R0,#|
00000c10 35 32 5d 3a 54 53 54 20 52 31 2c 23 26 38 0d 06 |52]:TST R1,#&8..|
00000c20 54 0b 42 45 51 20 48 44 54 0d 06 5e 04 0d 06 68 |T.BEQ HDT..^...h|
00000c30 16 4c 44 52 42 20 52 34 2c 5b 52 30 5d 20 5c 20 |.LDRB R4,[R0] \ |
00000c40 a5 20 dc 0d 06 72 20 80 20 52 34 2c 52 34 2c 23 |. ...r . R4,R4,#|
00000c50 26 31 35 20 5c 20 4c 45 41 56 45 20 56 49 44 45 |&15 \ LEAVE VIDE|
00000c60 4f 20 dc 0d 06 7c 0e 41 44 52 20 52 31 2c 47 4c |O ...|.ADR R1,GL|
00000c70 54 0d 06 86 23 4c 44 52 42 20 52 34 2c 5b 52 31 |T...#LDRB R4,[R1|
00000c80 2c 52 34 5d 20 5c 20 4c 4f 4f 4b 20 55 50 20 54 |,R4] \ LOOK UP T|
00000c90 41 42 4c 45 0d 06 90 17 5c 20 55 50 44 41 54 45 |ABLE....\ UPDATE|
00000ca0 20 48 49 53 54 4f 52 47 52 41 4d 0d 06 9a 0f 41 | HISTORGRAM....A|
00000cb0 44 52 20 52 31 2c 48 49 53 54 0d 06 a4 18 4c 44 |DR R1,HIST....LD|
00000cc0 52 20 52 35 2c 5b 52 31 2c 52 34 2c 4c 53 4c 23 |R R5,[R1,R4,LSL#|
00000cd0 32 5d 0d 06 ae 10 41 44 44 20 52 35 2c 52 35 2c |2]....ADD R5,R5,|
00000ce0 23 31 0d 06 b8 18 53 54 52 20 52 35 2c 5b 52 31 |#1....STR R5,[R1|
00000cf0 2c 52 34 2c 4c 53 4c 23 32 5d 0d 06 c2 11 5c 20 |,R4,LSL#2]....\ |
00000d00 53 54 4f 52 45 20 50 49 58 45 4c 0d 06 cc 29 84 |STORE PIXEL...).|
00000d10 52 20 52 34 2c 52 34 2c 52 34 2c 4c 53 4c 20 23 |R R4,R4,R4,LSL #|
00000d20 34 20 5c 4d 41 4b 45 20 44 4f 55 42 4c 45 20 50 |4 \MAKE DOUBLE P|
00000d30 49 58 45 4c 0d 06 d6 13 53 54 52 42 20 52 34 2c |IXEL....STRB R4,|
00000d40 5b 52 37 2c 52 38 5d 0d 06 e0 1c 41 44 44 20 52 |[R7,R8]....ADD R|
00000d50 38 2c 52 38 2c 23 31 36 30 20 5c 20 49 4e 43 20 |8,R8,#160 \ INC |
00000d60 59 20 9c 0d 06 ea 04 0d 06 f4 17 53 55 42 53 20 |Y .........SUBS |
00000d70 52 36 2c 52 36 2c 23 31 20 5c 20 ed 20 86 0d 06 |R6,R6,#1 \ . ...|
00000d80 fe 0b 42 4e 45 20 48 44 54 0d 07 08 04 0d 07 12 |..BNE HDT.......|
00000d90 11 5c 20 ec 20 58 20 43 4f 55 4e 54 45 52 0d 07 |.\ . X COUNTER..|
00000da0 1c 1e 4d 4f 56 20 52 31 2c 23 26 38 30 30 30 30 |..MOV R1,#&80000|
00000db0 3a 53 54 52 20 52 31 2c 5b 52 30 5d 0d 07 26 1f |:STR R1,[R0]..&.|
00000dc0 4d 4f 56 20 52 31 2c 23 26 32 38 30 30 30 30 3a |MOV R1,#&280000:|
00000dd0 53 54 52 20 52 31 2c 5b 52 30 5d 0d 07 30 1a 41 |STR R1,[R0]..0.A|
00000de0 44 44 20 52 37 2c 52 37 2c 23 31 20 5c 20 49 4e |DD R7,R7,#1 \ IN|
00000df0 43 20 58 20 9c 0d 07 3a 04 0d 07 44 1d 53 55 42 |C X ...:...D.SUB|
00000e00 53 20 52 32 2c 52 32 2c 23 31 20 5c 20 ee 45 20 |S R2,R2,#1 \ .E |
00000e10 4c 45 53 53 20 58 0d 07 4e 0a 42 4e 45 20 48 46 |LESS X..N.BNE HF|
00000e20 0d 07 58 2d 4c 44 4d 46 44 20 52 31 33 21 2c 20 |..X-LDMFD R13!, |
00000e30 7b 50 43 7d 20 5c 20 42 41 43 4b 20 46 52 4f 4d |{PC} \ BACK FROM|
00000e40 20 c9 53 54 20 59 4f 55 20 43 41 4d 45 0d 07 62 | .ST YOU CAME..b|
00000e50 09 2e 48 49 53 54 0d 07 6c 05 5d 0d 07 76 0d 50 |..HIST..l.]..v.P|
00000e60 25 3d 50 25 2b 38 2a 34 0d 07 80 05 5b 0d 07 8a |%=P%+8*4....[...|
00000e70 08 2e 47 4c 54 0d 07 94 05 5d 0d 07 9e 05 ed 0d |..GLT....]......|
00000e80 07 a8 0e e3 20 41 25 3d 30 20 b8 20 37 0d 07 b2 |.... A%=0 . 7...|
00000e90 08 f3 20 57 25 0d 07 bc 0d 47 4c 54 3f 57 25 3d |.. W%....GLT?W%=|
00000ea0 41 25 0d 07 c6 05 ed 0d 07 d0 19 dc 20 30 2c 31 |A%.......... 0,1|
00000eb0 2c 34 2c 35 2c 31 36 2c 31 37 2c 32 30 2c 32 31 |,4,5,16,17,20,21|
00000ec0 0d 07 da 0c 21 53 50 25 3d 53 53 25 0d 07 e4 0c |....!SP%=SS%....|
00000ed0 53 50 25 21 38 3d 31 36 0d 07 ee 1f c8 99 28 22 |SP%!8=16......("|
00000ee0 4f 53 5f 53 70 72 69 74 65 4f 70 22 29 2c 39 2b |OS_SpriteOp"),9+|
00000ef0 32 35 36 2c 53 50 25 0d 07 f8 05 e1 0d ff |256,SP%.......|
00000efe 
.