/ � Conversion of text files into View files
$ � by M. Ford for EUG, July 1995
? � see EUG issue 21 for details of how to use this program.
( code=&A00
2 osasci=&FFE3
< osword=&FFF1
F osfind=&FFCE
P osbget=&FFD7
Z osbput=&FFD4
d �"Assembling code..."
n � pass=0 � 2 � 2
x P%=code
� [OPT pass
�
 LDA#0
�
 LDY#0
�$ JSRosfind \Close any open files
�
 LDX#0
�
 .loop
� LDAfileq,X
� JSRosasci
� INX
�
 CMP#0
� BNEloop
� LDX#block �256
� LDY#block �256


 LDA#0

 JSRosword

 LDA#&40

" LDX#filename �256

, LDY#filename �256

6 JSRosfind

@ STAhandle1

J
 LDX#0

T .loop2

^ LDAfileq2,X

h JSRosasci

r INX

|
 CMP#0

�
 BNEloop2

� LDX#block �256

� LDY#block �256

� JSRosword

� LDA#&80

� LDX#filename �256

� LDY#filename �256

� JSRosfind

� STAhandle2

�
 LDX#0

� .loop3

� LDAprocmess,X

� JSRosasci
 INX

 CMP#0

 BNEloop3
& LDYhandle1
0 .loop4
: JSRosbget
D CMP#&E
N
 BNEloop4
X .mainloop
b LDYhandle1
l JSRosbget
v CMP#&A
� BEQmainloop
�* CMP#�("|") \Represents stored command
�
 BNEnotst
� LDA#&80
� LDYhandle2
� JSRosbput
� JMPmainloop
� .notst
� CMP#&11
� BEQhighlight
� CMP#&F
� BNEnotend
� JMPend
 .notend
 LDYhandle2
 JSRosbput
  JMPmainloop
* .highlight
4 JSRosbget
> JSRosbget
H JSRosbget
R JSRosbget
\ CMP#&2D
f BNEht2
p LDA#&1C \code for Func-H
z LDYhandle2
� JSRosbput
� JMPout
�	 .ht2
� LDA#&1D \code for Func-J
� LDYhandle2
� JSRosbput
�
 .out 
� LDYhandle1
� JSRosbget
� JSRosbget
� JSRosbget
� JSRosbget
� JMPmainloop
	 .end

 LDA#0

 LDY#0
$ JSRosfind
.
 LDX#0
8 .loop5
B LDAendmess,X
L JSRosasci
V INX
`
 CMP#0
j
 BNEloop5
t RTS
~9 .fileq EQUS"Filename of text file to convert?":EQUB0
�) .fileq2 EQUS"Output filename?":EQUB0
�< .procmess EQUB13:EQUS"Processing files...":EQUB13:EQUB0
�< .endmess EQUB13:EQUS"Conversion complete.":EQUB13:EQUB0
� .handle1 EQUB0
� .handle2 EQUB0
� .block
� EQUBfilename �256
� EQUBfilename �256
� EQUB255
� EQUB32
� EQUB126
� .filename
 ]:�

% �"SAVE CONVERT "+�~code+" "+�~P%
- �"Code saved under filename ""CONVERT"""
�

00000000  0d 00 0a 2f 20 f4 20 43  6f 6e 76 65 72 73 69 6f  |.../ . Conversio|
00000010  6e 20 6f 66 20 74 65 78  74 20 66 69 6c 65 73 20  |n of text files |
00000020  69 6e 74 6f 20 56 69 65  77 20 66 69 6c 65 73 0d  |into View files.|
00000030  00 14 24 20 f4 20 62 79  20 4d 2e 20 46 6f 72 64  |..$ . by M. Ford|
00000040  20 66 6f 72 20 45 55 47  2c 20 4a 75 6c 79 20 31  | for EUG, July 1|
00000050  39 39 35 0d 00 1e 3f 20  f4 20 73 65 65 20 45 55  |995...? . see EU|
00000060  47 20 69 73 73 75 65 20  32 31 20 66 6f 72 20 64  |G issue 21 for d|
00000070  65 74 61 69 6c 73 20 6f  66 20 68 6f 77 20 74 6f  |etails of how to|
00000080  20 75 73 65 20 74 68 69  73 20 70 72 6f 67 72 61  | use this progra|
00000090  6d 2e 0d 00 28 0e 20 63  6f 64 65 3d 26 41 30 30  |m...(. code=&A00|
000000a0  0d 00 32 11 20 6f 73 61  73 63 69 3d 26 46 46 45  |..2. osasci=&FFE|
000000b0  33 0d 00 3c 11 20 6f 73  77 6f 72 64 3d 26 46 46  |3..<. osword=&FF|
000000c0  46 31 0d 00 46 11 20 6f  73 66 69 6e 64 3d 26 46  |F1..F. osfind=&F|
000000d0  46 43 45 0d 00 50 11 20  6f 73 62 67 65 74 3d 26  |FCE..P. osbget=&|
000000e0  46 46 44 37 0d 00 5a 11  20 6f 73 62 70 75 74 3d  |FFD7..Z. osbput=|
000000f0  26 46 46 44 34 0d 00 64  1a 20 f1 22 41 73 73 65  |&FFD4..d. ."Asse|
00000100  6d 62 6c 69 6e 67 20 63  6f 64 65 2e 2e 2e 22 0d  |mbling code...".|
00000110  00 6e 15 20 e3 20 70 61  73 73 3d 30 20 b8 20 32  |.n. . pass=0 . 2|
00000120  20 88 20 32 0d 00 78 0c  20 50 25 3d 63 6f 64 65  | . 2..x. P%=code|
00000130  0d 00 82 0e 20 5b 4f 50  54 20 70 61 73 73 0d 00  |.... [OPT pass..|
00000140  8c 0a 20 4c 44 41 23 30  0d 00 96 0a 20 4c 44 59  |.. LDA#0.... LDY|
00000150  23 30 0d 00 a0 24 20 4a  53 52 6f 73 66 69 6e 64  |#0...$ JSRosfind|
00000160  20 5c 43 6c 6f 73 65 20  61 6e 79 20 6f 70 65 6e  | \Close any open|
00000170  20 66 69 6c 65 73 0d 00  aa 0a 20 4c 44 58 23 30  | files.... LDX#0|
00000180  0d 00 b4 0a 20 2e 6c 6f  6f 70 0d 00 be 0f 20 4c  |.... .loop.... L|
00000190  44 41 66 69 6c 65 71 2c  58 0d 00 c8 0e 20 4a 53  |DAfileq,X.... JS|
000001a0  52 6f 73 61 73 63 69 0d  00 d2 08 20 49 4e 58 0d  |Rosasci.... INX.|
000001b0  00 dc 0a 20 43 4d 50 23  30 0d 00 e6 0c 20 42 4e  |... CMP#0.... BN|
000001c0  45 6c 6f 6f 70 0d 00 f0  13 20 4c 44 58 23 62 6c  |Eloop.... LDX#bl|
000001d0  6f 63 6b 20 83 32 35 36  0d 00 fa 13 20 4c 44 59  |ock .256.... LDY|
000001e0  23 62 6c 6f 63 6b 20 81  32 35 36 0d 01 04 0a 20  |#block .256.... |
000001f0  4c 44 41 23 30 0d 01 0e  0e 20 4a 53 52 6f 73 77  |LDA#0.... JSRosw|
00000200  6f 72 64 0d 01 18 0c 20  4c 44 41 23 26 34 30 0d  |ord.... LDA#&40.|
00000210  01 22 16 20 4c 44 58 23  66 69 6c 65 6e 61 6d 65  |.". LDX#filename|
00000220  20 83 32 35 36 0d 01 2c  16 20 4c 44 59 23 66 69  | .256..,. LDY#fi|
00000230  6c 65 6e 61 6d 65 20 81  32 35 36 0d 01 36 0e 20  |lename .256..6. |
00000240  4a 53 52 6f 73 66 69 6e  64 0d 01 40 0f 20 53 54  |JSRosfind..@. ST|
00000250  41 68 61 6e 64 6c 65 31  0d 01 4a 0a 20 4c 44 58  |Ahandle1..J. LDX|
00000260  23 30 0d 01 54 0b 20 2e  6c 6f 6f 70 32 0d 01 5e  |#0..T. .loop2..^|
00000270  10 20 4c 44 41 66 69 6c  65 71 32 2c 58 0d 01 68  |. LDAfileq2,X..h|
00000280  0e 20 4a 53 52 6f 73 61  73 63 69 0d 01 72 08 20  |. JSRosasci..r. |
00000290  49 4e 58 0d 01 7c 0a 20  43 4d 50 23 30 0d 01 86  |INX..|. CMP#0...|
000002a0  0d 20 42 4e 45 6c 6f 6f  70 32 0d 01 90 13 20 4c  |. BNEloop2.... L|
000002b0  44 58 23 62 6c 6f 63 6b  20 83 32 35 36 0d 01 9a  |DX#block .256...|
000002c0  13 20 4c 44 59 23 62 6c  6f 63 6b 20 81 32 35 36  |. LDY#block .256|
000002d0  0d 01 a4 0e 20 4a 53 52  6f 73 77 6f 72 64 0d 01  |.... JSRosword..|
000002e0  ae 0c 20 4c 44 41 23 26  38 30 0d 01 b8 16 20 4c  |.. LDA#&80.... L|
000002f0  44 58 23 66 69 6c 65 6e  61 6d 65 20 83 32 35 36  |DX#filename .256|
00000300  0d 01 c2 16 20 4c 44 59  23 66 69 6c 65 6e 61 6d  |.... LDY#filenam|
00000310  65 20 81 32 35 36 0d 01  cc 0e 20 4a 53 52 6f 73  |e .256.... JSRos|
00000320  66 69 6e 64 0d 01 d6 0f  20 53 54 41 68 61 6e 64  |find.... STAhand|
00000330  6c 65 32 0d 01 e0 0a 20  4c 44 58 23 30 0d 01 ea  |le2.... LDX#0...|
00000340  0b 20 2e 6c 6f 6f 70 33  0d 01 f4 12 20 4c 44 41  |. .loop3.... LDA|
00000350  70 72 6f 63 6d 65 73 73  2c 58 0d 01 fe 0e 20 4a  |procmess,X.... J|
00000360  53 52 6f 73 61 73 63 69  0d 02 08 08 20 49 4e 58  |SRosasci.... INX|
00000370  0d 02 12 0a 20 43 4d 50  23 30 0d 02 1c 0d 20 42  |.... CMP#0.... B|
00000380  4e 45 6c 6f 6f 70 33 0d  02 26 0f 20 4c 44 59 68  |NEloop3..&. LDYh|
00000390  61 6e 64 6c 65 31 0d 02  30 0b 20 2e 6c 6f 6f 70  |andle1..0. .loop|
000003a0  34 0d 02 3a 0e 20 4a 53  52 6f 73 62 67 65 74 0d  |4..:. JSRosbget.|
000003b0  02 44 0b 20 43 4d 50 23  26 45 0d 02 4e 0d 20 42  |.D. CMP#&E..N. B|
000003c0  4e 45 6c 6f 6f 70 34 0d  02 58 0e 20 2e 6d 61 69  |NEloop4..X. .mai|
000003d0  6e 6c 6f 6f 70 0d 02 62  0f 20 4c 44 59 68 61 6e  |nloop..b. LDYhan|
000003e0  64 6c 65 31 0d 02 6c 0e  20 4a 53 52 6f 73 62 67  |dle1..l. JSRosbg|
000003f0  65 74 0d 02 76 0b 20 43  4d 50 23 26 41 0d 02 80  |et..v. CMP#&A...|
00000400  10 20 42 45 51 6d 61 69  6e 6c 6f 6f 70 0d 02 8a  |. BEQmainloop...|
00000410  2a 20 43 4d 50 23 97 28  22 7c 22 29 20 5c 52 65  |* CMP#.("|") \Re|
00000420  70 72 65 73 65 6e 74 73  20 73 74 6f 72 65 64 20  |presents stored |
00000430  63 6f 6d 6d 61 6e 64 0d  02 94 0d 20 42 4e 45 6e  |command.... BNEn|
00000440  6f 74 73 74 0d 02 9e 0c  20 4c 44 41 23 26 38 30  |otst.... LDA#&80|
00000450  0d 02 a8 0f 20 4c 44 59  68 61 6e 64 6c 65 32 0d  |.... LDYhandle2.|
00000460  02 b2 0e 20 4a 53 52 6f  73 62 70 75 74 0d 02 bc  |... JSRosbput...|
00000470  10 20 4a 4d 50 6d 61 69  6e 6c 6f 6f 70 0d 02 c6  |. JMPmainloop...|
00000480  0b 20 2e 6e 6f 74 73 74  0d 02 d0 0c 20 43 4d 50  |. .notst.... CMP|
00000490  23 26 31 31 0d 02 da 11  20 42 45 51 68 69 67 68  |#&11.... BEQhigh|
000004a0  6c 69 67 68 74 0d 02 e4  0b 20 43 4d 50 23 26 46  |light.... CMP#&F|
000004b0  0d 02 ee 0e 20 42 4e 45  6e 6f 74 65 6e 64 0d 02  |.... BNEnotend..|
000004c0  f8 0b 20 4a 4d 50 65 6e  64 0d 03 02 0c 20 2e 6e  |.. JMPend.... .n|
000004d0  6f 74 65 6e 64 0d 03 0c  0f 20 4c 44 59 68 61 6e  |otend.... LDYhan|
000004e0  64 6c 65 32 0d 03 16 0e  20 4a 53 52 6f 73 62 70  |dle2.... JSRosbp|
000004f0  75 74 0d 03 20 10 20 4a  4d 50 6d 61 69 6e 6c 6f  |ut.. . JMPmainlo|
00000500  6f 70 0d 03 2a 0f 20 2e  68 69 67 68 6c 69 67 68  |op..*. .highligh|
00000510  74 0d 03 34 0e 20 4a 53  52 6f 73 62 67 65 74 0d  |t..4. JSRosbget.|
00000520  03 3e 0e 20 4a 53 52 6f  73 62 67 65 74 0d 03 48  |.>. JSRosbget..H|
00000530  0e 20 4a 53 52 6f 73 62  67 65 74 0d 03 52 0e 20  |. JSRosbget..R. |
00000540  4a 53 52 6f 73 62 67 65  74 0d 03 5c 0c 20 43 4d  |JSRosbget..\. CM|
00000550  50 23 26 32 44 0d 03 66  0b 20 42 4e 45 68 74 32  |P#&2D..f. BNEht2|
00000560  0d 03 70 1d 20 4c 44 41  23 26 31 43 20 5c 63 6f  |..p. LDA#&1C \co|
00000570  64 65 20 66 6f 72 20 46  75 6e 63 2d 48 0d 03 7a  |de for Func-H..z|
00000580  0f 20 4c 44 59 68 61 6e  64 6c 65 32 0d 03 84 0e  |. LDYhandle2....|
00000590  20 4a 53 52 6f 73 62 70  75 74 0d 03 8e 0b 20 4a  | JSRosbput.... J|
000005a0  4d 50 6f 75 74 0d 03 98  09 20 2e 68 74 32 0d 03  |MPout.... .ht2..|
000005b0  a2 1d 20 4c 44 41 23 26  31 44 20 5c 63 6f 64 65  |.. LDA#&1D \code|
000005c0  20 66 6f 72 20 46 75 6e  63 2d 4a 0d 03 ac 0f 20  | for Func-J.... |
000005d0  4c 44 59 68 61 6e 64 6c  65 32 0d 03 b6 0e 20 4a  |LDYhandle2.... J|
000005e0  53 52 6f 73 62 70 75 74  0d 03 c0 0a 20 2e 6f 75  |SRosbput.... .ou|
000005f0  74 20 0d 03 ca 0f 20 4c  44 59 68 61 6e 64 6c 65  |t .... LDYhandle|
00000600  31 0d 03 d4 0e 20 4a 53  52 6f 73 62 67 65 74 0d  |1.... JSRosbget.|
00000610  03 de 0e 20 4a 53 52 6f  73 62 67 65 74 0d 03 e8  |... JSRosbget...|
00000620  0e 20 4a 53 52 6f 73 62  67 65 74 0d 03 f2 0e 20  |. JSRosbget.... |
00000630  4a 53 52 6f 73 62 67 65  74 0d 03 fc 10 20 4a 4d  |JSRosbget.... JM|
00000640  50 6d 61 69 6e 6c 6f 6f  70 0d 04 06 09 20 2e 65  |Pmainloop.... .e|
00000650  6e 64 0d 04 10 0a 20 4c  44 41 23 30 0d 04 1a 0a  |nd.... LDA#0....|
00000660  20 4c 44 59 23 30 0d 04  24 0e 20 4a 53 52 6f 73  | LDY#0..$. JSRos|
00000670  66 69 6e 64 0d 04 2e 0a  20 4c 44 58 23 30 0d 04  |find.... LDX#0..|
00000680  38 0b 20 2e 6c 6f 6f 70  35 0d 04 42 11 20 4c 44  |8. .loop5..B. LD|
00000690  41 65 6e 64 6d 65 73 73  2c 58 0d 04 4c 0e 20 4a  |Aendmess,X..L. J|
000006a0  53 52 6f 73 61 73 63 69  0d 04 56 08 20 49 4e 58  |SRosasci..V. INX|
000006b0  0d 04 60 0a 20 43 4d 50  23 30 0d 04 6a 0d 20 42  |..`. CMP#0..j. B|
000006c0  4e 45 6c 6f 6f 70 35 0d  04 74 08 20 52 54 53 0d  |NEloop5..t. RTS.|
000006d0  04 7e 39 20 2e 66 69 6c  65 71 20 45 51 55 53 22  |.~9 .fileq EQUS"|
000006e0  46 69 6c 65 6e 61 6d 65  20 6f 66 20 74 65 78 74  |Filename of text|
000006f0  20 66 69 6c 65 20 74 6f  20 63 6f 6e 76 65 72 74  | file to convert|
00000700  3f 22 3a 45 51 55 42 30  0d 04 88 29 20 2e 66 69  |?":EQUB0...) .fi|
00000710  6c 65 71 32 20 45 51 55  53 22 4f 75 74 70 75 74  |leq2 EQUS"Output|
00000720  20 66 69 6c 65 6e 61 6d  65 3f 22 3a 45 51 55 42  | filename?":EQUB|
00000730  30 0d 04 92 3c 20 2e 70  72 6f 63 6d 65 73 73 20  |0...< .procmess |
00000740  45 51 55 42 31 33 3a 45  51 55 53 22 50 72 6f 63  |EQUB13:EQUS"Proc|
00000750  65 73 73 69 6e 67 20 66  69 6c 65 73 2e 2e 2e 22  |essing files..."|
00000760  3a 45 51 55 42 31 33 3a  45 51 55 42 30 0d 04 9c  |:EQUB13:EQUB0...|
00000770  3c 20 2e 65 6e 64 6d 65  73 73 20 45 51 55 42 31  |< .endmess EQUB1|
00000780  33 3a 45 51 55 53 22 43  6f 6e 76 65 72 73 69 6f  |3:EQUS"Conversio|
00000790  6e 20 63 6f 6d 70 6c 65  74 65 2e 22 3a 45 51 55  |n complete.":EQU|
000007a0  42 31 33 3a 45 51 55 42  30 0d 04 a6 13 20 2e 68  |B13:EQUB0.... .h|
000007b0  61 6e 64 6c 65 31 20 45  51 55 42 30 0d 04 b0 13  |andle1 EQUB0....|
000007c0  20 2e 68 61 6e 64 6c 65  32 20 45 51 55 42 30 0d  | .handle2 EQUB0.|
000007d0  04 ba 0b 20 2e 62 6c 6f  63 6b 0d 04 c4 16 20 45  |... .block.... E|
000007e0  51 55 42 66 69 6c 65 6e  61 6d 65 20 83 32 35 36  |QUBfilename .256|
000007f0  0d 04 ce 16 20 45 51 55  42 66 69 6c 65 6e 61 6d  |.... EQUBfilenam|
00000800  65 20 81 32 35 36 0d 04  d8 0c 20 45 51 55 42 32  |e .256.... EQUB2|
00000810  35 35 0d 04 e2 0b 20 45  51 55 42 33 32 0d 04 ec  |55.... EQUB32...|
00000820  0c 20 45 51 55 42 31 32  36 0d 04 f6 0e 20 2e 66  |. EQUB126.... .f|
00000830  69 6c 65 6e 61 6d 65 0d  05 00 08 20 5d 3a ed 0d  |ilename.... ]:..|
00000840  05 0a 25 20 ff 22 53 41  56 45 20 43 4f 4e 56 45  |..% ."SAVE CONVE|
00000850  52 54 20 22 2b c3 7e 63  6f 64 65 2b 22 20 22 2b  |RT "+.~code+" "+|
00000860  c3 7e 50 25 0d 05 14 2d  20 f1 22 43 6f 64 65 20  |.~P%...- ."Code |
00000870  73 61 76 65 64 20 75 6e  64 65 72 20 66 69 6c 65  |saved under file|
00000880  6e 61 6d 65 20 22 22 43  4f 4e 56 45 52 54 22 22  |name ""CONVERT""|
00000890  22 0d ff                                          |"..|
00000893