TEXT   180
character display routine
Guest on 27th November 2024 06:41:26 AM


  1. character display routine
  2. dw,     0
  3.         and (77
  4.         sal 1
  5.         add dto
  6.         dap do
  7. do,     lio .
  8.         spi
  9.         jmp i do
  10.         idx do
  11.         dzm .dm
  12.         law i 21
  13. da,     dac .dt
  14.         dac .dc
  15. dn,     lac dm
  16.         sub (406007
  17.         and (407007
  18.         spa
  19.         add (401000
  20.         dac dm
  21.         ril 1
  22.         spi
  23.         jmp dx
  24. dy,     isp dc
  25.         jmp dn
  26.         xct do
  27.         law i 22
  28.         sas dt
  29.         jmp da
  30. ds,     law 6
  31.         add dc7-1
  32.         and (-1000
  33.         dac dc7-1
  34. dz,     jmp i dw
  35. dx,     dio d.q
  36.         add dc7-1
  37.         lia
  38.         rar 9s
  39.         dpy-i 200
  40.         lio dq
  41.         jmp dy                                            
  42. dtl,    rar 1   jmp ds  /space
  43.         27      360000  /1
  44.         305215  31143   /2
  45.         105014  31133   /3
  46.         36100   217704  /4
  47.         137114  631130  /5
  48.         175114  231131  /6
  49.         3610    620501  /7
  50.         155114  231133  /8
  51.         15114   225117  /9
  52. dto,    dtl     0
  53.         rar 1   jmp i dw        /stop code
  54.         51253   142404  /pointer
  55.         0       0
  56.         nop     lac (300500
  57.         dac dc7-1       jmp i dw
  58.         175014  30137   /0
  59.         100200  200401  //
  60.         115114  231131  /s
  61.         2017    760100  /t
  62.         177004  410037  /u
  63.         76404   404017  /v
  64.         177003  410037  /w
  65.         306240  602461  /x
  66.         6047    600401  /y
  67.         303214  630541  /z
  68.         0       0
  69.         50241   102412  /=
  70.         jmp i dw        0       /black
  71.         jmp i dw        0       /red
  72. dc7,    law 77  ior dc7-1       /tab
  73.         add . 2 jmp ds 2
  74.                
  75.                                
  76.         1       0       /_
  77.         101004  410037  /j
  78.         376101  504240  /k
  79.         377004  10040   /l
  80.         376020  500277  /m
  81.         376040  602077  /n
  82.         175014  30137   /o
  83.         376110  221103  /p
  84.         175015  24157   /q
  85.         376111  225143  /r
  86.         0       0
  87.         0       0
  88.         20100   201004  /-
  89.         1012    43400   /)
  90.         2010    420100  /.
  91.         342     50100   /(
  92.  
  93.         0       0
  94.         370221  22276   /a
  95.         377114  231133  /b
  96.         175014  30121   /c
  97.         377014  30137   /d
  98.         377114  631140  /e
  99.         376110  621100  /f
  100.         175015  32131   /g
  101.         376100  601077  /h
  102.         1017    370100  /i
  103.         jmp i dw        0
  104.         4       0       /.
  105.         jmp i dw        0       /up
  106.         jmp i dw        0       /back
  107.         0       0
  108.         rar 1
  109. ddo,    lac dc7-1
  110.         sub (14000
  111.         and (777000
  112.         add (500
  113.         dac dc7-1
  114.         jmp i dw                              
  115. variables
  116. constants
  117. start

Raw Paste

Login or Register to edit or fork this paste. It's free.