!***************************************************************************!
!                                                                           !
!                            AM-1092-M SIMULATOR                            !
!                                                                           !
!***************************************************************************!
!Copyright (C) 1986 by UltraSoft.  All Rights Reserved.
!
!Written by: David Pallmann
!
!Edit History:
!04-Jul-86 created. /DFP

       MAP1 I,F
       MAP1 J,F
       MAP1 COMMAND,S,1
       MAP1 TEXT,S,80
       MAP1 COVER,F
       MAP1 CPU,F
       MAP1 MEM1,F
       MAP1 MEM2,F
       MAP1 AM415,F
       MAP1 VCR,F
       MAP1 DISK,F
       MAP1 AM600,F
       MAP1 TAPE,F
       MAP1 AM316,F
       MAP1 TERM,F

INIT:   COVER = -1
       CPU = -1
       MEM1 = -1
       MEM2 = -1
       AM415 = -1
       VCR = -1
       DISK = -1
       AM600 = -1
       TAPE = -1
       AM316 = -1
       TERM = -1

SCREEN: PRINT TAB(-1,0);
       PRINT "UltraSoft AM1092M simulator";
       PRINT TAB(3,56); "B       - boot system";
       PRINT TAB(4,56); "R COVER - remove  cover";
       PRINT TAB(5,56); "R CPU   - remove  AM100L";
       PRINT TAB(6,56); "R MEM1  - remove  AM720 1";
       PRINT TAB(7,56); "R MEM2  - remove  AM720 2";
       PRINT TAB(8,56); "R 415   - remove  AM415";
       PRINT TAB(9,56); "R VCR   - remove  AM610";
       PRINT TAB(10,56); "R DISK  - remove  drive";
       PRINT TAB(11,56); "R 600   - remove  AM600";
       PRINT TAB(12,56); "R TAPE  - remove  magtape";
       PRINT TAB(13,56); "R 316   - remove  AM316";
       PRINT TAB(14,56); "R TERM  - remove  CRT";
       PRINT TAB(15,56); "W TAPE  - warm boot AM600";
       PRINT TAB(16,56); "W VCR   - warm boot AM610";
       PRINT TAB(17,56); "Q       - quit";
       PRINT TAB(-1,23);
       CALL PRINT'DISK
       CALL PRINT'TAPE
       CALL PRINT'TERM

DRAW:   PRINT TAB(-1,23);
       IF COVER THEN CALL PRINT'COVER : GOTO SELECT
       CALL PRINT'BUS
       IF CPU THEN CALL PRINT'CPU
       IF MEM1 THEN CALL PRINT'MEM1
       IF MEM2 THEN CALL PRINT'MEM2
       IF AM415 THEN CALL PRINT'AM415
       IF VCR THEN CALL PRINT'VCR
       IF AM600 THEN CALL PRINT'AM600
       IF AM316 THEN CALL PRINT'AM316

SELECT: PRINT TAB(-1,28);
       PRINT TAB(-1,24);
       PRINT TAB(20,56); ">"; TAB(-1,9);
       INPUT LINE TEXT
       PRINT TAB(-1,23);
       PRINT TAB(-1,10);
       IF TEXT="" THEN GOTO SELECT
       TEXT = UCS(TEXT)
       PRINT TAB(22,56);
       COMMAND = LEFT(TEXT,1)
       TEXT = RIGHT(TEXT,LEN(TEXT)-2)
       IF COMMAND="B" THEN GOTO BOOT
       IF COMMAND="R" THEN GOTO REMOVE
       IF COMMAND="Q" THEN GOTO FINISH
       IF COMMAND="W" THEN GOTO WARM

WHAT:   PRINT TAB(-1,24); "What?" TAB(-1,23);
       GOTO SELECT

WARM:   IF TEXT="VCR" THEN GOTO WARM'VCR
       IF TEXT="610" THEN GOTO WARM'VCR
       IF TEXT="AM610" THEN GOTO WARM'VCR
       IF TEXT="TAPE" THEN GOTO WARM'TAPE
       IF TEXT="600" THEN GOTO WARM'TAPE
       IF TEXT="AM600" THEN GOTO WARM'TAPE
       GOTO WHAT

WARM'VCR:
       PRINT TAB(-1,29);
       PRINT TAB(-1,24);
       FOR I = 7 TO 11
           PRINT TAB(I,32); SPACE(13);
           NEXT I
       IF COVER PRINT TAB(14,18); " "; : CALL WAIT : CALL WAIT
       IF CPU ELSE GOTO NO'BOOT
       IF MEM1 ELSE GOTO NO'BOOT
       IF VCR ELSE GOTO NO'BOOT
       GOTO BOOTUP

WARM'TAPE:
       PRINT TAB(-1,29);
       PRINT TAB(-1,24);
       FOR I = 7 TO 11
           PRINT TAB(I,32); SPACE(13);
           NEXT I
       IF COVER PRINT TAB(14,18); " "; : CALL WAIT : CALL WAIT
       IF CPU ELSE GOTO NO'BOOT
       IF MEM1 ELSE GOTO NO'BOOT
       IF AM600 ELSE GOTO NO'BOOT
       IF TAPE ELSE GOTO NO'BOOT
       GOTO BOOTUP

BOOT:   PRINT TAB(-1,29);
       PRINT TAB(-1,24);
       FOR I = 7 TO 11
           PRINT TAB(I,32); SPACE(13);
           NEXT I
       IF COVER PRINT TAB(14,18); " "; : CALL WAIT : CALL WAIT
       IF CPU ELSE GOTO NO'BOOT
       IF MEM1 ELSE GOTO NO'BOOT
       IF COVER PRINT TAB(14,18); "b"; : CALL WAIT : CALL WAIT

BOOTUP: PRINT TAB(-1,24);
       IF COVER PRINT TAB(14,18); "F"; : CALL WAIT : CALL WAIT
       IF NOT(DISK) AND COVER THEN PRINT TAB(14,18); "3"; : CALL WAIT : CALL WAIT
       IF NOT(DISK) THEN GOTO NO'BOOT
       IF NOT(AM415) AND COVER THEN PRINT TAB(14,18); "3"; : CALL WAIT : CALL WAIT
       IF NOT(AM415) THEN GOTO NO'BOOT
       PRINT TAB(14,18); " "; : CALL WAIT : CALL WAIT
       IF NOT(AM316) THEN PRINT TAB(22,56); "Terminal Dead"; : GOTO SELECT
       IF NOT(TERM) THEN PRINT TAB(22,56); "Terminal Dead"; : GOTO SELECT
       PRINT TAB(7,32); ".TRMDEF";
       PRINT TAB(8,32); ".DEVTBL"; : CALL WAIT
       PRINT TAB(9,32); ".BITMAP";
       PRINT TAB(10,32); ".SYSTEM"; : CALL WAIT
       PRINT TAB(11,32); ".MEMORY 0";
       PRINT TAB(22,56); "System Up";
       PRINT TAB(23,56);
       IF MEM1 AND MEM2 THEN PRINT "1024K"; ELSE PRINT "512K";
       PRINT " memory present";
       GOTO SELECT

NO'BOOT:
       PRINT TAB(8,36); "X"; TAB(8,40); "X";
       PRINT TAB(10,35); "_______";
       PRINT TAB(-1,24); TAB(22,56); "** NO BOOT **";
       GOTO SELECT

REMOVE: IF TEXT="COVER" THEN GOTO R'COVER
       IF TEXT="CPU" THEN GOTO R'CPU
       IF TEXT="MEM" THEN GOTO R'MEM
       IF TEXT="720" THEN GOTO R'MEM
       IF TEXT="MEM1" THEN GOTO R'MEM1
       IF TEXT="MEM2" THEN GOTO R'MEM2
       IF TEXT="AM415" THEN GOTO R'AM415
       IF TEXT="415" THEN GOTO R'AM415
       IF TEXT="VCR" THEN GOTO R'VCR
       IF TEXT="610" THEN GOTO R'VCR
       IF TEXT="AM610" THEN GOTO R'VCR
       IF TEXT="DISK" THEN GOTO R'DISK
       IF TEXT="AM600" THEN GOTO R'AM600
       IF TEXT="600" THEN GOTO R'AM600
       IF TEXT="TAPE" THEN GOTO R'TAPE
       IF TEXT="MAGTAPE" THEN GOTO R'TAPE
       IF TEXT="AM316" THEN GOTO R'AM316
       IF TEXT="316" THEN GOTO R'AM316
       IF TEXT="TERM" THEN GOTO R'TERM
       IF TEXT="TRM" THEN GOTO R'TERM
       IF TEXT="CRT" THEN GOTO R'TERM
       GOTO WHAT

R'COVER:
       IF COVER ELSE GOTO REPLACE'COVER

REMOVE'COVER:
       PRINT TAB(-1,24); "Cover removed"; TAB(4,66); "replace"; TAB(-1,23);
       COVER = 0
       FOR I = 10 TO 15
           PRINT TAB(I,1); SPACE(23);
           NEXT I
       GOTO DRAW

REPLACE'COVER:
       PRINT TAB(-1,24); "Cover replaced"; TAB(4,66); "remove "; TAB(-1,23);
       COVER = -1
       GOTO DRAW

R'TERM: IF TERM ELSE GOTO REPLACE'TERM

REMOVE'TERM:
       PRINT TAB(-1,24); "Terminal removed";
       PRINT TAB(14,66); "replace";
       TERM = 0
       FOR I = 6 TO 13
           PRINT TAB(I,29); SPACE(19);
           NEXT I
       GOTO SELECT

REPLACE'TERM:
       PRINT TAB(-1,24); "Terminal replaced";
       PRINT TAB(14,66); "remove ";
       TERM = -1
       CALL PRINT'TERM
       GOTO SELECT

R'DISK: IF DISK ELSE GOTO REPLACE'DISK

REMOVE'DISK:
       PRINT TAB(-1,24); "Drive removed";
       PRINT TAB(10,66); "replace";
       DISK = 0
       FOR I = 17 TO 23
           PRINT TAB(I,1); SPACE(23);
           NEXT I
       GOTO SELECT

REPLACE'DISK:
       PRINT TAB(-1,24); "Drive replaced";
       PRINT TAB(10,66); "remove ";
       DISK = -1
       PRINT TAB(-1,23);
       CALL PRINT'DISK
       GOTO SELECT

R'AM600:
       IF COVER THEN GOTO FIRST
       IF AM600 ELSE GOTO REPLACE'AM600

REMOVE'AM600:
       PRINT TAB(-1,24); "AM600 removed";
       PRINT TAB(11,66); "replace";
       AM600 = 0
       FOR I = 10 TO 14
           PRINT TAB(I,11); " ";
           NEXT I
       GOTO SELECT

REPLACE'AM600:
       PRINT TAB(-1,24); "AM600 replaced";
       PRINT TAB(11,66); "remove ";
       AM600 = -1
       PRINT TAB(-1,23);
       CALL PRINT'AM600
       GOTO DRAW

R'TAPE: IF TAPE ELSE GOTO REPLACE'TAPE

REMOVE'TAPE:
       PRINT TAB(-1,24); "Tape Drive removed";
       PRINT TAB(12,66); "replace";
       TAPE = 0
       FOR I = 6 TO 8
           PRINT TAB(I,1); SPACE(23);
           NEXT I
       GOTO SELECT

REPLACE'TAPE:
       PRINT TAB(-1,24); "Tape Drive replaced";
       PRINT TAB(12,66); "remove ";
       TAPE = -1
       PRINT TAB(-1,23);
       CALL PRINT'TAPE
       GOTO SELECT

R'CPU:  IF COVER THEN GOTO FIRST
       IF CPU ELSE GOTO REPLACE'CPU

REMOVE'CPU:
       PRINT TAB(-1,24); "CPU removed"; TAB(5,66); "replace"; TAB(-1,23);
       CPU = 0
       FOR I = 10 TO 14
           PRINT TAB(I,1); " ";
           NEXT I
       GOTO SELECT

REPLACE'CPU:
       PRINT TAB(-1,24); "CPU replaced"; TAB(5,66); "remove "; TAB(-1,23);
       CPU = -1
       CALL PRINT'CPU
       GOTO SELECT

R'MEM:  IF COVER THEN GOTO FIRST
       IF MEM1 THEN GOTO R'MEM1
       IF MEM2 THEN GOTO R'MEM2
       GOTO R'MEM1

R'MEM2: IF COVER THEN GOTO FIRST
       IF MEM2 ELSE GOTO REPLACE'MEM2

REMOVE'MEM2:
       PRINT TAB(-1,24); "Memory #2 removed"; TAB(7,66); "replace";
       MEM2 = 0
       FOR I = 10 TO 14
           PRINT TAB(I,5); " ";
           NEXT I
       GOTO SELECT

REPLACE'MEM2:
       PRINT TAB(-1,24); "Memory #2 replaced"; TAB(7,66); "remove ";
       MEM2 = -1
       GOTO DRAW

R'MEM1: IF COVER THEN GOTO FIRST
       IF MEM1 ELSE GOTO REPLACE'MEM1

REMOVE'MEM1:
       PRINT TAB(-1,24); "Memory #1 removed"; TAB(6,66); "replace";
       MEM1 = 0
       FOR I = 10 TO 14
           PRINT TAB(I,3); " ";
           NEXT I
       GOTO SELECT

REPLACE'MEM1:
       PRINT TAB(-1,24); "Memory #1 replaced"; TAB(6,66); "remove";
       MEM1 = -1
       GOTO DRAW

R'AM415:
       IF COVER THEN GOTO FIRST
       IF AM415 ELSE GOTO REPLACE'AM415

REMOVE'AM415:
       PRINT TAB(-1,24); "AM415 removed"; TAB(8,66); "replace";
       AM415 = 0
       FOR I = 10 TO 14
           PRINT TAB(I,7); " ";
           NEXT I
       GOTO SELECT

REPLACE'AM415:
       PRINT TAB(-1,24); "AM415 replaced"; TAB(8,66); "remove ";
       AM415 = -1
       GOTO DRAW

R'VCR:  IF COVER THEN GOTO FIRST
       IF VCR ELSE GOTO REPLACE'VCR

REMOVE'VCR:
       PRINT TAB(-1,24); "AM610 removed"; TAB(9,66); "replace";
       VCR = 0
       FOR I = 10 TO 14
           PRINT TAB(I,9); " ";
           NEXT I
       GOTO SELECT

REPLACE'VCR:
       PRINT TAB(-1,24); "AM610 replaced"; TAB(9,66); "remove ";
       VCR = -1
       GOTO DRAW

R'AM316:
       IF COVER THEN GOTO FIRST
       IF AM316 ELSE GOTO REPLACE'AM316

REMOVE'AM316:
       PRINT TAB(-1,24); "AM316 removed"; TAB(13,66); "replace";
       AM316 = 0
       FOR I = 10 TO 14
           PRINT TAB(I,13); " ";
           NEXT I
       GOTO SELECT

REPLACE'AM316:
       PRINT TAB(-1,24); "AM316 replaced"; TAB(13,66); "remove ";
       AM316 = -1
       GOTO DRAW

FIRST:  PRINT TAB(-1,24); "Remove cover first";
       GOTO SELECT

FINISH: PRINT TAB(-1,24);
       PRINT TAB(24,1);
       END

PRINT'COVER:
       FOR I = 10 TO 15
           PRINT TAB(I,1);
           FOR J = 1 TO 23
               PRINT TAB(-1,49);
               NEXT J
           NEXT I
       PRINT TAB(-1,24);
       PRINT TAB(12,8); " AM-1092 ";
       PRINT TAB(14,18); "  ";
       PRINT TAB(-1,23);
       RETURN

PRINT'DISK:
       FOR I = 17 TO 19
           PRINT TAB(I,1);
           FOR J = 1 TO 23
               PRINT TAB(-1,49);
               NEXT J
           NEXT I
       PRINT TAB(-1,24);
       PRINT TAB(18,8); "   DISK  ";
       PRINT TAB(-1,23);
       RETURN

PRINT'BUS:
       FOR I = 1 TO 22 STEP 2
           PRINT TAB(15,I); TAB(-1,45); TAB(-1,46);
           NEXT I
       PRINT TAB(-1,45);
       RETURN

PRINT'CPU:
       FOR I = 10 TO 14
           PRINT TAB(I,1); TAB(-1,47);
           NEXT I
       PRINT TAB(-1,24);
       PRINT TAB(11,1); "C";
       PRINT TAB(12,1); "P";
       PRINT TAB(13,1); "U";
       PRINT TAB(-1,23);
       RETURN

PRINT'MEM1:
       FOR I = 10 TO 14
           PRINT TAB(I,3); TAB(-1,47);
           NEXT I
       PRINT TAB(-1,24);
       PRINT TAB(11,3); "M";
       PRINT TAB(12,3); "E";
       PRINT TAB(13,3); "M";
       PRINT TAB(-1,23);
       RETURN

PRINT'MEM2:
       FOR I = 10 TO 14
           PRINT TAB(I,5); TAB(-1,47);
           NEXT I
       PRINT TAB(-1,24);
       PRINT TAB(11,5); "M";
       PRINT TAB(12,5); "E";
       PRINT TAB(13,5); "M";
       PRINT TAB(-1,23);
       RETURN

PRINT'AM415:
       FOR I = 10 TO 14
           PRINT TAB(I,7); TAB(-1,47);
           NEXT I
       PRINT TAB(-1,24);
       PRINT TAB(11,7); "4";
       PRINT TAB(12,7); "1";
       PRINT TAB(13,7); "5";
       PRINT TAB(-1,23);
       RETURN

PRINT'VCR:
       FOR I = 10 TO 14
           PRINT TAB(I,9); TAB(-1,47);
           NEXT I
       PRINT TAB(-1,24);
       PRINT TAB(11,9); "6";
       PRINT TAB(12,9); "1";
       PRINT TAB(13,9); "0";
       PRINT TAB(-1,23);
       RETURN

PRINT'AM600:
       FOR I = 10 TO 14
           PRINT TAB(I,11); TAB(-1,47);
           NEXT I
       PRINT TAB(-1,24);
       PRINT TAB(11,11); "6";
       PRINT TAB(12,11); "0";
       PRINT TAB(13,11); "0";
       PRINT TAB(-1,23);
       RETURN

PRINT'TAPE:
       FOR I = 6 TO 8
           PRINT TAB(I,1);
           FOR J = 1 TO 23
               PRINT TAB(-1,49);
               NEXT J
           NEXT I
       PRINT TAB(-1,24);
       PRINT TAB(7,8); "  TAPE  ";
       PRINT TAB(-1,23);
       RETURN

PRINT'AM316:
       FOR I = 10 TO 14
           PRINT TAB(I,13); TAB(-1,47);
           NEXT I
       PRINT TAB(-1,24);
       PRINT TAB(11,13); "3";
       PRINT TAB(12,13); "1";
       PRINT TAB(13,13); "6";
       PRINT TAB(-1,23);
       RETURN

PRINT'TERM:
       PRINT TAB(-1,23);
       PRINT TAB(6,30); TAB(-1,38);
       FOR I = 1 TO 15 : PRINT TAB(-1,46); : NEXT I
       PRINT TAB(-1,39);
       FOR I = 7 TO 11
           PRINT TAB(I,30); TAB(-1,47); TAB(I,46); TAB(-1,47);
           PRINT TAB(I,45); TAB(-1,33); TAB(I,31); TAB(-1,32);
           NEXT I
       PRINT TAB(12,30); TAB(-1,40);
       FOR I = 1 TO 15 : PRINT TAB(-1,46); : NEXT I
       PRINT TAB(-1,41);
       PRINT TAB(13,29); TAB(-1,40);
       FOR I = 1 TO 17 : PRINT TAB(-1,46); : NEXT I
       PRINT TAB(-1,41);
       PRINT TAB(12,29); TAB(-1,38); TAB(12,47); TAB(-1,39);
       PRINT TAB(-1,23);
       RETURN

WAIT:   FOR I = 1 TO 1500
           NEXT I
       RETURN

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.