
 1000  *--------------------------------
 1010  *   .US DIRECTIVE TO PAUSE DURING ASSEMBLY
 1020  *
 1030  *      SYNTAX:  .US <phrase>
 1040  *      RESULT:  Displays <phrase> in inverse text
 1050  *               and waits for a keypress
 1060  *
 1070  *--------------------------------
 1080  CHR.PTR  .EQ $7B
 1090  WBUF     .EQ $200
 1100  CORNER   .EQ $7D0
 1110  KEYBOARD .EQ $C000
 1120  STROBE   .EQ $C010
 1130  PROTECT  .EQ $C080
 1140  ENABLE   .EQ $C083
 1150  BELL     .EQ $FBE2
 1160   
 1170  US.VCTR  .EQ $D00C
 1180  SC.CMNT  .EQ $E124
 1190  *--------------------------------
 1200         .OR $300
 1210  *--------------------------------
 1220         LDA ENABLE       WRITE ENABLE
 1230         LDA ENABLE       RAM CARD
 1240         LDA #PAUSE
 1250         STA US.VCTR+1    POINT .US VECTOR
 1260         LDA /PAUSE
 1270         STA US.VCTR+2    TO PAUSE ROUTINE
 1280         LDA PROTECT      PROTECT CARD
 1290         RTS
 1300  *--------------------------------
 1310  PAUSE  JSR BELL     BEEP
 1320         LDX #0
 1330         LDY CHR.PTR  CHAR POINTER
 1340  .1     LDA WBUF,Y   GET CHAR FROM CALL LINE
 1350         BEQ .2       END OF LINE?
 1360         AND #$3F     NO, INVERT CHAR
 1370         STA CORNER,X AND PUT IT AT BOTTOM OF SCREEN
 1380         INX
 1390         INY
 1400         CPX #40      LINE FULL?
 1410         BCC .1       NO, GET ANOTHER CHAR
 1420   
 1430  .2     JSR BELL     BEEP
 1440  .3     LDA KEYBOARD
 1450         BPL .3       WAIT FOR KEYPRESS
 1460         STA STROBE
 1470         JMP SC.CMNT  RETURN TO ASSEMBLY
 1480  *--------------------------------

