TEXT   170
midas system july 28 1980
Guest on 27th November 2024 06:42:46 AM


  1. /midas system july 28, 1980
  2.  
  3. lai=opr 40
  4. lia=opr 20
  5. swp=opr 60
  6. dia=iot 60
  7. dba=iot 61
  8. dcc=iot 62
  9. dra=iot 63
  10. sni=skp 4000
  11.  
  12. define  sense swch
  13.         szs swchx10
  14.         terminate
  15.  
  16. define  init with,what
  17.         law what
  18.         dap with
  19.         terminate
  20.  
  21. define  index idxx,sass,jmpp
  22.         idx idxx
  23.         sas sass
  24.         jmp jmpp
  25.  
  26.         terminate
  27.  
  28. define  listen
  29.         cla>>05<<cli 1
  30.         szf i 1
  31.         jmp .-1
  32.         tyi
  33.         terminate
  34.  
  35. swap=swp
  36.  
  37. define  load with,what
  38.         lio (what
  39.         dio with
  40.         terminate
  41.  
  42. define  move from,where
  43.         lio from
  44.         dio where
  45.         terminate
  46.  
  47. define  setup where,what
  48.         law i what
  49.         dac where
  50.         terminate
  51.  
  52. define  count ispp,jmpp
  53.         isp ispp
  54.         jmp jmpp
  55.         terminate
  56. start
  57.  
  58.                                                                                        w

Raw Paste

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