home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D03.D64 / display.asm < prev    next >
Encoding:
Assembly Source File  |  2019-04-13  |  5.5 KB  |  429 lines
  1. e
  2. _ Program to list lazy greenius assembler programs
  3.  
  4. _ Define a start location
  5.  
  6.     org $1350
  7.  
  8. _ define the storage locations used
  9.  
  10. loadaddr     = $2000
  11. bsout    = $ffd2
  12. po    = $fa
  13. lo        = $fc
  14. en    res 2
  15. ct    res 2
  16. cb    res 2 
  17. savepo    res 2
  18.  
  19. _ Code start
  20. _ input is A=filename length
  21. _          X=filename address low
  22. _          Y=filename address high
  23. _ bank will have been set before this program was called
  24.  
  25.     £ $ffbd        _ set name
  26.     ¥ #0
  27.     ₧ #0
  28.     £ $ff68        _ set bank
  29.     ¥ #0
  30.     ₧ #8
  31.     ƒ #0
  32.     £ $ffba        _ set lfs
  33.     ¥ #0
  34.     ₧ #>loadaddr
  35.     ƒ #<loadaddr
  36.     £ $ffd5        _ load 
  37.     ä error
  38.     ░ en
  39.     ▒ en+1
  40.     ¢ display
  41. error    ¬            _ return error in A
  42.  
  43. _
  44. _ Now we display the screen
  45. _
  46. display    equ *
  47.     ¥ #147
  48.     £ bsout
  49.     ₧ #1
  50.     ¥ #>loadaddr
  51.     » po
  52.     » ct
  53.     ¥ #<loadaddr
  54.     » po+1
  55.     » ct+1
  56.     ƒ #0
  57. dispscr    equ *
  58.     ¥ [po],y
  59.     æ #13
  60.     ê nocheck
  61.     Ö
  62.     Æ #26
  63.     à exitline
  64. nocheck    equ *
  65.     £ outchar
  66.     ÿ po
  67.     ê noinc9
  68.     ÿ po+1
  69. noinc9    equ *
  70.     ¥ po+1        _ assume that there is at least one character
  71.     æ en+1        _ in the file and that en is the position 
  72.     ê dispscr        _ after this character so po could equal en
  73.     ¥ po        _ at some point if we reach the end before
  74.     æ en        _ before the end of the screen
  75.     ê dispscr
  76. exitline    equ *        _ end of file or last CR would mean 26th line          
  77.     ¥ po
  78.     ì
  79.     Ç #1
  80.     » cb
  81.     ¥ po+1
  82.     Ç #0
  83.     » cb+1
  84. _
  85. _ control the input
  86. _
  87. loopkey    equ *
  88.     ₧ #3
  89. loopdel1    equ *
  90.     ƒ #0
  91. loopdel2    equ *
  92.     û
  93.     ê loopdel2
  94.     ò
  95.     ê loopdel1
  96.     ¥ $d4
  97.     æ #83
  98.     à scrdown
  99.     æ #84
  100.     à scrup
  101.     æ #7
  102.     à shift
  103.     æ #41
  104.     à prt
  105.     æ #57
  106.     ê loopkey
  107.     ¥ #0
  108.     ¬
  109. shift    ¥ $d3
  110.     à scrup
  111.     æ #1
  112.     à scrdown
  113.     ê loopkey
  114. prt    ¢ print
  115. scrup    equ *
  116.     ¥ cb+1        _ if cb < en then scroll up
  117.     æ en+1
  118.     à extra3
  119.     ä loopkey
  120.     ¢ scrollup
  121. extra3    ¥ cb
  122.     æ en
  123.     ä loopkey
  124.     ¢ scrollup
  125. _
  126. _ do the scroll down logic
  127. _ 
  128. scrdown    equ *        _ if ct > loadaddr then continue
  129.     ¥ ct+1
  130.     æ #<loadaddr
  131.     â loopkey        _ if ct(high) < loadaddr then ct < loadaddr
  132.     à possible        _ if ct(high) = loadaddr then possible
  133.     ä dodown        _ definite
  134. possible  equ *
  135.     ¥ #>loadaddr
  136.     æ ct
  137.     ä loopkey
  138. dodown    equ *
  139.     ¥ #27
  140.     £ bsout
  141.     ¥ #87
  142.     £ bsout        _ scroll the screen down
  143.     ¥ #19        _ home the cursor
  144.     £ bsout
  145. _
  146. _ start of the logic to scan for the previous line
  147. _
  148.     ¥ ct
  149.     ¼
  150.     ½ #2
  151.     » po
  152.     » savepo
  153.     ¥ ct+1
  154.     ½ #0
  155.     » po+1        _ po=ct-2 point past last cr
  156.     » savepo+1        _ save ct-2
  157.     ƒ #0
  158. loopup1    equ *        _ locate the start of the line
  159.     ¥ [po],y
  160.     æ #13        _ have we found a CR
  161.     à fndup1        _ yes so stop
  162.     ö po        _ po=po-1
  163.     ¥ po
  164.     æ #$ff
  165.     ê nodec1
  166.     ö po+1
  167. nodec1    equ *
  168.     ¥ po+1        _ if po <= loadaddr then stop 
  169.     æ #<loadaddr    
  170.     â setstart
  171.     à extra1
  172.     ä loopup1
  173. extra1    equ *
  174.     ¥ po
  175.     æ #>loadaddr
  176.     ä loopup1
  177. setstart  equ *
  178.     ¥ #>loadaddr
  179.     » po
  180.     ¥ #<loadaddr
  181.     » po+1
  182.     ¢ noinc1
  183.  
  184. fndup1    equ *        _ found either the CR or start of text
  185.     ÿ po        _ point to next char if CR found
  186.     ê noinc1        _ if start of text then we would have gone
  187.     ÿ po+1        _ gone past the start by 1 so increment
  188. _
  189. _ if po > ct-2 then all we found was a carriage return on the  last line
  190. _ so don't display anything
  191. _
  192. noinc1    equ *
  193.     ¥ po
  194.     » ct
  195.     ¥ po+1
  196.     » ct+1        _ this will be the new current top
  197.     ¥ savepo+1
  198.     æ po+1
  199.     â leave1
  200.     à extra2
  201.     ¢ disp
  202. extra2    equ *
  203.     ¥ savepo
  204.     æ po
  205.     â leave1
  206. disp     equ *
  207.     ¥ [po],y
  208.     £ outchar
  209.     ¥ po
  210.     æ savepo
  211.     ê incpo
  212.     ¥ po+1
  213.     æ savepo+1
  214.     à leave1
  215. incpo    equ *
  216.     ÿ po
  217.     ê disp
  218.     ÿ po+1
  219.     ê disp
  220. _
  221. _ displayed the line if >40 then we would have had to scroll down twice
  222. _
  223. leave1    equ *
  224. _
  225. _ This logic just looks for the current bottom start of line
  226. _
  227.     ¥ cb
  228.     ¼
  229.     ½ #2
  230.     » po
  231.     ¥ cb+1
  232.     ½ #0
  233.     » po+1        _ po=ct-2 point past last cr
  234.     ƒ #0
  235. loopup2    equ *        _ locate the start of the line
  236.     ¥ [po],y
  237.     æ #13
  238.     à fndup2
  239.     ö po
  240.     ¥ po
  241.     æ #$ff
  242.     ê loopup2
  243.     ö po+1
  244.     ê loopup2
  245. fndup2    equ *
  246.     ÿ po
  247.     ê noinc2
  248.     ÿ po+1
  249. noinc2    equ *
  250.     ¥ po
  251.     » cb
  252.     ¥ po+1
  253.     » cb+1
  254.     ¢ loopkey
  255.  
  256. _
  257. _ here is the logic to scroll up.
  258. _
  259. scrollup    equ *
  260.     ¥ #27
  261.     £ bsout
  262.     ¥ #86
  263.     £ bsout        _ scroll up
  264.     ¥ #19
  265.     £ bsout        _ home cursor
  266.     ₧ #24        _ 24 cursor downs
  267.     ¥ #17
  268. loopcur    equ *
  269.     £ bsout
  270.     ò
  271.     ê loopcur
  272. _
  273. _ here we go...
  274. _ 
  275.     ¥ cb
  276.     » po
  277.     ¥ cb+1
  278.     » po+1
  279.     ƒ #0
  280. loopit    equ *
  281.     ¥ [po],y
  282.     æ #13
  283.     à leave4
  284.     £ outchar
  285.     ÿ po
  286.     ê check2
  287.     ÿ po+1
  288. check2    equ *
  289.     ¥ po+1
  290.     æ en+1
  291.     â loopit
  292.     à extra4
  293.     ä leave4
  294. extra4    equ *
  295.     ¥ po
  296.     æ en
  297.     â loopit
  298. leave4    equ *
  299.     ÿ po
  300.     ê noinc4
  301.     ÿ po+1
  302. noinc4    equ *
  303.     ¥ po
  304.     » cb
  305.     ¥ po+1
  306.     » cb+1
  307. _
  308. _ line now displayed so lets locate the current top
  309. _
  310.     ¥ ct
  311.     » po
  312.     ¥ ct+1
  313.     » po+1
  314. loop5    equ *
  315.     ¥ [po],y
  316.     ÿ po
  317.     ê forward
  318.     ÿ po+1
  319. forward    equ *
  320.     æ #13
  321.     ê loop5
  322.     ¥ po
  323.     » ct
  324.     ¥ po+1
  325.     » ct+1
  326.     ¢ loopkey
  327. _
  328. _ Now output characters and convert the tokens
  329. _
  330. outchar    equ *
  331.     ░ savex
  332.     ▒ savey
  333.     æ #128
  334.     ä convert
  335.     £ bsout
  336. exitchar    equ *
  337.     ₧ savex
  338.     ƒ savey
  339.     ¬
  340. convert    equ *
  341.     ¼
  342.     ½ #128
  343.     ▓
  344.     ¥ #>table
  345.     » lo
  346.     ¥ #<table
  347.     » lo+1
  348.     Æ #0
  349.     à outit
  350. loop9    equ *
  351.     ¥ lo
  352.     ì
  353.     Ç #3
  354.     » lo
  355.     ¥ lo+1
  356.     Ç #0
  357.     » lo+1
  358.     ò
  359.     ê loop9
  360. outit    equ *
  361.     ƒ #0
  362. loop8    equ *
  363.     ¥ [lo],y
  364.     £ bsout
  365.     ä exitchar
  366.     Ü
  367.     ô #3
  368.     â loop8
  369.           ì        _ set a good return code
  370.     ¢ exitchar
  371. table     equ *
  372.     db  "adcandaslbccbcsbeqbitbmibnebplbrkbvcbvsclccldcliclvcmpcpxcpy"
  373.     db  "decdexdeyeorincinxinyjmpjsrldaldxldylsrnoporaphaphpplaplprol"
  374.     db  "rorrtirtssbcsecsedseistastxstytaxtaytsxtxatxstya"
  375. savex    res 1
  376. savey    res 1
  377.  
  378. _
  379. _ routine to print from loadaddr to en
  380. _
  381. print    equ *
  382.     ¥ #0        _ set length to zero
  383.     £ $ffbd
  384.     ¥ #1
  385.     ₧ #4
  386.     ƒ #7
  387.     £ $ffba        _ set LFS
  388.     £ $ffc0        _ open the file
  389.     â prtcont1
  390. prterror1    equ *
  391.     ¢ loopkey
  392. prtcont1    equ *
  393.     ₧ #1
  394.     £ $ffc9        _ BSOUT routed the logical file number def
  395.     â prtcont2
  396. prterror2 equ *
  397.     ¥ #1
  398.     £ $ffc3        _ close the LA
  399.     ¢ prterror1
  400. prtcont2  equ *
  401.     ¥ #>loadaddr
  402.     » po
  403.     ¥ #<loadaddr
  404.     » po+1
  405.     ƒ #0
  406. loopprt    equ *
  407.     ¥ po
  408.     æ en
  409.     ê incloop
  410.     ¥ po+1
  411.     æ en+1
  412.     à prtfin
  413. incloop   equ *
  414.     ¥ [po],y
  415.     £ outchar
  416.     ä prtfin
  417.     ¥ $d4
  418.     æ #13        _ s key pressed ?
  419.     à prtfin
  420.     ÿ po
  421.     ê loopprt
  422.     ÿ po+1
  423.     ê loopprt
  424. prtfin    equ *
  425.     £ $ffcc        _ reset the channels
  426.     ¢ prterror2        _ reset bsout and close the file and exit    
  427.  
  428.  
  429. o