430 IF MID$(A$,25,1)<>"J" AND MID$(A$,25,4)<>"CALL" AND MID$(A$,25,4)<>"LOOP" THEN 480
440 ' make certain we have found a hex address
450 IF MID$(A$,33,1)<"0" OR MID$(A$,33,1)>"F" OR MID$(A$,34,1)<"0" OR MID$(A$,34,1)>"F" OR MID$(A$,35,1)<"0" OR MID$(A$,35,1)>"F" OR MID$(A$,36,1)<"0" OR MID$(A$,36,1)>"F" THEN 480
455 ' skip termination or inter-segment jumps
460 IF MID$(A$,33,4)="0000" OR MID$(A$,37,1)=":" THEN 480
470 LIN=LIN+1: LIN$(LIN)=MID$(A$,33,4) 'Found a reference
1190 L=L+1: GOTO 1120 'Loop back and test next reference
1200 ' Find reference in this line
1210 IF MID$(A$,25,1)<>"J" AND MID$(A$,25,4)<>"CALL" AND MID$(A$,25,4)<>"LOOP" THEN 1300
1220 IF MID$(A$,33,1)<"0" OR MID$(A$,33,1)>"F" OR MID$(A$,34,1)<"0" OR MID$(A$,34,1)>"F" OR MID$(A$,35,1)<"0" OR MID$(A$,35,1)>"F" OR MID$(A$,36,1)<"0" OR MID$(A$,36,1)>"F" OR MID$(A$,37,1)=":" THEN 1300
1230 A$=LEFT$(A$,32)+"L"+MID$(A$,33) 'Make destination addr. a label
1300 ' Test for "The Force"
1310 IF NOT FORCE.LABEL THEN 1400
1320 I=LEN(A$): WHILE MID$(A$,I,1)=" " AND I>26: I=I-1: WEND 'last non-blank
1330 A$=LEFT$(A$,I)+" ;WARNING! This label not referenced"
1340 PRINT BELL$;
1350 FORCE.LABEL=FALSE
1400 ' FINALLY, print the thing
1410 I=LEN(A$): WHILE MID$(A$,I,1)=" " AND I>26: I=I-1: WEND 'last non-blank
1420 PRINT #2, MID$(A$,6,6)+" "+MID$(A$,25,I-24)
1430 PRINT MID$(A$,6,6)+" "+MID$(A$,25,I-24)
1440 IF MID$(A$,25,3)="JMP" THEN 1470 'one blank line
1450 IF MID$(A$,25,3)<>"RET" AND MID$(A$,25,4)<>"IRET" THEN 1490
1460 PRINT #2,: PRINT #2, 'two blank lines
1470 PRINT #2,: PRINT
1480 FORCE.LABEL=TRUE 'Must have label after JMP(S) or (I)RET