home *** CD-ROM | disk | FTP | other *** search
/ Outlet 81 / outlet-81.mgt / TOR-ED4SO < prev    next >
Text File  |  2021-04-18  |  28KB  |  1,741 lines
  1.      ** TORNADO  Z-80 assembler **
  2.  
  3. ; TORNADO-EDITOR-source ---- 106
  4.  
  5. ;let op:   linbuf en chartable op a * 256 !
  6. ;          symbtop op             a * 16
  7.  
  8.  
  9. filstrt á32768 ;start of textfile
  10. Vfilmax á65260 ;default end of text
  11. symbtop á65520 ;top of symboltable
  12.  
  13. linbuf á32512 ;start of linebuffer
  14. linlast álinbuf +63 ;end of linebuffer
  15. xpos álinbuf +68 ;hor. printpos (pixels)
  16. ypos áXPOS +1 ;vert. printpos (pixels)
  17. linpoint áXPOS +2 ;pointer in linebuffer
  18. altflg áXPOS +4 ;zero if no changes in line
  19. hulp áXPOS +5 
  20. scrtop áXPOS +6 ;addr. of first line on screen
  21. curslin áXPOS +8 ;addr. of line with cursor
  22. filend áXPOS +10 ;actual end of text
  23. filmax áXPOS +12 ;last useable addr. for text
  24. findadd áXPOS +14 ;addr. of item last found
  25. asspoint áXPOS +16 ;assemble address
  26. dumpa áXPOS +18 ;addr. to store ass.code
  27. dumpf áXPOS +20 ;start of ass.code in mem.
  28. pass áXPOS +22 ;pass counter
  29. errcnt áXPOS +23 ;error counter
  30. sympo áXPOS +24 ;bottom of symboltable
  31. storevar áxpos +26 ;temp store
  32. findtable áXPOS +40 ;start of find$, poked by
  33.  ;                      BASIC
  34.  
  35.  
  36. ;          ORG  26000
  37. ;          DUMP 60000    ;this file might be too long now!
  38.  
  39.  
  40. begin ┤Ç,(altflg); 0 = warmstart, to menu
  41. î2 ; 1 = coldstart, default line
  42. ▒σ,warm ; 2 = coming from 'find', to
  43. àÇ;                        text
  44. è╛,koud 
  45. èprmenu 
  46. wait ┌8 
  47. û#1B;test key pressed
  48. à223 ;use CAPS
  49. î"B" 
  50. ▒σ,7406 ;basic
  51. î"A" 
  52. ▒σ,assemble ;assemble
  53. î"C" 
  54. ▒σ,movblok ;copy block
  55. î"D" 
  56. ▒σ,dellblok ;delete block
  57. î"M" 
  58. ▒σ,movblok ;move block
  59. î"N" 
  60. ▓╛,w1 
  61. èkoud ;prepare for new text
  62. ▒warm 
  63.  
  64. w1 î"O" 
  65. ▒σ,warm ;to existing text
  66. î"P" 
  67. ▓╛,w5 ;cont. if not PRINT TEXT
  68. ;PRINT TEXTFILE
  69. ┤Ç,3 ;open #3
  70.  è5633
  71. ègetblmark ;test for 2 blockmarkers
  72. ▓σ,w2 ;jp if found
  73. ┤Ñ,filstrt ;else print complete text
  74. ┤ö,(filend)
  75. ▓w3 
  76. w2 íö,Ñ;make DE point to end of
  77. òö;                 last line
  78.  ┤Ç,(ö)
  79.  î13
  80. ▓╛,w2 +1 
  81. èvolger ;make HL point to start of
  82. ▒σ,begin ;                first line
  83. w3 ╩ö
  84. ┤(curslin),Ñ
  85. èexpandlin ;expand line into linebuffer
  86. ┤ö,linbuf ;print 64 characters
  87. w4 ┤Ç,(ö)
  88.  ╩ö
  89.  ┌16
  90.  ╔ö
  91.  ⌐¥
  92.  ┤Ç,¥
  93. à191 ;test 64
  94. ▓╛,w4 
  95. ┤Ç,13 ;finish with ENTER
  96.  ┌16
  97. ╔ö;retrieve 'last line'
  98. èVOLGENDE ;next line
  99. ▒σ,begin ;jp if end of text
  100.  ╩Ñ
  101.  àÇ
  102. █Ñ,ö;test for end of block
  103.  ╔Ñ
  104. ▓ë,w3 ;cont. if not
  105. ┤ç,begin ;set RETaddr.
  106. ▒mb4 ;delete blockmarkers
  107. ;TEST MORE KEYS
  108. w5 î"T" 
  109. ▒σ,SYMT ;print symbols
  110. î"V" 
  111. ▒σ,SYMV ;view symbols
  112.  
  113. ┤ç,500 ;save code = 500
  114. î"R" 
  115. ▓σ,w6 
  116. ┤ç,1000 ;find = 1000
  117. î"F" 
  118. ▓σ,w6 
  119. ┤ç,2000 ;load = 2000
  120. î"L" 
  121. ▓σ,w6 
  122. ┤ç,4000 ;save = 4000
  123. î"S" 
  124. ▓σ,w6 
  125. ┤ç,6000 ;merge = 6000
  126. î"Q" 
  127.  ▒╛,WAIT
  128. w6 ═;GOTO BC
  129.  
  130. movblok ┤(storevar +1),Ç;save command temp
  131. ègetblmark ;find blockmarkers
  132. ▒╛,BLMERR ;error if not found
  133. ╩Ñ;store marker positions
  134.  ╩ö
  135. ┤ç,(CURSLIN);test cursorposition
  136.  ΣÇ
  137. █Ñ,ç;against endmarker
  138. ▓ë,mb0 ;jp if cursor past block
  139. íö,Ñ;get startmarker
  140. òÑ
  141. òÑ
  142.  █Ñ,ç
  143. ▒ë,blmerr -2 ;error if inside block
  144. mb0 üÇ,0 ;save cursorpos. flag
  145. ┤(storevar),Ç
  146. ╔ö;retrieve markers
  147.  ╔Ñ
  148. mb1 òÑ;adjust HL
  149.  ┤Ç,(Ñ)
  150.  î13
  151.  ▓╛,MB1
  152. mb2 ┤Ç,(ö);adjust DE
  153.  ⌐ö
  154.  î13
  155.  ▓╛,MB2
  156.  àÇ
  157.  █Ñ,ö
  158. ┤å,ú;BC = length of block
  159.  ┤ë,│
  160.  ⌐ç
  161.  ╩ç
  162.  ╩ö
  163. èMKROOM ;make room for block
  164.  ╔ö
  165.  ╔ç
  166. ▓ë,BLMERR ;error if no room
  167.  íö,Ñ
  168. ┤Ç,(storevar);retrieve cursorpos. flag
  169.  àÇ
  170.  ▓╛,MB3
  171. éÑ,ç;add 'room' if necessary
  172. mb3 ╕;move block
  173. ┤Ç,(storevar +1);retrieve command
  174. î"M" 
  175. ▓σ,DELLBLOK ;delete old block
  176.  
  177. ┤ç,WARM ;RETaddr.
  178. mb4 ╩ç
  179. ègetblmark ;find blockmarkers
  180. ═╛;exit if not found
  181. ╩ö;save first marker addr.
  182. èmb5 ;delete second marker at HL
  183. ╔Ñ;first marker
  184. mb5 èVORIGE +3 ;find start of line
  185.  ┤Æ,ú
  186.  ┤¥,│
  187. èVOLGER ;find end of line
  188.  ;delete line now
  189. DELLSUB ╩Ñ;save addr. of nextlin
  190. ┤å,ú;DE = curslin
  191. ┤ë,│;BC = nextlin
  192.  ┤Ñ,(FILEND)
  193.  àÇ
  194. █Ñ,ç;calc length of 'tail'
  195.  í(▀),Ñ
  196. ╔ç;HL = addr. of nextlin
  197. ⌐ç;BC = length
  198. ╕;move 'tail' from nextlin
  199. òö;to curslin
  200. ┤(FILEND),ö;adjust pointer
  201.  ═
  202.  
  203. dellblok ègetblmark ;find blockmarkers
  204. ▓╛,BLMERR ;error if not found
  205. ╩Ñ;store 2nd marker
  206. íö,Ñ;use 1th marker
  207. èVORIGE +3 ;find start of block
  208.  íö,Ñ
  209.  ╔Ñ
  210. èVOLGER ;find end of block
  211. èDELLSUB ;delete block
  212.  ▒WARM
  213.  
  214. mkroom ╩ç;store length
  215. èVOLGENDE ;find start of next line
  216. í(▀),Ñ;HL = length
  217. ╔ç;BC = next line
  218.  ╩ç
  219. èBIGLINE ;make room
  220.  ╔Ñ
  221.  ═
  222.  
  223. getblmark ┤ö,filstrt 
  224. ┤Ñ,(filend)
  225.  àÇ
  226.  █Ñ,ö
  227.  íö,Ñ
  228. ┤å,Æ;BC = length of file
  229.  ┤ë,¥
  230. ┤Ç,126 ; blockmarker = chr$ 126
  231. É;find
  232. ═╛;exit if not found
  233. ╩Ñ;store addr. found
  234. É;cont. search
  235. ╔ö;DE = first marker
  236.  ═
  237.  
  238. ╔Ñ;error exit
  239.  ╔Ñ
  240. BLMERR ┤ç,BERM ;point to block-error-msge
  241.  
  242. PRINTERR ┤Ñ,POSM ;point to position controllers
  243. èprintmsge 
  244. ┤ú,å;point to msge in BC
  245.  ┤│,ë
  246. èprintmsge 
  247.  ▒WAIT
  248.  
  249. prmenu ┤Ç,7 ;cls screen
  250. ┤(23693),Ç;ATTR-P
  251. ┤(23624),Ç;BORDERCOL
  252.  ΣÇ
  253. ┤(23694),Ç;MASK-P
  254. ┤(23697),Ç;Pflag
  255.  ├(254),Ç
  256. è3435 ;do cls
  257. ┤Ç,2 ;open #2
  258.  è5633
  259. ┤Ñ,menutable ;print menu part 1
  260. èprintmsge 
  261.  ╩Ñ
  262. ┤Ñ,filstrt ;find end of text
  263.  ┤ç,32512
  264. ┤Ç,255 
  265.  É
  266. ┤ç,ferm ;point to file-error-msge
  267. ▒╛,printerr ;jp if no endmarker found
  268.  òÑ
  269. ┤(filend),Ñ;store end of text
  270. ┤Ç,ú
  271. Γ128 ;BC = end-32768 = length
  272.  ┤å,Ç
  273. ┤ë,│
  274.  ⌐ç
  275. è11563 ;print length of text
  276.  è11747
  277.  ╔Ñ
  278. èprintmsge ;print 'file + merge' msge
  279. ┤ç,(filend);BC = merge addr.
  280.  è11563
  281.  è11747
  282.  
  283. ┤Ñ,127 ;find$ is default chr$ 127
  284. ┤(findtable),Ñ;           chr$ 0 = endmarker
  285. ═
  286.  
  287. ---------------------------------------------------------------
  288.  
  289. menutable ù"  * TORNADO Z-80 assembler *" 
  290. û13,13,13 
  291. ù"O= To editor   P= Print text" :û13 
  292. ù"N= New text    T= Print symbols" :û13 
  293. ù"A= Assemble    V= View  symbols" :û13 
  294. û13 
  295. ù"D= Del. block  L= Load  text" :û13 
  296. ù"M= Move block  Q= Merge text" :û13 
  297. ù"C= Copy block  S= Save  text" :û13 
  298. ù"F= Find text   R= SAVE  code" :û13 
  299. û13 
  300. ù"B= TO BASIC" 
  301. û13,13,13 
  302. ù" File: 32768," 
  303. û255,13 
  304. ù" Merge-addr:" 
  305. û255
  306.  
  307. POSM û22,21,3,20,1,255 
  308. BERM ù"INVALID BLOCK COMMAND" 
  309.  û255
  310. FERM ù"INCORRECT FILE" 
  311.  û255
  312. SERM ù"SYMBOLTABLE: " 
  313.  û255
  314. ù" - 65520" 
  315. û255 
  316. ASSM ù"ASSEMBLY " 
  317.  û255
  318. OKSM ù"O.K., " 
  319.  û255
  320. ASER ù"ABORTED, " 
  321.  û255
  322. ERRM ù" ERRORS" 
  323.  û255
  324. CODM û22,20,3,20,1 
  325. ù"CODE AT: " 
  326.  û255
  327.  
  328. ASSEXIT ┤Ñ,POSM ;print AT
  329. èprintmsge 
  330. ┤Ñ,ASSM ;"assembly"
  331. èprintmsge 
  332. ┤Ñ,OKSM ;point to "O.K."
  333. ┤Ç,(errcnt);test for errors
  334.  àÇ
  335.  ┤å,0
  336.  ┤ë,Ç
  337. ▓σ,AXI ;jp if no errors
  338. ┤Ñ,aser ;point to "aborted"msge
  339. AXI èprintmsge ;print msge
  340. è11563 ;print number of errors
  341.  è11747
  342. ┤Ñ,ERRM ;"errors"
  343. èprintmsge 
  344. ┤Ç,(errcnt)
  345.  àÇ
  346. ▒╛,WAIT ;exit if errors
  347. ┤Ñ,CODM ;"code"
  348. èprintmsge 
  349. ┤ç,(DUMPF);store-address
  350.  è11563
  351.  è11747
  352. ┤Ç,44 ;comma
  353.  ┌16
  354. ┤Ñ,(DUMPA);calc. length
  355. ┤ö,(DUMPF)
  356.  àÇ
  357.  █Ñ,ö
  358. ┤å,ú;print length
  359.  ┤ë,│
  360.  è11563
  361.  è11747
  362. ▒WAIT ;to wait-key
  363.  
  364. KOUD ΣÇ;reset pointers
  365.  ┤(ALTFLG),Ç
  366.  ┤Ñ,SYMBTOP
  367.  ┤(SYMPO),Ñ
  368.  ┤Ñ,VFILMAX
  369.  ┤(FILMAX),Ñ
  370. ┤Ñ,filstrt ;insert default line
  371.  íö,Ñ
  372.  ┤Ñ,CMESG
  373. ┤ç,21 
  374.  ╕
  375. òö;DE = end of text
  376.  ┤(FILEND),ö
  377. ┤Ñ,#0214;repdel=20 , repper=2
  378. ┤(23561),Ñ
  379.  ═
  380.  
  381. cmesg û13,127 
  382. ù" * SCUMARI R&D *" 
  383. û13,13,255
  384.  
  385. VOLGENDE ┤Ñ,(CURSLIN);find addr. of next line
  386. VOLGER ┤Ç,(Ñ)
  387.  ⌐Ñ
  388.  î13
  389.  ▓╛,VOLGER
  390.  ┤Ç,(Ñ)
  391. ⌐Ç;test for 255 = end of file
  392. ═;RET Z if eof
  393.  
  394. VORIGE ┤Ñ,(CURSLIN);find addr. of previous line
  395. ┤ö,filstrt 
  396.  àÇ
  397.  █Ñ,ö
  398. íä,â;save flag
  399. éÑ,ö;restore HL
  400.  íä,â
  401. ═σ;ret if cursor on first line
  402.  òÑ
  403. VOR1 █Ñ,ö
  404.  éÑ,ö
  405.  ▓ë,VOR2
  406.  òÑ
  407. ┤Ç,(Ñ);find end of line
  408. î14 ;test enter
  409.  ▓║,VOR1
  410. VOR2 ⌐Ñ;point to first char of line
  411.  ═
  412.  
  413. WARM èCLS
  414. ┤Ñ,filstrt ;set pointers to start of file
  415.  ┤(FINDADD),Ñ
  416.  ┤(SCRTOP),Ñ
  417. WM1 ┤(CURSLIN),Ñ;print file on scr.
  418.  èPRLIN
  419.  èVOLGENDE
  420. ▓σ,EDITOR ;exit if end of file
  421. ┤Ç,(YPOS);1 line down
  422.  Γ8
  423.  ┤(YPOS),Ç
  424. ▓║,WM1 ;until screen full
  425. ┤Ñ,#B800;top left cursor coords
  426.  ┤(XPOS),Ñ
  427.  ┤Ñ,(SCRTOP)
  428. ┤(CURSLIN),Ñ;point to topline
  429. èENTEX ;copy also to linebuffer
  430.  
  431. EDITOR ΣÇ;point to start of line
  432. ┤(XPOS),Ç;on screen
  433. ┤Ñ,linbuf ;and in linebuffer
  434.  ┤(LINPOINT),Ñ
  435. WAITKEY ₧
  436. ╠5,(░+1);'no key'
  437. ΣÇ;'cursor off' flag
  438. wk0 èCURSOR 
  439. ┤å,6 ;delay
  440. wk1 ê5,(░+1)
  441. ▓╛,GET ;jp if key pressed
  442. ñ;delay
  443. ¢wk1 
  444. ▓wk0 
  445.  
  446. GET àÇ;cursor flag
  447. è╛,CURSOR ;unprint cursor if 'on'
  448.  ╠5,(░+1)
  449. ┤Ç,(23560);get key
  450. î197 ;'OR'
  451.  ▓╛,G1
  452.  èDELLINE
  453.  ▓G4 -1
  454. G1 î198 ;'AND'
  455.  ▓╛,G2
  456.  èINSLINE
  457.  èCURSDOWN
  458.  ▓G4 -1
  459. G2 î199 ;'<='
  460.  ▓╛,G3
  461. èINSSP ;delete space
  462.  ▓G4 -1
  463. G3 î200 ;'>='
  464. ▓╛,G4 
  465. èINSSP ;insert space
  466. ΣÇ;signal 'click needed'
  467. G4 î226 
  468. ▓σ,G5 
  469. ê7,Ç
  470. ▓╛,wk0 -1 ;ignore other extended keys
  471.  
  472. G5 íä,â;save key
  473. ┤Ñ,50 ;click
  474.  ┤ö,1
  475.  è949
  476. íä,â;get key
  477.  àÇ
  478. è╛,DOKEY ;call if valid key
  479. ▓WAITKEY ;editor loop
  480.  
  481. CURSOR íä,â;'print cursor' flag
  482. èCALC ;calc screenpos
  483. ┤Ç,ú;bottom pixelrow
  484.  éÇ,7
  485.  ┤ú,Ç
  486. ┤ö,#F00F;two cursor-patterns
  487.  ┤Ç,(XPOS)
  488.  à4
  489.  ▓σ,C1
  490. ┤Æ,¥;choose pattern
  491. C1 ┤Ç,Æ
  492. Σ(Ñ);move into screen
  493.  ┤(Ñ),Ç
  494.  íä,â
  495. Σ1 ;toggle cursorflag
  496.  ═
  497.  
  498. DOKEY î226 
  499. ▓σ,CONTROL 
  500. î32 
  501. ▓║,CHAR ;jp with normal chars
  502. CONTROL Γ4 ;test shifted numberkeys
  503.  ▒σ,PAGEDOWN
  504.  òÇ
  505.  ▒σ,PAGEUP
  506.  òÇ
  507.  ▓σ,CAPS
  508.  òÇ
  509.  ▒σ,FINDS
  510.  òÇ
  511. ▒σ,LEFT ;cursor
  512.  òÇ
  513.  ▒σ,RIGHT
  514.  òÇ
  515.  ▒σ,CURSDOWN
  516.  òÇ
  517.  ▒σ,CURSUP
  518.  òÇ
  519. ▓σ,BKSP ;backspace
  520.  òÇ
  521.  ▓σ,ENTER
  522. òÇ
  523. ▒σ,errmark 
  524.  òÇ
  525. ▓σ,blkmark ;graphics, insert blockmarker
  526.  
  527. ;to menu when 'STOP'
  528. èstorelin ;store current line if nec.
  529. ╔ç;drop retaddr.
  530. ┤Ñ,(filend);delete empty lines
  531. òÑ;if any at end of file
  532. EX1 òÑ
  533.  ┤Ç,(Ñ)
  534.  î13
  535.  ▓σ,EX1
  536.  ⌐Ñ
  537.  ⌐Ñ
  538. ┤(Ñ),255;insert endmarker 
  539. ┤(filend),Ñ
  540. íö,Ñ;cursor in deleted lines?
  541. ┤Ñ,(curslin)
  542. ΣÇ
  543. █Ñ,ö
  544. ▓ë,ex2 
  545. òö;adjust cursoraddr. if nec.
  546. ┤(curslin),ö
  547. EX2 ▒begin ;to menu
  548.  
  549. CAPS ┤Ñ,23658 ;toggle capsflag
  550.  ┤Ç,8
  551.  Σ(Ñ)
  552.  ┤(Ñ),Ç
  553.  ═
  554.  
  555. blkmark èINSLINE ;insert new line
  556. èCURSDOWN ;move cursor
  557. ┤Ç,126 ;=blokmarker
  558. CHAR ┤Ñ,ALTFLG
  559. ▌0,(Ñ);signal 'line changed'
  560.  ┤Ñ,(LINPOINT)
  561. ┤(Ñ),Ç;insert marker
  562. èMOVELIN ;copy to screen
  563.  ;move cursor and ret
  564. RIGHT ┤Ç,(XPOS);adjust curspos.
  565.  éÇ,4
  566. ═ë;ret if at margin
  567.  ┤Ñ,LINPOINT
  568.  ⌐(Ñ)
  569.  ┤(XPOS),Ç
  570.  ═
  571.  
  572. BKSP ┤Ñ,ALTFLG
  573. ▌0,(Ñ);line changed
  574. ┤Ñ,(LINPOINT);cursorpos. in buffer
  575.  ┤ö,LINLAST
  576.  ┤Ç,(Ñ)
  577.  àÇ
  578.  █Ñ,ö
  579. ▓ë,BK1 ;jp if not last char on line
  580.  î32
  581. ▓╛,BK1 +3 ;jp if <> space
  582. BK1 èLEFT ;'delete' char
  583. ┤Ç,32 ;change into space
  584. ┤Ñ,(LINPOINT);in buffer
  585.  ┤(Ñ),Ç
  586. ▒MOVELIN ;copy to screen
  587.  
  588. ENTER èSTORELIN ;store current line if nec.
  589. ═ë;ret if no room
  590. èVOLGENDE ;next line in file
  591. ▓╛,ENT1 ;jp if not end of file
  592. ┤Ç,(FILMAX +1);new line, test for room
  593.  îú
  594.  ▒ë,IFEX
  595. ┤(Ñ),13 ;insert new line
  596.  ⌐Ñ
  597.  ┤(Ñ),255
  598.  ┤(FILEND),Ñ
  599.  òÑ
  600. ENT1 ┤(CURSLIN),Ñ;adjust cursor
  601. èDOWN ;on screen
  602. ENTEX èPRLIN ;move line to screen + buffer
  603. ΣÇ;cursor points to start of
  604. ┤(XPOS),Ç;line on screen
  605. ┤(LINPOINT),Ç;also to start of linebuffer
  606.  ═
  607.  
  608. LEFT ┤Ç,(XPOS);adjust cursorpos.
  609.  Γ4
  610. ═ë;ret if at margin
  611.  ┤Ñ,LINPOINT
  612.  ò(Ñ)
  613.  ┤(XPOS),Ç
  614.  ═
  615.  
  616. ;insert space
  617. INSSP ┤Ñ,ALTFLG ;signal: line changed
  618.  ▌0,(Ñ)
  619. ┤ö,(LINPOINT);pointer in buffer
  620. ┤Ñ,LINLAST ;end of buffer
  621.  àÇ
  622.  █Ñ,ö
  623. ═σ;ret if cursor on last pos.
  624.  ┤å,ú
  625.  ┤ë,│
  626. î199 ;test command <=
  627. ▓σ,RECSP ;jp if 'delete space'
  628. ┤ö,LINLAST ;move buffercontents
  629.  ┤ú,Æ
  630.  ┤│,¥
  631.  òÑ
  632. ╢;make room
  633. ▓REC1 ;to put a space on cursorpos.
  634.  
  635. RECSP ┤ú,Æ;reclaim one space
  636.  ┤│,¥
  637.  ⌐Ñ
  638.  ╕
  639. REC1 ┤Ç,32 ;'delete' last char on line
  640.  ┤(ö),Ç
  641. ┤Ñ,(XPOS);save curspos. screen
  642.  ╩Ñ
  643.  ΣÇ
  644. ┤(XPOS),Ç;temp!
  645. ┤Ñ,(LINPOINT);save curspos buffer
  646.  ╩Ñ
  647. èMOVELIN ;store line + reprint
  648. ╔Ñ;restore cursorpositions
  649. ┤(LINPOINT),Ñ;in linebuffer
  650.  ╔Ñ
  651. ┤(XPOS),Ñ;in screen
  652.  ═
  653.  
  654. CURSUP ┤Ç,(XPOS)
  655.  ╩ä
  656.  èSTORELIN
  657. ▒ë,CURSEX ;jp if no room
  658.  èVORIGE
  659. ▒σ,CURSEX ;jp if on first line
  660.  ┤(CURSLIN),Ñ
  661. ┤Ç,(YPOS);one line down
  662.  éÇ,8
  663.  ┤(YPOS),Ç
  664. î185 ;test for top of screen
  665. ▒ë,UDOLIN ;jp if still on screen
  666. ┤Ç,184 ;else restore top of screen
  667.  ┤(YPOS),Ç
  668. ┤(SCRTOP),Ñ;store new top line addr.
  669. èSCRDW ;scroll down
  670. ▒UDOLIN ;print new line
  671.  
  672. SCRDW ΣÇ
  673.  ┤å,Ç
  674. SCRDW1 ┤ú,Ç;topleft coords = 0,0
  675.  ┤│,å
  676.  ┤ë,Ç
  677. èCALC +3 ;screenaddr.
  678.  íö,Ñ
  679.  ┤Ç,ë
  680.  éÇ,8
  681. ┤ú,Ç;HL = 8 pixels down
  682.  ┤│,å
  683. èCALC +3 ;screenaddr.
  684. SCRDW2 ┤Ç,ë
  685. ┤ë,32 ;move 32 bytes (1 line)
  686.  ╕
  687. ┤ë,224 ;point to next line
  688.  éÑ,ç
  689.  íö,Ñ
  690. éÑ,ç;point to next line
  691.  íö,Ñ
  692. ⌐Ç;count for 8 pixelrows
  693.  ┤ë,Ç
  694.  à7
  695.  ▓╛,SCRDW2
  696. ┤Ç,(YPOS);count for 23 lines this way
  697.  Γ8
  698.  îë
  699.  ═ ë
  700.  ┤Ç,ë
  701.  ▓SCRDW1
  702.  
  703. INSLINE èVOLGENDE ;find next lineaddr. in HL
  704.  ┤ö,(FILEND)
  705.  íö,Ñ
  706. ┤Ç,(FILMAX +1);test room
  707.  îú
  708. ▒ë,IFEX ;jp if no room
  709.  █Ñ,ö
  710. ┤å,ú;BC = length
  711.  ┤ë,│
  712.  ⌐ç
  713.  ┤ö,(FILEND)
  714.  ┤ú,Æ
  715.  ┤│,¥
  716.  ⌐ö
  717.  ┤(FILEND),ö
  718. ╢;make room for one chr$ 13
  719.  ┤Ç,13
  720.  ┤(ö),Ç
  721. ┤Ç,(YPOS);test for bottomline
  722.  î8
  723. ▓σ,INSL1 ;jp if second lowest line
  724. ▓║,INSL2 ;jp if not on bottom
  725. ;insert blank line at bottom
  726. èSCRUP ;scroll 1 line up
  727. èCLIN ;cls botlin
  728. ┤Ç,8 ;adjust cursor
  729.  ┤(YPOS),Ç
  730. ┤Ñ,(SCRTOP);adjust scrtop line
  731.  èVOLGER
  732.  ┤(SCRTOP),Ñ
  733.  ═
  734. ;insert on second lowest
  735. INSL1 ΣÇ;prepare to clean botlin
  736.  ┤å,Ç
  737. ▓CLIN ;clear 1 line
  738.  
  739. INSL2 èSCRDW ;make room on screen
  740. CLIN ┤ú,Ç
  741.  ┤│,å
  742. èCALC +3 ;calc scraddr. from A and B
  743. ┤å,8 ;8 pixrows
  744. CL1 ╩Ñ
  745. CL2 ┤(Ñ),0 ;fill with zero
  746.  ⌐│
  747.  ┤Ç,│
  748. à31 ;32 bytes
  749.  ▓╛,CL2
  750.  ╔Ñ
  751.  ⌐ú
  752. ¢CL1 ;next pixrow
  753.  ═
  754.  
  755. CURSDOWN ┤Ç,(XPOS)
  756. ╩ä;store xpos
  757.  èSTORELIN
  758. ▓ë,CURSEX ;jp if no room for line
  759.  èVOLGENDE
  760. ▓╛,CSD ;jp if there is a next line
  761. CURSEX ╔ä
  762. ═;if end of file
  763.  
  764. CSD ┤(CURSLIN),Ñ
  765. èDOWN ;move cursor down or screen up
  766. UDOLIN èPRLIN ;print next line
  767.  ╔ä
  768. ┤(XPOS),Ç;restore xpos
  769. ┤ç,#04FF;calc bufferpos. from scr.pos.
  770. UDO1 ⌐ë
  771.  Γå
  772.  ▓║,UDO1
  773.  ┤å,0
  774. ┤Ñ,linbuf 
  775.  éÑ,ç
  776. ┤(LINPOINT),Ñ;store current addr. in buff
  777.  ═
  778.  
  779. DOWN ┤Ç,(YPOS);test for bottom of screen
  780.  Γ8
  781. ▓ë,D1 ;jp if scroll needed
  782.  ┤(YPOS),Ç
  783.  ═
  784.  
  785. D1 ┤Ñ,(SCRTOP);adjust scrtop first
  786.  èVOLGER
  787.  ┤(SCRTOP),Ñ
  788. SCRUP ┤Ç,184 ;point to topline
  789.  ┤å,0
  790. SCRUP1 ┤ú,Ç
  791.  ┤│,å
  792. ┤ë,Ç;store pixrow counter
  793. èCALC +3 ;calc this rowaddr.
  794.  íö,Ñ
  795.  ┤Ç,ë
  796. Γ8 ;1 line down
  797.  ┤ú,Ç
  798.  ┤│,å
  799. èCALC +3;calc 1 line down addr.
  800. SCRUP2 ┤Ç,ë
  801. ┤ë,32 ;move 32 bytes on each row
  802.  ╕
  803.  ┤ë,224
  804. éÑ,ç;find next rowaddr
  805.  íö,Ñ
  806.  éÑ,ç
  807.  íö,Ñ
  808.  òÇ
  809.  ┤ë,Ç
  810. à7 ;counter in lower bits
  811. ▓╛,SCRUP2 ;8 pixrows to move
  812.  ┤Ç,ë
  813.  àÇ
  814. ▓╛,SCRUP1 ;until init. A = 0
  815.  ═
  816.  
  817. ;DELETE A LINE
  818. delline ┤Ñ,(CURSLIN)
  819.  ┤Æ,ú
  820.  ┤¥,│
  821. èVOLGER ;result in HL
  822. ▓╛,DELL1 ;jp if not end of text
  823. íö,Ñ;on last line simply insert
  824. ┤(Ñ),13 ;eol +eof
  825.  ⌐Ñ
  826.  ┤(Ñ),255
  827. ┤(FILEND),Ñ;adjust pointer
  828. ▒ENTEX ;move line to scr +buf
  829.  
  830. DELL1 èDELLSUB ;delete the line
  831. ┤Ç,(YPOS);test for bottom of screen
  832.  àÇ
  833. ▓╛,DELL2 ;jp if scroll needed
  834.  ┤Ñ,(CURSLIN)
  835. ▒ENTEX ;move line to scr + buf
  836.  
  837. DELL2 èSCRUP +2 ;adjust screen
  838.  ┤Ç,(YPOS)
  839. ┤Ñ,(CURSLIN);find line past bottom of scr.
  840. DLL Γ8
  841.  ╩ä
  842.  èVOLGER
  843. ▓σ,DELL3 ;exit if last line in file
  844.  ╔ä
  845.  àÇ
  846. ▓╛,DLL ;cont. until botlin +1 found
  847.  
  848.  ┤ö,YPOS
  849.  ┤Ç,(ö)
  850. ╩ä;save ypos
  851. ΣÇ;ypos = 0, temporarely
  852.  ┤(ö),Ç
  853. èexpandlin +3 ;move this line into linbuf
  854. èMOVELIN ;and to scr.
  855.  ╔ä
  856. ┤(YPOS),Ç;restore ypos
  857.  ▒ENTEX
  858.  
  859. DELL3 ╔ä;end of file reached,
  860. ┤å,Ç;retrieve ypos
  861. àÇ;test for botlin
  862. èσ,CLIN ;if so, clear botlin
  863.  ▒ENTEX
  864.  
  865. PAGEDOWN èSTORELIN 
  866. ═ë;RET if no room for line
  867. ┤å,24 ;calc 24 lines down
  868.  ┤Ñ,(SCRTOP)
  869. PD èVOLGER
  870. ═σ;ret if not present
  871.  ¢PD
  872. ▓F7 ;cls,print scr from addr in HL
  873.  
  874. PAGEUP èSTORELIN
  875.  ═ ë
  876. ┤å,24 ;calc 24 lines up
  877.  ┤Ñ,(SCRTOP)
  878. PU èVORIGE +3
  879. ▓σ,F7 ;jp if start of file reached
  880.  ¢PU
  881. ▓F7 ;print scr from addr in HL
  882.  
  883. FINDS èSTORELIN
  884. ═ë;ret if no room
  885. ┤Ñ,(FINDADD);point into file
  886.  òÑ
  887. F1 ┤ö,FINDTABLE ;point to find$
  888. F2 ⌐Ñ
  889.  ┤Ç,(Ñ)
  890. ⌐Ç;test end of file (255)
  891. ▓σ,F4 ;jp if so
  892. ┤Ç,(ö);compare first char
  893. èfindcomp 
  894. ▓╛,F2 ;next if no match
  895. ╩Ñ;save filepointer
  896. F3 ⌐Ñ
  897.  ⌐ö
  898. ┤Ç,(Ñ);test end of file
  899. ⌐Ç;(255)
  900. ▓σ,F4 +1 ;jp if so
  901. ┤Ç,(ö);test end of find$
  902.  ┐Ç
  903. ▓σ,F5 ;exit if end of find$
  904. èfindcomp ;compare char
  905. ▓σ,F3 ;loop if matching
  906. ╔Ñ;no more match
  907. ▓F1 ;cont searching in file
  908.  
  909. F4 ╩Ñ;end of file reached
  910. ┤Ñ,filstrt 
  911. ┤(FINDADD),Ñ;reset filepointer
  912. ┤Ñ,127 ;reset find$, (c) + chr$0
  913. ┤(findtable),Ñ
  914. ╔Ñ;retr. filepntr
  915.  ▓F6
  916.  
  917. F5 ╔Ñ;retrieve filepointer
  918. èVOLGER ;get start of next line
  919. ┤(FINDADD),Ñ;store
  920. F6 èVORIGE +3 ;retrieve line with match
  921. ┤Ç,(FINDTABLE)
  922.  î127
  923. èσ,VORIGE +3 ;prev. line if (c) =error
  924. F7 ╩Ñ
  925.  èCLS
  926.  ╔Ñ
  927. ╔ç;drop RETaddr.
  928. ▒WM1 -3 ;print screen  (in WARM)
  929.  
  930. expandlin ┤Ñ,(curslin);use curslin
  931. ╩Ñ;or use HL on this entrypoint
  932. ┤Ñ,linbuf +64 ;clear linebuffer
  933. pl1 ò│
  934. ┤(Ñ),32 
  935. ▓╛,pl1 
  936. íö,Ñ;DE points to linebuffer
  937. ɥ
  938. pl2 ┤Ç,(Ñ)
  939. î127 
  940. ▓σ,COMM1 ;jp if (c)
  941.  ▓║,TOKEN
  942. î";" 
  943.  ▓σ,COMMENT
  944.  î13
  945.  ═ σ
  946. î34 ;quote
  947. ▓╛,noquote ;test more
  948.  
  949. qo î13 ;inside quotes now
  950. ═σ;exit if end of line
  951. èvul 
  952. ⌐Ñ
  953. ┤Ç,(Ñ)
  954. î34 ;test for second quote
  955. ▓╛,qo 
  956.  
  957. noquote èVUL ;move from file into buffer
  958. PC1 ⌐Ñ;point to next char in file
  959.  ▓PL2
  960.  
  961. COMMENT ┤Ç,¥;test pos in linebuffer
  962.  àÇ
  963. ▓σ,COMM1 -2 ;if ';' is first char
  964. î34 ;no tokenizing inside quotes
  965.  ▓║,COMM1 -2
  966. ┤Ç,34 ;comment TAB
  967. ┤¥,Ç;adjust linbuf pointer
  968. ┤Ç,59 ;insert ';' here
  969. COMM1 èVUL
  970. ⌐Ñ;move trailing chars into
  971. ┤Ç,(Ñ);linebuffer
  972. î13 ;until end of line
  973.  ▓╛,COMM1
  974.  ═
  975.  
  976. TOKEN Γ127
  977. ┤å,Ç;B = tokennr.
  978. ┤ë,Ç;save token
  979. ┤Ç,11 ;TAB if token
  980.  î¥
  981. ▓ë,$+3 ;only if pos. < 11
  982. ┤¥,Ç;adjust linbufpntr
  983. ╩Ñ;store filepntr
  984. ┤Ñ,opcotable ;find opcode
  985. T1 ê7,(Ñ)
  986.  ⌐Ñ
  987.  ▓σ,T1
  988.  ┤Ç,(Ñ)
  989. ⌐Ç;test for 255
  990. ▓σ,T2 -1 ;jp if end of table
  991. ¢T1 ;exit with HL pointing
  992.  ;           to Bth token
  993. ┤Ç,35 ;inc hl!
  994. T2 ┤Ç,(Ñ)
  995. à127 ;move chars into linbuf
  996.  èVUL
  997.  ┤Ç,(Ñ)
  998. éÇ,Ç;test end of token
  999. ▓║,T2 -1;more chars if not 
  1000. ╔Ñ;retrieve filepntr
  1001. ┤Ç,ë;retrieve token
  1002. î43 ;test 'INCLUDE'
  1003. ▓╛,$+3 
  1004. ⌐¥;insert one space after token
  1005. ┤Ç,16 ;next TAB
  1006. î¥;if possible
  1007.  ▓ë,PC1
  1008. ┤¥,Ç;adjust linbufpntr
  1009.  ▓PC1
  1010.  
  1011. VUL ┤(ö),Ç;move char into buffer
  1012.  ⌐¥
  1013.  ┤Ç,¥
  1014. î64 ;test for linbuf full
  1015. ═ë;ret if not
  1016. ╔Ñ;drop retaddr.
  1017. ═;exit directly from here
  1018.  
  1019. ;expand + print to scr
  1020. PRLIN ΣÇ;reset 'line changed' flag
  1021.  ┤(ALTFLG),Ç
  1022. èexpandlin 
  1023.  
  1024. MOVELIN ┤Ñ,YPOS ;calc screenposition
  1025.  ┤ú,(Ñ)
  1026. ┤│,0 ;start of scr line
  1027.  èCALC +3
  1028.  ┤Æ,ú
  1029.  ┤¥,│
  1030.  ó
  1031. ┤ö,linbuf -1 
  1032.  ó
  1033. LUP ó
  1034.  ⌐ö
  1035. ┤Ç,(ö);fetch from linbuf
  1036.  ⌐¥
  1037.  ó
  1038. ╩ö;store scrpos
  1039. ┤│,Ç;calc addr. of pattern
  1040.  ΣÇ
  1041.  ╨│
  1042.  ╤
  1043.  ╨│
  1044.  ╤
  1045.  ╨│
  1046.  ╤
  1047. éÇ,chartable /256 -1 
  1048. ┤ú,Ç;HL points to pattern 1
  1049.  ó
  1050. ┤Ç,(ö);fetch again from linbuf
  1051.  ó
  1052. ┤ë,Ç;calc addr of pattern
  1053.  ΣÇ
  1054.  ╨ë
  1055.  ╤
  1056.  ╨ë
  1057.  ╤
  1058.  ╨ë
  1059.  ╤
  1060. éÇ,chartable /256 -1 
  1061. ┤å,Ç;BC = addr. of pattern
  1062. ┤Ç,(ç);shift second pattern
  1063.  ╓
  1064.  ╓
  1065.  ╓
  1066.  ╓
  1067. éÇ,(Ñ);add first pattern
  1068. ┤(ö),Ç;1 move to screen
  1069. ⌐ë;next pattern2
  1070. ⌐│;next pattern1
  1071. ⌐Æ;next pixrow, 1 down
  1072.  ┤Ç,(ç)
  1073.  ╓
  1074.  ╓
  1075.  ╓
  1076.  ╓
  1077.  éÇ,(Ñ)
  1078. ┤(ö),Ç;2
  1079.  ⌐ë
  1080.  ⌐│
  1081.  ⌐Æ
  1082.  ┤Ç,(ç)
  1083.  ╓
  1084.  ╓
  1085.  ╓
  1086.  ╓
  1087.  éÇ,(Ñ)
  1088. ┤(ö),Ç;3
  1089.  ⌐ë
  1090.  ⌐│
  1091.  ⌐Æ
  1092.  ┤Ç,(ç)
  1093.  ╓
  1094.  ╓
  1095.  ╓
  1096.  ╓
  1097.  éÇ,(Ñ)
  1098. ┤(ö),Ç;4
  1099.  ⌐ë
  1100.  ⌐│
  1101.  ⌐Æ
  1102.  ┤Ç,(ç)
  1103.  ╓
  1104.  ╓
  1105.  ╓
  1106.  ╓
  1107.  éÇ,(Ñ)
  1108. ┤(ö),Ç;5
  1109.  ⌐ë
  1110.  ⌐│
  1111.  ⌐Æ
  1112.  ┤Ç,(ç)
  1113.  ╓
  1114.  ╓
  1115.  ╓
  1116.  ╓
  1117.  éÇ,(Ñ)
  1118. ┤(ö),Ç;6
  1119.  ⌐ë
  1120.  ⌐│
  1121.  ⌐Æ
  1122.  ┤Ç,(ç)
  1123.  ╓
  1124.  ╓
  1125.  ╓
  1126.  ╓
  1127.  éÇ,(Ñ)
  1128. ┤(ö),Ç;7
  1129.  ⌐ë
  1130.  ⌐│
  1131.  ⌐Æ
  1132.  ┤Ç,(ç)
  1133.  ╓
  1134.  ╓
  1135.  ╓
  1136.  ╓
  1137.  éÇ,(Ñ)
  1138. ┤(ö),Ç;8
  1139.  ╔ö
  1140.  ⌐ö
  1141.  ┤Ç,¥
  1142. à31 ;test for 64 chars (4 pix)
  1143.  ▓╛,LUP
  1144.  ═
  1145.  
  1146. CALC ┤Ñ,(XPOS);calc scr.addr. from X,Y-pos
  1147. ╩ö;do not destroy DE
  1148.  ┤Ç,191
  1149.  Γú
  1150.  ┤¥,Ç
  1151.  ╪
  1152.  ╪
  1153.  ╪
  1154.  à24
  1155.  ┐64
  1156.  ┤ú,Ç
  1157.  ┤Ç,¥
  1158.  à56
  1159.  ▐Ç
  1160.  ▐Ç
  1161.  ß│
  1162.  ß│
  1163.  ß│
  1164.  ┐│
  1165.  ┤│,Ç
  1166.  ╔ö
  1167.  ═
  1168.  
  1169. ;compress line inside linebuffer
  1170. COMPLN ┤Ñ,#0D0D;make sure line in linbuffer
  1171. ┤(LINLAST +1),Ñ;ends with ENTER
  1172. ┤Ñ,linbuf 
  1173. ┤Æ,ú;HL = insert pointer
  1174. ┤¥,│;DE = linbuf pointer
  1175.  ┤Ç,(ö)
  1176. î";" 
  1177. ▒σ,ISLN ;jp if comment
  1178. òö;prepare for loop
  1179.  
  1180. NXCH ⌐ö;test next char
  1181.  ┤Ç,(ö)
  1182. î13 ;if end of line
  1183. ▒σ,ISLN1 ;ready to insert into file
  1184. î33 ;test space e.o.
  1185. ▓ë,NXCH ;skip these
  1186. î127 ;(c)
  1187. ▒σ,ISLN ;execute 'remark' without TAB
  1188. î";" 
  1189. ▓σ,ISL ;remark
  1190. ;try for token now
  1191. ╩Ñ;save insertpntr
  1192. ┤Ñ,opcotable 
  1193.  ┤å,0
  1194. TRY ⌐Ñ
  1195.  ⌐å
  1196. ┤Ç,(ö);fetch char from linbuf
  1197. à223 ;CAPs
  1198.  ┤ë,Ç
  1199. ┤Ç,(Ñ);fetch char from tokentable
  1200. à127 ;drop bit 7
  1201.  îë
  1202. ┤Ç,(ö);retrieve char
  1203. ▓σ,FIRST ;jp if match
  1204. ▓║,NOTOK ;exit if too far in tokentable
  1205.  ;                  = not found
  1206. NXT ê7,(Ñ);test end of token
  1207. ▓╛,TRY ;find next token if so
  1208. ⌐Ñ
  1209. ▓NXT ;find end of token
  1210.  
  1211. FIRST ╩ö;save linbufpntr
  1212. ê7,(Ñ);test for 1-char token
  1213. ▓╛,VALEND ;jp if so
  1214.  
  1215. MORE ⌐ö;next char in linbuf
  1216. ⌐Ñ;next char in tokentable
  1217.  ┤Ç,(ö)
  1218.  Σ(Ñ)
  1219. à223 ;CAPs
  1220. ▓σ,MORE ;cont. if matching
  1221. à127 ;no more match, test for last
  1222. ▓╛,INVAL ;char of token, jp if not
  1223.  
  1224. VALEND ⌐ö;test in linbuf, for end of
  1225. ┤Ç,(ö);                      opcode
  1226. èTESTA ;alphanum (!)
  1227. ▓ë,VALTOK ;jp if end of opcode
  1228. INVAL ╔ö;else retrieve linbufpntr
  1229. ▓NXT ;try next token
  1230.  
  1231. VALTOK ╔Ñ;drop old linbufpntr
  1232. òö;adjust linbufpntr
  1233. ┤Ç,127 ;calc tokennr.
  1234.  éÇ,å
  1235. NOTOK ╔Ñ;retrieve insertpntr
  1236.  î13
  1237. ▓σ,ISLN1 ;exit, inserting line
  1238. ┤(Ñ),Ç;insert char
  1239.  ⌐Ñ
  1240. èTESTA ;test last char for alphanum
  1241. ▓║,ISN ;jp if so
  1242. î"%" ;binair
  1243. ▓σ,isn ;insert chars
  1244. î"#" ;hex
  1245. ▓╛,quote 
  1246.  
  1247. hex ⌐ö;point to char after #
  1248.  ┤Ç,(ö)
  1249. î32 ;skip spaces
  1250. ▓σ,hex 
  1251. ètesta ;test for alphanumeric
  1252. ▓ë,nxch +1;exit if not 
  1253. î"Z" +1 ;convert chars to caps
  1254. ▓ë,hex1 
  1255. à223 
  1256. hex1 ┤(Ñ),Ç;store
  1257. ⌐Ñ
  1258. ▓hex ;test next char for hex
  1259.  
  1260. quote î34 
  1261. ▓╛,nxch;compress more if no quote 
  1262. QUO ⌐ö;inside quotes now
  1263.  ┤Ç,(ö)
  1264.  î13
  1265. ▓σ,ISLN1 ;insert line into file
  1266.  ┤(Ñ),Ç
  1267.  ⌐Ñ
  1268. î34 ;search for second quote
  1269.  ▓╛,QUO
  1270. ISN ⌐ö;outside quotes now
  1271.  ┤Ç,(ö)
  1272. ▓NOTOK +1 ;treat next char the normal
  1273.  ;                        way
  1274. ISL ┤Ç,│;test for start of linbuf
  1275.  àÇ
  1276. ▓╛,ISLN ;jp if not
  1277. ┤(Ñ),32 ;else insert space
  1278.  ⌐Ñ
  1279. isln ┤Ç,65 ;calc length of 'tail' of
  1280. Γ¥;line in linbuf
  1281. ┤å,0 
  1282. ┤ë,Ç
  1283. ▓σ,IS1 ;jp if no 'tail'
  1284.  íö,Ñ
  1285. ╕;shift tail into position
  1286.  ▓IS1 +3
  1287. IS1 ┤ö,LINLAST ;remove any trailing spaces
  1288.  íö,Ñ
  1289.  ┤Ç,32
  1290. IS2 òÑ
  1291.  î(Ñ)
  1292.  ▓║,IS2
  1293. ⌐Ñ;insert ENTER
  1294. ISLN1 ┤(Ñ),13
  1295.  ⌐Ñ
  1296. ╩Ñ;last char +1
  1297. èINSFILE ;make room or reclaim in file
  1298. ╔Ñ;retr. last +1
  1299.  àÇ
  1300. ┤ö,linbuf 
  1301. █Ñ,ö;calc length of compr. line
  1302. ┤å,ú;incl. ENTER
  1303.  ┤ë,│
  1304. ┤Ñ,(CURSLIN);point into file
  1305.  íö,Ñ
  1306. ╕;move line into file
  1307. àÇ;NC = no error
  1308.  ═
  1309.  
  1310. ;adjust file to accommodate new line
  1311. INSFILE ╩Ñ;store 'last +1 in linbuf'
  1312. ┤ö,(CURSLIN);point into file
  1313.  èVOLGENDE
  1314.  ┤å,ú
  1315. ┤ë,│;BC = next line addr.
  1316.  àÇ
  1317. █Ñ,ö;calc length of old line
  1318. í(▀),Ñ;store old length
  1319. ┤ö,linbuf ;HL =last in linbuf
  1320. █Ñ,ö;calc length of new line
  1321. ╔ö;=old length
  1322. █Ñ,ö;compare lengths
  1323. ▓ë,MINLIN ;jp if new < old
  1324. ═σ;exit if new = old
  1325. BIGLINE ┤ö,(FILEND);new > old
  1326. éÑ,ö;test for maxfile
  1327.  ┤Ç,(FILMAX +1)
  1328.  îú
  1329. ▓║,BIG ;cont. if room available
  1330. ╔Ñ;balance stack
  1331. ╔Ñ;drop RETaddr.
  1332. IFEX ┤ö,32 ;rasp
  1333.  ┤Ñ,5000
  1334.  è949
  1335. ▄;signal ERROR
  1336.  ═
  1337.  
  1338. BIG íö,Ñ
  1339. àÇ;now DE= new fileend, HL = old
  1340. █Ñ,ç;BC = addr. of next line
  1341. ┤å,ú;BC = nr. of bytes in 'tail'
  1342.  ┤ë,│
  1343. ⌐ç;nr of bytes to move
  1344. ┤Ñ,(FILEND);adjust fileend
  1345.  ┤(FILEND),ö
  1346. ╢;move tail
  1347.  ═
  1348.  
  1349. MINLIN éÑ,ö;undo earlier subtraction
  1350. ┤ö,(CURSLIN);HL = old line length now
  1351.  éÑ,ö
  1352. íö,Ñ;DE = end of old line
  1353. ┤Ñ,(FILEND);BC =addr. of next line
  1354. █Ñ,ç;calc length of tail
  1355.  ╩ç
  1356. í(▀),Ñ;HL = addr. of next line
  1357. ╔ç;BC = length of tail
  1358. ⌐ç;take endmarker into account
  1359. ╕;move tail
  1360. òö;adjust end of file
  1361.  ┤(FILEND),ö
  1362.  ═
  1363.  
  1364. STORELIN ┤Ç,(ALTFLG);test for 'line has changed'
  1365.  ╓
  1366. ═║;ret if no change made
  1367. èCOMPLN ;else compress + store
  1368.  ╩ä
  1369. èPRLIN ;and reprint
  1370.  ╔ä
  1371.  ═
  1372.  
  1373. AONLY î123 ;on exit: C = invalid
  1374.  ï
  1375. ͉
  1376.  î95
  1377. ═║;test A - z
  1378.  î91
  1379.  ï
  1380. ͉
  1381. î63 
  1382.  ═
  1383.  
  1384. TESTA èAONLY ;on exit: C = invalid
  1385. ═║;test alphanum
  1386. TESTN î58
  1387.  ï
  1388. ═ë;test 0 - 9
  1389.  î48
  1390.  ═
  1391.  
  1392. ---------------------------------------------------------------
  1393. ; FILLERS here, to put CHARTABLE on #7000 , 28672
  1394.  
  1395. ÿ2 
  1396.  
  1397. chartable û0,0,0,0,0,0,0,0 ;space
  1398. û0,32,32,32,32,0,32,0
  1399. û0,80,80,0,0,0,0,0
  1400. û0,0,80,112,80,112,80,0 
  1401. û0,32,112,96,112,48,112,32 
  1402. û0,64,80,32,64,16,16,0 
  1403. û0,16,32,16,32,64,48,0 
  1404. û0,32,64,0,0,0,0,0
  1405. û0,32,64,64,64,64,32,0 
  1406. û0,64,32,32,32,32,64,0 
  1407. û0,0,80,32,112,32,80,0 
  1408. û0,0,32,32,112,32,32,0 
  1409. û0,0,0,0,0,32,32,64
  1410. û0,0,0,0,112,0,0,0
  1411. û0,0,0,0,0,96,96,0
  1412. û0,0,0,16,32,64,0,0
  1413.  
  1414. û0,32,80,112,112,80,32,0 ;0
  1415. û0,32,96,32,32,32,112,0 ;1
  1416. û0,32,80,16,32,64,112,0 ;2
  1417. û0,96,16,32,16,16,96,0 ;3
  1418. û0,16,16,48,80,112,16,0 ;4
  1419. û0,112,64,96,16,80,32,0 ;5
  1420. û0,32,64,96,80,80,32,0 ;6
  1421. û0,112,16,16,32,64,64,0 ;7
  1422. û0,32,80,32,80,80,32,0 ;8
  1423. û0,32,80,80,48,16,32,0 ;9
  1424. û0,0,0,32,0,0,32,0 ;:
  1425. û0,0,0,32,0,0,32,64 ;;
  1426. û0,0,16,32,64,32,16,0 ;<
  1427. û0,0,0,112,0,112,0,0 ;=
  1428. û0,0,64,32,16,32,64,0 ;>
  1429. û0,96,16,32,64,0,64,0 ;?
  1430. û0,32,80,112,112,64,32,0 ;@
  1431.  
  1432. û0,32,80,80,112,80,80,0 ;A
  1433. û0,96,80,96,80,80,96,0 ;B
  1434. û0,32,80,64,64,80,32,0 ;C
  1435. û0,96,80,80,80,80,96,0 ;D
  1436. û0,112,64,96,64,64,112,0 ;E
  1437. û0,112,64,96,64,64,64,0 ;F
  1438. û0,32,80,64,112,80,32,0 ;G
  1439. û0,80,80,112,80,80,80,0 ;H
  1440. û0,112,32,32,32,32,112,0 ;I
  1441. û0,16,16,16,80,80,32,0 ;J
  1442. û0,80,96,96,96,80,80,0 ;K
  1443. û0,64,64,64,64,64,112,0 ;L
  1444. û0,80,112,80,80,80,80,0 ;M
  1445. û0,96,80,80,80,80,80,0 ;N
  1446. û0,32,80,80,80,80,32,0 ;O
  1447. û0,96,80,80,96,64,64,0 ;P
  1448. û0,32,80,80,80,112,48,0 ;Q
  1449. û0,96,80,80,96,96,80,0 ;R
  1450. û0,48,64,32,16,16,96,0 ;S
  1451. û0,112,32,32,32,32,32,0 ;T
  1452. û0,80,80,80,80,80,32,0 ;U
  1453. û0,80,80,80,80,32,32,0 ;V
  1454. û0,80,80,80,80,112,32,0 ;W
  1455. û0,80,80,32,32,80,80,0 ;X
  1456. û0,80,80,32,32,32,32,0 ;Y
  1457. û0,112,16,32,64,64,112,0 ;Z
  1458.  
  1459. û0,112,64,64,64,64,112,0 
  1460. û0,0,0,64,32,16,0,0 
  1461. û0,112,16,16,16,16,112,0 
  1462. û0,32,112,32,32,32,32,0 
  1463. û0,0,0,0,0,0,0,240 
  1464. û0,48,64,96,64,64,112,0 
  1465.  
  1466. û0,0,32,16,48,80,112,0 ;a
  1467. û0,64,96,80,80,80,96,0 ;b
  1468. û0,0,48,64,64,64,48,0 ;c
  1469. û0,16,48,80,80,80,48,0 ;d
  1470. û0,0,32,80,112,64,48,0 ;e
  1471. û0,48,64,96,64,64,64,0 ;f
  1472. û0,0,48,80,80,112,16,96 ;g
  1473. û0,64,96,80,80,80,80,0 ;h
  1474. û0,32,0,96,32,32,112,0 ;i
  1475. û0,16,0,16,16,16,80,32 ;j
  1476. û0,64,80,96,96,80,80,0 ;k
  1477. û0,64,64,64,64,64,48,0 ;l
  1478. û0,0,80,112,80,80,80,0 ;m
  1479. û0,0,96,80,80,80,80,0 ;n
  1480. û0,0,32,80,80,80,32,0
  1481. û0,0,96,80,80,96,64,64 ;p
  1482. û0,0,48,80,80,48,16,16 ;q
  1483. û0,0,48,64,64,64,64,0 ;r
  1484. û0,0,48,64,32,16,96,0 ;s
  1485. û0,32,112,32,32,32,16,0 ;t
  1486. û0,0,80,80,80,80,48,0 ;u
  1487. û0,0,80,80,80,96,32,0 ;v
  1488. û0,0,80,80,80,112,32,0 ;w
  1489. û0,0,80,32,32,32,80,0 ;x
  1490. û0,0,80,80,80,48,16,32 ;y
  1491. û0,0,112,16,32,64,112,0 ;z
  1492. û0,48,32,64,32,32,48,0 
  1493. û0,32,32,32,32,32,32,0 
  1494. û0,96,32,16,32,32,96,0 
  1495. û240,240,240,240 
  1496. û240,240,240,240 
  1497. û192,96,48,80,80,48,96,192 
  1498.  
  1499. opcotable û128 ;startmark
  1500. û"A" +128 ;    128
  1501. ù"AD" :û"C" +128 
  1502. ù"AD" :û"D" +128 
  1503. û"A" :û"F" :û39 +128 ;rara?
  1504. û"A" :û"F" +128 
  1505. ù"AN" :û"D" +128 
  1506. û"B" +128 
  1507. ù"B" :û"C" +128 
  1508. ù"BI":û"T" +128 
  1509. û"C" +128 
  1510. ù"CAL":û"L" +128 
  1511. ù"CC":û"F" +128 
  1512. ù"C":û"P" +128 ;    140
  1513. ù"CP":û"D" +128 
  1514. ù"CPD":û"R" +128 
  1515. ù"CP":û"I" +128 
  1516. ù"CPI":û"R" +128 
  1517. ù"CP":û"L" +128 
  1518. û"D" +128 
  1519. ù"DA":û"A" +128 
  1520. ù"D":û"E" +128 
  1521. ù"DE":û"C" +128 
  1522. ù"DEF":û"B" +128 ;    150
  1523. ù"DEF":û"M" +128 
  1524. ù"DEF":û"S" +128 
  1525. ù"DEF":û"W" +128 
  1526. ù"D":û"I" +128 
  1527. ù"DJN":û"Z" +128 
  1528. ù"DUM":û"P" +128 
  1529. û"E" +128 
  1530. ù"E":û"I" +128 
  1531. ù"EN":û"D" +128 
  1532. ù"EQ" :û"U" +128 ;    160
  1533. ù"E":û"X" +128 
  1534. ù"EX":û"X" +128 
  1535. û"H" +128 
  1536. ù"HAL":û"T" +128 
  1537. ù"H":û"L" +128 
  1538. û"I" +128 
  1539. ù"I":û"M" +128 
  1540. ù"I":û"N" +128 
  1541. ù"IN":û"C" +128 
  1542. ù"INCLUD" :û197 ;    170
  1543. ù"IN":û"D" +128 
  1544. ù"IND":û"R" +128 
  1545. ù"IN":û"I" +128 
  1546. ù"INI":û"R" +128 
  1547. ù"I":û"X" +128 
  1548. ù"I":û"Y" +128 
  1549. ù"J":û"P" +128 
  1550. ù"J":û"R" +128 
  1551. û"L" +128 
  1552. ù"L" :û"D" +128 ;    180
  1553. ù"LD" :û"D" +128 
  1554. ù"LDD":û"R" +128 
  1555. ù"LD":û"I" +128 
  1556. ù"LDI" :û"R" +128 
  1557. û"M" +128 
  1558. ù"N" :û"C" +128 
  1559. ù"NE" :û"G" +128 
  1560. ù"NO" :û"P" +128 
  1561. ù"N" :û"V" +128 
  1562. ù"N" :û"Z" +128 ;    190
  1563. ù"O" :û"R" +128 
  1564. ù"OR" :û"G" +128 
  1565. ù"OTD" :û"R" +128 
  1566. ù"OTI" :û"R" +128 
  1567. ù"OU" :û"T" +128 
  1568. ù"OUT" :û"D" +128 
  1569. ù"OUT" :û"I" +128 
  1570. û"P" +128 
  1571. ù"P" :û"E" +128 
  1572. ù"P" :û"O" +128 ;    200
  1573. ù"PO" :û"P" +128 
  1574. ù"PUS" :û"H" +128 
  1575. û"R" +128 
  1576. ù"RE" :û"S" +128 
  1577. ù"RE" :û"T" +128 
  1578. ù"RET" :û"I" +128 
  1579. ù"RET" :û"N" +128 
  1580. ù"R" :û"L" +128 
  1581. ù"RL" :û"A" +128 
  1582. ù"RL" :û"C" +128 ;   210
  1583. ù"RLC" :û"A" +128 
  1584. ù"RL" :û"D" +128 
  1585. ù"R":û"R" +128 
  1586. ù"RR" :û"A" +128 
  1587. ù"RR" :û"C" +128 
  1588. ù"RRC" :û"A" +128 
  1589. ù"RR" :û"D" +128 
  1590. ù"RS" :û"T" +128 
  1591. ù"SB" :û"C" +128 
  1592. ù"SC" :û"F" +128 ;   220
  1593. ù"SE" :û"T" +128 
  1594. ù"SL" :û"A" +128 
  1595. ù"S" :û"P" +128 
  1596. ù"SR" :û"A" +128 
  1597. ù"SR" :û"L" +128 
  1598. ù"SU" :û"B" +128 
  1599. û"V" +128 
  1600. ù"XO" :û"R" +128 
  1601. û"Z" +128 ;    229
  1602. û255 ;endmarker
  1603. ù"ERRO" :û128 +82 
  1604.  
  1605. CLS ┤Ñ,16384
  1606.  ┤ö,16385
  1607.  ┤ç,6144
  1608.  ┤(Ñ),0
  1609.  ╕
  1610. ┤Ñ,22528 ;ATTR
  1611. ┤ç,768 
  1612. ┤Ç,71 ;paper 0, ink 7, bright 1
  1613.  ┤(Ñ),Ç
  1614.  ╕
  1615. ┤(23624),Ç;border
  1616. ┤Ç,0 
  1617.  ├(254),Ç
  1618. ┤Ñ,#B800;point to topleft pixelpos
  1619.  ┤(XPOS),Ñ
  1620.  ═
  1621.  
  1622. findcomp èaonly ;test for alpha char
  1623. ▓║,fc1 ;jp if so
  1624. î(Ñ);test other char
  1625. ═
  1626. fc1 Σ(Ñ);cp alpha char
  1627. à223 ;take CAPS into account
  1628. ═
  1629.  
  1630. SYMT ┤Ç,3 ;use printer
  1631.  ▓SMT
  1632. SYMV è3435 ;cls
  1633. ┤Ç,2 ;use screen
  1634. SMT ┤(storevar+1),Ç
  1635. è5633 ;open #
  1636. ┤Ñ,SERM ;point to 'SYMBOLTABLE'
  1637. èprintmsge 
  1638. ╩Ñ;store msge pointer
  1639. ┤ç,(SYMPO);print bottomaddr. of S-table
  1640. è11563 
  1641. è11747 
  1642. ╔Ñ;point to '-65520'
  1643. èprintmsge 
  1644. ┤Ç,13 ;newline
  1645. ┌16 
  1646. ┤ö,SYMBTOP -16 ;get top of table
  1647. LS1 ┤Ñ,(SYMPO);test for ready
  1648.  òÑ
  1649.  àÇ
  1650.  █Ñ,ö
  1651. ▓║,LSEND ;jp if ready
  1652. ╩ö;store pointer
  1653. ┤å,14 ;print 14 chars
  1654.  ┤Ç,(ö)
  1655.  ┤ë,Ç
  1656. LS2 ┤Ç,(ö)
  1657. à127 ;drop bit 7
  1658.  ⌐ö
  1659.  ┌16
  1660. ¢LS2 ;loop
  1661. ê7,ë;test 'undefined'
  1662. ▓╛,LS3 ;jp if not
  1663.  ┤Ñ,UNDEF
  1664. èprintmsge 
  1665.  ⌐ö
  1666. ▓LS4 ;do not print an adress
  1667. LS3 ┤Ç,(ö);collect adress in BC
  1668.  ┤ë,Ç
  1669.  ⌐ö
  1670.  ┤Ç,(ö)
  1671.  ┤å,Ç
  1672. ┤Ç,32 ;space
  1673.  ┌16
  1674. ┤Ç,35 ; #
  1675.  ┌16
  1676.  ┤Ç,å
  1677. èPRHX ;print hex
  1678.  ┤Ç,ë
  1679. èPRHX ;print hex
  1680. ┤Ç,32 ;spaces
  1681.  ┌16
  1682. ┤Ç,32 
  1683.  ┌16
  1684.  ┤Ç,32
  1685.  ┌16
  1686. è11563 ;print decimal in BC
  1687.  è11747
  1688. LS4 ╔ö;retrieve table pointer
  1689.  ┤Ç,¥
  1690. Γ16 ;next label
  1691.  ┤¥,Ç
  1692.  ▓║,LS5
  1693. òÆ;adjust high byte when needed
  1694. LS5 ┤Ç,13 ;newline
  1695.  ┌16
  1696. ▓LS1 ;loop
  1697.  
  1698. PRHX ╩ä;print number in hex
  1699.  ╓
  1700.  ╓
  1701.  ╓
  1702.  ╓
  1703.  èHXZ
  1704.  ╔ä
  1705. HXZ à15
  1706.  éÇ,48
  1707.  î58
  1708.  ▓ë,HXZ1
  1709.  éÇ,7
  1710. HXZ1 ┌16
  1711.  ═
  1712.  
  1713. LSEND ┤Ç,(storevar+1);retrieve command
  1714. î3 ;was it printer
  1715. ▒σ,begin ;ready if so
  1716. ┤Ñ,PRESS 
  1717. èprintmsge 
  1718. ╠5,(░+1);wait for keypress
  1719. LS6 ê5,(░ +1)
  1720.  ▓σ,LS6
  1721. ▒begin ;to menu
  1722.  
  1723. printmsge ┤Ç,(Ñ);print msge until 255 is found
  1724.  ⌐Ñ
  1725.  î255
  1726. ═σ;exit here
  1727.  ╩Ñ
  1728.  ┌16
  1729.  ╔Ñ
  1730. ▓printmsge 
  1731.  
  1732. PRESS û13,20,1 
  1733. ù"Press..." 
  1734. û255
  1735.  
  1736. UNDEF ù"Undef" 
  1737. û255
  1738.  
  1739. ASSEMBLE á$
  1740. LENGTE áassemble -begin 
  1741.