; IPCNTRL (babysteps)
;
; This program checks the frame number and calls the 
; appropriate processing routine.
;
;------------------------------------------------------------
;
QPROG_IPCNTRL::
TST00:    BRANCHEQ  R3072  1  &TST10
          BRANCHEQ  R3072  9  &TST10
          BRANCHEQ  R3072  10 &TST10
          BRANCHNE  R3072  20 &TST20
;
; copies header from page 3 as DPC FFFFFF10 for frames 1,9,10,20
;
TST10:    SETREGS   R2992  6  1  0x1800  0x4000       0  0xFFFF  0xFF10
          HRDINIT   R2992
          MOVBLK    0x0514 0x1800  0x0226 0x4000  0x0800 0x0000
          GOTO      &DODL
;
; downlinks header from page 2 as DPC FFFFFF11 for all other frames
;
TST20:    SETREGS   R2976  6  1  0x1000  0x4000       0  0xFFFF  0xFF11
          HRDINIT   R2976
          MOVBLK    0x0514 0x1000  0x0226 0x4000  0x0800 0x0000
;
; downlinks 0x2000L; 3075 is R3, 3077 is R5
;
DODL:     BRANCHIF  R3075  &DONE
	  SETREGS   R3100  2  2000  0
          START1HR  3     0x4000  R3100
;
DONE:
          END
;------------------------------------------------------------