DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 18606 (0x48ae) Types: TextFile Names: »CONFIG.P«
└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII ) └─ ⟦this⟧ »CSP005_V0501.D!CSS380.D!AMOS.D!CONFIG.D!CONFIG.P«
*** *** CR80 PASCAL COMPILER (VERSION: 83/06/25) *** COMPILATION STARTED 84/01/04 AT 10:43 *** SOURCE FILE: @DMA000-FILE*SSD*MD*CSP005.D*CSS380.D*AMOS.D*CONFIG.D*CONFIG.S *** OBJECT FILE: @DMA000-FILE*SSD*MD*CSP005.D*CSS380.D*AMOS.D*CONFIG.D*CONFIG.L *** PRINT FILE: @DMA000-FILE*SSD*MD*CSP005.D*CSS380.D*AMOS.D*CONFIG.D*CONFIG.P *** USERCODE : #0000 *** OPTIONS : /B /C /U /S /N /A /NF *** 0001 %SUBMODULE 0002 %NOLIST 0003 %SOURCE *** INCLUDE *** FILE: @DMA000-FILE*SSD*MX.D*GENS.D*PREFIX *** LEVEL: 1 0613 %LIST *** INCLUDE *** FILE: @DMA000-FILE*SSD*MD*CSP005.D*CSS380.D*AMOS.D*CONFIG.D*HEAD *** LEVEL: 1 0614 0615 "*********************************************************************** 0616 * * 0617 * T O S * 0618 * T E R M I N A L O P E R A T I N G S Y S T E M * 0619 * * 0620 * CONF ITEM: CSS/380 * 0621 * AUTHOR: JHO * 0622 * VERSION: 1001 * 0623 * DATE: 831101 * 0624 * * 0625 ***********************************************************************" 0626 "RELEASE DATE AUTHOR CHANGES 0627 -------- ------ ------ ------------------------------------------------ 0628 4 810123 JHO ERROR IN IN_NEWS FIXED (CPECR 128) 0629 COMMANDS CHANGED FROM 2 TO 10 SIGNIFICANT CHARS 0630 (CPECR 136) 0631 RESERVE_DISK, RELEASE_DISK ADDED (CPECR 226) 0632 QUEUEING IF NO PCB'S 0633 ERROR IN OPENING COMMAND -SYSDIR- CORRECTED (CPECR 238) 0634 TEST COMMAND DELETED (CPECR 238) 0635 DECIMAL PROGRAM VERSION NUMBER IN STATUS (CPECR 185) 0636 TASKS FAILING TO RESPOND TO UTILITY SYSTEM 0637 IS TERMINATED WITH CC=#8801 0638 5 810226 JHO COMPILED WITH FASTCODE 0639 0640 6 810428 JHO SUPPORT OF LTUS 0641 SUPPORT OF DUAL SYSTEM DISK 0642 ERROR IN OPEN PHASE COMMAND PROCESSING (MISSING 0643 ERROR REPORTING) CORRECTED 0644 701 811120 EKH SUPPORT OF ALTERNATIVE FILE SYSTEMS 0645 CONFIGURATION PARAMETERS ISOLATED TO A SEPARATE MODULE 0646 TOS MODULES MOVED FROM SYSTEM DIRECTORY 0647 AUTO-OPEN AND AUTO-CONFIG SUPPORTED 0648 0649 801 820428 HPT XAMOS SUPPORTED 0650 0651 802 821101 EKH ADDITIONAL COMMANDS: WAIT, IF, CYCLE, BEGIN, END 0652 DEVICE OVERLAY EXTRACTED FROM COMMAND PASS 0653 CHILD PROCESSES GET PARENT NAME PLUS SEQ.NO. 0654 CDIR PARAMETER MAY NOW BE GIVEN TO RUN COMMAND. 0655 0656 902 830510 HS BOTH AMOS AND XAMOS MODULES ARE NOW PRESENT IN 0657 THE DIRECTORIES AMOS.D AND XAMOS.D 0658 0659 903 830715 HS THE VERSION IS PLACED IN THE COMMAND LINE RATHER 0660 THAN IN THE LINK COMMAND FILE. 0661 0662 IT IS CHECKED THAT A PROGRAM FILE CONTAIN THE 0663 NUMBER OF BYTES EXPECTED(PROGRAM SIZE + 0664 PROCESS SIZE). 0665 0666 THE 'AUTOMATIC' COMMAND LINE IS PRINTED IF 0667 AUTO OPEN. 0668 0669 COMMAND LINES CAN NOW BE 132 CHARACTERS. 0670 0671 1001 831101 HS VOLUME_USE ADDED IN MOUNT. 0672 MX TOS GENERATED. 0673 NEW OVERLAY TOS_LPON.C 0674 0675 " 0676 0677 %CHECK 0678 %NOUNIVCHECK 0679 %FASTCODE 0680 %SUMMARY 0681 "PAGE"«ff» *** ENDINCLUDE *** LEVEL: 1 0682 *** INCLUDE *** FILE: @DMA000-FILE*SSD*MD*CSP005.D*CSS380.D*AMOS.D*CONFIG.D*LIMITS *** LEVEL: 1 0683 0684 CONST PROCESS_LIMIT = 20; 0685 CONST PROGRAM_LIMIT = 10; 0686 CONST TERMINAL_LIMIT = 6; 0687 CONST DEVICE_LIMIT = 6; 0688 CONST FILSYS_LIMIT = 1; 0689 CONST LOAD_Q_LIMIT = TERMINAL_LIMIT; 0690 *** ENDINCLUDE *** LEVEL: 1 0691 *** INCLUDE *** FILE: @DMA000-FILE*SSD*MD*CSP005.D*CSS380.D*AMOS.D*CONFIG.D*TYPES *** LEVEL: 1 0692 0693 TYPE TERMINAL_INDEX = 0..TERMINAL_LIMIT; 0694 TYPE PROCESS_INDEX = 0..PROCESS_LIMIT; 0695 TYPE PROGRAM_INDEX = 0..PROGRAM_LIMIT; 0696 TYPE FILSYS_INDEX = 0..FILSYS_LIMIT; 0697 TYPE DEVICE_INDEX = 0..DEVICE_LIMIT; 0698 TYPE LOAD_Q_INDEX = 0..LOAD_Q_LIMIT; 0699 0700 CONST ECHO_MODE = 0; 0701 CONST VDU_MODE = 1; 0702 CONST WAIT_MODE = 2; 0703 CONST ITT_MODE = 3; 0704 CONST FF_MODE = 4; 0705 0706 CONST IBUFLGT = 80; 0707 0708 TYPE OPEN_STATE = 0709 ( SYSTEM_CLOSED, SYSDEV_ASSIGNED, SYSVOL_MOUNTED, USERED_ON, 0710 WF_CREATED, MD_FOUND, SYSDIR_FOUND, TOSDIR_FOUND, 0711 PASSES_FOUND, ERRORTEXTS_FOUND, SYSTEM_OPEN); 0712 0713 0714 TYPE OS_MODE_TYPE = (SLAVE, MASTER, SINGLE, DUAL, DUALIZABLE); 0715 " MASTER and SINGLE are synonyms " 0716 0717 TYPE IBUF_TYPE = ARRAY [1..IBUFLGT] OF INTEGER; 0718 0719 TYPE NEWS_TYPE = RECORD 0720 BYTE_COUNT : INTEGER; 0721 MSG : IBUF_TYPE 0722 END; 0723 0724 0725 0726 CONST PRHL= 26; 0727 CONST PGHL = 11; 0728 CONST PROGRAMMEMORY = 10; 0729 CONST UTILITYPROGRAM = #10; 0730 CONST BNREENTRANT = 0; 0731 CONST BNRESIDENT = 1; 0732 CONST BNPERMANENT = 2; 0733 CONST BNMONITOR = 3; 0734 CONST BNUTILITY = 4; 0735 CONST BNPASCAL = 5; 0736 CONST RELEASEMEMORY = 0; 0737 CONST ALLOCATEMEMORY = 1; 0738 CONST TRANSFERMEMORY = 4; 0739 CONST MESSAGE_DELAY_PARENTSIGNAL = #302; 0740 CONST PUBLIC_USER = #FFFC; 0741 CONST UNSIGNED5 = #8520 ; 0742 CONST SIGNED5= #0520 ; 0743 0744 CONST RESERVE= 8; 0745 0746 TYPE EQUALITY_OPERATOR = ( EQ_OP, NE_OP, LT_OP, GT_OP); 0747 TYPE UNPACKED_NAME = ARRAY [0..7] OF CHAR; 0748 0749 TYPE TEXT = ARRAY [1..300] OF CHAR; 0750 0751 TYPE PROCESS_STATE = (FREE, CREATED, STOPPED, RUNNING); 0752 0753 TYPE TERMINAL_INIT_REC = RECORD 0754 OPER, ADDR, MODE, LINEWIDTH, TIMEOUT: INTEGER 0755 END; 0756 0757 TYPE DEVICE_STATE = (DEASSIGNED, ASSIGNED, MOUNTED, RESERVED, 0758 MOUNTED_DUAL, MOUNTED_DUALIZABLE); 0759 0760 0761 0762 TYPE TERMINAL_IO_MODE = (TIDLE, TIN, TOUT); 0763 0764 TYPE HEADER_KIND = (ILLEGAL_KIND, PROGRAM_KIND, PROCESS_KIND); 0765 0766 TYPE PROCESS_HEADER = RECORD 0767 KIND : HEADER_KIND; 0768 SIZE : INTEGER; 0769 PROC_NAME : PACKED_NAME3; 0770 CPU_NAME : PACKED_NAME3; 0771 PRIO, CAPAB, CLAIM, EXECSIZE: INTEGER; 0772 IO_PARS : ARRAY [1..4] OF INTEGER; 0773 MSGS : INTEGER; 0774 CURDIR : INTEGER; 0775 MEM_RANGE : INTEGER; 0776 DUMMY : ARRAY [0..4] OF INTEGER; 0777 LEVEL, BOUND : INTEGER 0778 END; 0779 0780 TYPE PROGRAM_NAME = PROCESS_NAME; 0781 0782 TYPE LOAD_RESULT = INTEGER; 0783 0784 TYPE MEMORY_TYPE = (FORPROGRAM, FORDATA); 0785 0786 TYPE PRINTERSTATETYPE = (PRINTERIDLE, PRINTERQUEUED, PRINTERACTIVE); 0787 0788 TYPE PRINTFILEREC = RECORD 0789 PRINTERSTATE : PRINTERSTATETYPE; 0790 PRINTERNAME : PROCESS_NAME; 0791 RESERVED : BOOLEAN; 0792 SEMA : FILE; 0793 RESERVER : INTEGER 0794 END; 0795 0796 TYPE RQ_ANSWER = (RQ_OK, RQ_INV_REQUEST, RQ_INV_PROC, RQ_INV_PROC_STATE, 0797 RQ_INV_FSN, RQ_FAIL_TASK, RQ_LOAD_ERROR, RQ_Q_OFFER); 0798 0799 TYPE SERVICE_REQUEST = (STARTTASK, STOPTASK, REMOVETASK, LOGOFF, 0800 LOADTASK_1, LOADTASK_2, INITTASK, RESERVEPRINT, RELEASEPRINT, 0801 STARTPRINT, QTASK); 0802 0803 TYPE SERVICE_REQUEST_MESSAGE = RECORD 0804 CASE RQTYPE :SERVICE_REQUEST OF 0805 STARTTASK, STOPTASK, REMOVETASK, LOADTASK_1, INITTASK: 0806 (PNAME : PROCESS_NAME); 0807 LOADTASK_2: (GNAME: PACKED_NAME2); 0808 STARTPRINT, QTASK, 0809 LOGOFF, RESERVEPRINT, RELEASEPRINT: (DUMMY : INTEGER) 0810 END; 0811 0812 TYPE USERENTRYTYPE = RECORD 0813 ID : INTEGER; 0814 PASSWORD : PACKED_NAME 0815 END; 0816 0817 TYPE FILE_ID = RECORD 0818 XCOMPLETE : BOOLEAN; 0819 XFSN : FILE_SYSTEM_NAME; 0820 XVOL : VOLUME_NAME; 0821 XNAMELIST : NAMELISTTYPE; 0822 XNAMENBR : INTEGER 0823 END; 0824 0825 TYPE STATUS_TYPE = (SCOMPLETE, SDEVICES, STERMINALS, SPROCESSES, SPROGRAMS); 0826 DEVICE_COMMAND = (SASSIGN, SDEASSIGN, SRESERVE, SRELEASE, 0827 SMOUNT, SDISMOUNT, SUPDATE ); 0828 0829 TYPE PASSES = (SERVICE_PASS, COMMAND_PASS, LOGIN_PASS, RUN_PASS, TERMINALON_PASS, 0830 STATUS_PASS, PRINT_PASS, DEVICE_PASS, LTUON_PASS, LPON_PASS); 0831 0832 TYPE TERMINAL_TYPE = (TERM, LTU, PRINTER); 0833 TYPE TERMINL = RECORD 0834 PROCESSREF : PROCESS_INDEX; 0835 OPERATION : OPERATION_REFERENCE; 0836 MODE : TERMINAL_IO_MODE; 0837 FIL : FILE; 0838 FILADR : FILE_ADDRESS; 0839 USED : BOOLEAN; 0840 TERM_TYPE : TERMINAL_TYPE; 0841 NAME : ARRAY [0..0] OF INTEGER; 0842 NEXT : TERMINAL_INDEX; "POINTER TO NEXT TERMINAL IF AN LTU" 0843 TUSERS : INTEGER; 0844 REC : IBUF_TYPE; 0845 REF_RECDESCRIPT : BLEPTR 0846 END; 0847 0848 TYPE PROC = RECORD 0849 NAME : PROCESS_NAME; 0850 USRID : USERID; 0851 BASE : INTEGER; 0852 EVT : INTEGER; "MESSAGE FROM PARENT TASK" 0853 PARENT : PROCESS_INDEX; 0854 PPROGRAM : PROGRAM_INDEX; 0855 PTERMINAL : TERMINAL_INDEX; 0856 STATE : PROCESS_STATE; 0857 MEM : INTEGER; 0858 PPAGE : INTEGER; 0859 CPU_NR : INTEGER; 0860 CPU_NAME : PACKED_NAME3 0861 END; 0862 0863 TYPE PROGRAM_HEADER = RECORD 0864 KIND : HEADER_KIND; 0865 SIZE : INTEGER; 0866 NAME : PROGRAM_NAME; 0867 PTYPE, START, MICRO, 0868 CHECKSUM, MEM_RANGE : INTEGER 0869 END; 0870 0871 TYPE PROGR = RECORD 0872 HEADER : PROGRAM_HEADER; 0873 PROG, MEM, USERS, 0874 PGPAGE : INTEGER 0875 END; 0876 0877 TYPE TDEVICE = RECORD 0878 FSYS : FILSYS_INDEX; 0879 DEV : DUAL_DEVICE_DESCRIPTION; 0880 VOLUME : VOLUME_NAME; 0881 USER : INTEGER; 0882 STATE : DEVICE_STATE; 0883 UPDATE_RESET : INTEGER; 0884 UPDATE_COUNT : INTEGER 0885 END; 0886 0887 TYPE LOAD_Q_ELEM_TYPE = RECORD 0888 EVT : INTEGER; "SAVED EVENT ID" 0889 USED : BOOLEAN; 0890 P : PROCESS_INDEX; 0891 F : FILE 0892 END; 0893 0894 TYPE LOAD_Q_TYPE = RECORD 0895 MEMORY_RELEASED : BOOLEAN; 0896 Q_SIZE : LOAD_Q_INDEX; 0897 Q : ARRAY [ LOAD_Q_INDEX ] OF LOAD_Q_ELEM_TYPE 0898 END; 0899 0900 TYPE TERMINALLIST= ARRAY [TERMINAL_INDEX] OF TERMINL; 0901 TYPE PROCESSLIST= ARRAY [PROCESS_INDEX] OF PROC; 0902 TYPE PROGRAMLIST= ARRAY [PROGRAM_INDEX] OF PROGR; 0903 TYPE FILSYSLIST= ARRAY [FILSYS_INDEX] OF FILE_SYSTEM_NAME; 0904 TYPE DEVICELIST= ARRAY [DEVICE_INDEX] OF TDEVICE; 0905 0906 TYPE TERMINALPTR= @TERMINALLIST; 0907 TYPE PROCESSPTR= @PROCESSLIST; 0908 TYPE PROGRAMPTR= @PROGRAMLIST; 0909 TYPE FILSYSPTR= @FILSYSLIST; 0910 TYPE DEVICEPTR= @DEVICELIST; 0911 TYPE LOAD_QPTR= @LOAD_Q_TYPE; 0912 0913 TYPE COMMON_DATA = RECORD 0914 TOS_VERSION: INTEGER; 0915 OS_MODE: OS_MODE_TYPE; 0916 LOCAL_PRINTER: BOOLEAN; 0917 OC_INIT_REC: TERMINAL_INIT_REC; 0918 SYSTEM_DEV: DUAL_DEVICE_DESCRIPTION; 0919 SYSTEM_VOL: VOLUME_NAME; 0920 SYSTEM_DIR: FILE_NAME; 0921 FILESYSTEMS: FILSYS_INDEX; 0922 AUTO_OPENS: INTEGER; 0923 NEWS: NEWS_TYPE; 0924 0925 TERMINAL: TERMINALPTR; 0926 PROCESS: PROCESSPTR; 0927 PRQGRAM: PROGRAMPTR; 0928 FILSYS: FILSYSPTR; 0929 DEVICE: DEVICEPTR; 0930 LOAD_Q: LOAD_QPTR; 0931 MAXTERMINAL: TERMINAL_INDEX; 0932 MAXPROCESS: PROCESS_INDEX; 0933 MAXPROGRAM: PROGRAM_INDEX; 0934 MAXFILSYS: FILSYS_INDEX; 0935 MAXDEVICE: DEVICE_INDEX; 0936 MAX_Q_SIZE: LOAD_Q_INDEX; 0937 SYSDIR: FILE; 0938 ERRORTEXTS: FILE; 0939 WF: FILE; 0940 WS: STREAM; 0941 STATUS: STATUS_TYPE; 0942 DEVICE_CMD: DEVICE_COMMAND; 0943 PASSFILE: ARRAY[ PASSES ] OF FILE; 0944 PRINTFILE: PRINTFILEREC; 0945 USRIDGENERATOR: INTEGER; 0946 MEMMGR: PROCESS_NAME; 0947 TEMP_FILE_ATTR: FILE_ATTRIBUTES; 0948 EVTTYP: EVENT_TYPE; 0949 EVENT: INTEGER; 0950 MSGBUF: MESSAGE_BUFFER; 0951 PROC_RESULT: COMPLETION_CODE; 0952 CURTERMINAL: TERMINAL_INDEX; 0953 CLOSED: BOOLEAN; 0954 OSUSR: USERID 0955 END; 0956 "MAXTERMINAL, MAXPROCESS, MAXPROGRAM CORRESPOND TO OC" 0957 "FILSYS[0] CORRESPONDS TO SYSTEM FILE SYSTEM " 0958 0959 TYPE GLOBAL_REF =@COMMON_DATA; 0960 "PAGE"«ff» *** ENDINCLUDE *** LEVEL: 1 0961 0962 %IMPORT: PACKNAME 0963 PROCEDURE PACKNAME( T: TEXT; VAR NM: PACKED_NAME; BYTES: INTEGER); 0964 EXTERN; 0965 " 0966 VAR I: INTEGER; 0967 BEGIN 0968 FOR I:=0 TO 7 DO NM[I] := 0; 0969 PACK( T[1], NM[0], BYTES); 0970 END; 0971 " 0972 0973 %IMPORT:PACKIT 0974 PROCEDURE PACKIT( T: TEXT; VAR STRING: UNIV ELEMENT; BYTES: INTEGER); 0975 EXTERN; 0976 " 0977 BEGIN 0978 PACK( T[1], STRING, BYTES); 0979 END; 0980 " 0981 0982 %IMPORT: GET_VERSION 0983 PROCEDURE GET_VERSION( VAR PROGRAM_VERSION: INTEGER); 0984 EXTERN; 0985 0986 0987 "PAGE" 0988 %EXPORT: CONFIG 0989 PROCEDURE CONFIG( VAR COMMON: COMMON_DATA); 0990 BEGIN 0991 WITH COMMON DO 0992 BEGIN 0993 MAXTERMINAL:= TERMINAL_LIMIT; NEW(TERMINAL); 0994 MAXPROCESS := PROCESS_LIMIT; NEW(PROCESS); 0995 MAXPROGRAM := PROGRAM_LIMIT; NEW(PRQGRAM); 0996 MAXFILSYS := FILSYS_LIMIT; NEW(FILSYS); 0997 MAXDEVICE := DEVICE_LIMIT; NEW(DEVICE); 0998 MAX_Q_SIZE := TERMINAL_LIMIT; NEW(LOAD_Q); 0999 GET_VERSION(TOS_VERSION); 1000 %SOURCE *** INCLUDE *** FILE: @DMA000-FILE*SSD*MD*CSP005.D*CSS380.D*AMOS.D*CONFIG.D*DEFAULTS *** LEVEL: 1 1001 1002 PACKIT( 'TTY000', PROCESS@[MAXPROCESS].NAME.NAME[0], 6); 1003 1004 WITH OC_INIT_REC DO 1005 BEGIN 1006 ADDR := 1; 1007 LINEWIDTH :=999; 1008 MODE := 0; 1009 TIMEOUT := 0; 1010 SETBIT(MODE,ECHO_MODE); 1011 SETBIT(MODE,WAIT_MODE); 1012 SETBIT(MODE,VDU_MODE); 1013 END; 1014 1015 1016 OS_MODE := SLAVE; " MASTER SINGLE SLAVE DUAL or DUALIZABLE " 1017 " MASTER and SINGLE are synonyms " 1018 1019 WITH SYSTEM_DEV DO 1020 BEGIN 1021 DEVICE.DEVICE_KIND := 46; 1022 DEVICE.DEVICE_ADDR := 52; 1023 DEVICE.UNIT := 0; "BIT 3 through 0 : unit number " 1024 "BIT 15 through 4 : CTR-RAM address " 1025 DEVICE.SUBUNIT := 0; 1026 PACKIT( 'SMD0', DEVICE.DEVICE[0], 4); 1027 PARTNER.DEVICE_ADDR:= -1; 1028 PARTNER.UNIT := 0; "BIT 3 through 0 : unit number " 1029 "BIT 15 through 4 : CTR-RAM address " 1030 END; 1031 1032 1033 PACKIT( 'DMA000', FILSYS@[0].PNAME.NAME[0], 6); " SYSTEM FILE SYSTEM " 1034 PACKIT( 'FILE', FILSYS@[0].GNAME[0], 4); 1035 1036 PACKNAME( 'SSD' , SYSTEM_VOL, 3); 1037 PACKNAME( 'MD', SYSTEM_DIR, 2); 1038 1039 1040 FILESYSTEMS := 1; " NUMBER OF ALTERNATE FILE SYSTEMS " 1041 PACKIT( 'DMA000', FILSYS@[0].PNAME.NAME[0], 6);"SYSTEM FILE SYSTEM " 1042 PACKIT( 'FILE', FILSYS@[0].GNAME[0], 4); 1043 PACKIT( 'DMA000', FILSYS@[1].PNAME.NAME[0], 6);"ALTERNATIVE FILE SYSTEM " 1044 PACKIT( 'AFMS', FILSYS@[1].GNAME[0], 4); 1045 1046 PACKIT( 'PRINTR', PRINTFILE.PRINTERNAME.NAME[0], 6); 1047 1048 AUTO_OPENS := 3; 1049 1050 WITH TERMINAL@[MAXTERMINAL] DO BEGIN 1051 FILADR.TRANSFERRED_BYTES := LONG(16); 1052 PACKIT( 'DO CONFIG0 ', REC, 16); 1053 END; *** ENDINCLUDE *** LEVEL: 1 1054 WITH NEWS DO 1055 BEGIN 1056 BYTE_COUNT := 16; 1057 PACKIT( '(:10:)Welcome to TOS(:10:)', MSG[1], BYTE_COUNT); 1058 END; 1059 1060 LOCAL_PRINTER := TRUE; 1061 END; 1062 END; 1063 1064 BEGIN END. SUMMARY COMPILER VERSION: 7 COMPILER RELEASE: 2 PROGRAM SIZE: 291 DATAOVERLAY: 0 LARGE CONSTANTS: 91 (AMOS, FASTCODE, SUBMODULE, NOCHECK, NONUMBER) «a5»