
 1000  COUNT.LO .EQ 0
 1010  COUNT.HI .EQ 1
 1020  OUTHOOK  .EQ $36
 1030  DOSHOOK  .EQ $3EA
 1040  *--------------------------------
 1050         .OR $300
 1060   
 1070         LDA #0
 1080         STA COUNT.LO      zero the counters
 1090         STA COUNT.HI
 1100         LDA #LINE.COUNTER
 1110         STA OUTHOOK       direct output
 1120         LDA /LINE.COUNTER to my routine
 1130         STA OUTHOOK+1
 1140         JMP DOSHOOK
 1150  *--------------------------------
 1160  LINE.COUNTER
 1170         CMP #$8D          carriage return?
 1180         BNE .1            no, exit
 1190         INC COUNT.LO      yes, count it
 1200         BNE .1
 1210         INC COUNT.HI
 1220  .1     RTS

