software: Added more and more
[pdp8.git] / sw / SPACE / SPACE.PA
diff --git a/sw/SPACE/SPACE.PA b/sw/SPACE/SPACE.PA
new file mode 100644 (file)
index 0000000..8543c5a
--- /dev/null
@@ -0,0 +1,1703 @@
+CLZE=6130      
+CLSK=6131      
+CLOE=6132      
+CLAB=6133      
+CLEN=6134      
+CLSA=6135      
+CLBA=6136      
+CLCA=6137      
+CREXT=0100     
+CR2=0200       
+CR3=0300       
+CR4=0400       
+CR5=0500       
+CR6=0600       
+COVSTAT=4000
+CMFREE=0000    
+CMPROG=1000    
+CADC=0040      
+CINH=0020      
+CION=0010      
+CEV3=0004      
+CEV2=0002      
+CEV1=00001     
+DIXY=6055      
+DILX=6053      
+DILY=6054      
+DILE=6056      
+DISD=6052      
+XRIN=NOP               
+XRCL=NOP
+/DSB=XXXX              
+DXC=JMS I IVCLDX       
+DYC=JMS I IVCLDY       
+DXL=0000               
+DYL=0000               
+DIS=0000               
+/CRF=NOP               
+/CCF=NOP               
+       *0
+       0                       
+       JMP I 2                 
+       INTSER
+EMPTY, 0                       
+ODT1,  0                       
+ODT2,  0
+ODT3,  0
+       *10
+AUTO10,        0
+AUTO11,        0
+AUTO12,        0
+AUTO13,        0
+AUTO14,        0
+AUTO15,        0
+AUTO16,        0
+AUTO17,        0
+       *20
+ONEOUT,        0                       
+ONECNT,        0                       
+ONEFLG,        0                       
+ONETHE,        0                       
+ONEVEX,        0                       
+ONEVEY,        0                       
+ONEPEX,        0                       
+ONEPEY,        0                       
+ONESIN,        0                       
+ONECOS,        0                       
+ONEFIN,        0                       
+TWOOUT,        0                       
+TWOCNT,        0                       
+TWOFLG,        0
+TWOTHE,        0
+TWOVEX,        0
+TWOVEY,        0
+TWOPEX,        0
+TWOPEY,        0
+TWOSIN,        0
+TWOCOS,        0
+TWOFIN,        0
+XONEDS,        0
+YONEDS,        0
+XTWODS,        0
+YTWODS,        0
+DIXTEM,        0
+DIYTEM,        0
+DISCNT,        0
+T10SIN,        0
+T20SIN,        0
+T30SIN,        0
+T10COS,        0
+T20COS,        0
+T30COS,        0
+CALSIN,        0
+CALCOS,        0
+SINE,  SINEIN
+COSINE,        COSINI
+MULT,  MULTI
+RSHIFT,        SHIFTR
+VECTOR,        DISPLY
+CALPOS,        POSCAL
+INTWRD,        0
+INTCNT,        0
+HYPER, HYPSET
+MESOUT,        CHARS
+THEADJ,        THEAJI
+VEESCL,        VEELIM
+ISHFT, DISHFT
+RESET1,        RESE1
+GAMOVR,        0
+ACCFLG,        0
+ACCPER,        -30
+MEXP,  -400
+PROX,  0
+PROY,  0
+PROLIF,        -360
+BUFTMP,        0
+ONEFIL,        DISBUF
+TWOFIL,        DISBUF+40
+P5,    5
+P10,   10
+P17,   17
+P20,   20
+P37,   37
+P40,   40
+P100,  100
+P132,  132
+P200,  200
+P400,  400
+P550,  550
+P3777, 3777
+M4,    -4
+M6,    -6
+M10,   -10
+M11,   -11
+M264,  -264
+M200,  -200
+M400,  -400
+M550,  -550
+IVCLDX,        VCLDX
+IVCLDY,        VCLDY
+       *200
+START, CLA CLL                 
+       DIXY                    
+       LAS                     
+       TAD SWRD                
+       TAD XROPT               
+       DCA COLDST              
+RESTRT,        CLA CMA
+       XRCL
+       CLA CLL
+       TAD P17                 
+       DCA AUTO10              
+       TAD TABLEN
+       DCA AUTO11
+       DCA I AUTO10
+       ISZ AUTO11
+       JMP .-2
+       TAD STRT1               
+       DCA ONEPEX              
+       TAD STRT2
+       DCA TWOPEX
+       TAD P37                 
+       DCA ONECOS
+       TAD P37
+       DCA TWOCOS              
+       TAD ACCPER              
+       DCA ACCFLG
+       DCA ONEFIN              
+       DCA TWOFIN
+       DCA GAMOVR
+       JMS I BUFSET            
+       TCF                     
+       PCF
+       RRB
+       CLA CMA         
+       CLZE            
+       CLA
+       TAD     CDELY   
+       CLAB            
+       CLA
+       TAD     CCNF    
+       CLOE            
+       CLA CLL
+       JMP COLDST              
+       
+CCNF,  CR4+CMPROG+CION+COVSTAT         
+CDELY, -310                            
+UPDATE,        CLA CLL                 
+                               
+COLDST,        0                       
+       LAS                     
+       DCA INTWRD              
+       TAD INTWRD              
+       RTR                     
+       RTR
+       AND LFTHAF
+       DCA INTTEM              
+       TAD INTWRD              
+       AND RYTHAF
+       TAD INTTEM              
+       JMP .+3                 
+CODST, XRIN                    
+       XRCL
+       DCA INTWRD              
+       TAD M550                
+       DCA INTCNT              
+       ION                     
+       TAD ACCFLG              
+       IAC                     
+       SMA SZA
+       TAD ACCPER              
+       DCA ACCFLG
+       JMP I .+1               
+       ONEUP
+BUFSET,        SETBUF
+TABLEN,        AUTO17-CALCOS
+INTTEM,        0
+LFTHAF,        0360
+RYTHAF,        0017
+STRT1, 1000
+STRT2, -1000
+SWRD,  2000-CODST
+XROPT, JMP CODST
+INTSER,        DCA INTACC              
+       RAR                     
+       DCA INTLNK              
+       CLSK                    
+       JMP INTBUS              
+       CLA IAC RTR             
+       CLSA                    
+       CLA CLL
+       JMP UPDATE              
+INTBUS,        KSF                     
+       JMP .+5                 
+       KCC                     
+       TAD GAMOVR              
+       SZA CLA
+       JMP RESTRT              
+/      TCF                     
+       ISZ INTGLH              
+       SKP
+       HLT                     
+INTRET,        CLA CLL                 
+       TAD INTLNK
+       RAL
+       TAD INTACC
+       ION
+       JMP I 0
+INTACC,        0
+INTLNK,        0
+INTGLH,        0
+       *400
+ONEUP, TAD ONEFLG              
+       SNA
+       JMP ONEOK               
+       IAC                     
+       SNA
+       TAD ONEFIN              
+       DCA ONEFLG              
+       JMP I ITWOUP            
+ONEOK, TAD ONEOUT              
+       SZA CLA
+       JMP ONEFIG              
+       TAD TWOFIN              
+       SZA CLA
+       JMS I ONEWN             
+       TAD INTWRD              
+       AND OP300               
+       TAD OM300               
+       SZA CLA
+       JMP ONELEF              
+       CMA                     
+       JMP I HYPER
+ONELEF,        TAD INTWRD              
+       AND P200                
+       SNA CLA
+       JMP ONERYT              
+       CLA CLL CMA             
+       JMP ONEFIG
+ONERYT,        TAD INTWRD              
+       AND P100                
+       SZA CLA
+       IAC                     
+ONEFIG,        TAD ONETHE              
+       JMS I THEADJ            
+       DCA ONETHE              
+       TAD ONETHE              
+       JMS I SINE              
+       DCA ONESIN              
+       TAD ONETHE
+       JMS I COSINE
+       DCA ONECOS
+       TAD ONEOUT              
+       SZA CLA
+       JMP ONEVEL
+ONEMOV,        TAD ACCFLG              
+       SZA CLA
+       JMP ONEVEL              
+       TAD INTWRD              
+       AND P40                 
+       SNA CLA
+       JMP ONEVEL              
+       TAD ONECOS              
+       TAD ONEVEY              
+       JMS I VEESCL            
+       DCA ONEVEY              
+       TAD ONESIN              
+       TAD ONEVEX
+       JMS I VEESCL
+       DCA ONEVEX
+ONEVEL,        TAD ONEVEX              
+       JMS I ISHFT             
+       JMS I ISHFT             
+       TAD ONEPEX
+       DCA ONEPEX              
+       TAD ONEVEY              
+       JMS I ISHFT             
+       JMS I ISHFT
+       TAD ONEPEY
+       DCA ONEPEY
+       TAD ONEOUT              
+       SZA CLA                 
+       JMP I ITWOUP
+ONELNC,        TAD LNC1FG              
+       SNA CLA
+       JMP .+3
+       ISZ LNC1FG              
+       JMP I ITWOUP            
+       TAD INTWRD              
+       AND P20                 
+       SNA CLA
+       JMP I ITWOUP            
+                               
+       TAD PROLIF              
+       DCA I AUTO16            
+       TAD ONEVEX              
+       JMS I ISHFT             
+       JMS I RSHIFT            
+       TAD ONESIN
+       JMS I RSHIFT            
+       DCA I AUTO16
+       TAD ONESIN              
+       CLL RTL                 
+       TAD ONEPEX
+       DCA I AUTO16            
+       TAD ONEVEY              
+       JMS I ISHFT             
+       JMS I RSHIFT
+       TAD ONECOS
+       JMS I RSHIFT
+       DCA I AUTO16
+       TAD ONECOS
+       CLL RTL
+       TAD ONEPEY
+       DCA I AUTO16
+       TAD M200                
+       DCA LNC1FG
+       JMS I RESET1            
+       JMP I .+1               
+ITWOUP,        TWOUP
+LNC1FG,        0                       
+OP300, 300                     
+OM300, -300
+ONEWN, ONEWIN                  
+       *600
+TWOUP, TAD TWOFLG              
+       SNA
+       JMP TWOOK               
+       IAC                     
+       SNA
+       TAD TWOFIN              
+       DCA TWOFLG              
+       JMP I IONEST
+TWOOK, TAD TWOOUT              
+       SZA CLA                 
+       JMP TWOFIG              
+       TAD ONEFIN              
+       SZA CLA
+       JMS I TWOWN             
+       TAD INTWRD              
+       AND OP14
+       TAD OM14                
+       SNA CLA
+       JMP I HYPER             
+                               
+TWOLEF,        TAD INTWRD              
+       AND P10
+       SNA CLA
+       JMP TWORYT              
+       CLA CLL CMA             
+       JMP TWOFIG              
+TWORYT,        CLA CLL IAC RTL         
+       AND INTWRD
+       SZA CLA
+       IAC                     
+TWOFIG,        TAD TWOTHE              
+       JMS I THEADJ            
+       DCA TWOTHE              
+       TAD TWOTHE
+       JMS I SINE              
+       DCA TWOSIN              
+       TAD TWOTHE
+       JMS I COSINE
+       DCA TWOCOS
+       TAD TWOOUT              
+       SZA CLA
+       JMP TWOVEL
+TWOMOV,        TAD ACCFLG              
+       SZA CLA                 
+       JMP TWOVEL              
+       CLL IAC RAL             
+       AND INTWRD
+       SNA CLA
+       JMP TWOVEL              
+       TAD TWOSIN              
+       TAD TWOVEX              
+       JMS I VEESCL            
+       DCA TWOVEX              
+       TAD TWOCOS
+       TAD TWOVEY
+       JMS I VEESCL
+       DCA TWOVEY
+TWOVEL,        TAD TWOVEX              
+       JMS I ISHFT             /COMPONENTS
+       JMS I ISHFT
+       TAD TWOPEX
+       DCA TWOPEX
+       TAD TWOVEY
+       JMS I ISHFT
+       JMS I ISHFT
+       TAD TWOPEY
+       DCA TWOPEY
+       TAD TWOOUT
+       SZA CLA
+       JMP I IONEST
+TWOLNC,        TAD LNC2FG              
+       SNA CLA                 
+       JMP .+3
+       ISZ LNC2FG              
+       JMP I IONEST
+       IAC                     
+       AND INTWRD
+       SNA CLA
+       JMP I IONEST            
+       TAD PROLIF              
+       DCA I AUTO16            
+       TAD TWOVEX              
+       JMS I ISHFT             
+       JMS I RSHIFT
+       TAD TWOSIN              
+       JMS I RSHIFT            
+       DCA I AUTO16
+       TAD TWOSIN              
+       CLL RTL                 
+       TAD TWOPEX              
+       DCA I AUTO16
+       TAD TWOVEY              
+       JMS I ISHFT             
+       JMS I RSHIFT
+       TAD TWOCOS
+       JMS I RSHIFT
+       DCA I AUTO16
+       TAD TWOCOS
+       CLL RTL
+       TAD TWOPEY
+       DCA I AUTO16
+       TAD M200
+       DCA LNC2FG              
+       JMS I RESET1            
+       JMP I .+1               
+IONEST,        ONESET
+LNC2FG,        0                       
+OP14,  14                      
+OM14,  -14
+TWOWN, TWOWIN
+       *1000
+ONESET,        CLA CLL                 
+       TAD ONEFLG              
+       SZA CLA
+       JMP I ITWOST
+       TAD ONESIN              
+       DCA CALSIN
+       TAD ONECOS
+       DCA CALCOS
+       JMS I CALPOS            
+       TAD ONEFIL              
+       DCA AUTO10              
+       TAD ONEPEX              
+       TAD T30SIN
+       DCA I AUTO10            
+       TAD ONEPEY
+       TAD T30COS
+       DCA I AUTO10
+       TAD T10COS
+       CIA                     
+       TAD ONEPEX
+       DCA I AUTO10            
+       TAD T10SIN              
+       TAD ONEPEY              
+       DCA I AUTO10
+       TAD T30SIN
+       TAD T30COS              
+       CIA
+       TAD ONEPEX              
+       DCA I AUTO10
+       TAD T30COS              
+       CIA
+       TAD T30SIN
+       TAD ONEPEY
+       DCA I AUTO10
+       TAD T10SIN
+       CIA                     
+       TAD ONEPEX
+       DCA I AUTO10            
+       TAD T10COS
+       CIA                     
+       TAD ONEPEY
+       DCA I AUTO10
+FLAM1, TAD INTWRD              
+       AND P40                 
+       SNA CLA                 
+       JMP ONECON              
+       TAD ONEOUT              
+       SZA CLA
+       JMP ONECON
+       TAD ONFG1               
+       SNA                     
+       CLA CLL CMA RAL         
+       DCA ONFG1
+       ISZ ONFG1
+       JMP ONECON              
+       TAD ONFG2               
+       CMA                     
+       DCA ONFG2
+       TAD ONFG2               
+       SNA CLA
+       TAD T10SIN              
+       TAD T30SIN              
+       CIA
+       TAD ONEPEX
+       DCA I AUTO10
+       TAD ONFG2
+       SNA CLA
+       TAD T10COS
+       TAD T30COS
+       CIA
+       TAD ONEPEY
+       DCA I AUTO10
+       TAD T10SIN
+       CIA
+       TAD ONEPEX              
+       DCA I AUTO10
+       TAD T10COS
+       CIA
+       TAD ONEPEY
+       DCA I AUTO10
+       CLA CLL CMA RAL         
+ONECON,        TAD M6                  
+       DCA ONECNT
+       TAD T30SIN              
+       CIA
+       TAD T30COS              
+       TAD ONEPEX              
+       DCA I AUTO10            
+       TAD T30SIN
+       TAD T30COS
+       CIA
+       TAD ONEPEY
+       DCA I AUTO10
+       TAD T10COS              
+       TAD ONEPEX              
+       DCA I AUTO10            
+       TAD T10SIN              
+       CIA                     
+       TAD ONEPEY
+       DCA I AUTO10
+       TAD T30SIN              
+       TAD ONEPEX              
+       DCA I AUTO10            
+       TAD T30COS              
+       TAD ONEPEY              
+       DCA I AUTO10
+       JMP I ITWOST            
+ITWOST,        TWOSET
+ONFG1, 0                       
+ONFG2, 0                       
+       *1200
+TWOSET,        CLA CLL                 
+       TAD TWOFLG
+       SZA CLA
+       JMP I IFILDS
+       TAD TWOSIN              
+       DCA CALSIN              
+       TAD TWOCOS
+       DCA CALCOS
+       JMS I CALPOS
+       TAD TWOFIL              
+       DCA AUTO10              
+       TAD T30SIN              
+       TAD TWOPEX              
+       DCA I AUTO10            
+       TAD T30COS              
+       TAD TWOPEY              
+       DCA I AUTO10
+       TAD T20COS
+       CIA
+       TAD T20SIN
+       TAD TWOPEX
+       DCA I AUTO10
+       TAD T20SIN
+       TAD T20COS              
+       TAD TWOPEY              
+       DCA I AUTO10
+       TAD T20COS              
+       CIA                     
+       TAD TWOPEX
+       DCA I AUTO10
+       TAD T20SIN
+       TAD TWOPEY
+       DCA I AUTO10
+       TAD T20COS
+       TAD T30SIN
+       CIA
+       TAD TWOPEX              
+       DCA I AUTO10            
+       TAD T30COS
+       CIA
+       TAD T20SIN
+       TAD TWOPEY
+       DCA I AUTO10
+       TAD T20SIN
+       CIA                     
+       TAD TWOPEX              
+       DCA I AUTO10
+       TAD T20COS
+       CIA
+       TAD TWOPEY
+       DCA I AUTO10
+FLAM2, CLA CLL IAC RAL         
+       AND INTWRD
+       SNA CLA
+       JMP TWOCON              
+       TAD TWOOUT              
+       SZA CLA
+       JMP TWOCON
+       TAD TWFG1               
+       SNA
+       CLA CLL CMA RAL
+       DCA TWFG1
+       ISZ TWFG1               
+       JMP TWOCON
+       TAD TWFG2               
+       CMA
+       DCA TWFG2
+                               
+       TAD TWFG2               
+       SNA CLA                 
+       TAD T20SIN              
+       TAD T30SIN
+       CIA
+       TAD TWOPEX
+       DCA I AUTO10
+       TAD TWFG2
+       SNA CLA
+       TAD T20COS
+       TAD T30COS
+       CIA
+       TAD TWOPEY
+       DCA I AUTO10
+       TAD T20SIN              
+       CIA
+       TAD TWOPEX
+       DCA I AUTO10
+       TAD T20COS
+       CIA
+       TAD TWOPEY
+       DCA I AUTO10
+       CLA CLL CMA RAL         
+TWOCON,        TAD M10                 
+       DCA TWOCNT
+       TAD T30SIN              
+       CIA                     
+       TAD T20COS
+       TAD TWOPEX
+       DCA I AUTO10
+       TAD T30COS
+       TAD T20SIN
+       CIA
+       TAD TWOPEY
+       DCA I AUTO10
+       TAD T20COS              
+       TAD TWOPEX              
+       DCA I AUTO10            
+       TAD T20SIN
+       CIA
+       TAD TWOPEY
+       DCA I AUTO10
+       TAD T20COS              
+       TAD T20SIN
+       TAD TWOPEX              
+       DCA I AUTO10
+       TAD T20SIN
+       CIA
+       TAD T20COS
+       TAD TWOPEY
+       DCA I AUTO10
+       TAD T30SIN
+       TAD TWOPEX
+       DCA I AUTO10
+       TAD T30COS              
+       TAD TWOPEY              
+       DCA I AUTO10            
+       JMP I IFILDS            
+IFILDS,        FILDIS
+TWFG1, 0                       
+TWFG2, 0                       
+       *1400
+FILDIS,        CLA CLL                 
+       JMS I COLIDE            
+/      DSB 1                   
+       TAD ONEFLG              
+       SZA CLA                 
+       JMP TWODIS
+       TAD ONEFIL              
+       DCA AUTO10              
+       TAD ONECNT              
+       DCA AUTO11
+       TAD I AUTO10            
+       DCA XONEDS
+       TAD I AUTO10
+       DCA YONEDS
+       TAD ONEOUT              
+       SZA CLA
+       JMP I IONEEX            
+FILONE,        TAD I AUTO10            
+       DCA XTWODS              
+       TAD I AUTO10
+       DCA YTWODS
+       JMS I VECTOR            
+       ISZ AUTO11
+       SKP                     
+       JMP TWODIS              
+       TAD XTWODS              
+       DCA XONEDS
+       TAD YTWODS              
+       DCA YONEDS              
+       JMP FILONE
+TWODIS,        TAD TWOFLG              
+       SZA CLA                 
+       JMP I IPRODS
+       TAD TWOFIL              
+       DCA AUTO10
+       TAD TWOCNT              
+       DCA AUTO11
+       TAD I AUTO10            
+       DCA XONEDS
+       TAD I AUTO10
+       DCA YONEDS
+       TAD TWOOUT              
+       SZA CLA
+       JMP I ITWOEX            
+TWDLOP,        TAD I AUTO10            
+       DCA XTWODS              
+       TAD I AUTO10
+       DCA YTWODS              
+       JMS I VECTOR
+       ISZ AUTO11
+       JMP .+3
+       JMP I .+1               
+IPRODS,        PRODIS                  
+       TAD XTWODS              
+       DCA XONEDS              
+       TAD YTWODS
+       DCA YONEDS
+       JMP TWDLOP
+COLIDE,        COLLID
+IONEEX,        ONEEXP
+ITWOEX,        TWOEXP
+DISPLY,        0                       
+       CLA
+       TAD XONEDS              
+       CIA                     
+       TAD XTWODS              
+       JMS DISHFT              
+       DCA DIXTEM              
+       TAD YONEDS
+       CIA
+       TAD YTWODS
+       JMS DISHFT              
+       DCA DIYTEM
+       TAD M4                  
+       DCA DISCNT
+DISLOP,        TAD XONEDS              
+       TAD DIXTEM
+       DCA XONEDS              
+       TAD YONEDS              
+       TAD DIYTEM
+       DCA YONEDS
+       TAD XONEDS
+/      RTR                     
+       DXC DXL                 
+       CLA
+       TAD YONEDS              
+       DYC DYL DIS             
+       CLA
+       ISZ DISCNT              
+       JMP DISLOP              
+       JMP I DISPLY            
+DISHFT,        0                       
+       CLL                     
+       SPA                     
+       CML IAC                 
+       RAR                     
+       CLL                     
+       SPA
+       CML IAC                 
+       RAR                     
+       JMP I DISHFT
+       *1600
+PRODIS,        CLA CLL                 
+       TAD BUFST               
+       DCA BUFTMP
+/      DSB 2                   
+PROLOP,        TAD I BUFTMP            
+       SNA
+       JMP EXPIRE              
+       IAC                     
+       DCA I BUFTMP
+       ISZ BUFTMP              
+       TAD I BUFTMP
+       ISZ BUFTMP              
+       TAD I BUFTMP            
+       DCA I BUFTMP
+       TAD I BUFTMP
+       DCA PROX                
+       ISZ BUFTMP              
+       TAD I BUFTMP
+       ISZ BUFTMP
+       TAD I BUFTMP            
+       DCA I BUFTMP
+       TAD I BUFTMP
+       DCA PROY                
+       TAD PROX                
+/      RTR                     
+/      RAR                     
+       DXC DXL
+       CLA
+       TAD PROY
+/      RTR                     
+       DYC DYL DIS             
+       CLA
+       JMS I CHKOUT            
+       ISZ BUFTMP              
+       TAD BUFTMP              
+       TAD BUFLIM
+       SZA CLA
+       JMP PROLOP              
+/      BEGIN.  TURNS OUT THAT ROUGHLY 2
+FINISH,        TAD GAMOVR              
+       SZA CLA
+       JMP I ENDGAM            
+/      TAD M400                
+       CLA CLL
+       TAD INTCNT              
+       CIA
+       JMP .
+ENDGAM,        JOBLOP
+EXPIRE,        TAD BUFTMP              
+       TAD P5                  
+       DCA BUFTMP              
+       TAD BUFTMP              
+       TAD BUFLIM              
+       SZA CLA                 
+       JMP PROLOP              
+       JMP FINISH              
+BUFST, DISBUF+101
+BUFLIM,        -DISBUF-175
+CHKOUT,        CHECK
+RESE1, 0                       
+       TAD MRES                
+       DCA RESCNT              
+RESLOP,        TAD RESPNT              
+       TAD P5
+       DCA RESPNT
+       TAD RESPNT              
+       TAD BUFLIM
+       SZA CLA
+       JMP RESCON
+       TAD BUFST
+       DCA RESPNT
+RESCON,        TAD I RESPNT            
+       SNA CLA
+       JMP RESFND              
+       ISZ RESCNT              
+       JMP RESLOP              
+       HLT                     
+RESFND,        CMA                     
+       TAD RESPNT
+       DCA AUTO16
+       JMP I RESE1
+MRES,  -14
+RESCNT,        0
+RESPNT,        0
+SETBUF,        0
+       CMA                     
+       TAD BUFST               
+       DCA AUTO16              
+       TAD BUFST
+       DCA BUFTMP
+       TAD BUFST
+       DCA RESPNT
+       TAD BUFST
+       DCA SETPNT
+SETLOP,        DCA I SETPNT
+       ISZ SETPNT
+       TAD SETPNT
+       TAD BUFLIM
+       SZA CLA
+       JMP SETLOP
+       JMP I SETBUF
+SETPNT,        0
+       *2000
+CHECK, 0                       
+       TAD ONEFLG              
+       SZA CLA
+       JMP CHECK2
+       TAD ONEOUT              
+       SZA CLA
+       JMP CHECK2
+       TAD PROX                
+       CIA                     
+       TAD ONEPEX              
+       SPA                     
+       CIA                     
+       TAD LIMIT               
+       SMA CLA
+       JMP CHECK2              
+       TAD PROY                
+       CIA
+       TAD ONEPEY
+       SPA
+       CIA
+       TAD LIMIT
+       SMA CLA
+       JMP CHECK2              
+       TAD MEXP                
+       DCA ONEOUT              
+       JMS CUTOUT              
+CHECK2,        TAD TWOFLG              
+       SZA CLA
+       JMP I CHECK             
+       TAD TWOOUT              
+       SZA CLA
+       JMP I CHECK
+       TAD PROX                
+       CIA
+       TAD TWOPEX
+       SPA                     
+       CIA
+       TAD LIMIT               
+       SMA CLA                 
+       JMP I CHECK             
+       TAD PROY                
+       CIA                     
+       TAD TWOPEY
+       SPA
+       CIA                     
+       TAD LIMIT
+       SMA CLA
+       JMP I CHECK             
+       TAD MEXP                
+       DCA TWOOUT              
+       JMS CUTOUT
+       JMP I CHECK             
+LIMIT, -120                    
+CUTOUT,        0                       
+       TAD M4                  
+       TAD BUFTMP              
+       DCA CUTPNT
+       DCA I CUTPNT
+       JMP I CUTOUT
+CUTPNT,        0
+COLLID,        0                       
+       TAD ONEFLG              
+       SZA CLA                 
+       JMP I COLLID
+       TAD TWOFLG
+       SZA CLA
+       JMP I COLLID
+       TAD ONEOUT
+       SZA CLA
+       JMP I COLLID
+       TAD TWOOUT
+       SZA CLA
+       JMP I COLLID
+       TAD ONEPEX              
+       CIA                     
+       TAD TWOPEX
+       SPA                     
+       CIA
+       TAD COLLIM              
+       SMA CLA
+       JMP I COLLID            
+       TAD ONEPEY              
+       CIA
+       TAD TWOPEY
+       SPA
+       CIA                     
+       TAD COLLIM
+       SMA CLA                 
+       JMP I COLLID
+       TAD MEXP                
+       DCA ONEOUT
+       TAD MEXP
+       DCA TWOOUT
+       JMP I COLLID
+COLLIM,        -300
+       *2200
+HYPSET,        DCA RTNFLG              
+       TAD RTNFLG              
+       SZA CLA
+       TAD ONEDIF              
+       TAD TWOLST
+       DCA AUTO15
+       CLCA                    
+                               
+       DCA AUTO17
+       TAD I AUTO17            
+       AND TIMOUT              
+       CIA                     
+       DCA I AUTO15            
+       TAD I AUTO17            
+       JMS I THEADJ            
+       DCA I AUTO15
+       TAD I AUTO17            
+       JMS VEESET              
+       DCA I AUTO15
+       TAD I AUTO17            
+       JMS VEESET
+       DCA I AUTO15
+       TAD I AUTO17
+       DCA I AUTO15
+       TAD I AUTO17
+       DCA I AUTO15
+       TAD I AUTO17            
+       AND TIMOUT
+       TAD MHYP                /ABOUT 3
+       SMA CLA
+       JMP HYPRET              
+       TAD RTNFLG              
+       SZA CLA                 
+       TAD ONEDIF
+       TAD OUTLOC
+       DCA VEESET
+       TAD MEXP
+       DCA I VEESET
+HYPRET,        ISZ RTNFLG
+       JMP I TWORTN
+       JMP I ONERTN
+TIMOUT,        777
+ONEDIF,        ONEFLG-TWOFLG
+TWOLST,        TWOFLG-1
+RTNFLG,        0
+ONERTN,        TWOUP
+TWORTN,        ONESET
+OUTLOC,        TWOOUT
+MHYP,  -200
+VEESET,        0                       
+       CLL
+       SPA                     
+       CML
+       AND HM177               
+       SZL CLL
+       CIA
+       JMP I VEESET            
+HM177, 177
+ONEEXP,        CLA CLL                 
+       TAD ONETHE              
+       TAD INCONE              
+       DCA ONETHE
+       JMS I IXPDIS            
+       ISZ ONEOUT              
+       JMP I NOWTWO            
+       IAC                     
+       DCA ONEFLG
+       IAC                     
+       DCA ONEFIN
+       TAD TWOFIN              
+       SNA CLA
+       JMP I NOWTWO            
+       JMP I TIEUP             
+TWOEXP,        CLA CLL                 
+       TAD TWOTHE              
+       TAD INCTWO
+       DCA TWOTHE
+       JMS I IXPDIS            
+       ISZ TWOOUT              
+       JMP I NOWPRO            
+       IAC                     
+       DCA TWOFLG
+       IAC                     
+       DCA TWOFIN
+                               
+       TAD ONEFIN
+       SZA CLA                 
+       JMP I TIEUP             
+       JMP I NOWPRO            
+NOWTWO,        TWODIS
+NOWPRO,        PRODIS
+TIEUP, NOWIN
+IXPDIS,        EXPDIS
+INCONE,        55
+INCTWO,        55
+       *2400
+EXPDIS,        0                       
+       TAD I AUTO10            
+       DCA XTWODS              
+       TAD I AUTO10            
+       DCA YTWODS
+       TAD XTWODS
+       CIA                     
+       TAD XONEDS
+       DCA DIXTEM              
+       TAD YTWODS
+       CIA
+       TAD YONEDS
+       DCA DIYTEM              
+       TAD M4                  
+       DCA DISCNT              
+                               
+EXPLOP,        TAD XONEDS
+       TAD DIXTEM              
+       DCA XONEDS              
+       TAD YONEDS              
+       TAD DIYTEM
+       DCA YONEDS
+       TAD XONEDS
+/      RTR                     
+/      RAR                     
+       JMS I IVCLDX            
+       CLA
+       TAD YONEDS
+       JMS I IVCLDY
+       CLA
+       ISZ DISCNT              
+       JMP EXPLOP              
+       ISZ AUTO11              
+       SKP
+       JMP I EXPDIS            
+       TAD XTWODS              
+       DCA XONEDS
+       TAD YTWODS
+       DCA YONEDS
+       JMP EXPDIS+1
+VEELIM,        0                       
+       DCA VEEHLD              
+       TAD VEEHLD
+       SMA                     
+       JMP VEEPOS
+       TAD VEEMAX
+       SMA CLA                 
+       JMP VEECLR              
+       TAD VEEMIN              
+       JMP I VEELIM            
+VEEPOS,        TAD VEEMIN              
+       SPA CLA
+       JMP VEECLR              
+       TAD VEEMAX              
+       JMP I VEELIM
+VEECLR,        TAD VEEHLD              
+       JMP I VEELIM
+VEEHLD,        0
+VEEMIN,        -140
+VEEMAX,        140
+THEAJI,        0                       
+       SMA                     
+       JMP .+3                 
+       TAD P550                
+       JMP .-3                 
+       TAD M550                
+       SMA
+       JMP .-2
+       TAD P550                
+       JMP I THEAJI
+ONEWIN,        0                       
+       TAD MES1                
+       DCA MESS                
+       IAC
+       DCA GAMOVR
+       JMP I ONEWIN            
+TWOWIN,        0                       
+       TAD MES2                
+       DCA MESS                
+       IAC
+       DCA GAMOVR
+       JMP I TWOWIN
+NOWIN, TAD MES4                
+       DCA MESS                
+       IAC
+       DCA GAMOVR              
+                               
+JOBLOP,        
+/      DSB 1                   
+       TAD MES0                
+       JMS I MESOUT            
+       TAD MESS                
+       JMS I MESOUT            
+       TAD MES5                
+       JMS I MESOUT            
+       TAD MES3
+       JMS I MESOUT
+FINITO,        JMP JOBLOP
+MES0,  MESS0
+MES1,  MESS1
+MES2,  MESS2
+MES3,  MESS3
+MES4,  MESS4
+MES5,  MESS5
+MESS,  0
+       *6400
+SINEIN,        0                       
+       DCA SINARG              
+       TAD SINEIN
+       DCA I SINPSH
+       ISZ SINPSH
+       TAD SINARG
+       SZA 
+       JMP SINNG2
+SINPOP,        CLA CLL CMA
+       TAD SINPSH
+       DCA SINPSH
+       TAD I SINPSH
+       DCA SINEIN
+       TAD SINARG
+       JMP I SINEIN
+SINNG2,        SMA
+       JMP SINPOS
+       CIA
+       JMS SINEIN
+SINNEG,        CIA
+       DCA SINARG
+       JMP SINPOP
+SINPOS,        TAD M264
+       SPA
+       JMP .+2
+       JMP SINNEG-1
+       TAD P132
+       SPA
+       JMP SINELK
+       SZA CLA
+       JMP .+3
+       TAD P37
+       JMP SINNEG+1
+       TAD SINARG
+       TAD M264
+       JMP SINNEG-1
+SINELK,        TAD P132
+       TAD SINTAB
+       DCA SINEIN
+       TAD I SINEIN
+       DCA SINARG
+       JMP SINPOP
+SINARG,        0
+SINPSH,        SINLST
+SINLST,        0
+       0
+       0
+       0
+       0
+       0
+SINTAB,        SINES-1
+COSINI,        0
+       CIA
+       TAD P132
+       JMS SINEIN
+       JMP I COSINI
+SINES, 00      
+       01      
+       01      
+       02      
+       02      
+       03      
+       03      
+       04      
+       05      
+       05      
+       06      
+       06      
+       07      
+       07      
+       10      
+       10      
+       11      
+       11      
+       12      
+       12      
+       13      
+       13      
+       14      
+       15      
+       15      
+       16      
+       16      
+       17      
+       17      
+       20      
+       20      
+       20      
+       21      
+       21      
+       22      
+       22      
+       23      
+       23      
+       24      
+       24      
+       25      
+       25      
+       25      
+       26      
+       26      
+       27      
+       27      
+       27      
+       30      
+       30      
+       30      
+       31      
+       31      
+       31      
+       32      
+       32      
+       32      
+       33      
+       33      
+       33      
+       33      
+       34      
+       34      
+       34      
+       35      
+       35      
+       35      
+       35      
+       35      
+       36      
+       36      
+       36      
+       36      
+       36      
+       36      
+       37      
+       37      
+       37      
+       37      
+       37      
+       37      
+       37      
+       37      
+       37      
+       37      
+       37      
+       37      
+       37      
+       37      
+MULTI, 0                       
+       CLL                     
+       SPA                     
+       CMA CML IAC             
+       DCA MULMP1              
+       DCA MULMP5              
+       TAD I MULTI             
+       SNA                     
+       JMP MULPSN+2
+       SPA
+       CMA CML IAC
+       DCA MULMP2
+       TAD MULTHR
+       DCA MULMP3
+MULMP4,        TAD MULMP1
+       RAR
+       DCA MULMP1
+       TAD MULMP5
+       SZL
+       TAD MULMP2
+       CLL RAR
+       DCA MULMP5
+       ISZ MULMP3
+       JMP MULMP4
+       TAD MULMP1
+       RAR
+MULPSN,        SZL
+       JMP MULCMP
+       DCA MULMP1
+       TAD MULMP5
+MULMPZ,        ISZ MULTI
+       JMP I MULTI
+MULCMP,        CMA CLL IAC
+       DCA MULMP1
+       TAD MULMP5
+       CMA
+       SZL
+       IAC
+       JMP MULMPZ
+MULTHR,        7764
+MULMP1,        0
+MULMP5,        0
+MULMP2,        0
+MULMP3,        0
+SHIFTR,        0
+       CLL
+       SPA
+       CML IAC
+       RAR
+       JMP I SHIFTR
+POSCAL,        0
+       TAD CALSIN
+       DCA T10SIN
+       TAD T10SIN
+       CLL RAL
+       DCA T20SIN
+       TAD T10SIN
+       TAD T20SIN
+       DCA T30SIN
+       TAD CALCOS
+       DCA T10COS
+       TAD T10COS
+       CLL RAL
+       DCA T20COS
+       TAD T10COS
+       TAD T20COS
+       DCA T30COS
+       JMP I POSCAL
+VDIV,  0
+       SMA             
+       JMP     VPLUS
+VMINUS,        CMA IAC         
+       RTR             
+       AND     P1777   
+       CMA IAC
+       JMP I   VDIV    
+VPLUS, RTR
+       AND     P1777
+       JMP I   VDIV
+VCLDX, 0               
+       JMS     VDIV    
+       DISD            
+       JMP     .-1     
+       DIXY            
+       DILX            
+       JMP I VCLDX     
+VCLDY, 0               
+       JMS     VDIV    
+       DILY            
+       JMP I VCLDY
+P1777, 1777
+       *7000
+CHARS, 0       
+       DCA ADDR        
+       TAD I ADDR      
+       RTR     
+       RTR     
+       RTR     
+       JMS CHAR        
+       SKP     
+       JMP I CHARS     
+       TAD I ADDR      
+       ISZ ADDR        
+       JMS CHAR        
+       JMP CHARS+2     
+       JMP I CHARS     
+CHAR,  0       
+       AND K77 
+       CLL RAL 
+       TAD TABLE       
+       DCA POINT       
+       CMA     
+       DCA COUNT2      
+       TAD I POINT     
+       ISZ POINT       
+       SNA     
+       JMP SPCHAR      
+       DCA CURPLT      
+XPLOT, TAD KM6 
+       DCA COUNT6      
+       TAD YVALUE      
+       DCA YTEMP       
+       TAD XVALUE      
+       DILX            
+       TAD XINCR       
+       DCA XVALUE      
+YPLOT, TAD CURPLT      
+       CLL RAL 
+       DCA CURPLT      
+       SNL     
+       JMP CNTINU      
+       TAD YTEMP       
+       DILY            
+       DISD            
+       JMP     .-1     
+       DIXY            
+       CLA CLL 
+       TAD CURPLT      
+       SNA CLA 
+       JMP WRDEND      
+CNTINU, TAD YTEMP      
+       TAD YINCR       
+       DCA YTEMP       
+       ISZ COUNT6      
+       JMP YPLOT       
+       JMP XPLOT       
+WRDEND, ISZ COUNT2     
+       JMP EXIT        
+       TAD I POINT     
+       SZA     
+       JMP XPLOT-1     
+EXIT,  TAD XVALUE      
+       TAD XINCR       
+       DCA XVALUE      
+       JMP I CHAR      
+SPCHAR, TAD I POINT    
+       DCA POINT       
+       JMP I POINT     
+SPACE, TAD XINCR       
+       CLL RTL 
+       JMP EXIT        
+CRLF,  TAD INITX       
+       DCA XVALUE      
+LF,    TAD YINCR       
+       CLL RTL 
+       CLL CIA RAL     
+       TAD YVALUE      
+       DCA YVALUE      
+       JMP I CHAR      
+RESET, TAD INITX       
+       DCA XVALUE      
+       TAD INITY       
+       JMP RESET-2     
+TERM,  ISZ CHAR        
+       JMP I CHAR      
+INITX, 0       
+INITY, 327     
+XVALUE, 0      
+YVALUE, 0      
+XINCR, 6       
+YINCR, 10      
+YTEMP, 0       
+CURPLT, 0      
+ADDR,  0       
+COUNT6, 0      
+COUNT2, 0      
+KM6,   -6      
+K77,   77      
+POINT, 0       
+TABLE, .+1     
+       0       
+       TERM    
+       7611    
+       1176
+       7745    
+       4532
+       3641    
+       4122
+       7741    
+       4136
+       7745    
+       4541
+       7705    
+       501
+       7741    
+       5173
+       7710    
+       1077
+       4177    
+       4100
+       2040    
+       4037
+       7714    
+       2241
+       7740    
+       4040
+       7702    
+       277
+       7706    
+       3077
+       7741    
+       4177
+       7705    
+       502
+       3641    
+       6176
+       7715    
+       2542
+       2245    
+       5122
+       177     
+       100
+       3740    
+       4037
+       1720    
+       4037
+       7730    
+       3077
+       4136    
+       3641
+       374     
+       7403
+       6151    
+       4543
+       7741    
+       0
+       204     
+       1020
+       4177    
+       0
+       436     
+       400
+       0       
+       RESET   
+       0       
+       SPACE   
+       5600    
+       0
+       303     
+       0
+       1477    
+       7714
+       2277    
+       2200
+       2313    
+       6462
+       7777    
+       7777
+       300     
+       0
+       3641    
+       0
+       4136    
+       0
+       4040    
+       4040
+       1034    
+       1000
+       0       
+       LF      
+       1010    
+       1000
+       4000    
+       0
+       2010    / 
+       402
+       3641    
+       4136
+       4442    
+       7740
+       4261    
+       5146
+       2145    
+       5321
+       1710    
+       1077
+       4745    
+       4531
+       7750    
+       5070
+       6111    
+       503
+       2255    
+       5522
+       705     
+       577
+       2400    
+       0
+       0       
+       CRLF    
+       1024    
+       4200
+       1212    
+       1200
+       4224    
+       1000
+       255     
+       300
+MESS0, 3773
+MESS5, 7340
+       4040
+       4040
+       4000
+MESS1, 1716
+       0500
+MESS2, 2427
+       1700
+MESS3, 2711
+       1623
+       4100
+MESS4, 1617
+       0217
+       0431
+       0000
+       *7400
+DISBUF,        0
+        $
+///////////////////////////
+//////////////////////////