( PROCESS A HOT ROD MISSLE )                                    SUBR HOTROD                                                       TBMISSLE TSTAT Y BITX, ( are we ready to process )              RZ, ( NOT A MISSLE )                                            ( A= timebase ) mastervmr CALL,                                 VBMISWRT VLOGICSTAT Y BITX, ( time to write ? )                 VBMISWRT VLOGICSTAT Y RESX,                                     0<>, IF, TSUR Y L LDX, TSUR 1+ Y H LDX, FORKETH CALL,         THEN, RET,                                                      -->                                                                                                                                                                                                                                                                                                                                                                                                                                                             <STKH F= rDI                                                    SUBR MIS-INT <ASSEMBLE ( missle interrupt test )                  PSW PUSH, B PUSH, D PUSH, H PUSH, EXX, EXAF,                    PSW PUSH, B PUSH, D PUSH, H PUSH, Y PUSHX, X PUSHX,           BKC LDA, 4 OUT, ( REFRESH BACKGROUND COLOR )                        SUI2L LDA, INLIN OUT, ( set interrupt line )                    SUI2V SWAB A MVI, STAI, ( load I reg )                          SUI2V A MVI, INFBK OUT, ( load feedback port )                  SU1flag LDA, ( inprogress ) 1 CPI,                            =, IF, ( overrun ) 2 A MVI, SU1flag STA, THEN,                  divg LDA, A ORA, 0<>, IF, ( vger disabled )                     rDI D LXI, divgct H LXI, E M MOV, H INX, D M MOV,               ( tell eivg that we hit )   INout JMP, THEN,                  LABEL rDI                                                       -->                                                                                                                             h-f H LXI, M A MOV, A INR, 3 CPI, CY~, IF,                      A XRA, THEN, A M MOV, A ANA,                                    PLYRV Y LXIX, 0=, IF, PL-M CALL,                                ELSE, A DCR, 0=, IF, 3 A MVI, HOTROD CALL,                      THEN, THEN,                                                       SUI2-DI JMP, ASSEMBLE>                                        : MYPUP PUP MIS-INT SUI1V ! INVERT-OFF                          #PLA B@ IF plup B@ IF 13 INP 8 AND 0= IF                        INVERT-ON THEN THEN THEN ;                                      CODE SETCOL A XRA, 7 OUT, 7E A MVI, 6 OUT, 52 A MVI, 5 OUT,     0FA A MVI, 4 OUT, BKC STA, 0CC A MVI, VERBL OUT, -1 A MVI,      HORCB OUT, NEXT STK>                                            -->                                                                                                                                                                                                                                                             