# File: ptrack6b.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/ptrack6b.src"
descr "ptrack6b - modified ptrack with downlink in 5k telemetry"

#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
#; Program to track memory writes by the camera
#; V5 - ??-may-95
#;     Removed time delay using PURGELST instruction. 
#; instead, the number of loops executed before memories 
#; became busy is saved. This is downlinked in the header.
#;
#; V6b - 19 sep 95: 
#; Downlink first 200 registrers in 5k
#;
#;    R189  - 
#;    R190  -  Loop Counter (Low word)
#;    R191  -  Loop COunter (Hi  word)
#;--------------------
#
#    SETREG    R186  0
tcblock mbipcmd 0x0091 0x0100   0x0140 0x00BA 0x0000 
#    GOTO      &START
tcblock mbipcmd 0x0091 0x0103   0x0156 0x010A 
#;
#    SETREG    R186  0xFFFF
tcblock mbipcmd 0x0091 0x0105   0x0140 0x00BA 0xFFFF 
#    GOTO      &START
tcblock mbipcmd 0x0091 0x0108   0x0156 0x010A 
#;
#START:
#    BRANCHEQ  R188  0  &SKIPINI
tcblock mbipcmd 0x0091 0x010A   0x01AE 0x00BC 0x0000 0x0123 
#;
#    SETREGS  R512  6  12:0x00000  13:0x00000  20L
tcblock mbipcmd 0x0091 0x010E   0x01B2 0x0200 0x0006 0x0000 \
                                0x6000 0x0000 0x6800 0x0014 \
                                0x0000 
#;   SETREGS  R520  9  0 0 0 1 13:0x00000 400 0 0
#;   SETREGS  R529  5  400 0xFFFF 0xFF01  400
#    SETREGS  R536  6  7:0x00001  0x4000  0  0xFFFF 0xFFE0
tcblock mbipcmd 0x0091 0x0117   0x01B2 0x0218 0x0006 0x0001 \
                                0x3800 0x4000 0x0000 0xFFFF \
                                0xFFE0 
#    SETREG   R188  0
tcblock mbipcmd 0x0091 0x0120   0x0140 0x00BC 0x0000 
#;
#SKIPINI:
#    COPYRD2D   R3072  R3088   16
tcblock mbipcmd 0x0091 0x0123   0x0144 0x0C00 0x0C10 0x0010 
#    BRANCHNE   R3088  0x0001  &CLRREG
tcblock mbipcmd 0x0091 0x0127   0x01B0 0x0C10 0x0001 0x0134 
#    MOVBLK     3:0x00000  7:0x00000  0x0226L
tcblock mbipcmd 0x0091 0x012B   0x0164 0x0000 0x1800 0x0000 \
                                0x3800 0x0226 0x0000 
#    LRDINIT    0x1800
tcblock mbipcmd 0x0091 0x0132   0x018E 0x1800 
#
#CLRREG:
#      SETREGS  R168  10  0 0 0 0 0 0 0 0 0 0 
tcblock mbipcmd 0x0091 0x0134   0x01B2 0x00A8 0x000A 0x0000 \
                                0x0000 0x0000 0x0000 0x0000 \
                                0x0000 0x0000 0x0000 0x0000 \
                                0x0000 
#      SETREGS  R178  10  0 0 0 0 0 0 0 0 0 0 
tcblock mbipcmd 0x0091 0x0141   0x01B2 0x00B2 0x000A 0x0000 \
                                0x0000 0x0000 0x0000 0x0000 \
                                0x0000 0x0000 0x0000 0x0000 \
                                0x0000 
#;
#;     PURGELST  R136
#;     PURGELST  R136
#      SETREG    R189  0
tcblock mbipcmd 0x0091 0x014E   0x0140 0x00BD 0x0000 
#      SETREG    R185  0
tcblock mbipcmd 0x0091 0x0151   0x0140 0x00B9 0x0000 
#      SETREG    R190  0
tcblock mbipcmd 0x0091 0x0154   0x0140 0x00BE 0x0000 
#;
#REPT:
#      BRANCHNR  0x0000  &P0
tcblock mbipcmd 0x0091 0x0157   0x01A6 0x0000 0x0197 
#CKP1: BRANCHNR  0x0800  &P1
tcblock mbipcmd 0x0091 0x015A   0x01A6 0x0800 0x019F 
#CKP2: BRANCHNR  0x1000  &P2
tcblock mbipcmd 0x0091 0x015D   0x01A6 0x1000 0x01A7 
#CKP3: BRANCHNR  0x1800  &P3
tcblock mbipcmd 0x0091 0x0160   0x01A6 0x1800 0x01AF 
#CKP4: BRANCHNR  0x2000  &P4
tcblock mbipcmd 0x0091 0x0163   0x01A6 0x2000 0x01B7 
#CKP5: BRANCHNR  0x2800  &P5
tcblock mbipcmd 0x0091 0x0166   0x01A6 0x2800 0x01BF 
#CKP6: BRANCHNR  0x3000  &P6
tcblock mbipcmd 0x0091 0x0169   0x01A6 0x3000 0x01C7 
#CKP7: BRANCHNR  0x3800  &P7
tcblock mbipcmd 0x0091 0x016C   0x01A6 0x3800 0x01CF 
#CKP8: BRANCHNR  0x4000  &P8
tcblock mbipcmd 0x0091 0x016F   0x01A6 0x4000 0x01D7 
#CKP9: BRANCHNR  0x4800  &P9
tcblock mbipcmd 0x0091 0x0172   0x01A6 0x4800 0x01DF 
#CKPA: BRANCHNR  0x5000  &PA
tcblock mbipcmd 0x0091 0x0175   0x01A6 0x5000 0x01E7 
#CKPB: BRANCHNR  0x5800  &PB
tcblock mbipcmd 0x0091 0x0178   0x01A6 0x5800 0x01EF 
#CKPC: BRANCHNR  0x6000  &PC
tcblock mbipcmd 0x0091 0x017B   0x01A6 0x6000 0x01F7 
#CKPD: BRANCHNR  0x6800  &PD
tcblock mbipcmd 0x0091 0x017E   0x01A6 0x6800 0x01FF 
#CKPE: BRANCHNR  0x7000  &PE
tcblock mbipcmd 0x0091 0x0181   0x01A6 0x7000 0x0207 
#CKPF: BRANCHNR  0x7800  &PF
tcblock mbipcmd 0x0091 0x0184   0x01A6 0x7800 0x020F 
#;
#LC:
#      BRANCHNE  R189    0x0000    &FRM1
tcblock mbipcmd 0x0091 0x0187   0x01B0 0x00BD 0x0000 0x0217 
#      ADDREGD   R190    0x0001
tcblock mbipcmd 0x0091 0x018B   0x01BC 0x00BE 0x0001 
#      BRANCHNE  R190    0x1600    &REPT
tcblock mbipcmd 0x0091 0x018E   0x01B0 0x00BE 0x1600 0x0157 
#;     ADDREGD   R191    0x0001
#;     BRANCHNE  R191    0x0010    &REPT
#      SETREG    R185    2
tcblock mbipcmd 0x0091 0x0192   0x0140 0x00B9 0x0002 
#      GOTO      &MOVREG
tcblock mbipcmd 0x0091 0x0195   0x0156 0x0320 
#;
#;     GOTO      &FRM1
#;
#P0:   SETREG    R168    1
tcblock mbipcmd 0x0091 0x0197   0x0140 0x00A8 0x0001 
#      ADDREGD   R189    0x0001
tcblock mbipcmd 0x0091 0x019A   0x01BC 0x00BD 0x0001 
#      GOTO      &CKP1
tcblock mbipcmd 0x0091 0x019D   0x0156 0x015A 
#P1:   SETREG    R169    1
tcblock mbipcmd 0x0091 0x019F   0x0140 0x00A9 0x0001 
#      ADDREGD   R189    0x0002
tcblock mbipcmd 0x0091 0x01A2   0x01BC 0x00BD 0x0002 
#      GOTO      &CKP2
tcblock mbipcmd 0x0091 0x01A5   0x0156 0x015D 
#P2:   SETREG    R170    1
tcblock mbipcmd 0x0091 0x01A7   0x0140 0x00AA 0x0001 
#      ADDREGD   R189    0x0004
tcblock mbipcmd 0x0091 0x01AA   0x01BC 0x00BD 0x0004 
#      GOTO      &CKP3
tcblock mbipcmd 0x0091 0x01AD   0x0156 0x0160 
#P3:   SETREG    R171    1
tcblock mbipcmd 0x0091 0x01AF   0x0140 0x00AB 0x0001 
#      ADDREGD   R189    0x0008
tcblock mbipcmd 0x0091 0x01B2   0x01BC 0x00BD 0x0008 
#      GOTO      &CKP4
tcblock mbipcmd 0x0091 0x01B5   0x0156 0x0163 
#P4:   SETREG    R172    1
tcblock mbipcmd 0x0091 0x01B7   0x0140 0x00AC 0x0001 
#      ADDREGD   R189    0x0010
tcblock mbipcmd 0x0091 0x01BA   0x01BC 0x00BD 0x0010 
#      GOTO      &CKP5
tcblock mbipcmd 0x0091 0x01BD   0x0156 0x0166 
#P5:   SETREG    R173    1
tcblock mbipcmd 0x0091 0x01BF   0x0140 0x00AD 0x0001 
#      ADDREGD   R189    0x0020
tcblock mbipcmd 0x0091 0x01C2   0x01BC 0x00BD 0x0020 
#      GOTO      &CKP6
tcblock mbipcmd 0x0091 0x01C5   0x0156 0x0169 
#P6:   SETREG    R174    1
tcblock mbipcmd 0x0091 0x01C7   0x0140 0x00AE 0x0001 
#      ADDREGD   R189    0x0040
tcblock mbipcmd 0x0091 0x01CA   0x01BC 0x00BD 0x0040 
#      GOTO      &CKP7
tcblock mbipcmd 0x0091 0x01CD   0x0156 0x016C 
#P7:   SETREG    R175    1
tcblock mbipcmd 0x0091 0x01CF   0x0140 0x00AF 0x0001 
#      ADDREGD   R189    0x0080
tcblock mbipcmd 0x0091 0x01D2   0x01BC 0x00BD 0x0080 
#      GOTO      &CKP8
tcblock mbipcmd 0x0091 0x01D5   0x0156 0x016F 
#P8:   SETREG    R176    1
tcblock mbipcmd 0x0091 0x01D7   0x0140 0x00B0 0x0001 
#      ADDREGD   R189    0x0100
tcblock mbipcmd 0x0091 0x01DA   0x01BC 0x00BD 0x0100 
#      GOTO      &CKP9
tcblock mbipcmd 0x0091 0x01DD   0x0156 0x0172 
#P9:   SETREG    R177    1
tcblock mbipcmd 0x0091 0x01DF   0x0140 0x00B1 0x0001 
#      ADDREGD   R189    0x0200
tcblock mbipcmd 0x0091 0x01E2   0x01BC 0x00BD 0x0200 
#      GOTO      &CKPA
tcblock mbipcmd 0x0091 0x01E5   0x0156 0x0175 
#PA:   SETREG    R178    1
tcblock mbipcmd 0x0091 0x01E7   0x0140 0x00B2 0x0001 
#      ADDREGD   R189    0x0400
tcblock mbipcmd 0x0091 0x01EA   0x01BC 0x00BD 0x0400 
#      GOTO      &CKPB
tcblock mbipcmd 0x0091 0x01ED   0x0156 0x0178 
#PB:   SETREG    R179    1
tcblock mbipcmd 0x0091 0x01EF   0x0140 0x00B3 0x0001 
#      ADDREGD   R189    0x0800
tcblock mbipcmd 0x0091 0x01F2   0x01BC 0x00BD 0x0800 
#      GOTO      &CKPC
tcblock mbipcmd 0x0091 0x01F5   0x0156 0x017B 
#PC:   SETREG    R180    1
tcblock mbipcmd 0x0091 0x01F7   0x0140 0x00B4 0x0001 
#      ADDREGD   R189    0x1000
tcblock mbipcmd 0x0091 0x01FA   0x01BC 0x00BD 0x1000 
#      GOTO      &CKPD
tcblock mbipcmd 0x0091 0x01FD   0x0156 0x017E 
#PD:   SETREG    R181    1
tcblock mbipcmd 0x0091 0x01FF   0x0140 0x00B5 0x0001 
#      ADDREGD   R189    0x2000
tcblock mbipcmd 0x0091 0x0202   0x01BC 0x00BD 0x2000 
#      GOTO      &CKPE
tcblock mbipcmd 0x0091 0x0205   0x0156 0x0181 
#PE:   SETREG    R182    1
tcblock mbipcmd 0x0091 0x0207   0x0140 0x00B6 0x0001 
#      ADDREGD   R189    0x4000
tcblock mbipcmd 0x0091 0x020A   0x01BC 0x00BD 0x4000 
#      GOTO      &CKPF
tcblock mbipcmd 0x0091 0x020D   0x0156 0x0184 
#PF:   SETREG    R183    1
tcblock mbipcmd 0x0091 0x020F   0x0140 0x00B7 0x0001 
#      ADDREGD   R189    0x8000
tcblock mbipcmd 0x0091 0x0212   0x01BC 0x00BD 0x8000 
#      GOTO      &LC
tcblock mbipcmd 0x0091 0x0215   0x0156 0x0187 
#;
#; Check Pattern
#FRM1:  BRANCHNE  R3088   0x0001    &FRM2
tcblock mbipcmd 0x0091 0x0217   0x01B0 0x0C10 0x0001 0x0224 
#       COPYREG   R190    R191
tcblock mbipcmd 0x0091 0x021B   0x0142 0x00BE 0x00BF 
#       BRANCHEQ  R189    0x0005    &FRM2
tcblock mbipcmd 0x0091 0x021E   0x01AE 0x00BD 0x0005 0x0224 
#       GOTO      &ERREXT
tcblock mbipcmd 0x0091 0x0222   0x0156 0x031B 
#FRM2:  BRANCHNE  R3088   0x0002    &FRM3 
tcblock mbipcmd 0x0091 0x0224   0x01B0 0x0C10 0x0002 0x0231 
#       COPYREG   R190    R192
tcblock mbipcmd 0x0091 0x0228   0x0142 0x00BE 0x00C0 
#       BRANCHEQ  R189    0x0006    &FRM3
tcblock mbipcmd 0x0091 0x022B   0x01AE 0x00BD 0x0006 0x0231 
#       GOTO      &ERREXT
tcblock mbipcmd 0x0091 0x022F   0x0156 0x031B 
#FRM3:  BRANCHNE  R3088   0x0003    &FRM4 
tcblock mbipcmd 0x0091 0x0231   0x01B0 0x0C10 0x0003 0x023E 
#       COPYREG   R190    R193
tcblock mbipcmd 0x0091 0x0235   0x0142 0x00BE 0x00C1 
#       BRANCHEQ  R189    0x0005    &FRM4
tcblock mbipcmd 0x0091 0x0238   0x01AE 0x00BD 0x0005 0x023E 
#       GOTO      &ERREXT
tcblock mbipcmd 0x0091 0x023C   0x0156 0x031B 
#FRM4:  BRANCHNE  R3088   0x0004    &FRM5 
tcblock mbipcmd 0x0091 0x023E   0x01B0 0x0C10 0x0004 0x024B 
#       COPYREG   R190    R194
tcblock mbipcmd 0x0091 0x0242   0x0142 0x00BE 0x00C2 
#       BRANCHEQ  R189    0x0006    &FRM5
tcblock mbipcmd 0x0091 0x0245   0x01AE 0x00BD 0x0006 0x024B 
#       GOTO      &ERREXT
tcblock mbipcmd 0x0091 0x0249   0x0156 0x031B 
#FRM5:  BRANCHNE  R3088   0x0005    &FRM6 
tcblock mbipcmd 0x0091 0x024B   0x01B0 0x0C10 0x0005 0x0258 
#       COPYREG   R190    R195
tcblock mbipcmd 0x0091 0x024F   0x0142 0x00BE 0x00C3 
#       BRANCHEQ  R189    0x0006    &FRM6
tcblock mbipcmd 0x0091 0x0252   0x01AE 0x00BD 0x0006 0x0258 
#       GOTO      &ERREXT
tcblock mbipcmd 0x0091 0x0256   0x0156 0x031B 
#FRM6:  BRANCHNE  R3088   0x0006    &FRM7 
tcblock mbipcmd 0x0091 0x0258   0x01B0 0x0C10 0x0006 0x0265 
#       COPYREG   R190    R196
tcblock mbipcmd 0x0091 0x025C   0x0142 0x00BE 0x00C4 
#       BRANCHEQ  R189    0x0005    &FRM7
tcblock mbipcmd 0x0091 0x025F   0x01AE 0x00BD 0x0005 0x0265 
#       GOTO      &ERREXT
tcblock mbipcmd 0x0091 0x0263   0x0156 0x031B 
#FRM7:  BRANCHNE  R3088   0x0007    &FRM8 
tcblock mbipcmd 0x0091 0x0265   0x01B0 0x0C10 0x0007 0x0272 
#       COPYREG   R190    R197
tcblock mbipcmd 0x0091 0x0269   0x0142 0x00BE 0x00C5 
#       BRANCHEQ  R189    0x0006    &FRM8
tcblock mbipcmd 0x0091 0x026C   0x01AE 0x00BD 0x0006 0x0272 
#       GOTO      &ERREXT
tcblock mbipcmd 0x0091 0x0270   0x0156 0x031B 
#FRM8:  BRANCHNE  R3088   0x0008    &FRM9 
tcblock mbipcmd 0x0091 0x0272   0x01B0 0x0C10 0x0008 0x027F 
#       COPYREG   R190    R198
tcblock mbipcmd 0x0091 0x0276   0x0142 0x00BE 0x00C6 
#       BRANCHEQ  R189    0x0005    &FRM9
tcblock mbipcmd 0x0091 0x0279   0x01AE 0x00BD 0x0005 0x027F 
#       GOTO      &ERREXT
tcblock mbipcmd 0x0091 0x027D   0x0156 0x031B 
#FRM9:  BRANCHNE  R3088   0x0009    &FRM10
tcblock mbipcmd 0x0091 0x027F   0x01B0 0x0C10 0x0009 0x028C 
#       COPYREG   R190    R199
tcblock mbipcmd 0x0091 0x0283   0x0142 0x00BE 0x00C7 
#       BRANCHEQ  R189    0x0008    &FRM10
tcblock mbipcmd 0x0091 0x0286   0x01AE 0x00BD 0x0008 0x028C 
#       GOTO      &ERREXT
tcblock mbipcmd 0x0091 0x028A   0x0156 0x031B 
#FRM10: BRANCHNE  R3088   0x000A    &FRM11 
tcblock mbipcmd 0x0091 0x028C   0x01B0 0x0C10 0x000A 0x0299 
#       COPYREG   R190    R200
tcblock mbipcmd 0x0091 0x0290   0x0142 0x00BE 0x00C8 
#       BRANCHEQ  R189    0x0008    &FRM11
tcblock mbipcmd 0x0091 0x0293   0x01AE 0x00BD 0x0008 0x0299 
#       GOTO      &ERREXT
tcblock mbipcmd 0x0091 0x0297   0x0156 0x031B 
#FRM11: BRANCHNE  R3088   0x000B    &FRM12 
tcblock mbipcmd 0x0091 0x0299   0x01B0 0x0C10 0x000B 0x02A6 
#       COPYREG   R190    R201
tcblock mbipcmd 0x0091 0x029D   0x0142 0x00BE 0x00C9 
#       BRANCHEQ  R189    0x0005    &FRM12
tcblock mbipcmd 0x0091 0x02A0   0x01AE 0x00BD 0x0005 0x02A6 
#       GOTO      &ERREXT
tcblock mbipcmd 0x0091 0x02A4   0x0156 0x031B 
#FRM12: BRANCHNE  R3088   0x000C    &FRM13 
tcblock mbipcmd 0x0091 0x02A6   0x01B0 0x0C10 0x000C 0x02B3 
#       COPYREG   R190    R202
tcblock mbipcmd 0x0091 0x02AA   0x0142 0x00BE 0x00CA 
#       BRANCHEQ  R189    0x0006    &FRM13
tcblock mbipcmd 0x0091 0x02AD   0x01AE 0x00BD 0x0006 0x02B3 
#       GOTO      &ERREXT
tcblock mbipcmd 0x0091 0x02B1   0x0156 0x031B 
#FRM13: BRANCHNE  R3088   0x000D    &FRM14 
tcblock mbipcmd 0x0091 0x02B3   0x01B0 0x0C10 0x000D 0x02C0 
#       COPYREG   R190    R203
tcblock mbipcmd 0x0091 0x02B7   0x0142 0x00BE 0x00CB 
#       BRANCHEQ  R189    0x0005    &FRM14
tcblock mbipcmd 0x0091 0x02BA   0x01AE 0x00BD 0x0005 0x02C0 
#       GOTO      &ERREXT
tcblock mbipcmd 0x0091 0x02BE   0x0156 0x031B 
#FRM14: BRANCHNE  R3088   0x000E    &FRM15 
tcblock mbipcmd 0x0091 0x02C0   0x01B0 0x0C10 0x000E 0x02CD 
#       COPYREG   R190    R204
tcblock mbipcmd 0x0091 0x02C4   0x0142 0x00BE 0x00CC 
#       BRANCHEQ  R189    0x0006    &FRM15
tcblock mbipcmd 0x0091 0x02C7   0x01AE 0x00BD 0x0006 0x02CD 
#       GOTO      &ERREXT
tcblock mbipcmd 0x0091 0x02CB   0x0156 0x031B 
#FRM15: BRANCHNE  R3088   0x000F    &FRM16 
tcblock mbipcmd 0x0091 0x02CD   0x01B0 0x0C10 0x000F 0x02DA 
#       COPYREG   R190    R205
tcblock mbipcmd 0x0091 0x02D1   0x0142 0x00BE 0x00CD 
#       BRANCHEQ  R189    0x0006    &FRM16
tcblock mbipcmd 0x0091 0x02D4   0x01AE 0x00BD 0x0006 0x02DA 
#       GOTO      &ERREXT
tcblock mbipcmd 0x0091 0x02D8   0x0156 0x031B 
#FRM16: BRANCHNE  R3088   0x0010    &FRM17 
tcblock mbipcmd 0x0091 0x02DA   0x01B0 0x0C10 0x0010 0x02E7 
#       COPYREG   R190    R206
tcblock mbipcmd 0x0091 0x02DE   0x0142 0x00BE 0x00CE 
#       BRANCHEQ  R189    0x0005    &FRM17
tcblock mbipcmd 0x0091 0x02E1   0x01AE 0x00BD 0x0005 0x02E7 
#       GOTO      &ERREXT
tcblock mbipcmd 0x0091 0x02E5   0x0156 0x031B 
#FRM17: BRANCHNE  R3088   0x0011    &FRM18 
tcblock mbipcmd 0x0091 0x02E7   0x01B0 0x0C10 0x0011 0x02F4 
#       COPYREG   R190    R207
tcblock mbipcmd 0x0091 0x02EB   0x0142 0x00BE 0x00CF 
#       BRANCHEQ  R189    0x0006    &FRM18
tcblock mbipcmd 0x0091 0x02EE   0x01AE 0x00BD 0x0006 0x02F4 
#       GOTO      &ERREXT
tcblock mbipcmd 0x0091 0x02F2   0x0156 0x031B 
#FRM18: BRANCHNE  R3088   0x0012    &FRM19 
tcblock mbipcmd 0x0091 0x02F4   0x01B0 0x0C10 0x0012 0x0301 
#       COPYREG   R190    R208
tcblock mbipcmd 0x0091 0x02F8   0x0142 0x00BE 0x00D0 
#       BRANCHEQ  R189    0x0005    &FRM19
tcblock mbipcmd 0x0091 0x02FB   0x01AE 0x00BD 0x0005 0x0301 
#       GOTO      &ERREXT
tcblock mbipcmd 0x0091 0x02FF   0x0156 0x031B 
#FRM19: BRANCHNE  R3088   0x0013    &FRM20 
tcblock mbipcmd 0x0091 0x0301   0x01B0 0x0C10 0x0013 0x030E 
#       COPYREG   R190    R209
tcblock mbipcmd 0x0091 0x0305   0x0142 0x00BE 0x00D1 
#       BRANCHEQ  R189    0x0008    &FRM20
tcblock mbipcmd 0x0091 0x0308   0x01AE 0x00BD 0x0008 0x030E 
#       GOTO      &ERREXT
tcblock mbipcmd 0x0091 0x030C   0x0156 0x031B 
#FRM20: BRANCHNE  R3088   0x0014    &MOVREG 
tcblock mbipcmd 0x0091 0x030E   0x01B0 0x0C10 0x0014 0x0320 
#       COPYREG   R190    R210
tcblock mbipcmd 0x0091 0x0312   0x0142 0x00BE 0x00D2 
#       BRANCHEQ  R189    0x0008    &MOVREG
tcblock mbipcmd 0x0091 0x0315   0x01AE 0x00BD 0x0008 0x0320 
#       GOTO      &ERREXT
tcblock mbipcmd 0x0091 0x0319   0x0156 0x031B 
#;
#ERREXT:
#      SETREG    R185   1
tcblock mbipcmd 0x0091 0x031B   0x0140 0x00B9 0x0001 
#      GOTO      &DMP
tcblock mbipcmd 0x0091 0x031E   0x0156 0x0324 
#;
#MOVREG:
#      BRANCHNE  R3088    20  &DONE
tcblock mbipcmd 0x0091 0x0320   0x01B0 0x0C10 0x0014 0x034F 
#;
#DMP:
#;     COPYREG   R3088  R187
#;     SAVERLST  R168    20   12:0x00000
#;     MOVBLKI   R512
#;     SETREGS   R512    2    12:0x00000
#;
#;     HRDINIT   R536
#;     SETREGS   R544    2    0x10L
#;     START1HR  3     0x4000  R544
#;   
#      COPYREG   R3088  R187
tcblock mbipcmd 0x0091 0x0324   0x0142 0x0C10 0x00BB 
#      MOVBLK    16:0xBE000   12:0x00000   256L
tcblock mbipcmd 0x0091 0x0327   0x0164 0xE000 0x800B 0x0000 \
                                0x6000 0x0100 0x0000 
#      SETREGS   R1146      6  0  0  0  1  12:0x000000
tcblock mbipcmd 0x0091 0x032E   0x01B2 0x047A 0x0006 0x0000 \
                                0x0000 0x0000 0x0001 0x0000 \
                                0x6000 
#      SETREGS   R1152      6  256 0  0  256 0xcfff  0xff06
tcblock mbipcmd 0x0091 0x0337   0x01B2 0x0480 0x0006 0x0100 \
                                0x0000 0x0000 0x0100 0xCFFF \
                                0xFF06 
#      SETREGS   R1158      2  256 0
tcblock mbipcmd 0x0091 0x0340   0x01B2 0x0486 0x0002 0x0100 \
                                0x0000 
#      LRDXFR    R1146
tcblock mbipcmd 0x0091 0x0345   0x0198 0x047A 
#      LRDEND
tcblock mbipcmd 0x0091 0x0347   0x0196 
#      SETIRPT   0x777
tcblock mbipcmd 0x0091 0x0348   0x014E 0x0777 
#
#      BRANCHIF  R185    &DONE
tcblock mbipcmd 0x0091 0x034A   0x015A 0x00B9 0x034F 
#      THROW     0xF00F
tcblock mbipcmd 0x0091 0x034D   0x01EA 0xF00F 
#;
#DONE:
#      END
tcblock mbipcmd 0x0091 0x034F   0x01FC 
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
