sw/src/omni_usb/test.pa

   1
   2
   3         KTURBO=6407
   4         TTURBO=6417
   5         KSF2=6401
   6 *0
   7 INT,    0
   8         KSF2
   9         HLT     / NO KEYBOARD INTERRUPT!
  10 INT2,
  11         CLA CLL
  12         KTURBO
  13         JMP INTEX / NO DATA AVAILABLE, EXIT INTERRUPT
  14         TTURBO
  15         JMP .-1
  16         CMA
  17         TTURBO
  18         JMP .-1
  19         JMP INT2
  20
  21 INTEX,  ION
  22         TAD K3333
  23         JMP I INT
  24
  25 K3333,  3333
  26
  27 XSTART, START
  28
  29 *200
  30
  31 START,
  32         CLA CLL
  33         6110
  34         6120
  35         6140
  36         6270
  37         6270
  38         6270
  39         6470
  40         6470
  41         6470
  42         6441
  43         6442
  44         6444
  45         HLT
  46         CAF
  47 L1,     KSF2    / READ EVERYTHING THAT COULD BE READ
  48         JMP S2
  49         KTURBO
  50         HLT
  51         JMP L1
  52
  53 S2,     CLA CLL
  54         ION
  55         TAD K2222
  56         JMP .
  57
  58 K2222,  2222
  59
  60
  61 *7700   JMP I XSTART
  62
  63 *400            / SEND OUT SWITCH REGISTER AND HALT
  64 KEY,    LAS
  65         TTURBO
  66         JMP .-1
  67         HLT
  68         JMP KEY
  69
  70 *500
  71 DISP,   CLA CLL
  72 D2,     KSF2
  73         JMP .-1
  74         6406
  75         JMP D2
  76
  77 $