SUBH MOV A,L ANI 3FH MOV L,A XCHG LHLD YOUP MOV A,L ANI 3FH SUB E RET DECH RZ JP RT JMP LF DEATH MVI M,0CH CALL MSG2 LDA RSCORE INR A STA RSCORE CALL SCORE CALL OVER CALL WAIT JMP START PANIC PUSH PSW LDA DFST CPI 9 JNZ PAN3 MVI C,7 CALL RND ANA C CPI 1 JZ PAN5 JMP PAN4 PAN5 PUSH H LHLD ROB1 MVI M,7 LHLD ROB2 MVI M,7 LHLD ROB3 MVI M,7 POP H JMP PANN PAN3 LDA DFST SBI 3 JP PAN1 MVI C,1 JMP PANOK PAN1 LDA DFST SBI 6 MVI C,3 JP PAN2 JMP PANOK PAN2 MVI C,7 PANOK CALL RND ANA C CPI 1 JZ PANN PAN4 POP PSW RET PANN CALL YOU POP PSW POP PSW JMP YMOVE WAIT PUSH H PUSH D PUSH B WAIT1 CALL 0C01FH JZ WAIT1 ANI 7FH POP B POP D POP H RET OVER LDA RSCORE CPI 09H JZ END1 OVER1 LDA YSCORE CPI 09H RNZ ENDGAME CALL WAIT CALL CLEAR LXI H,ENDM1 LXI B,ENDB2 CALL MSGO LDA YSCORE ADI 30H STA 0CD27H LDA RSCORE ADI 30H STA 0CD29H JMP END2 END1 CALL WAIT CALL CLEAR LXI H,ENDM1 LXI B,ENDB1 CALL MSGO LDA RSCORE ADI 30H STA 0CD27H LDA YSCORE ADI 30H STA 0CD29H END2 LXI H,ENDM3 LXI B,ENDB3 CALL MSGO END3 CALL WAIT JMP BEGIN UP LXI D,0FFC0H DAD D RET DN LXI D,40H DAD D RET LF DCX H DCX H RET RT INX H INX H RET UR CALL UP JMP RT UL CALL UP JMP LF LL CALL DN JMP LF LR CALL DN JMP RT PLOT LXI H,0CC00H PUSH B VERT MOV A,D ANI 0FH LP1 MVI B,40H LP2 JZ HORIZ INX H DCR B JNZ LP2 DCR A JNZ LP1 HORIZ MOV A,E ANI 7FH LP3 JZ DONE INX H DCR A JMP LP3 DONE POP B RET LIMIT MOV A,D SBI LOWD STC RM MOV A,D SBI HID STC RP MOV A,E SBI LOWE STC RM MOV A,E SBI HIE STC RP CMC RET RND PUSH B PUSH H LXI H,SH+3 MVI B,8 MOV A,M RTOP RLC RLC RLC XRA M RAL RAL DCR L DCR L DCR L MOV A,M RAL MOV M,A INR L MOV A,M RAL MOV M,A INR L MOV A,M RAL MOV M,A INR L MOV A,M RAL MOV M,A DCR B JNZ RTOP POP H POP B RET END LHLD ROB1 MOV A,M CPI 7 RZ LHLD ROB2 MOV A,M CPI 7 RZ LHLD ROB3 MOV A,M CPI 7 RZ LHLD ROB4 MOV A,M CPI 7 RZ LHLD ROB5 MOV A,M COPY CH3