CMA TAD AI17 TAD SI SMA CLA JMS I ERRR 6343 /SIEP TAPE ONE CHARACTER TO IHE RIGHT REIRN, JMP I NXC /RETURN RSTR. ISZ BFF /NDTE BLOCK READY FOR PROCESSING JMP I NXC lEXIT SI, 7740-BFF /3RD POS SENTINEL LOC/AI17/ /LONG BLOCK 24 /2ND POS SENTINEL LOC/RELATIVE /S@ORT BLO / CK 14 /IST POS SENTINLL LOC/RELATIVE/END OF @AP / @ CLO, O /UUTPUT INITIAL IZATIO@ JMP I CLO OUT, O /UUTPUT A CHARACTER STPING JMP I OUT /DUMMY TESI, 7600 WSI, 0 ERRR, ERR REWIND, 6142 /MAKE SURE/CLEAR FLAG 6343 /RD 1 CHAR 6341 /SKP IF READY JMP .-1 6346 /LOAD ACC DCA WSI TAD WSI TAD TEST/REDUNDANT TEST SZA CLA JMP FINI/NOT AI END 6355 / REWIND TAD IRWTS-1 DCA SOTCH DCA dSI TAD I .+4 DCA l .+4 6347 / READ TO LEFT / ACTUALLY STARTS REWIND JMP I NXC /RETURN WS12 WS13 JMP I IRWTS IRWTSI RWTST *3200 INTR, DCA SAC /SAVE ACCUMULATUR RAK DCA SL /SAUE LINK 6234 /RIB LOAD AC FROM INTERRUPT BUFFER DCA SIB /SAVE INTERRUPT BUFFER(MAY NDT NEED) JMS OPER /OPERATE MOTORS JMS I INXC /READ CHARACTER (IF ANY) JMS I IIOUT /WRITE CHARACTER (IF ANY) CLL CLA TAD SL RAL TAU SAC 6142 /CLEAR CLOCK 6001 /ION TURN UN INTERRUPTS JMP I 0000 SRETURN TO SLOW SPEED PROGRAM SAC, 0 /STORAGE FOR ACCUMULATOR ON INTERRUPT SL, 0 /STORAGE FOR LINK ON INTERRUPT INXC, NXC SIB, O IIOUT, IOUT OPER, 0 6152 / CLEAR OTHER INTERFACE FLAG / MAY NOT NE / ED 6341 I CLEAR DONE FLAG 6141 /SKP ON CLOCK OR PUSH BUTTONS JMP I OPER /RETURN 6140 /CLEAR AND LOAD, AC FROM DEVICE RTR /CLOCK BIT(11) TO BIT 0 SMA CLA JMP P8 6142 /CLEAK FLAG JMP I KALFA KALFA, ALFA STDOP, 6144 /OPERATE MOIORS / ACC CONTAINS M@TOR CON / T WORD 6152 /CLEAR OTHER CLOCK NOP AND @2110 SNA CLA JMP TF2 /THIS HAPPENS ONLY WHEN WAITING CNTDUN, CLA CLL /CORRECT COUNTS ISZ XOPC JMP .+5 TAD CW AND MB10 /SUBTRACT BIT 10 DCA CW /IF OTHER MECHANISM, AND IT OUT (BITS 0+1 / @ JMS CHK1 ISZ XOPC+1 / PIECE ROTATION JMP .+5 TAD CW AND MB8 /SUBTRACT BIT 8 DCA CW JMS CHK1 ISZ XOPC+2/ZOPC JMP ,+5 TAD CW AND MB6 XSUBTRACT AIT 6 DCA CW JM5 CHK1 ISZ XOPC+3/AOPC/TILT JMP .+5 TAD CW AND MB4 /SUBTRACT BIT 4 DCA CW JMS CHK1 ISZ XOPC+4/BOPC/Y JMP .+5 TAD CW AND MB2 /SUBTRACT BIT 2 FROM (MOTOR) CONTROL WORN DCA CW JMS CHK1 JMP I OPER CHK1, 0 ISZ NACT /COUNT DOWN ON NO ACTIVE AXES JMP I CHK1 TAD CWB DCA CW / CLEAR MOTOR CONTROL WORD TF2, JMS I KRSTUP/ RESET AS IF TOOL UP TAD CW2 /DETERMINE IF NEXT CW READY SNA JMP I OPER -DCA CW /SET UP NEXT CW DCA CW2 /CLEAR THE STAND BY CW (USE AS FLAG) TAD I KXDMIN DCA XOPC TAD I KBOMIN DCA XOPC+1 / PR oPC TAD I KZDMIN DCA XOPC+2/ZOPC TAD I KADMIN DCA XOPC+3/AOPC/TILT TAD I KYDMIN DCA XOPC+4 / YOPC TAD KM5 /RESET NO ACTIVE MOTORS TO 5 DCA NACT TAD BTYP2 DCA BLKTYP TAD PSWT2 DCA PSWTCH DCA I KDEC JMP I KSBLK KDEC, DEC KRSTUP, RSTTUP KSBLK. SBLK KM5, -5 Mb2. 6777 MB4, 7577 MB6, 7737 MB8, 7767 MB10, 7775 Z2I10, 1777 NACT, 0 00 /SPARE LINE KXDMIN, XAX+22 KBDMIN, BAX+22 KZDMIN, ZAX+22 KADMIN, AAX+22 KYDMIN, YAX+22 P8, ISZ PAUS /SET TO PAUSF AT END OF CURRENT CUT SZL CLA /SKIP IF CONTINUE NOT PRESSEO JMP .+3 6142 /CLEAR FLAG JMP I OPER DCA PAUS /CLEAR PAUSE JMp ,-3 *3400 ALFA. DCA XPAT /CLEAR EXTRACTOR PATTERN DCA PPAT /CLEAR PULSE PATTERN / FOR NO FEED BACK SET NEXT 2 CARDS TO / DCA DEC + JMP CTEC 6311 /SKP ON + Z JMP SMZ TAD CDEC-2/-Z PATTERN DCA PPAT ISZ DEC JMP EXT SMZ, 6312 /SKP ON - Z JMP CDEC TAD CDEC-1/ + Z DCA PPAT CMA /-1 TAD DEC DCA DEC EXT, TAD CDEC-1/SET EXTRACTOR PATTERN ZZ DCA XPAT JMp CDEC+1 0040 /-2 0060 / + Z = ZZ CDEC, DCA DEC 6314 /SKP ON RIGHT jMp SLEFT TAD CTEC+2SLEFT TAD PPAT DCA PPAT ISZ IEC /TEC = TEC + 1 JMP EXT2 SLEFT, 6313 /SKP ON LEFT JMP CTEC TAD CTEC+3/RIGHT TAD PPAT DCA PPAT CMA TAD TEC /TEC = TEC - 1 DCA TEC EXT2, TAD CTEC+3/SET EXT PAT AA = RIGHT TAD XPAT DCA XPAT JMP .+5 CTEC, DCA TEC JMP ,+3 0200 /LEFT 0300 /RIGHT = EXT PAT TAD BLKTYP TAD P3 SZA CLA /SKP IF TOOL DOWN JMP PAWTCG TAD TEC X TOOL DOWN SZA CLA JMP CLEXT+4 / MOVE TILT ONLY TAD DEC SMA CLA JMP i KCHKP CMA AND PPAT TAD CWB 6144 /OPERATE MOTORS CLEXI. 6152 /CLEAR OTHER CLOCK 6352 /CLEAR DONE FLAG CLA CLL JMP I KSCAN TAD CTEC+3 JMP CLEXT-3 *3500 PSWTCG, TAD PSWTCH SPA CLA JMp P722 TAD COUNT2 SZA CLA JMP FF TAD PPAT SZA CLA FF, JMP FF1 /NO NEED TO INITIALIZE FF3, TAD .+7 DCA. -2 /SET FF TO FF1 TAD XPAT CMA AND CW TAD PPAT JMP I KSTDOP JMP FF1 JMP FF2 FF1, TAD .-1 DCA FF /SET FF TO FF2 TAD XPAT AND PPAT TAD CWB DCA WS3 TAD MNS2 /ATTEMPT TO REACH MIDDLE OF CONTROL BAND DCA COUNT2 FF2, TAD WS3 OPMTRS CLA CLL ISZ COUNT2 JMP CLEXT TAD .+3 DCA FF /RESET FF TO FF3 JMP CLEXT NOP /THIS IS A CONSTANT FOR RESFTTING MNS2, 7776 P3, 0003 DEC, 0 /DEPTH ERROR COUNT(+/-)SINCF LAST 0 TEC. o /TILT ERROR COUNT XPAT.O PPAT, 0 IPSWT. PSWTCH WS3, 0 COUNT2 O KSTDOP, STDOP /JMP TO OPMTRS, CLEAR FLAGS, COUNT DOWN KCNTON, CNTDWN /JMP TO COUNT DOWN REMAINING PULSES KCHKP, CHK1+3 /JMP TO PROCEDE TO NEXT BLOCK KSCAN, CHK1-1 /JMP TO CONTINUE INTERUPT SCAN P722, TAD CW JMP I KSTDOP / TOOL UP OR MOVE TO NEXT CUT @ ORGANIGRAMME A Programme de préparation de la bande Début prog. principal + 27 lignes