EMITST:  .SEQ   99 0
;
; Set Registers; R0 = Exposure, R2 = Delay between images
         SET R0 1000             ; 0.25 sec exposure
         SET R2 120              ; 7.5 sec delay bet exposures
;
; Set OBS Mode:  CAL1 = 55, CAL2 = 18
         SRT
         DC2 0x47 55
         TIM 16
         DDC 0x37
         TIM 32
         DC2 0x48 18
         TIM 48
         DDC 0x38
         TIM 64
         UBR &S0
;
; Set CAL Mode:  CAL1 = 19, CAL2 = 125
         SRT
         DC2 0x47 19
         TIM 16
         DDC 0x37
         TIM 32
         DC2 0x48 125
         TIM 48
         DDC 0x38
         TIM 64
         UBR &S0
;
; Start of main sequence
S0:      SET R3 0x70
         SET R8 10
;
         LOC &OCVDOP
         LDM &DMVDOP
         CM1
         CM2
;
; Main Loop
;
L1:      CO1 $- $ &IP0
         TIM R3
         TAP
         ADD R3 R2
         BLT &L11 R3 960
         SRT
         SET R4 960
         SUB R4 R3
         SET R3 R4
L11:     CO1 $+ $ &IP0
         TIM R3
         TAP
;
         ADD R3 R2 
         BLT &L12 R3 960
         SRT
         SET R4 960
         SUB R4 R3
         SET R3 R4
;
L12:     AM1 36 
         AM2 18 
         DEC R8
         BEQ &L2 R8 5
         BNZ &L3 R8
         CM2
         SET R8 10
L2:      CM1
L3:      UBR &L1
;
         RET
;
;
OCVDOP:  .OCB  0xAAo   18o   26o   78o
OCVDOP2: .OCB  0xAAo   54o   44o   87o
;
DMVDOP:  .DMB  0x40o  0x40o  0x40o  0x40o
;
IP0:     .IPB  0x00o  0x00o  0x01o  0x00o  0x00o  0x00o