|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 28104 (0x6dc8)
Types: TextFile
Names: »ALTMID2.S«
└─⟦a930356b2⟧ Bits:30005138 8" CR80 Floppy CR80FD_0101 ( CR/D/1840 NAVN: CR80/FIRMWARE MASTER )
└─⟦789ae8b30⟧
└─ ⟦this⟧ »ALT.D!ALTMID2.S«
└─⟦4c0434a26⟧ Bits:30005528 8" CR80 Floppy CR80FD_0108 ( CR/D/1839 KOPI AF CR1840 (CR801 FIRMWARE) )
└─⟦bb02f9661⟧
└─ ⟦this⟧ »ALT.D!ALTMID2.S«
FI LL. FI LL. FI LL. FI LL. FI LL.
; 16 INSTRUCTIONS WITH FIXED LOCATION, FIRST IS XXXXXXXX0000 :.
; ------------------------------------------------------------.
BF31: JMP BF32 GETBM BIT11,BW1 LDD,IBPSW.
JMP BF32 GETBM BIT11,BW1 LDD,IBPSW.
JMP BF32 GETBM BIT11,BW1 LDD,IBPSW.
JMP BF32 GETBM BIT11,BW1 LDD,IBPSW.
JMP BF33 QREG ADD ZA AXR2.
JMP BF34 ARW12ADD BASE,BMOD ACLRB AXR2,CURR.
JMP MAP ID1 MPM1 TROB,BMOD RAMF SUBR CIN AB AXR2.
JMP BF35 ARW12ADD BASE,PASSA AXR2,CURR.
JMP BF32 GETBM BIT11,BW1 LDD,IBPSW.
JMP BF32 GETBM BIT11,BW1 LDD,IBPSW.
JMP BF32 GETBM BIT11,BW1 LDD,IBPSW.
JMP BF32 GETBM BIT11,BW1 LDD,IBPSW.
JMP BF33 QREG ADD ZA AXR2.
JMP BF34 ARW12ADD BASE,BMOD ACLRB AXR2,CURR.
JMP MAP ID1 MPM1 TROB,BMOD RAMF ADD AB AXR2.
JMP BF36 ARW12ADD BASE,PASSA AXR2,CURR.
BF32: JMP UN ARDEC PRPC.
BF33: JMP BI31 GETLM LNG8,BMOD CLRB.
BF34: JMP BI31 GETLM LNG8,QREG ADD DZ,IBIDR.
BF35: JMP MAP ID1 MPM1 TROB,BMOD RAMF SUBR CIN DA AMOD,IBIDR.
BF36: JMP MAP ID1 MPM1 TROB,BMOD RAMF ADD DA AMOD,IBIDR.
FI LL. FI LL. FI LL.
;A1M2. JMP AL4A2 GETBM BIT8 BREG ZB ADD ALSNOP.
;A1M3. JMP AL4F5 BREG ZB ADD ALSNOP.
;A1M4. JMP AL548 IBPSW BW2 DZ ADD RAMF, GETLM LNG2.
;A1M5. JMP AL55A BW2 IBPSW DZ ADD RAMF, GETLM LNG2.
;A1M6. JMP AL567 ARW12ADD BASE PASSD IBDP8 CURR.
;UNSETM. JMP AL56B IBPSW PASSD CLRBM BIT12.
;AIM7. JMP AL5C2 BREG ADD ZB ALSNOP.
;A1M1. JMP AL3C0 BREG PASSB.
; D---D---D---D---D---D---D---D---D---D---D---D---D---D---D---D---D---D---D--- .
; .
; ENTRIES AT MAP2 (EXCLUDING X-ENTRIES OF CLASS 4- AND 5-) (START #200) .
; .
; D---D---D---D---D---D---D---D---D---D---D---D---D---D---D---D---D---D---D--- .
;D100. JMP B112 ARINC PRPC,BMOD CLRB,OPRNINS,FNI.
;D104. JMP B121 ARINC PRPC,BMOD CLRB,OPRNINS,FNI.
;D105. JMP ET10 PASSD,IBIDR,ARINC PRPC.
;D106. JMP ET20 PASSD,IBIDR,ARINC PRPC.
;D107. JMP ET30 PASSD,IBIDR,ARINC PRPC.
;D108. JMP ET40 PASSD,IBIDR,ARINC PRPC.
;D109. JMP B126 ARW12ADD PROG,BW1 LDD IBIDR,FNI.
D111: LDD BREG,INCREGI,ARINC W12,CURR.
;D110. JMP B127 OPRNINS,ARINC PRPC,CLRB BMOD,FNI.
;D112. JSB S1 QREG ZB ADD BREG.
JMP MAP IE1 MP1 ARW12REG W12,ODR,ADD DQ,PSW UPDCC,IBIDR,CURW.
;D113. JSB S1 QREG,ZB ADD BREG.
JMP MAP IE1 MP1 BREG RAMF ADD DQ,PSW UPDCC,IBIDR.
;D301. JMP B310 ODR,PASSD,IBIDR.
;D460. JMP B460 ODR,PASSD,IBIDR.
;D461. JMP B461 BMOD RAMF ADD AB AXR2.
;D440. JMP D540 ARINC PRPC,SUBS CIN DA AXR2,IBIDR.
;D441. CJP B44E CCTPSW NC,ARINC PRPC,QREG ADD ZB BXR2,OPRNINS,FNI.
JMP MAP IE1 MP1 BXR2 RAMF ADD CIN DQ,PSW UPDCC,IBIDR.
;D442. JMP B442 TROB,BW2 ALDD AXR2,IBIDR.
;D443. JMP B443 ARINC PRPC,QREG ADD ZA AXR2,OPRNINS,FNI.
;D444. JMP B444 TROB,BW2 ALDD AXR2,IBIDR.
;D445. CJP B443 CCTPSW C,ARINC PRPC,QREG ADD ZB BXR2,OPRNINS,FNI.
JMP MAP IE1 MP1 BXR2 RAMF SUBR DQ,IBIDR,PSW UPDCC.
;D446. JMP B446 ARW12ADD BASE,BW2 ALDD AXR2,IBIDR,CURR.
;D447. JMP D541 ARINC PRPC,SUBS CIN DA AXR2,IBIDR.
;D448. ARINC PRPC,ODR,PASSA AXR2,OPRNINS,FNI.
JMP MAP IE1 MP1 ATSW11REG W11,BXR2 LDD ,IBIDR,CURW.
;D44A. JMP B44A OPRNINS.
;D44C. JMP B44C OPRNINS.
;D44E. JMP B44E ARINC PRPC,QREG ADD ZA AXR2,OPRNINS,FNI.
;D530. JMP E2 BXR2 RAMF AND AB AXR1,OPRNINS.
FI LL.
;D532. JMP E2 BXR2 RAMF OR AB AXR1,OPRNINS.
;D533. JMP E2 BXR2 RAMF ADD AB AW2,PSW,OPRNINS.
;D534. JMP E2 BXR2 RAMF SUBR CIN AB AW2,PSW,OPRNINS.
D540: CJP E1 CCT CCTOP,OPRNINS,FNI.
JMP E1 ARINC PRPC,OPRNINS,FNI.
D541: CJP E4 CCT CCTOP,OPRNINS.
JMP E11 ARINC PRPC,FNI.
;D550. JMP B550 ARINC PRPC,BMOD CLRB,X2TR.
;D552. JMP B552 ARINC PRPC,BMOD CLRB,X2TR.
;D554. JMP B554 ARINC PRPC,BXR2 LDA AXR1,OPRNINS,FNI.
;D560. ARINC PRPC,BXR2 RAMF ADD CRYPSW AB AXR1,OPRNINS,FNI.
JMP MAP IE1 MP1 PSW,MICCC.
;D561. JMP B561 BW2 LDA AXR1.
FI LL.
;D450. CRTN CCT NZ,OPRNINS.
JMP B451 ARADD PRPC,PASSA AW2,FNI.
;D451. CRTN CCT Z,OPRNINS.
JMP B451 ARADD PRPC,PASSA AW2,FNI.
;D452. CRTN CCT NZ,OPRNINS.
JMP B451 ARADD PRPC,SUBS CIN ZA AW2,FNI.
;D453. CRTN CCT Z,OPRNINS.
JMP B451 ARADD PRPC,SUBS CIN ZA AW2,FNI.
D4B0: RPCT D4B0 BW3 RAMU ADD ZB,SHIOP.
JMP E2 ODR,PASSA AW3,OPRNINS,CURW.
;D4B1. JSB S5 ARINC W12,QREG ADD ZA AW3,CURR.
L4B1: RPCT L4B1 BW3 RAMQU ADD ZB,SHIOP.
JMP B4B0 ARW12REG W12,ODR,PASSA AW3,OPRNINS,CURW.
D4B2: RPCT D4B2 BW3 RAMD ADD ZB,SHIOP.
JMP E2 ODR,PASSA AW3,OPRNINS,CURW.
;D4B3. JSB S5 ARINC W12,QREG ADD ZA AW3,CURR.
L4B3: RPCT L4B3 BW3 RAMQD ADD ZB,SHIOP.
JMP B4B0 ARW12REG W12,ODR,PASSA AW3,OPRNINS,CURW.
;D4C0. JPP E2 BXR1 RAMF OR DA AXR1,IBTR.
;D4C1. JMP B4C0 ARW12ADD BASE,BW3 ALDD AXR1,IBTR,CURR.
;D4C2. JMP B4C1 ARW12ADD BASE,BW3 RAMA EXNOR DZ AXR1,IBTR,SEMR.
;D4C3. JMP B4C2 ARW12ADD BASE,BW3 ALDD AXR1,IBTR,SEMR.
;D4F0. CJP B4F1 CCT Z,GETULO,BW1 LDD,IBIDR.
JMP B4F2 OPRNINS,FNI.
;D4130. JMP E2 BXR1 RAMF NOTRS DA AXR1,IBTR.
;D4131. JMP B4130 ARW12ADD BASE,BW3 RAMA EXNOR DZ AXR1,IBTR,CURR.
D590: RPCT D590 BXR1 RAMU ADD ZB,SHIOP.
JMP E1 ARINC PRPC,OPRNINS,FNI.
;D591. JSB S4 INCX1P.
L591: RPCT L591 BXR1 RAMQU ADD ZB,SHIOP.
JMP B594 X1TR.
D592: RPCT D592 BXR1 RAMD ADD ZB,SHIOP.
JMP E1 ARINC PRPC,OPRNINS,FNI.
;D593. JSB S4 INCX1P.
L593: RPCT L593 BXR1 RAMQD ADD ZB,SHIOP.
JMP B594 X1TR.
;D710. JMP MAP IE1 MP1 BREG LDA AW2.
;D711. JMP MAP IE1 MP1 BREG RAMF ADD AB AW2,PSW.
;D811. JMP MAP IE1 MP1 ARINC PRPC,BR4 RAMF SUBS CIN DA AW1,IBTR,FNI.
;D812. JMP MAP IE1 MP1 ARINC PRPC,BR5 RAMF SUBS CIN DA AW1,IBTR,FNI.
;D813. JMP MAP IE1 MP1 ARINC PRPC,BR6 RAMF SUBS CIN DA AW1,IBTR,FNI.
D910: JMP MAP IE1 MP1 ARLDO PRPC,ADD CIN ZB BW1,FNI.
;D911. JMP D910 BR4 RAMF SUBS CIN DA APROG,IBTR.
;D912. JMP D910 BR5 RAMF SUBS CIN DA APROG,IBTR.
;D913. JMP D910 BR6 RAMF SUBS CIN DA APROG,IBTR.
;DC12. JSB S3 BW3 RAMQU ADD AB AW3.
;DC10. JMP MAP ID1 MPM1 TROB,BMOD RAMF ADD AB AW3.
;DC13. JSB S3 BW3 RAMQU ADD AB AW3.
;DC11. JMP MAP ID1 MPM1 TROB,BMOD RAMF SUBR CIN AB AW3.
;DC14. JMP MAP ID1 MPM1 TROB,BMOD RAMF ADD DA AMOD,IBTR.
;DE10. JMP MAP IE1 MP1 BREG LDD,IBIDR.
;DE20. JMP MAP IE1 MP1 ARW12REG W11,ODR,PASSB BREG,CURW.
; E---E---E---E---E---E---E---E---E---E---E---E---E---E---E---E---E---E---E--- .
; .
; END SEQUENCES, COMMON TO CLASSES (ADDRESSED AT MAP2) .
; .
; E---E---E---E---E---E---E---E---E---E---E---E---E---E---E---E---E---E---E--- .
E1: JMP MAP IE1 MP1 BMOD CLRB.
E2: JMP MAP IE1 MP1 ARINC PRPC,BMOD CLRB,FNI.
E3: JMP MAP IE1 MP1 ARW12REG W11,BMOD CLRB,CURW.
E4: JMP MAP IE1 MP1 BMOD CLRB,FNI.
E5: JMP MAP ID1 MPM1 TROB,BMOD RAMF ADD DA AMOD,IBIDR.
E6: JMP MAP ID1 MPM1 TROB,BMOD RAMF SUBR CIN DA AMOD,IBIDR.
E7: JMP MAP IE1 MP1 BXR1 LDD,IBTR.
E8: JMP MAP IE1 MP1 ARLDO PRPC,ADD DZ CIN,IBTR,FNI.
E11: JMP E1 ARINC PRPC,OPRNINS,FNI.
E12: JMP E2 OPRNINS.
E13: BMOD CLRB,OPRNINS.
JMP MAP IE1 MP1 ARINC PRPC,BREG LDD,IBIDR,FNI.
E14: ARINC PRPC,BMOD CLRB,OPRNINS,FNI.
JMP MAP IE1 MP1 ARW12REG W12,ODR,ADD CIN DZ,IBIDR,CURW.
E15: ARINC PRPC,BMOD CLRB,OPRNINS,FNI.
JMP MAP IE1 MP1 ARW12REG W12,ODR,SUBS DZ,IBIDR,CURW.
E16: ARINC PRPC,BMOD CLRB,OPRNINS,FNI.
JMP MAP IE1 MP1 BXR1 LDD,IBIDR.
ET10: CJP E1 CCT NZ,OPRNINS,FNI.
JMP E1 ARINC PRPC,OPRNINS,FNI.
ET20: CJP E1 CCT Z,OPRNINS,FNI.
JMP E1 ARINC PRPC,OPRNINS,FNI.
ET30: CJP E4 CCT NZ,OPRNINS.
JMP E11 ARINC PRPC,FNI.
ET40: CJP E4 CCT Z,OPRNINS.
JMP E11 ARINC PRPC,FNI.
FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL.
FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL.
;------------------------------------------------------------------------------.
; .
L1A0: ; DUMP OF REGISTERS .
; .
JMP LOC PASSB BR0,W12REG BIT0 ,IBPSW .
JMP LOC PASSB BR1,W12REG BIT1 ,IBIDR .
JMP LOC PASSB BR2,W12REG BIT2 ,IBNINS .
JMP LOC PASSB BR3,W12REG BIT3 ,IBOPR .
JMP LOC PASSB BR4,W12REG BIT4 ,IBTR .
JMP LOC PASSB BR5,W12REG BIT5 , .
JMP LOC PASSB BR6,W12REG BIT6 , .
JMP LOC PASSB BR7,W12REG BIT7 , .
JMP LOC PASSB BW1 ,W12REG BASE .
JMP LOC PASSB BMOD,W12REG PROG .
JMP LOC PASSB BPROG,W12REG PRPC .
JMP LOC PASSB BW2 ,W12REG BIT11 .
JMP LOC PASSB BTIME,W12REG BIT12 .
JMP LOC PASSB BW5,W12REG BIT13 .
JMP LOC PASSB BW4,W12REG W11 .
JMP LOC PASSB BW3,W12REG W12 .
JMP LOC PASSQ .
LXTN:
RTN .
FI LL .
FI LL .
FI LL .
FI LL .
FI LL .
FI LL .
FI LL .
FI LL .
FI LL .
FI LL .
FI LL .
FI LL .
FI LL .
; LOAD OF REGISTERS .
JSB LXTN QREG OR DZ,IBEXT .
JSB LXTN BR0 LDD,IBEXT .
JSB LXTN BR1 LDD,IBEXT .
JSB LXTN BR2 LDD,IBEXT .
JSB LXTN BR3 LDD,IBEXT .
JSB LXTN BR4 LDD,IBEXT .
JSB LXTN BR5 LDD,IBEXT .
JSB LXTN BR6 LDD,IBEXT .
JSB LXTN BR7 LDD,IBEXT .
JSB LXTN BW1 LDD,IBEXT .
JSB LXTN BMOD LDD,IBEXT .
JSB LXTN BPROG LDD,IBEXT .
JSB LXTN BW2 LDD,IBEXT .
JSB LXTN BTIME LDD,IBEXT .
JSB LXTN BW5 LDD,IBEXT .
JSB LXTN BW4 LDD,IBEXT .
JSB LXTN BW3 LDD,IBEXT .
JSB LXTN LDO BIT0,PASSD,IBEXT .
JSB LXTN LDO BIT1,PASSD,IBEXT .
JSB LXTN LDO BIT2,PASSD,IBEXT .
JSB LXTN LDO BIT3,PASSD,IBEXT .
JSB LXTN LDO BIT4,PASSD,IBEXT .
JSB LXTN LDO BIT5,PASSD,IBEXT .
JSB LXTN LDO BIT6,PASSD,IBEXT .
JSB LXTN LDO BIT7,PASSD,IBEXT .
JSB LXTN LDO BASE,PASSD,IBEXT .
JSB LXTN LDO PROG,PASSD,IBEXT .
JSB LXTN LDO PRPC,PASSD,IBEXT .
JSB LXTN LDO BIT11,PASSD,IBEXT .
JSB LXTN LDO BIT12,PASSD,IBEXT .
JSB LXTN LDO BIT13,PASSD,IBEXT .
JSB LXTN LDO W11 ,PASSD,IBEXT .
JSB LXTN LDO W12 ,PASSD,IBEXT .
JSB LXTN TROB,PASSD,IBEXT .
JSB LXTN ARLDO W12,PASSD,IBEXT .
JSB LXTN ODR,PASSD,IBEXT .
JSB LXTN PSW,LDPSW,IBEXT .
;MOWA/MOWD. CJP AL3C8 ARW12ADD BASE AXR2 RAMA,BW3 DZ ADD IBPSW CCTOP3 CURR.
;2D5. LDCT F1B W11ADD BASE BXR1 PASSB.
AL2D6: RPCT AL3C4 IBIDR PASSD ODR, ATSW11REG W11, CURW.
AL2D7: JMP AL5DA BREG SUBR NOTCIN ZB RAMF.
;M211. JMP AL3D2 BW1 AXR2 ZA ADD RAMF.
;M211. JMP AL439 IBOPR BW1 DZ ADD RAMF,GETLM LNG2.
;M211. JMP AL450 AXR2 RAMA EXTLM LNG8,BW3 IBPSW DZ ADD.
;M211. JMP AL571 BW1 AXR1 ZA ADD RAMF.
;M212. CJP AL4AA DQ AND IBTR QREG CCTOP3.
;2DD. JMP AL4BB BW4 DZ IBTR ADD RAMF.
;M212. CJP AL4D4 IBPSW BW3 ADD DZ RAMF LDO W14 CCTOP3.
;2DF. JMP AL4D2 IBPSW PASSD CLRBM BIT12.
FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL.
FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL.
FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL.
FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL.
FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL.
; DX--DX--DX--DX--DX--DX--DX--DX--DX--DX--DX--DX--DX--DX--DX--DX--DX--DX--DX-- .
; .
; X ENTRIES AT MAP2 (CLASS 4- AND 5- ONLY) (START #310) .
; .
; DX--DX--DX--DX--DX--DX--DX--DX--DX--DX--DX--DX--DX--DX--DX--DX--DX--DX--DX-- .
;DX440. JMP D540 ARINC PRPC,SUBR CIN DA AW2,IBIDR.
;DX441. CJP DX533 CCTPSW NC,ARINC PRPC,QREG ADD ZB BW2,OPRNINS,FNI.
LX441: JMP MAP IE1 MP1 ARW12REG W12,ODR,ADD CIN DQ,PSW UPDCC,IBIDR,CURW.
;DX442. JMP B442 TROB,PASSD,IBIDR.
;DX443. JMP DX534 ARINC PRPC,OPRNINS,FNI.
;DX444. JMP B444 TROB,PASSD,IBIDR.
;DX445. CJP DX534 CCTPSW C,ARINC PRPC,QREG ADD ZB BW2,OPRNINS,FNI.
LX445: JMP MAP IE1 MP1 ARW12REG W12,ODR,SUBS DQ,IBIDR,PSW UPDCC,CURW.
;DX446. JMP E15 ATSW11REG W11,ODR,SUBR ZA AW2,CURW.
;DX447. JMP D541 ARINC PRPC,SUBR CIN DA AW2,IBIDR.
;DX448. JSB S1 ODR,PASSA AW2,CURW.
JMP MAP IE1 MP1 ARW12REG W11,ODR,PASSD,IBIDR,CURW.
;DX44A. JMP BX44A ARINC PRPC,OPRNINS,FNI.
;DX44C. JMP BX44C ARINC PRPC,OPRNINS,FNI.
;DX44E. JMP DX533 ARINC PRPC,OPRNINS,FNI.
;DX530. JMP MAP IE1 MP1 ARW12REG W12,ODR,AND DA AW2,IBIDR,CURW.
FI LL .
;DX532. JMP MAP IE1 MP1 ARW12REG W12,ODR,OR DA AW2,IBIDR,CURW.
DX533: JMP MAP IE1 MP1 ARW12REG W12,ODR,ADD DA AW2,IBIDR,PSW,CURW.
DX534: JMP MAP IE1 MP1 ARW12REG W12,ODR,SUBS CIN DA AW2,IBIDR,PSW,CURW.
FI LL.
FI LL.
FI LL.
FI LL.
;DX550. JMP B550 ARINC PRPC,BMOD CLRB,X2IDR.
;DX552. JMP B552 ARINC PRPC,BMOD CLRB,X2IDR.
;DX554. JMP BX554 ARINC PRPC,BMOD CLRB,OPRNINS,FNI.
;DX560. CJP LX441 CCTPSW C,ARINC PRPC,QREG ADD ZB BXR1,OPRNINS,FNI.
JMP MAP IE1 MP1 ARW12REG W12,ODR,ADD DQ,IBIDR,PSW UPDCC,CURW.
;DX561. CJP LX445 CCTPSW NC,ARINC PRPC,QREG ADD ZB BXR1,OPRNINS,FNI.
JMP MAP IE1 MP1 ARW12REG W12,ODR,SUBS CIN DQ,IBIDR,PSW UPDCC,CURW.
; B---B---B---B---B---B---B---B---B---B---B---B---B---B---B---B---B---B---B--- .
; .
; CONTINUATION AREA (NOT ADDRESSED BY PREPROM) .
; .
; B---B---B---B---B---B---B---B---B---B---B---B---B---B---B---B---B---B---B--- .
BF40: JMP BF34 ARINC PRPC,FNI.
FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL. FI LL.
; 8 INSTRUCTIONS WITH FIXED LOCATION, FIRST IS XXXXXXXX1000 :.
; -----------------------------------------------------------.
BF51: JMP UN GETBM BIT11,BW1 LDD,IBPSW.
JMP BF52 BW3 RAMQU ADD AB AW3.
JMP BF53 TRW11REG BASE,BW1 LDA AW3,X1TR.
JMP BF50 .
JMP UN GETBM BIT11,BW1 LDD,IBPSW.
JMP BF52 BW3 RAMQU ADD AB AW3.
JMP BF54 MISC,CPUINT.
BF50: CJP E2 CCTPSW NV,OPRNINS.
JMP E11 ARADD PRPC,SUBR CIN AB BMOD AW3,FNI.
BF52: GETLM LNG13,BW3 RAMQU ADD AB AW3.
EXULMSW LNG4,BW2 ALDD AW3,IBTR.
BW1 RAMF AND DA AW2,IBPSW.
BW2 RAMU ADD DZ,SHILL,IBTR.
TROB,OR AB AW2 BW1.
JMP E11 PSW LDPSW,IBTR.
BF53: TRW11REG PRPC,BW2 LDD,IBTR.
JSB SB2 INCX1P.
JMP MAP IE1 MP1 ARINC PRPC,FNI.
BF54: JMP E12 .
SB2: LDCT F1N6 ARW12REG BASE,ODR,PASSA AXR1,INCX1P,CURW.
SB21: RPCT SB21 ARINC W12,ODR,PASSA AXR1,INCX1P,CURW.
ARINC W12,ODR,BMOD ACLRB AW2,CURW.
ARINC W12,BW3 RAMF ADD DA AW1,IBTR,CURW.
ARINC W12,ODR,PASSA APROG,CURW.
SETULM LNG13,BW2 LDD IBPSW.
ARINC W12,ODR,PASSB BW3,PSW LDPSW,IBTR,CURW.
ARINC W12,ODR,PASSA ATIME,OPRNINS,CURW.
GETBM BIT5.
RTN ARINC W12,ODR,EXOR DA AW2,IBTR,CURW.
FI LL. FI LL. FI LL.
; 8 INSTRUCTIONS WITH FIXED LOCATION, FIRST IS XXXXXXXX1000 :.
; -----------------------------------------------------------.
BF41: JMP UN GETBM BIT11,BW1 LDD,IBPSW.
JMP UN GETBM BIT11,BW1 LDD,IBPSW.
JMP UN GETBM BIT11,BW1 LDD,IBPSW.
JMP UN GETBM BIT11,BW1 LDD,IBPSW.
JMP BF33 ARINC PRPC,QREG ADD ZA AXR2,FNI.
JMP BF40 ARW12ADD BASE,BMOD ACLRB AXR2,CURR.
JMP UN GETBM BIT11,BW1 LDD,IBPSW.
JMP UN GETBM BIT11,BW1 LDD,IBPSW.
; 16 INSTRUCTIONS WITH FIXED LOCATION, FIRST IS XXXXXXXX0000 :.
; ------------------------------------------------------------.
BF61: JMP UN GETBM BIT11,BW1 LDD,IBPSW.
JMP UN GETBM BIT11,BW1 LDD,IBPSW.
JMP BF52 BW3 RAMQU ADD AB AW3.
JMP BF52 BW3 RAMQU ADD AB AW3.
JMP UN GETBM BIT11,BW1 LDD,IBPSW.
JMP BF62 QREG SUBR CIN AB BR7 AW3,XTR.
JMP BF60 .
JMP BF60 .
JMP UN GETBM BIT11,BW1 LDD,IBPSW.
JMP UN GETBM BIT11,BW1 LDD,IBPSW.
JMP BF52 BW3 RAMQU ADD AB AW3.
JMP BF52 BW3 RAMQU ADD AB AW3.
JMP UN GETBM BIT11,BW1 LDD,IBPSW.
JMP BF65 QREG ADD AB AR7 BW3,XTR.
CONT .
BF60: CJP E2 CCTPSW NV,OPRNINS.
JMP E11 ARADD PRPC,ADD AB BMOD AW3,FNI.
BF62: RPCT BF63 ARW12ADD W11,BR7 RAMA ADD DQ AR7,IBTR,CURR.
BMOD CLRB,OPRNINS.
JMP MAP IE1 MP1 ARINC PRPC,BR0 LDD,IBIDR,FNI.
BF63: RPCT BF64 ARINC W12,BR0 LDD,INCX1I,CURR.
JMP E11 BXR1 LDD,IBIDR.
BF64: RPCT BF64 ARINC W12,BXR1 LDD INCX1I,CURR.
JMP E11 BXR1 LDD,IBIDR.
BF65: RPCT BF66 ARW12ADD W11,QREG SUBR CIN DQ,IBTR.
JMP BF68 ODR,BMOD ACLRB AR0,OPRNINS,CURW.
BF66: RPCT BF67 ODR,BMOD ACLRB AR0,INCX1P,CURW.
JMP BF68 ARINC W12,ODR,PASSA AXR1,OPRNINS,CURW.
BF67: RPCT BF67 ARINC W12,ODR,PASSA AXR1,INCX1P,CURW.
ARINC W12,ODR,PASSA AXR1,OPRNINS,CURW.
BF68: JMP MAP IE1 MP1 ARINC PRPC,BR7 RAMF ADD ZQ,FNI.
BI10: CJP MAP IE1 MP1 CCT NS,W11INC BASE.
BW1 LDD,IBPSW.
GETBM BIT4,QREG AND DA AW1,IBTR.
CJP MAP IE1 MP1 CCT NZ,W11ADD W11,ADD CIN DZ,IBTR.
ARW12INC W11,BW3 CLRB,CURR.
JMP BI45 TRREG BASE,BTIME RAMF ADD DA ATIME,IBIDR.
BI20: ARLDO W12,PASSD,IBTR4,SEMZR.
W11DEC PRPC,BW3 RAMD SUBS DZ,SHIRL,IBZERO.
BW1 RAMF AND DA AW3,IBIDR.
CJP BI21 CCT NZ,GETLM LNG0,ODR,AND ZA.
JMP MAP IE1 MP1 ZEROR.
BI21: TRREG BASE,BW4 CLRB,X1TR,ZEROW.
ARLDO W12,PASSA AW1,ZEROR.
BI22: TRREG W11,BW2 LDD,IBTR.
JSB SB2 BW1 CLRB,INCX1P.
GETLM LNG0,BW2 LDA AW4.
JMP BF14 X1TR.
; 2 INSTRUCTIONS WITH FIXED LOCATION, FIRST IS XXXXXXXX0000 :.
; -----------------------------------------------------------.
JMP MAP IE1 MP1 .
BI31: GETLM LNG2,BW4 RAMF AND DQ,IBTR.
ARLDO W11,BW2 RAMQD AND DQ,SHIRL,ZEROR,IBTR.
GETLM LNG7,BW3 LDD,IBIDR.
CJP BI32 CCT S,GETBM BIT2,QREG AND DQ,IBTR.
ARLDO W11,BW2 RAMQD ADD DZ SHIRL,IBTR,ZEROR.
ARLDO W12,ADD AQ AW3,X1TR.
W11DEC PRPC,ODR,PASSD,IBIDR,SEMZR.
JMP BI22 TRREG BASE,BW4 RAMF ADD CIN ZB,ZEROW.
BI30: JMP MSC IOP BI31 GETLM LNG8,QREG ADD DZ,IBIDR.
BI32: TROBSW,BW3 ALDD AW3,IBOPR.
TROB,PASSA AW3,OPRTR.
JMP MAP ID1 MP1 .
UNO: JMP BI43 GETBM BIT0,BW4 RAMF AND DA AW1,IBTR.
BI41: GETBM BIT1,BW4 RAMF AND DA AW1,IBTR.
JMP BI43 LDO W20,PASSD,IBIDR.
BI42: GETLM LNG2,BW4 RAMF AND DA AW1,IBTR.
BI43: TRREG PRPC,BW3 LDD,IBTR.
LDO TEPRPC,PASSD,IBTR.
TRREG W11.
LDO TEW11,PASSD,IBTR.
TRREG W12.
LDO TEW12,PASSD,IBTR.
PASSB BW4.
CJP BI45 CCT Z,TRREG BASE,BW2 RAMF SUBR DZ,IBZERO.
BI44: ARLDO W12,SUBR ZA AW2,ZEROR.
JMP E11 ARLDO PRPC,PASSD IBIDR,FNI.
BI45: GETLM LNG4,BW4 LDD,PSW LDPSW,IBTR.
EXULM LNG4,BW2 ALDD AW1,IBTR.
ARW12ADD BASE,BW4 RAMA AND AB AW2.
SETBM BIT11,OR DA AW4,IBTR.
TRREG PRPC,PSW LDPSW,IBTR,CURR.
ARW11ADD PROG,PASSD,IBIDR,FNI.
ARINC W12,ODR,SUBS DA APROG,IBTR,CURW.
TRREG W11,BMOD CLRB,OPRNINS.
ARINC W12,ODR,PASSA AW3,CURW.
JMP MAP IE1 MP1 ARLDO PRPC,ADD CIN DZ,IBTR,FNI.
; S---S---S---S---S---S---S---S---S---S---S---S---S---S---S---S---S---S---S--- .
; .
; SUBROUTINES, COMMON TO CLASSES .
; .
; S---S---S---S---S---S---S---S---S---S---S---S---S---S---S---S---S---S---S--- .
S1: RTN ARINC PRPC,BMOD CLRB,OPRNINS,FNI.
S3: RTN BW3 RAMQU ADD AB AW3.
S4: RTN .
S5: RTN BW3 LDD,IBIDR.
; M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M--- .
; .
; "MAP2 SUBROUTINES" (RETURN BY MAP2) .
; .
; M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M---M--- .
M1: JMP MAP ID2 MP2 ARINC PRPC,QREG AND ZA,OPRNINS,FNI.
M2: JMP MAP ID2 MP2 ARINC PRPC,BMOD CLRB,OPRNINS,FNI.
M3: JMP MAP ID2 MP2 QREG ADD ZA AXR1,X2TR.
B3BC: JMP BI42 IBTR PSW LDPSW BW1 DZ ADD RAMF GETBM BIT11.
B3BD: JMP B3BE IBPSW DZ ADD ALSNOP CLRBM BIT12.
B3BE: JMP BI44 IBTR PSW LDPSW, BW1 DZ ADD RAMF, GETBM BIT11.
B3BF: JMP BI41 IBTR PSW LDPSW, BW1 DZ ADD RAMF GETBM BIT11.