1000 REM TSXLIB.BAS NAB/1738/SNLA 26-MAR-81/15-APR-81. 1010 REM 1020 REM LIST TSXLIB.DAT GROUPED BY MODULE NAME. 1030 REM 1040 PRINT CLK$,'TSXLIB: 81D15A' 1050 REM 1060 DIM A$(99) \ J%=99% \ REM EMT DESCRIPTIONS 1070 DIM M$(11) \ K%=11% \ REM MODULE NAMES 1080 REM 1090 GOSUB 1190 \ REM OPEN THE FILES 1100 GOSUB 1310 \ REM READ MODULE NAMES INTO M$() 1110 GOSUB 1390 \ REM READ TSXLIB.DAT INTO A$() 1120 GOSUB 1470 \ REM GENERATE TSXLIB.LST 1130 CLOSE #1,#2 \ REM CLOSE THE FILES 1140 PRINT CLK$,'TSXLIB: END' 1150 GO TO 2090 \ REM END 1160 REM 1170 REM SUBROUTINE: OPEN THE FILES 1180 REM 1190 PRINT 'NAME THE INPUT DEVICE FOR TSXLIB.DAT', 1200 INPUT I$ 1210 IF I$='' GO TO 1190 1220 PRINT 'NAME THE OUTPUT DEVICE FOR TSXLIB.LST', 1230 INPUT O$ 1240 IF O$='' THEN O$='LP:' 1250 OPEN I$&'TSXLIB.DAT' FOR INPUT AS FILE #1 1260 OPEN O$&'TSXLIB.LST' FOR OUTPUT AS FILE #2 1270 RETURN 1280 REM 1290 REM SUBROUTINE: READ MODULE NAMES INTO M$() 1300 REM 1310 RESTORE 1320 FOR I%=1% TO K% 1330 READ M$(I%) 1340 NEXT I% 1350 RETURN 1360 REM 1370 REM SUBROUTINE: READ TSXLIB.DAT INTO A$() 1380 REM 1390 FOR I%=1% TO J% 1400 IF END #1 GO TO 1430 1410 LINPUT #1,A$(I%) 1420 NEXT I% 1430 RETURN 1440 REM 1450 REM SUBROUTINE: GENERATE TSXLIB.LST 1460 REM 1470 GOSUB 1640 \ REM PRINT PAGE HEADER 1480 FOR I%=1% TO K% 1490 FOR N%=1% TO J% 1500 IF M$(I%)<>SEG$(A$(N%),17%,22%) GO TO 1540 1510 PRINT #2,A$(N%) 1520 L%=L%+1% 1530 GOSUB 1810 \ REM TEST PAGE LENGTH 1540 NEXT N% 1550 PRINT #2 1560 L%=L%+1% 1570 GOSUB 1810 \ REM TEST PAGE LENGTH 1580 NEXT I% 1590 GOSUB 1880 \ REM PRINT NOTES 1600 PRINT #2,CHR$(12) 1610 RETURN 1620 REM 1630 REM SUBROUTINE: PRINT PAGE HEADER 1640 PRINT #2,'EMT'; 1650 PRINT #2,TAB(8);'ROUTINE'; 1660 PRINT #2,TAB(16);'MODULE'; 1670 PRINT #2,TAB(24);'DESCRIPTION'; 1680 PRINT #2,TAB(88);'PARA-'; 1690 PRINT #2,TAB(96);'PAGE' 1700 PRINT #2,'CODE'; 1710 PRINT #2,TAB(8);'NAME'; 1720 PRINT #2,TAB(16);'NAME'; 1730 PRINT #2,TAB(88);'GRAPH'; 1740 PRINT #2,TAB(96);'NUMBER' 1750 PRINT #2 1760 L%=2% 1770 RETURN 1780 REM 1790 REM SUBROUTINE: TEST PAGE LENGTH 1800 REM 1810 IF L%<>54% GO TO 1840 1820 PRINT #2,CHR$(12) 1830 GOSUB 1640 \ REM PRINT PAGE HEADER 1840 RETURN 1850 REM 1860 REM SUBROUTINE: PRINT NOTES 1870 REM 1880 IF L%>47% THEN GOSUB 1640 \ REM PRINT PAGE HEADER 1890 PRINT #2,TAB(9);'NOTE:'; 1900 PRINT #2,TAB(16);'PARAGRAPH AND PAGE NUMBERS REFER TO THE'; 1910 PRINT #2,TAB(80);'IMPLEMENTED';TAB(104);'I' 1920 PRINT #2,TAB(16);'DECEMBER 1980 TSX-PLUS REFERENCE MANUAL,'; 1930 PRINT #2,TAB(80);'NOT YET IMPLEMENTED';TAB(104);'N' 1940 PRINT #2,TAB(16);'THE SHARED RUN-TIME SYSTEM (SRT) NOTES,' 1960 PRINT #2,TAB(16);'THE REAL-TIME SYSTEM (RTS) NOTES AND' 1980 PRINT #2,TAB(16);'THE TSX-PLUS V2.0 SYSTEM RELEASE NOTES (RN).' 1990 PRINT #2 2000 PRINT #2,DAT$,CLK$ 2010 RETURN 2020 REM 2030 REM DATA SECTION: MODULE NAMES 2040 REM 2050 DATA 'DETJBS','MNTDEV','MSGCOM','PRFANL' 2060 DATA 'RELTIM','RUNTIM','SHRFIL','TRMCOM' 2070 DATA 'TRMCTL','TSXMSC','TSXODT' 2080 REM 2090 END