ROS1 (ALU1) |OP CODE BITS 0,1,2,3 ||FIELD 1 BITS 4,5,6,7 ||||FIELD 2 BITS 8,9,10,11,12,13,14,15 LOC |||| 000 2FF5 BOC(2) IF Power on reset GOTO 0F5h 73F *******SEVEN AND NINE TRACK NRZI WRITE******* *GO TO MAP 13-520 740 286F BOC(2) IF ADDRESS TAG GOTO 76Fh CHKOP800 ADROUT,GOTHIO17 WATCH FOR HIO *GO TO MAP 13-520 741 3B35 BOC(3) IF ALU2 LOCKED GOTO 735h HIORET17 STATD,TONOGO ERROR EXIT *GO TO MAP 13-520 742 2B44 BOC(2) IF TAPE OP GOTO 744h STATB,READY800 WATCH FOR TAPE OP *GO TO MAP 13-520 743 6740 BU(6) GOTO 40h on page 7h (740) CHKOP800 744 F001 XOM(F) LSR 00h XOR 1h TO DREG READY800 CURCOMM,1 IS THIS A WRITE 745 2049 BOC(2) IF DREG=0 GOTO 749h DBUS,WRITESUM BR IF SO 746 F08B XOM(F) LSR 00h XOR 8Bh CURCOMM,LWR CHECK FOR LOOP WRITE TO READ 747 2049 BOC(2) IF DREG=0 GOTO 749h DBUS,WRITESUM BR IF SO 748 673D BU(6) GOTO 3Dh on page 7h (73D) STROBE MUST BE ERG OR WTM -- EXIT 749 1F40 STO(1) BYTE 40h TO LSR 1Fh WRITESUM FORMAT,ALOWEND 74A 5F42 XFR(5) LSR 1Fh TO XOUTA REG FORMAT,XOUTA SET ALLOW END CONTROL *GO TO MAP 13-520 74B 3F54 BOC(3) IF WRITE END GOTO 754h PHASE1 ALLONES,DOCRC EXIT IF DONE *GO TO MAP 13-520 74C 2869 BOC(2) IF ADDRESS TAG GOTO 769h WRITELUP ADROUT,GOTHIO18 WATCH FOR HIO *GO TO MAP 13-520 74D 3B35 BOC(3) IF ALU2 LOCKED GOTO 735h HIORET18 STATD,TONOGO ERROR EXIT *GO TO MAP 13-520 74E 274C BOC(2) IF WRITE GRP B GOTO 74Ch CLOCKB,WRITELUP WAIT FOR FALL *GO TO MAP 13-520 74F 3F54 BOC(3) IF WRITE END GOTO 754h PHASE2 ALLONES,DOCRC EXIT IF TIME *GO TO MAP 13-520 750 286B BOC(2) IF ADDRESS TAG GOTO 76Bh PHASE3 ADROUT,GOTHIO19 WATCH FOR HIO *GO TO MAP 13-520 751 3B35 BOC(3) IF ALU2 LOCKED GOTO 735h HIORET19 STATD,TONOGO EARLY EXIT *GO TO MAP 13-520 752 274B BOC(2) IF WRITE GRP B GOTO 74Bh CLOCKB,PHASE1 WAIT FOR RISE *GO TO MAP 13-520 753 6750 BU(6) GOTO 50h on page 7h (750) PHASE3 754 2456 BOC(2) IF BUS OUT P ERROR GOTO 756h DOCRC BOPE,DOCRC3 BR IF PARITY BAD 755 6757 BU(6) GOTO 57h on page 7h (757) DOCRC2 756 8720 ORI(8) LSR 07h OR 20h TO LSR 07h DOCRC3 SNSSTS2,BUSOC SET BUS OUT CHECK 757 13C6 STO(1) BYTE C6h TO LSR 13h DOCRC2 LINK4,NRZIRET2 LOAD LINK RETURN- CRCTIME1 758 04FE STO(0) BYTE FEh TO LSR 04h WORK1,ONES-1 SET CNT TO 2 759 1F80 STO(1) BYTE 80h TO LSR 1Fh DOCRC1 FORMAT,FORMT00 LOAD CONTROLS 75A 66BA BU(6) GOTO BAh on page 6h (6BA) DOTWO 75B 13C7 STO(1) BYTE C7h TO LSR 13h CRCTIME1 LINK4,NRZIRET3 LOAD LINK RET 75C 1F00 STO(1) BYTE 00h TO LSR 1Fh FORMAT,0 CLEAR CONTROL REG 75D 04FF STO(0) BYTE FFh TO LSR 04h WORK1,ONES SET CRT TO 1 75E 9E00 ORM(9) LSR 0Eh OR 0h TO DREG SETCNT1,0 TEST FOR 7 TRK 75F 3062 BOC(3) IF DREGBIT0=1 GOTO 762h DREG0,CRCTIME3 BR IF IT IS 760 66BA BU(6) GOTO BAh on page 6h (6BA) DOTWO 761 04FC STO(0) BYTE FCh TO LSR 04h CRCTIME2 WORK1,ONES-3 SET CTR TO 4 762 13A2 STO(1) BYTE A2h TO LSR 13h CRCTIME3 LINK4,FORMAT19 LOAD LINK RETURN 763 6759 BU(6) GOTO 59h on page 7h (759) DOCRC1 764 66A2 BU(6) GOTO A2h on page 6h (6A2) CRCTIME7 FORMAT19 7 TRK EXIT 765 4150 XFR(4) LSR 01h TO CH TAGS IN GOTHIO14 CTIMAGE,CTI 766 6725 BU(6) GOTO 25h on page 7h (725) HIORET14 767 4150 XFR(4) LSR 01h TO CH TAGS IN GOTHIO15 CTIMAGE,CTI 768 672A BU(6) GOTO 2Ah on page 7h (72A) HIORET15 769 4150 XFR(4) LSR 01h TO CH TAGS IN GOTHIO18 CTIMAGE,CTI GET OFF INTER FACE 76A 674D BU(6) GOTO 4Dh on page 7h (74D) HIORET18 76B 4150 XFR(4) LSR 01h TO CH TAGS IN GOTHIO19 CTIMAGE,CTI 76C 6751 BU(6) GOTO 51h on page 7h (751) HIORET19 76D 4150 XFR(4) LSR 01h TO CH TAGS IN GOTHIO16 CTIMAGE,CTI 76E 6710 BU(6) GOTO 10h on page 7h (710) HIORET16 76F 4150 XFR(4) LSR 01h TO CH TAGS IN GOTHIO17 CTIMAGE,CTI 770 6741 BU(6) GOTO 41h on page 7h (741) HIORET17 CHKDISC(FLAG) 771 DD02 ANDM(D) LSR 0Dh AND 2h TO DREG SETDIA2,2 TEST FOR DISCONNECT IN FLAG 772 2075 BOC(2) IF DREG=0 GOTO 775h DBUS,NOTHISTM BR IF OFF 773 CDFD AND(C) LSR 0Dh AND FDh TO LSR 0Dh SETDIA2,ONES-2 RESET FLAG 774 4011 XFR(4) SET SENSE BYTE 11 BIT 4 HDWERR TEST (FORCE ROS1 ALU HDW ERROR) NOTHISTM() 775 1E09 STO(1) BYTE 09h TO LSR 1Eh FRUSAV,9 BUMP FRU REG 776 4828 XFR(4) LSR 08h (STATIMG) TO STAT REG (ROS1) STATIMG,STAT SET STATS TO HARDWARE 777 6304 BU(6) GOTO 04h on page 3h (304) IDLESCAN