
 1000  *---------------------------------
 1010  *      FIND AN APPLESOFT LINE NUMBER
 1020  *      AND PRINT ADDRESS IN HEX
 1030  *---------------------------------
 1040         .OR $300
 1050         .TF AMPERFIND
 1060  *---------------------------------
 1070  MON.PRNTAX .EQ $F941   PRINT TWO BYTES IN HEX
 1080  AS.LINGET  .EQ $DA0C   CONVERT LINE NUMBER TO BINARY
 1090  AS.FNDLIN  .EQ $D61A   FIND LINE IN APPLESOFT PROGRAM
 1100  *---------------------------------
 1110  *      SET UP AMPERSAND VECTOR
 1120  *---------------------------------
 1130         LDA #$4C     "JMP" OPCODE
 1140         STA $3F5
 1150         LDA #AMPERFIND
 1160         STA $3F6
 1170         LDA /AMPERFIND
 1180         STA $3F7
 1190         RTS
 1200  *---------------------------------
 1210  AMPERFIND
 1220         JSR AS.LINGET  CONVERT LINE NUMBER TO BINARY
 1230         JSR AS.FNDLIN  FIND THE LINE
 1240         LDX $9B
 1250         LDA $9C        GET THE LINE'S ADDRESS
 1260         JMP MON.PRNTAX PRINT THE ADDRESS IN HEX

