
 1000  * BRUN DEMO
 1010  *SAVE BELL DEMO SOURCE
 1020  *----------------------------
 1030  * DEMO OF BRUN'ING A ML PROG
 1040  * BY RINGING A BELL
 1050  *
 1060  * DOS IS DISCONNECTED
 1070  * TO ALLOW I/O WITHOUT
 1080  * DISRUPTING PROPER RETURN.
 1090  *--------------------------------
 1100  COUT1   .EQ $FDF0    SCREEN OUTPUT
 1110  KEYIN   .EQ $FD1B    KEYBOARD INPUT
 1120  *--------------------------------
 1130          .OR $6A00
 1140  DEMO
 1150          LDX #0       BEFORE ANY I/O,
 1160  .10     LDA $36,X     DISCONNECT DOS
 1170          PHA           BY PUSHING $36.39
 1180          LDA PTRS,X    ONTO STACK,
 1190          STA $36,X     & REPLACING
 1200          INX           WITH COUT1/KEYIN
 1210          CPX #4
 1220          BNE .10
 1230   
 1240          JSR $FF3A    RING THE BELL
 1250    
 1260          LDX #3       RECONNECT DOS
 1270  .90     PLA           BY PULLING
 1280          STA $36,X     $36.39 FROM
 1290          DEX           THE STACK.
 1300          BPL .90
 1310          RTS
 1320  *--------------------------------
 1330  * REPLACEMENT I/O POINTERS
 1340  *--------------------------------
 1350  PTRS    .DA COUT1,KEYIN

