/CUBE/
BSW=7002
MQL=7421
MQA=7501
*0044
DLINE=200
CONP, 0
CTR, 0
FDIRP=CONP
PT1, 0
PT2, 0
TMP, 0
PTR=TMP
TMP2, 0
CTR2, 0
GXBUF=1400
PGDF=00
GXDF=10
*1600
CUBEI,
GXCLR, CLA CLL
 TAD (GXBUF-1)
 DCA 10
 TAD (-6200)
 DCA CTR
 CDF GXDF
 DCA I 10
 ISZ CTR
 JMP .-2
 CDF PGDF
GXDIS, 6156
 JMP .-1
 TAD (GXBUF)
 6150
 NOP
 NOP
 TAD (GXDF+0002)
 6151
CUBEL,
 TAD (XOLD-1)
 DCA 10
 TAD (XNEW-1)
 DCA 11
 TAD (-10)
 DCA CTR
COPYL, TAD I 11
 DCA I 10
 ISZ CTR
 JMP COPYL
 LAS
 RTL
 RAL
 AND (0003)
 CLL CMA
 DCA CTR2
MULSKP, TAD (XNEW+1)
 DCA 10
 TAD (FDIR+1)
 DCA FDIRP
 TAD (-6)
 DCA CTR
UPDNXL, ISZ FDIRP
 JMS I (ROT1)
 ISZ CTR
 JMP UPDNXL
 ISZ CTR2
 JMP MULSKP
 TAD (CONECT-1)
 DCA CONP
 TAD (-14)
 DCA CTR
NEXTL, ISZ CONP
 TAD I CONP
 AND (0077)
 DCA PT2
 TAD I CONP
 BSW
 AND (0077)
 DCA PT1
 TAD (XOLD)
 TAD PT1
 DCA TMP
 TAD I TMP
 DCA DPARM+0
 TAD (YALL)
 TAD PT1
 DCA TMP
 TAD I TMP
 DCA DPARM+1
 TAD (XOLD)
 TAD PT2
 DCA TMP
 TAD I TMP
 DCA DPARM+2
 TAD (YALL)
 TAD PT2
 DCA TMP
 TAD I TMP
 DCA DPARM+3
 CLA CLL CMA  /-1/
 DCA DPARM+4
 TAD (DPARM-1)
 JMS I (DLINE)
 TAD (XNEW)
 TAD PT1
 DCA TMP
 TAD I TMP
 DCA DPARM+0
 TAD (XNEW)
 TAD PT2
 DCA TMP
 TAD I TMP
 DCA DPARM+2
 CLA CLL IAC  /+1/
 DCA DPARM+4
 TAD (DPARM-1)
 JMS I (DLINE)
 ISZ CTR
 JMP NEXTL
 DCA CTR
 JMP I (DELAY)
DPARM, 0
 0
 0
 0
 0
 PAGE
DELAY, 6156
 JMP .-1
 ISZ CTR
 KSF
 JMP NOINT
 CLA CLL
 6152
 KRS
 TAD (-216)
 SZA CLA
 JMP EXIT
 KCC
 CLA IAC
 MQL
 TAD I (7746)
 MQA
 DCA I (7746)
 CIF 10
 JMS I (7700)
 10
 CIF 10
 JMS I (200)
 1
DEVNUM, DEVICE DTA0
 COSTAB+1
 JMP CHERR1
 TAD DEVNUM+1
 CIF 10
 JMS I (200)
 2
BLKNUM, CHNAME
 0
 JMP CHERR2
 TAD BLKNUM
 DCA BLKN2
 CIF 10
 JMS I (200)
 6
BLKN2, 0
CHNAME, FILENAME RANWAK.SV
CHERR1, CIF 10
 JMS I (200)
 7
 3
CHERR2, CIF 10
 JMS I (200)
 7
 4
EXIT, CDF CIF 00
 JMP I (7600)
NOINT, LAS
 AND (1777)
 CIA
 TAD CTR
 SPA CLA
 JMP DELAY
 JMP CUBEL
ROT1, 0
 TAD I FDIRP
 RAL
 CLA IAC  /+1/
 SZL
 CIA
 TAD I FDIRP
 DCA I FDIRP
 TAD I FDIRP
 AND (0777)
 DCA TMP
 TAD TMP
 TAD (COSTAB)
 DCA TMP2
 TAD I FDIRP
 RTL
 CLA
 TAD I TMP2
 SZL
 CIA
 TAD (144)
 DCA I 10
 TAD TMP
 SNA
 JMP TOP
 TAD (-132)
 SZA CLA
 JMP I ROT1
BOT, TAD I FDIRP
 RTL
 CML RAR
 CLL CML RAR
 DCA I FDIRP
 JMP I ROT1
TOP, TAD I FDIRP
 RAL
 CLL RAR
 DCA I FDIRP
 JMP I ROT1
 PAGE
COSTAB,
  117
  117
  117
  117
  117
  117
  117
  117
  116
  116
  116
  116
  115
  115
  115
  115
  114
  114
  113
  113
  112
  112
  111
  111
  110
  110
  107
  107
  106
  105
  105
  104
  103
  102
  102
  101
  100
   77
   76
   76
   75
   74
   73
   72
   71
   70
   67
   66
   65
   64
   63
   62
   61
   60
   57
   55
   54
   53
   52
   51
   50
   46
   45
   44
   43
   41
   40
   37
   36
   34
   33
   32
   30
   27
   26
   24
   23
   22
   20
   17
   16
   14
   13
   12
   10
    7
    6
    4
    3
    1
    0
CONECT,
 0002
 0003
 0004
 0105
 0106
 0107
 0206
 0604
 0405
 0503
 0307
 0702
 PAGE
YALL,
 0267
 0017
 0177
 0177
 0177
 0107
 0107
 0107
XOLD,
 0000
 0000
 0000
 0000
 0000
 0000
 0000
 0000
XNEW,
 0144
 0144
 0037
 0144
 0251
 0251
 0144
 0037
FDIR,
 0000
 0000
 2036
 6132
 4036
 0036
 4132
 6036
$