
 1000  *SAVE S.WHICH.PROC
 1010         .OP 65802
 1020  *--------------------------------
 1030  PRBYTE .EQ $FDDA
 1040  COUT   .EQ $FDED
 1050  *--------------------------------
 1060  WHICH.PROCESSOR
 1070         LDA #$65
 1080         JSR PRBYTE
 1090         BRA .1
 1100         JMP .2
 1110  .1     LDA #"8"
 1120         XBA
 1130         LDA #"C"
 1140         XBA
 1150         JSR COUT
 1160  .2     LDA #$02
 1170         JMP PRBYTE
 1180  *--------------------------------

