!***************************************************************************!
!                                                                           !
!                                SYSGEN.BAS                                 !
!          Automatic System Initialization File Generation Program          !
!                                                                           !
!***************************************************************************!
!Written @LMS Technical Services, Inc. by David F. Pallmann.

       PROGRAM SYSGEN,1.0

IO'SPACE:
       MAP1 PORT'120, F, 6, 4          !I/O port address - AM120 board
       MAP1 PORT'210, F, 6, 240        !I/O port address - AM210 board
       MAP1 PORT'300, F, 6, 248        !I/O port address - AM300 board
       MAP1 PORT'300'2, F, 6, 232      !I/O port address - AM300 board #2
       MAP1 PORT'300'3, F, 6, 216      !I/O port address - AM300 board #3
       MAP1 PORT'300'4, F, 6, 104      !I/O port address - AM300 board #4
       MAP1 PORT'300'5, F, 6, 96       !I/O port address - AM300 board #5
       MAP1 PORT'310, F, 6, 176        !I/O port address - AM310 board
       MAP1 PORT'310'2, F, 6, 180      !I/O port address - AM310 board #2
       MAP1 PORT'310'3, F, 6, 184      !I/O port address - AM310 board #3
       MAP1 PORT'320, F, 6, 194        !I/O port address - AM320 board
       MAP1 PORT'330, F, 6, 133        !I/O port address - AM330 board
       MAP1 PORT'415, F, 6, 208        !I/O port address - AM415 board
       MAP1 PORT'420, F, 6, 196        !I/O port address - AM420 board
       MAP1 PORT'500, F, 6, 192        !I/O port address - AM500 board
       MAP1 PORT'600, F, 6, 160        !I/O port address - AM600 board
       MAP1 PORT'610, F, 6, 212        !I/O port address - AM610 board
       MAP1 PORT'620, F, 6, 103        !I/O port address - AM620 (AM120) port

MAPS:   MAP1 MEMORY, F, 6, 0            !amount of memory detected
       MAP1 JOBS, F, 6, 0              !number of jobs to allocate
       MAP1 PART, F, 6                 !partion size
       MAP1 MISSING, F, 6, 255         !means board is missing
       MAP1 I, F, 6                    !temporary
       MAP1 ADDR, F, 6                 !address
       MAP1 TEXT, S, 80                !text string
       MAP1 PORT, F, 6                 !port number
       MAP1 TRM, F, 6                  !current terminal number
       MAP1 BASE, F, 6                 !base port number
       MAP1 AM210, F, 6, 0             !set if an AM210 is present
       MAP1 AM300, F, 6, 0             !set if any AM300s are present
       MAP1 COUNT'300, F, 6, 0         !number of AM300s detected
       MAP1 AM310, F, 6, 0             !set if any AM310s are present
       MAP1 COUNT'310, F, 6, 0         !number of AM310s detected
       MAP1 AM320, F, 6, 0             !set if an AM320 is present
       MAP1 AM330, F, 6, 0             !set if an AM330 is present
       MAP1 AM410, F, 6, 0             !set if an AM410 is present
       MAP1 AM415, F, 6, 0             !set if an AM415 is present
       MAP1 AM420, F, 6, 0             !set if an AM420 is present
       MAP1 AM500, F, 6, 0             !set if an AM500 is present
       MAP1 AM600, F, 6, 0             !set if an AM600 is present
       MAP1 AM610, F, 6, 0             !set if an AM610 is present
       MAP1 AM620, F, 6, 0             !set if an AM620 is present

START:  PRINT "Generating SYSTEM.INI.";
       OPEN #1, "SYSTEM.INI", OUTPUT
       PRINT "."; : CALL MAP'IO
       PRINT "."; : CALL HEADER
       PRINT "."; : CALL JOBS
       PRINT "."; : CALL TRMDEF
       PRINT "."; : CALL DEVTBL
       PRINT "."; : CALL BITMAP
       PRINT "."; : CALL QUEUE
       PRINT "."; : CALL SYSTEM
       PRINT "."; : CALL SETUPS
       PRINT "."; : CALL END
       PRINT "."; : CLOSE #1
       PRINT "."
       END

MAP'IO: IF IO(PORT'210)<>MISSING THEN AM210 = 1
       IF IO(PORT'300)<>MISSING THEN AM300 = 1 : COUNT'300 = 1
       IF IO(PORT'300'2)<>MISSING THEN COUNT'300 = 2
       IF IO(PORT'300'3)<>MISSING THEN COUNT'300 = 3
       IF IO(PORT'300'4)<>MISSING THEN COUNT'300 = 4
       IF IO(PORT'300'5)<>MISSING THEN COUNT'300 = 5
       IF IO(PORT'310)<>MISSING THEN AM310 = 1 : COUNT'310 = 1
       IF IO(PORT'310'2)<>MISSING THEN COUNT'310 = 2
       IF IO(PORT'310'3)<>MISSING THEN COUNT'310 = 3
       IF IO(PORT'320)<>MISSING THEN AM320 = 1
       IF IO(PORT'330)<>MISSING THEN AM330 = 1
       IF IO(PORT'415)<>MISSING THEN AM415 = 1
       IF IO(PORT'420)<>MISSING THEN AM420 = 1
       IF IO(PORT'500)<>MISSING THEN AM500 = 1
       IF IO(PORT'600)<>MISSING THEN AM600 = 1
       IF IO(PORT'610)<>MISSING THEN AM610 = 1
       IF IO(PORT'620)<>MISSING THEN AM620 = 1
       MEMORY = WORD(1040)*2^6
       JOBS = (COUNT'300*6)+(COUNT'310*4)+2
       RETURN

HEADER: PRINT #1, ":T"
       PRINT #1, ";System Initialization by SYSGEN version 1"
       PRINT #1, ";"
       PRINT #1, ";Configuration:"
       PRINT #1, ";"
       PRINT #1, ";     1 - AM100L CPU"
       PRINT #1, ";       - "; STR(MEMORY); "K bytes of memory"
       IF AM210=1 THEN PRINT #1, ";     1 - AM210 floppy disk"
       IF AM300=1 THEN PRINT #1, ";    "; COUNT'300; "- AM300 6-port serial I/O"
       IF AM310=1 THEN PRINT #1, ";    "; COUNT'310; "- AM310 4-port serial I/O"
       IF AM320=1 THEN PRINT #1, ";     1 - AM320 line printer interface"
       IF AM330=1 THEN PRINT #1, ";     1 - AM330 communications board"
       IF AM410=1 THEN PRINT #1, ";     1 - AM410 Phoenix disk controller"
       IF AM415=1 THEN PRINT #1, ";     1 - AM415 Fujitsu disk controller"
       IF AM420=1 THEN PRINT #1, ";     1 - AM420 Priam disk controller"
       IF AM500=1 THEN PRINT #1, ";     1 - AM500 Hawk disk controller"
       IF AM600=1 THEN PRINT #1, ";     1 - AM600 magtape interface"
       IF AM610=1 THEN PRINT #1, ";     1 - AM610 VCR interface"
       IF AM620=1 THEN PRINT #1, ";     1 - AM620 streamer tape drive"
       RETURN

JOBS:   PRINT #1, "JOBS "; STR(JOBS)
       FOR I = 1 TO JOBS-1
           IF I=1 THEN GOTO NEW'JOBALC
           IF I/10=INT(I/10) THEN GOTO NEW'JOBALC
           PRINT #1, ",JOB"; STR(I);
           GOTO JOB'NEXT

NEW'JOBALC: PRINT #1
           PRINT #1, "JOBALC JOB"; STR(I);

JOB'NEXT:   NEXT I
       PRINT #1
       PRINT #1, "JOBALC SPOOL"
       PRINT #1
       RETURN

TRMDEF: PRINT #1, "TRMDEF TRM1,AM100L=0:9600,ALPHA,100,100,100"
       TRM = 1
       CALL AM120
       CALL AM300'1
       CALL AM300'2
       CALL AM300'3
       CALL AM300'4
       CALL AM300'5
       CALL AM310'1
       CALL AM310'2
       CALL AM310'3
       PRINT #1, "TRMDEF PRINTR,AM100L=1:9600,TELTYP,2,2,25"
       PRINT #1, "TRMDEF PSEUDO,PSEUDO,NULL,100,100,100"
       PRINT #1
       RETURN

       AM120:  FOR PORT = 0 TO 1
                   TRM = TRM+1
                   PRINT #1, "TRMDEF TRM"; STR(TRM); ",AM120="; STR(PORT);
                   PRINT #1, ":9600,ALPHA,100,100,100"
                   NEXT PORT
               RETURN

       AM300'1:
               BASE = 1
               CALL AM300
               RETURN

       AM300'2:
               IF COUNT'300<2 THEN RETURN
               BASE = 11
               CALL AM300
               RETURN

       AM300'3:
               IF COUNT'300<3 THEN RETURN
               BASE = 21
               CALL AM300
               RETURN

       AM300'4:
               IF COUNT'300<4 THEN RETURN
               BASE = 31
               CALL AM300
               RETURN

       AM300'5:
               IF COUNT'300<5 THEN RETURN
               BASE = 41
               CALL AM300
               RETURN

       AM300:  FOR PORT = 0 TO 5
                   TRM = TRM+1
                   PRINT #1, "TRMDEF TRM"; STR(TRM); ",AM300="; STR(BASE+PORT);
                   PRINT #1, ":9600,ALPHA,100,100,100"
                   NEXT PORT
               RETURN

       AM310'1:
               BASE = 0
               CALL AM310
               RETURN

       AM310'2:
               IF COUNT'310<2 THEN RETURN
               BASE = 4
               CALL AM310
               RETURN

       AM310'3:
               IF COUNT'310<3 THEN RETURN
               BASE = 10
               CALL AM310
               RETURN

       AM310:  FOR PORT = 0 TO 3
                   TRM = TRM+1
                   PRINT #1, "TRMDEF TRM"; STR(TRM); ",AM310="; STR(BASE+PORT);
                   PRINT #1, ":9600,ALPHA,100,100,100"
                   NEXT PORT
               RETURN

DEVTBL: IF AM410=1 THEN PRINT #1, "DEVTBL DSK1,DSK2,DSK3,DSK4,DSK5"
       IF AM415=1 THEN PRINT #1, "DEVTBL DSK1,DSK2"
       IF AM420=1 THEN PRINT #1, "DEVTBL DSK1,DSK2"
       PRINT #1, "DEVTBL TRM,RES,MEM"
       IF AM320=1 THEN PRINT #1, "DEVTBL /LPR0"
       IF AM600=1 THEN PRINT #1, "DEVTBL /MTU0"
       IF AM610=1 THEN PRINT #1, "DEVTBL /VCR0"
       IF AM620=1 THEN PRINT #1, "DEVTBL /STR0"
       PRINT #1
       RETURN

BITMAP: CALL BITMAP'PHOENIX
       CALL BITMAP'FUJI
       CALL BITMAP'PRIAM
       PRINT #1
       RETURN

BITMAP'PHOENIX:
       IF AM410=0 THEN RETURN
       FOR I = 0 TO 5
           PRINT #1, "BITMAP DSK,1818,"; STR(I)
           NEXT I
       RETURN

BITMAP'FUJI:
       IF AM415=0 THEN RETURN
       FOR I = 0 TO 2
           PRINT #1, "BITMAP DSK,3702,"; STR(I)
           NEXT I
       RETURN

BITMAP'PRIAM:
       IF AM420=0 THEN RETURN
       FOR I = 0 TO 2
           PRINT #1, "BITMAP DSK,1288,"; STR(I)
           NEXT I
       RETURN

QUEUE:  PRINT #1, "QUEUE "; STR(JOBS*5+20)
       PRINT #1
       RETURN

SYSTEM: RETURN

SETUPS: PRINT #1, "ATTACH PSEUDO,SPOOL"
       PRINT #1, "KILL SPOOL"
       PRINT #1, "FORCE SPOOL"
       PRINT #1, "MEMORY 6K"
       PRINT #1, "LOG SYS:"
       PRINT #1, "LPTINI PRINTR.INI"
       PRINT #1
       PRINT #1, "WAIT SPOOL"
       PRINT #1, "ATTACH PRINTR,SPOOL"
       PRINT #1
       PART = INT((MEMORY-6)/JOBS)
       FOR I = 2 TO JOBS-1
           PRINT #1, "ATTACH TRM"; STR(I); ",JOB"; STR(I)
           PRINT #1, "KILL JOB"; STR(I)
           PRINT #1, "FORCE JOB"; STR(I)
           PRINT #1, "MEMORY "; STR(PART); "K"
           PRINT #1, "VER"
           PRINT #1
           PRINT #1, "WAIT JOB"; STR(I)
           PRINT #1
           NEXT I
       RETURN

END:    PRINT #1, "MEMORY 0"
       RETURN

       END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.