1 OO$="---ORAASLBITANDROLJMPEORLSR---ADCRORSTYSTASTXLDYLDALDXCPYCMPDECCPXSBCINC"
2 OB$="PLMIVCVSCCCSNEEQ":HX$=0123456789ABCDEF":ML=100:NL=0:REM ML=MAX LABELS
3 OL$="BRKPHP---CLC---PLP---SECRTIPHA---CLIRTSPLA---SEI":REM 00-08-10-18
4 OH$="DEYTXATYATXSTAYTAXCLVTSXINYDEXCLD---INXNOPSED---":REM 08-0A-18-1A +80
5 DIMLN$(ML),LV(ML),OL(16):FORT=0TO16:READOL(T):NEXT
6 ST$="INIT1":READFI$,A$:GOSUB100:SA=A:PRINT"FILENAME: ";FI$;", SA =";SA
7 PRINT"PASS 1...":LN=1
8 ST$="LINE"+STR$(LN):READAS$:GOSUB120:IFLB$="END"THEN17
9 IFLEFT$(LB$,1)=";"THENLN=LN+1:GOTO8
10 IFLB$=""THEN15
11 FORT=0TONL:IFLN$(T)=LB$THENE$="DUPLICATE LABEL":GOTO200
12 IFNL=MLTHENE$="OUT OF LABELS: INCREASE ML":GOTO200
13 NL=NL+1:LN$(NL)=LB$:IFCM$<>"EQU"THENLV(NL)=SA:PRINT"LABEL "LB$" ="SA:GOTO15
14 A$=OP$:GOSUB100:PRINT"LABEL"LB$" ="A:LV(NL)=A:LN=LN+1:GOTO8
15 PRINTSA": "CM$" "OP$;AM:IFCM$<>""THENSA=SA+OL(AM):GOTO8
16 SA=SA+OL(AM):GOTO8
17 PRINT"PASS 2...":LN=1:RESTORE:FORT=0TO16:READA:NEXT:READFI$
18 ST$="OPENING FILE":OPEN5,8,5,FI$+",P,W":ST$="INIT2"
19 READA$:GOSUB100:SA=A
20 READAS$:GOSUB120:IFLB$="END"THEN40
21 IF(LEFT$(LB$,1)=";")OR(CM$="EQU")OR(AM=10)THENLN=LN+1:GOTO20
22 IFAM<>0THEN28
23 FORT=0TO47:IFCM$<>MID$(OL$,T*3+1,3)THENNEXT
24 IFT=48THENFORT=48TO95:IFCM$<>MID$(OH$,(T-48)*3+1,3)THENNE