.PREL .IDENT ERROR .INSERT MACRO.LIB .INSERT BBEQU.ASM WHAT: .ASCII 'WHAT?' .BYTE CR HOW: .ASCII 'HOW?' .BYTE CR SORRY: .ASCII 'SORRY' .BYTE CR QWHAT:: PUSH D AWHAT:: LXI D,WHAT JMP HKERR# ERROR:: CALL CRLF# CALL PRTSTG# LHLD CURRNT# PUSH H XCHG LDAX D MOV H,A INX D LDAX D ORA H XCHG POP D JZ TELL# XCHG LDAX D XCHG ORA A JM INPERR# CALL PRTLN# POP B MOV B,C CALL PRTCHS# MVI A,'?' RSTOCH CALL PRTSTG# JMP TELL# QSORRY:: PUSH D ASORRY:: LXI D,SORRY JMP HKERR# QHOW:: PUSH D AHOW:: LXI D,HOW JMP HKERR# .END