024B 77           664         MOV     M,A

  024C 210000       665         LXI     H,0

  024F 220800   E   666         SHLD    TIMCNT+8        ; STOP DELAY TIMER COUNT DOWN

  0252 C9           667         RET                     ; RETURN

                    668

                    669 ;************************************************************************

                    670 ;*                      BACKSPACE                                       *

                    671 ;************************************************************************

                    672

                    673 BACKSP:

  0253 2A0000   E   674         LHLD    PNCBUF          ;PNTR TO PUNCH BUFFER

  0256 44           675         MOV     B,H             ;MOVE POINTER TO

  0257 4D           676         MOV     C,L             ;CORRECT REGISTERS

  0258 CD0000   E   677         CALL    CHAVAL          ;TEST IF THERE ARE CHARACTERS TO PUNCH

  025B C0           678         RNZ                     ;RETURN IF CHARACTER IN PUNCH BUFFER

                    679

  025C 210000   E   680         LXI     H,LEDSTA        ;PNTR TO STATUS LINES CONDITION

  025F 7E           681         MOV     A,M             ;FETCH CONTROL STATUS WORD

  0260 0F           682         RRC                     ;TEST IF PUNCH IS ON/OFF

  0261 D27F02   C   683         JNC     BACK01          ;JUMP TO CONTINUE IF PUNCH IS OFF

  0264 7E



  ISIS-II 8080/8085 MACRO ASSEMBLER, V3.0         KTSK13   PAGE   20

KEY PAD INITIATED  ROUTINES - NER -83 JUL 06



  LOC  OBJ         LINE        SOURCE STATEMENT


  0273 C8           692         RZ                      ;RETURN IF SO

  0274 E680         693         ANI     80H             ;TEST IF LINE HALF

  0276 C0           694         RNZ                     ;RETURN IF SO

  0277 3E06         695         MVI     A,6             ;ADDRESS OF OPTIONS SWITCHES

  0279 D332         696         OUT     KEYPAD          ;OUTPUT ADDRESS

  027B DB32         697         IN      KEYPAD          ;INPUT DATA

  027D 07           698         RLC                     ;TEST FOR SPECIAL DATA PATH SELECTED

  027E D0           699         RNC                     ;RETURN IF SO

                    700 BACK01:

  027F 3A0000   E   701         LDA     PNCFLG          ;FETCH PUNCH CONTROL FLAGS

  0282 E602         702         ANI     2               ;TEST IF MOVE IS PENDING

  0284 C0           703         RNZ                     ;RETURN IF MOVE IN PROCESS

                    704

  0285 210000   E   705         LXI     H,PNCFG2        ;PNTR TO PUNCH CONTROL FLAG BYTE

  0288 7E           706         MOV     A,M             ;FETCH FLAG BYTE

  0289 E641         707         ANI     BACSPB+1        ;TEST FOR BACKSPACE OR PAPERFEED

                    708                                 ;ALLREADY IN ACTION