� Screen Blanker
� by Steven Flintham
� (c) The Micro User
(� 7
2� 23;8202;0;0;0;
<
�title
F�initialise
P�time_limit
Z
�assemble
d�instructions
n�
x:
�� �title
�C�9,0);�(141);�(132);�(157);�(131);"Screen Blanker";�(2);�(156)
�C�9,1);�(141);�(132);�(157);�(131);"Screen Blanker";�(2);�(156)
�>�0,2);�131;"by Steven Flintham";�(2);"(c) The Micro User"
��
�:
�� �initialise
�int_vec%=&220
�code%=&900
�osword%=&FFF1
�osbyte%=&FFF4
�oswrch%=&FFEE
�
key%=0

�

:

� �time_limit

"� wait%,wait$

,=�'"What is the blanking delay time in"'"minutes?";�(131);

6
� ""delay

@wait%=delay*6000

Jwait$="FF"+�~(0-wait%)

Twait_lsb%=�("&"+�wait$,2))

^wait_msbs%=�("&"+�wait$,8))

h�

r:

|� �assemble

�� opt%=0 � 2 � 2

�P%=code%

�
[OPT opt%

�.set_up%

�"LDA int_vec%:CMP #blank% � 256

�BEQ exit_set_up%

�STA old_vec%

�$LDA int_vec%+1:CMP #blank% � 256

�BEQ exit_set_up%

�STA old_vec%+1

�"LDA #blank% � 256:STA int_vec%

�$LDA #blank% � 256:STA int_vec%+1

�'LDA #247:LDX #76:LDY #0:JSR osbyte%
LDA #248:LDX #set_up% � 256
&LDY #0:STY blank_flag%:JSR osbyte%
LDA #249:LDX #set_up% � 256
&LDY #0:JSR osbyte%
0.exit_set_up%
:LDA #14:LDX #2:JSR osbyte%
DLDX #5:JSR osbyte%
NJMP set_timer%
X.blank%
bPHP:PHA
lCMP #2:BEQ key_pressed%
vCMP #5:BEQ time_out%
�PLA:PLP
�JMP (old_vec%)
�.key_pressed%
�TXA:PHA:TYA:PHA
�CPY #key%:BEQ user_blank%
�JSR set_timer%
�LDA blank_flag%
� CMP #128:BEQ screen_blanked%
�
.exit%
�PLA:TAY:PLA:TAX:PLA:PLP
�JMP (old_vec%)
�.user_blank%
�&LDA blank_flag%:BEQ do_user_blank%
CMP #128:BEQ do_user_blank%
CMP #127:BNE exit%
LDA #0:STA blank_flag%
 JMP restore_screen%
*.do_user_blank%
4LDA #127
>JSR blank_screen%
H
BEQ exit%
R.set_timer%
\
LDA #4
fLDX #time_limit% � 256
pLDY #time_limit% � 256
zJMP osword%
�.time_limit%
�OPT �equb(wait_lsb%)
�OPT �equd(wait_msbs%)
�.screen_blanked%
�LDA #0:STA blank_flag%
�JMP restore_screen%
�.restore_screen%
�JSR line_len1%
�LDA #135:JSR osbyte%
�CPY #4:BMI length_80%
�LDA #40:BNE length_set%
�.length_80%
�LDA #80
.length_set%
JSR oswrch%
JSR line_len2%
$
JMP exit%
..time_out%
8TXA:PHA:TYA:PHA
BJSR bleep%
L&LDA blank_flag%:CMP #127:BEQ exit%
VLDA #128
`JSR blank_screen%
j
JMP exit%
t.blank_screen%
~STA blank_flag%
�JSR line_len1%
�LDA #0:JSR oswrch%
�JMP line_len2%
�.line_len1%
�LDA #23:JSR oswrch%
�LDA #0:JSR oswrch%
�LDA #1:JMP oswrch%
�.line_len2%
�
LDX #6
�
LDA #0
�.line_len2_loop%
�JSR oswrch%
DEX

BNE line_len2_loop%
RTS
.bleep%
(
LDA #7
2LDX #bleep_data% � 256
<LDY #bleep_data% � 256
FJMP osword%
P.bleep_data%
ZOPT �equw(1)
dOPT �equw(-10)
nOPT �equw(100)
xOPT �equw(5)
�.old_vec% OPT �equw(0)
�.blank_flag% OPT �equb(0)
�]
��
�� code%
��
�:
�� �equb(byte%)
�?P%=byte%:P%=P%+1
�	=opt%
�:
�� �equw(db_byte%)
�?P%=db_byte% � 256
P%?1=db_byte% � 256
P%=P%+2
	=opt%
":
,� �equd(word%)
6!P%=word%:P%=P%+4
@	=opt%
J:
T� �instructions
^(�'"The code has now been assembled."
h��'"If no key is pressed for ";�(delay%);" minutes"'"then the screen will blank itself"'"automatically. Pressing any key will"'"restore the display."
r��'"The screen can also be blanked by"'"pressing CTRL @. If this is done, CTRL"'"@ must be pressed again to restore the"'"screen."
|C�'"Use *SAVE name ";�~(code%);" ";�~(P%);" to save the"'"code."
��
�

00000000  0d 00 0a 14 f4 20 53 63  72 65 65 6e 20 42 6c 61  |..... Screen Bla|
00000010  6e 6b 65 72 0d 00 14 18  f4 20 62 79 20 53 74 65  |nker..... by Ste|
00000020  76 65 6e 20 46 6c 69 6e  74 68 61 6d 0d 00 1e 18  |ven Flintham....|
00000030  f4 20 28 63 29 20 54 68  65 20 4d 69 63 72 6f 20  |. (c) The Micro |
00000040  55 73 65 72 0d 00 28 07  eb 20 37 0d 00 32 14 ef  |User..(.. 7..2..|
00000050  20 32 33 3b 38 32 30 32  3b 30 3b 30 3b 30 3b 0d  | 23;8202;0;0;0;.|
00000060  00 3c 0a f2 74 69 74 6c  65 0d 00 46 0f f2 69 6e  |.<..title..F..in|
00000070  69 74 69 61 6c 69 73 65  0d 00 50 0f f2 74 69 6d  |itialise..P..tim|
00000080  65 5f 6c 69 6d 69 74 0d  00 5a 0d f2 61 73 73 65  |e_limit..Z..asse|
00000090  6d 62 6c 65 0d 00 64 11  f2 69 6e 73 74 72 75 63  |mble..d..instruc|
000000a0  74 69 6f 6e 73 0d 00 6e  05 e0 0d 00 78 05 3a 0d  |tions..n....x.:.|
000000b0  00 82 0c dd 20 f2 74 69  74 6c 65 0d 00 8c 43 f1  |.... .title...C.|
000000c0  8a 39 2c 30 29 3b bd 28  31 34 31 29 3b bd 28 31  |.9,0);.(141);.(1|
000000d0  33 32 29 3b bd 28 31 35  37 29 3b bd 28 31 33 31  |32);.(157);.(131|
000000e0  29 3b 22 53 63 72 65 65  6e 20 42 6c 61 6e 6b 65  |);"Screen Blanke|
000000f0  72 22 3b 89 28 32 29 3b  bd 28 31 35 36 29 0d 00  |r";.(2);.(156)..|
00000100  96 43 f1 8a 39 2c 31 29  3b bd 28 31 34 31 29 3b  |.C..9,1);.(141);|
00000110  bd 28 31 33 32 29 3b bd  28 31 35 37 29 3b bd 28  |.(132);.(157);.(|
00000120  31 33 31 29 3b 22 53 63  72 65 65 6e 20 42 6c 61  |131);"Screen Bla|
00000130  6e 6b 65 72 22 3b 89 28  32 29 3b bd 28 31 35 36  |nker";.(2);.(156|
00000140  29 0d 00 a0 3e f1 8a 30  2c 32 29 3b bd 31 33 31  |)...>..0,2);.131|
00000150  3b 22 62 79 20 53 74 65  76 65 6e 20 46 6c 69 6e  |;"by Steven Flin|
00000160  74 68 61 6d 22 3b 89 28  32 29 3b 22 28 63 29 20  |tham";.(2);"(c) |
00000170  54 68 65 20 4d 69 63 72  6f 20 55 73 65 72 22 0d  |The Micro User".|
00000180  00 aa 05 e1 0d 00 b4 05  3a 0d 00 be 11 dd 20 f2  |........:..... .|
00000190  69 6e 69 74 69 61 6c 69  73 65 0d 00 c8 11 69 6e  |initialise....in|
000001a0  74 5f 76 65 63 25 3d 26  32 32 30 0d 00 d2 0e 63  |t_vec%=&220....c|
000001b0  6f 64 65 25 3d 26 39 30  30 0d 00 dc 11 6f 73 77  |ode%=&900....osw|
000001c0  6f 72 64 25 3d 26 46 46  46 31 0d 00 e6 11 6f 73  |ord%=&FFF1....os|
000001d0  62 79 74 65 25 3d 26 46  46 46 34 0d 00 f0 11 6f  |byte%=&FFF4....o|
000001e0  73 77 72 63 68 25 3d 26  46 46 45 45 0d 00 fa 0a  |swrch%=&FFEE....|
000001f0  6b 65 79 25 3d 30 0d 01  04 05 e1 0d 01 0e 05 3a  |key%=0.........:|
00000200  0d 01 18 11 dd 20 f2 74  69 6d 65 5f 6c 69 6d 69  |..... .time_limi|
00000210  74 0d 01 22 11 ea 20 77  61 69 74 25 2c 77 61 69  |t..".. wait%,wai|
00000220  74 24 0d 01 2c 3d f1 27  22 57 68 61 74 20 69 73  |t$..,=.'"What is|
00000230  20 74 68 65 20 62 6c 61  6e 6b 69 6e 67 20 64 65  | the blanking de|
00000240  6c 61 79 20 74 69 6d 65  20 69 6e 22 27 22 6d 69  |lay time in"'"mi|
00000250  6e 75 74 65 73 3f 22 3b  bd 28 31 33 31 29 3b 0d  |nutes?";.(131);.|
00000260  01 36 0d e8 20 22 22 64  65 6c 61 79 0d 01 40 14  |.6.. ""delay..@.|
00000270  77 61 69 74 25 3d 64 65  6c 61 79 2a 36 30 30 30  |wait%=delay*6000|
00000280  0d 01 4a 1a 77 61 69 74  24 3d 22 46 46 22 2b c3  |..J.wait$="FF"+.|
00000290  7e 28 30 2d 77 61 69 74  25 29 0d 01 54 1e 77 61  |~(0-wait%)..T.wa|
000002a0  69 74 5f 6c 73 62 25 3d  a0 28 22 26 22 2b c2 77  |it_lsb%=.("&"+.w|
000002b0  61 69 74 24 2c 32 29 29  0d 01 5e 1f 77 61 69 74  |ait$,2))..^.wait|
000002c0  5f 6d 73 62 73 25 3d a0  28 22 26 22 2b c0 77 61  |_msbs%=.("&"+.wa|
000002d0  69 74 24 2c 38 29 29 0d  01 68 05 e1 0d 01 72 05  |it$,8))..h....r.|
000002e0  3a 0d 01 7c 0f dd 20 f2  61 73 73 65 6d 62 6c 65  |:..|.. .assemble|
000002f0  0d 01 86 14 e3 20 6f 70  74 25 3d 30 20 b8 20 32  |..... opt%=0 . 2|
00000300  20 88 20 32 0d 01 90 0c  50 25 3d 63 6f 64 65 25  | . 2....P%=code%|
00000310  0d 01 9a 0d 5b 4f 50 54  20 6f 70 74 25 0d 01 a4  |....[OPT opt%...|
00000320  0c 2e 73 65 74 5f 75 70  25 0d 01 ae 22 4c 44 41  |..set_up%..."LDA|
00000330  20 69 6e 74 5f 76 65 63  25 3a 43 4d 50 20 23 62  | int_vec%:CMP #b|
00000340  6c 61 6e 6b 25 20 83 20  32 35 36 0d 01 b8 14 42  |lank% . 256....B|
00000350  45 51 20 65 78 69 74 5f  73 65 74 5f 75 70 25 0d  |EQ exit_set_up%.|
00000360  01 c2 10 53 54 41 20 6f  6c 64 5f 76 65 63 25 0d  |...STA old_vec%.|
00000370  01 cc 24 4c 44 41 20 69  6e 74 5f 76 65 63 25 2b  |..$LDA int_vec%+|
00000380  31 3a 43 4d 50 20 23 62  6c 61 6e 6b 25 20 81 20  |1:CMP #blank% . |
00000390  32 35 36 0d 01 d6 14 42  45 51 20 65 78 69 74 5f  |256....BEQ exit_|
000003a0  73 65 74 5f 75 70 25 0d  01 e0 12 53 54 41 20 6f  |set_up%....STA o|
000003b0  6c 64 5f 76 65 63 25 2b  31 0d 01 ea 22 4c 44 41  |ld_vec%+1..."LDA|
000003c0  20 23 62 6c 61 6e 6b 25  20 83 20 32 35 36 3a 53  | #blank% . 256:S|
000003d0  54 41 20 69 6e 74 5f 76  65 63 25 0d 01 f4 24 4c  |TA int_vec%...$L|
000003e0  44 41 20 23 62 6c 61 6e  6b 25 20 81 20 32 35 36  |DA #blank% . 256|
000003f0  3a 53 54 41 20 69 6e 74  5f 76 65 63 25 2b 31 0d  |:STA int_vec%+1.|
00000400  01 fe 27 4c 44 41 20 23  32 34 37 3a 4c 44 58 20  |..'LDA #247:LDX |
00000410  23 37 36 3a 4c 44 59 20  23 30 3a 4a 53 52 20 6f  |#76:LDY #0:JSR o|
00000420  73 62 79 74 65 25 0d 02  08 1f 4c 44 41 20 23 32  |sbyte%....LDA #2|
00000430  34 38 3a 4c 44 58 20 23  73 65 74 5f 75 70 25 20  |48:LDX #set_up% |
00000440  83 20 32 35 36 0d 02 12  26 4c 44 59 20 23 30 3a  |. 256...&LDY #0:|
00000450  53 54 59 20 62 6c 61 6e  6b 5f 66 6c 61 67 25 3a  |STY blank_flag%:|
00000460  4a 53 52 20 6f 73 62 79  74 65 25 0d 02 1c 1f 4c  |JSR osbyte%....L|
00000470  44 41 20 23 32 34 39 3a  4c 44 58 20 23 73 65 74  |DA #249:LDX #set|
00000480  5f 75 70 25 20 81 20 32  35 36 0d 02 26 16 4c 44  |_up% . 256..&.LD|
00000490  59 20 23 30 3a 4a 53 52  20 6f 73 62 79 74 65 25  |Y #0:JSR osbyte%|
000004a0  0d 02 30 11 2e 65 78 69  74 5f 73 65 74 5f 75 70  |..0..exit_set_up|
000004b0  25 0d 02 3a 1e 4c 44 41  20 23 31 34 3a 4c 44 58  |%..:.LDA #14:LDX|
000004c0  20 23 32 3a 4a 53 52 20  6f 73 62 79 74 65 25 0d  | #2:JSR osbyte%.|
000004d0  02 44 16 4c 44 58 20 23  35 3a 4a 53 52 20 6f 73  |.D.LDX #5:JSR os|
000004e0  62 79 74 65 25 0d 02 4e  12 4a 4d 50 20 73 65 74  |byte%..N.JMP set|
000004f0  5f 74 69 6d 65 72 25 0d  02 58 0b 2e 62 6c 61 6e  |_timer%..X..blan|
00000500  6b 25 0d 02 62 0b 50 48  50 3a 50 48 41 0d 02 6c  |k%..b.PHP:PHA..l|
00000510  1b 43 4d 50 20 23 32 3a  42 45 51 20 6b 65 79 5f  |.CMP #2:BEQ key_|
00000520  70 72 65 73 73 65 64 25  0d 02 76 18 43 4d 50 20  |pressed%..v.CMP |
00000530  23 35 3a 42 45 51 20 74  69 6d 65 5f 6f 75 74 25  |#5:BEQ time_out%|
00000540  0d 02 80 0b 50 4c 41 3a  50 4c 50 0d 02 8a 12 4a  |....PLA:PLP....J|
00000550  4d 50 20 28 6f 6c 64 5f  76 65 63 25 29 0d 02 94  |MP (old_vec%)...|
00000560  11 2e 6b 65 79 5f 70 72  65 73 73 65 64 25 0d 02  |..key_pressed%..|
00000570  9e 13 54 58 41 3a 50 48  41 3a 54 59 41 3a 50 48  |..TXA:PHA:TYA:PH|
00000580  41 0d 02 a8 1d 43 50 59  20 23 6b 65 79 25 3a 42  |A....CPY #key%:B|
00000590  45 51 20 75 73 65 72 5f  62 6c 61 6e 6b 25 0d 02  |EQ user_blank%..|
000005a0  b2 12 4a 53 52 20 73 65  74 5f 74 69 6d 65 72 25  |..JSR set_timer%|
000005b0  0d 02 bc 13 4c 44 41 20  62 6c 61 6e 6b 5f 66 6c  |....LDA blank_fl|
000005c0  61 67 25 0d 02 c6 20 43  4d 50 20 23 31 32 38 3a  |ag%... CMP #128:|
000005d0  42 45 51 20 73 63 72 65  65 6e 5f 62 6c 61 6e 6b  |BEQ screen_blank|
000005e0  65 64 25 0d 02 d0 0a 2e  65 78 69 74 25 0d 02 da  |ed%.....exit%...|
000005f0  1b 50 4c 41 3a 54 41 59  3a 50 4c 41 3a 54 41 58  |.PLA:TAY:PLA:TAX|
00000600  3a 50 4c 41 3a 50 4c 50  0d 02 e4 12 4a 4d 50 20  |:PLA:PLP....JMP |
00000610  28 6f 6c 64 5f 76 65 63  25 29 0d 02 ee 10 2e 75  |(old_vec%).....u|
00000620  73 65 72 5f 62 6c 61 6e  6b 25 0d 02 f8 26 4c 44  |ser_blank%...&LD|
00000630  41 20 62 6c 61 6e 6b 5f  66 6c 61 67 25 3a 42 45  |A blank_flag%:BE|
00000640  51 20 64 6f 5f 75 73 65  72 5f 62 6c 61 6e 6b 25  |Q do_user_blank%|
00000650  0d 03 02 1f 43 4d 50 20  23 31 32 38 3a 42 45 51  |....CMP #128:BEQ|
00000660  20 64 6f 5f 75 73 65 72  5f 62 6c 61 6e 6b 25 0d  | do_user_blank%.|
00000670  03 0c 16 43 4d 50 20 23  31 32 37 3a 42 4e 45 20  |...CMP #127:BNE |
00000680  65 78 69 74 25 0d 03 16  1a 4c 44 41 20 23 30 3a  |exit%....LDA #0:|
00000690  53 54 41 20 62 6c 61 6e  6b 5f 66 6c 61 67 25 0d  |STA blank_flag%.|
000006a0  03 20 17 4a 4d 50 20 72  65 73 74 6f 72 65 5f 73  |. .JMP restore_s|
000006b0  63 72 65 65 6e 25 0d 03  2a 13 2e 64 6f 5f 75 73  |creen%..*..do_us|
000006c0  65 72 5f 62 6c 61 6e 6b  25 0d 03 34 0c 4c 44 41  |er_blank%..4.LDA|
000006d0  20 23 31 32 37 0d 03 3e  15 4a 53 52 20 62 6c 61  | #127..>.JSR bla|
000006e0  6e 6b 5f 73 63 72 65 65  6e 25 0d 03 48 0d 42 45  |nk_screen%..H.BE|
000006f0  51 20 65 78 69 74 25 0d  03 52 0f 2e 73 65 74 5f  |Q exit%..R..set_|
00000700  74 69 6d 65 72 25 0d 03  5c 0a 4c 44 41 20 23 34  |timer%..\.LDA #4|
00000710  0d 03 66 1a 4c 44 58 20  23 74 69 6d 65 5f 6c 69  |..f.LDX #time_li|
00000720  6d 69 74 25 20 83 20 32  35 36 0d 03 70 1a 4c 44  |mit% . 256..p.LD|
00000730  59 20 23 74 69 6d 65 5f  6c 69 6d 69 74 25 20 81  |Y #time_limit% .|
00000740  20 32 35 36 0d 03 7a 0f  4a 4d 50 20 6f 73 77 6f  | 256..z.JMP oswo|
00000750  72 64 25 0d 03 84 10 2e  74 69 6d 65 5f 6c 69 6d  |rd%.....time_lim|
00000760  69 74 25 0d 03 8e 18 4f  50 54 20 a4 65 71 75 62  |it%....OPT .equb|
00000770  28 77 61 69 74 5f 6c 73  62 25 29 0d 03 98 19 4f  |(wait_lsb%)....O|
00000780  50 54 20 a4 65 71 75 64  28 77 61 69 74 5f 6d 73  |PT .equd(wait_ms|
00000790  62 73 25 29 0d 03 a2 14  2e 73 63 72 65 65 6e 5f  |bs%).....screen_|
000007a0  62 6c 61 6e 6b 65 64 25  0d 03 ac 1a 4c 44 41 20  |blanked%....LDA |
000007b0  23 30 3a 53 54 41 20 62  6c 61 6e 6b 5f 66 6c 61  |#0:STA blank_fla|
000007c0  67 25 0d 03 b6 17 4a 4d  50 20 72 65 73 74 6f 72  |g%....JMP restor|
000007d0  65 5f 73 63 72 65 65 6e  25 0d 03 c0 14 2e 72 65  |e_screen%.....re|
000007e0  73 74 6f 72 65 5f 73 63  72 65 65 6e 25 0d 03 ca  |store_screen%...|
000007f0  12 4a 53 52 20 6c 69 6e  65 5f 6c 65 6e 31 25 0d  |.JSR line_len1%.|
00000800  03 d4 18 4c 44 41 20 23  31 33 35 3a 4a 53 52 20  |...LDA #135:JSR |
00000810  6f 73 62 79 74 65 25 0d  03 de 19 43 50 59 20 23  |osbyte%....CPY #|
00000820  34 3a 42 4d 49 20 6c 65  6e 67 74 68 5f 38 30 25  |4:BMI length_80%|
00000830  0d 03 e8 1b 4c 44 41 20  23 34 30 3a 42 4e 45 20  |....LDA #40:BNE |
00000840  6c 65 6e 67 74 68 5f 73  65 74 25 0d 03 f2 0f 2e  |length_set%.....|
00000850  6c 65 6e 67 74 68 5f 38  30 25 0d 03 fc 0b 4c 44  |length_80%....LD|
00000860  41 20 23 38 30 0d 04 06  10 2e 6c 65 6e 67 74 68  |A #80.....length|
00000870  5f 73 65 74 25 0d 04 10  0f 4a 53 52 20 6f 73 77  |_set%....JSR osw|
00000880  72 63 68 25 0d 04 1a 12  4a 53 52 20 6c 69 6e 65  |rch%....JSR line|
00000890  5f 6c 65 6e 32 25 0d 04  24 0d 4a 4d 50 20 65 78  |_len2%..$.JMP ex|
000008a0  69 74 25 0d 04 2e 0e 2e  74 69 6d 65 5f 6f 75 74  |it%.....time_out|
000008b0  25 0d 04 38 13 54 58 41  3a 50 48 41 3a 54 59 41  |%..8.TXA:PHA:TYA|
000008c0  3a 50 48 41 0d 04 42 0e  4a 53 52 20 62 6c 65 65  |:PHA..B.JSR blee|
000008d0  70 25 0d 04 4c 26 4c 44  41 20 62 6c 61 6e 6b 5f  |p%..L&LDA blank_|
000008e0  66 6c 61 67 25 3a 43 4d  50 20 23 31 32 37 3a 42  |flag%:CMP #127:B|
000008f0  45 51 20 65 78 69 74 25  0d 04 56 0c 4c 44 41 20  |EQ exit%..V.LDA |
00000900  23 31 32 38 0d 04 60 15  4a 53 52 20 62 6c 61 6e  |#128..`.JSR blan|
00000910  6b 5f 73 63 72 65 65 6e  25 0d 04 6a 0d 4a 4d 50  |k_screen%..j.JMP|
00000920  20 65 78 69 74 25 0d 04  74 12 2e 62 6c 61 6e 6b  | exit%..t..blank|
00000930  5f 73 63 72 65 65 6e 25  0d 04 7e 13 53 54 41 20  |_screen%..~.STA |
00000940  62 6c 61 6e 6b 5f 66 6c  61 67 25 0d 04 88 12 4a  |blank_flag%....J|
00000950  53 52 20 6c 69 6e 65 5f  6c 65 6e 31 25 0d 04 92  |SR line_len1%...|
00000960  16 4c 44 41 20 23 30 3a  4a 53 52 20 6f 73 77 72  |.LDA #0:JSR oswr|
00000970  63 68 25 0d 04 9c 12 4a  4d 50 20 6c 69 6e 65 5f  |ch%....JMP line_|
00000980  6c 65 6e 32 25 0d 04 a6  0f 2e 6c 69 6e 65 5f 6c  |len2%.....line_l|
00000990  65 6e 31 25 0d 04 b0 17  4c 44 41 20 23 32 33 3a  |en1%....LDA #23:|
000009a0  4a 53 52 20 6f 73 77 72  63 68 25 0d 04 ba 16 4c  |JSR oswrch%....L|
000009b0  44 41 20 23 30 3a 4a 53  52 20 6f 73 77 72 63 68  |DA #0:JSR oswrch|
000009c0  25 0d 04 c4 16 4c 44 41  20 23 31 3a 4a 4d 50 20  |%....LDA #1:JMP |
000009d0  6f 73 77 72 63 68 25 0d  04 ce 0f 2e 6c 69 6e 65  |oswrch%.....line|
000009e0  5f 6c 65 6e 32 25 0d 04  d8 0a 4c 44 58 20 23 36  |_len2%....LDX #6|
000009f0  0d 04 e2 0a 4c 44 41 20  23 30 0d 04 ec 14 2e 6c  |....LDA #0.....l|
00000a00  69 6e 65 5f 6c 65 6e 32  5f 6c 6f 6f 70 25 0d 04  |ine_len2_loop%..|
00000a10  f6 0f 4a 53 52 20 6f 73  77 72 63 68 25 0d 05 00  |..JSR oswrch%...|
00000a20  07 44 45 58 0d 05 0a 17  42 4e 45 20 6c 69 6e 65  |.DEX....BNE line|
00000a30  5f 6c 65 6e 32 5f 6c 6f  6f 70 25 0d 05 14 07 52  |_len2_loop%....R|
00000a40  54 53 0d 05 1e 0b 2e 62  6c 65 65 70 25 0d 05 28  |TS.....bleep%..(|
00000a50  0a 4c 44 41 20 23 37 0d  05 32 1a 4c 44 58 20 23  |.LDA #7..2.LDX #|
00000a60  62 6c 65 65 70 5f 64 61  74 61 25 20 83 20 32 35  |bleep_data% . 25|
00000a70  36 0d 05 3c 1a 4c 44 59  20 23 62 6c 65 65 70 5f  |6..<.LDY #bleep_|
00000a80  64 61 74 61 25 20 81 20  32 35 36 0d 05 46 0f 4a  |data% . 256..F.J|
00000a90  4d 50 20 6f 73 77 6f 72  64 25 0d 05 50 10 2e 62  |MP osword%..P..b|
00000aa0  6c 65 65 70 5f 64 61 74  61 25 0d 05 5a 10 4f 50  |leep_data%..Z.OP|
00000ab0  54 20 a4 65 71 75 77 28  31 29 0d 05 64 12 4f 50  |T .equw(1)..d.OP|
00000ac0  54 20 a4 65 71 75 77 28  2d 31 30 29 0d 05 6e 12  |T .equw(-10)..n.|
00000ad0  4f 50 54 20 a4 65 71 75  77 28 31 30 30 29 0d 05  |OPT .equw(100)..|
00000ae0  78 10 4f 50 54 20 a4 65  71 75 77 28 35 29 0d 05  |x.OPT .equw(5)..|
00000af0  82 1a 2e 6f 6c 64 5f 76  65 63 25 20 4f 50 54 20  |...old_vec% OPT |
00000b00  a4 65 71 75 77 28 30 29  0d 05 8c 1d 2e 62 6c 61  |.equw(0).....bla|
00000b10  6e 6b 5f 66 6c 61 67 25  20 4f 50 54 20 a4 65 71  |nk_flag% OPT .eq|
00000b20  75 62 28 30 29 0d 05 96  05 5d 0d 05 a0 05 ed 0d  |ub(0)....]......|
00000b30  05 aa 0b d6 20 63 6f 64  65 25 0d 05 b4 05 e1 0d  |.... code%......|
00000b40  05 be 05 3a 0d 05 c8 12  dd 20 a4 65 71 75 62 28  |...:..... .equb(|
00000b50  62 79 74 65 25 29 0d 05  d2 15 3f 50 25 3d 62 79  |byte%)....?P%=by|
00000b60  74 65 25 3a 50 25 3d 50  25 2b 31 0d 05 dc 09 3d  |te%:P%=P%+1....=|
00000b70  6f 70 74 25 0d 05 e6 05  3a 0d 05 f0 15 dd 20 a4  |opt%....:..... .|
00000b80  65 71 75 77 28 64 62 5f  62 79 74 65 25 29 0d 05  |equw(db_byte%)..|
00000b90  fa 16 3f 50 25 3d 64 62  5f 62 79 74 65 25 20 83  |..?P%=db_byte% .|
00000ba0  20 32 35 36 0d 06 04 17  50 25 3f 31 3d 64 62 5f  | 256....P%?1=db_|
00000bb0  62 79 74 65 25 20 81 20  32 35 36 0d 06 0e 0b 50  |byte% . 256....P|
00000bc0  25 3d 50 25 2b 32 0d 06  18 09 3d 6f 70 74 25 0d  |%=P%+2....=opt%.|
00000bd0  06 22 05 3a 0d 06 2c 12  dd 20 a4 65 71 75 64 28  |.".:..,.. .equd(|
00000be0  77 6f 72 64 25 29 0d 06  36 15 21 50 25 3d 77 6f  |word%)..6.!P%=wo|
00000bf0  72 64 25 3a 50 25 3d 50  25 2b 34 0d 06 40 09 3d  |rd%:P%=P%+4..@.=|
00000c00  6f 70 74 25 0d 06 4a 05  3a 0d 06 54 13 dd 20 f2  |opt%..J.:..T.. .|
00000c10  69 6e 73 74 72 75 63 74  69 6f 6e 73 0d 06 5e 28  |instructions..^(|
00000c20  f1 27 22 54 68 65 20 63  6f 64 65 20 68 61 73 20  |.'"The code has |
00000c30  6e 6f 77 20 62 65 65 6e  20 61 73 73 65 6d 62 6c  |now been assembl|
00000c40  65 64 2e 22 0d 06 68 98  f1 27 22 49 66 20 6e 6f  |ed."..h..'"If no|
00000c50  20 6b 65 79 20 69 73 20  70 72 65 73 73 65 64 20  | key is pressed |
00000c60  66 6f 72 20 22 3b c3 28  64 65 6c 61 79 25 29 3b  |for ";.(delay%);|
00000c70  22 20 6d 69 6e 75 74 65  73 22 27 22 74 68 65 6e  |" minutes"'"then|
00000c80  20 74 68 65 20 73 63 72  65 65 6e 20 77 69 6c 6c  | the screen will|
00000c90  20 62 6c 61 6e 6b 20 69  74 73 65 6c 66 22 27 22  | blank itself"'"|
00000ca0  61 75 74 6f 6d 61 74 69  63 61 6c 6c 79 2e 20 50  |automatically. P|
00000cb0  72 65 73 73 69 6e 67 20  61 6e 79 20 6b 65 79 20  |ressing any key |
00000cc0  77 69 6c 6c 22 27 22 72  65 73 74 6f 72 65 20 74  |will"'"restore t|
00000cd0  68 65 20 64 69 73 70 6c  61 79 2e 22 0d 06 72 85  |he display."..r.|
00000ce0  f1 27 22 54 68 65 20 73  63 72 65 65 6e 20 63 61  |.'"The screen ca|
00000cf0  6e 20 61 6c 73 6f 20 62  65 20 62 6c 61 6e 6b 65  |n also be blanke|
00000d00  64 20 62 79 22 27 22 70  72 65 73 73 69 6e 67 20  |d by"'"pressing |
00000d10  43 54 52 4c 20 40 2e 20  49 66 20 74 68 69 73 20  |CTRL @. If this |
00000d20  69 73 20 64 6f 6e 65 2c  20 43 54 52 4c 22 27 22  |is done, CTRL"'"|
00000d30  40 20 6d 75 73 74 20 62  65 20 70 72 65 73 73 65  |@ must be presse|
00000d40  64 20 61 67 61 69 6e 20  74 6f 20 72 65 73 74 6f  |d again to resto|
00000d50  72 65 20 74 68 65 22 27  22 73 63 72 65 65 6e 2e  |re the"'"screen.|
00000d60  22 0d 06 7c 43 f1 27 22  55 73 65 20 2a 53 41 56  |"..|C.'"Use *SAV|
00000d70  45 20 6e 61 6d 65 20 22  3b c3 7e 28 63 6f 64 65  |E name ";.~(code|
00000d80  25 29 3b 22 20 22 3b c3  7e 28 50 25 29 3b 22 20  |%);" ";.~(P%);" |
00000d90  74 6f 20 73 61 76 65 20  74 68 65 22 27 22 63 6f  |to save the"'"co|
00000da0  64 65 2e 22 0d 06 86 05  e1 0d ff                 |de.".......|
00000dab