|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 7368 (0x1cc8)
Notes: pts_type(SC)
Names: »SKELET.SC«
└─⟦cd4bbebb4⟧ Bits:30009680 Philips computer tape "600221"
└─⟦this⟧ »ATM/SKELET.SC«
IDENT SKELET 830801 NJ * THIS PROGRAM CONTAINS THE ENTRYPOINT AND THE SKELETON * FOR THE PTS 6601 SIMULATION PROGRAM * THE PROGRAM WAS ORIGINALLY BASED ON THE TABSIM PROGRAM * DEVELOPED BY PDS COLCHESTER DDUM DDIV PDIV ENTRY STEP1 EXPROC LOADER EXPROC TABINT EXPROC SCRIBE EXPROC KINW EXPROC DCNW EXPROC OPENLN EXPROC ADDPOL EXPROC OPRCMD EXPROC RECHK EXPROC READOK EXPROC UNSTAT EXPROC SOLLST EXPROC CUSREQ EXPROC SENDFC EXPROC SETKLK EXPROC LDMONI EXPROC BUNDT EXPROC LUK EJECT * ****** INITIALISATION PHASE * STEP1 INITIALISATION PHASE DSC KB,X'02' CLEAR KEYBOARD PERF SCRIBE,NAME TABS 12.0 MAIN010 PERF TABINT READ CONSTANT FILE BNOK MAIN010 MAIN020 PERF OPENLN TRY TO OPEN THE ATM LINE IB RETUR,MAIN020,MAIN020 MAIN030 PERF ADDPOL ADD ATM TO POLL LIST IB RETUR,MAIN030,MAIN030 MAIN100 PERF DCNW PERF KINW MWAIT WKBIN4,DSCMIP,KB WAIT FOR I/O COMPL. ON DC/KB IB WKBIN4,MAIN120,MAIN101 WHICH DEVICE FINISHED? * MAIN101 IT WAS THE KEYBOARD ABORT DSCMIP FIRST END THE DC I/O OPERATION IB KIIX,MAIN110, INVALID C MAIN101A, DOWNLINELOAD C MAIN130, SET CLOCK C MAIN140, LOAD MORE MONEY C MAIN150, SPECIFY BUNDTNR C MAIN160, CLOSE MAHINE C MAIN110 B MAIN110 MAIN101A CBNE KILN,COB1,MAIN110 ONLY VALID IF <DLLD> PERF LOADER LOAD STATES,SCREENS,ETC BOK MAIN102 IF OK, OPEN ATM MOVE VARIOUS,=C'ERROR DURING DOWN-LINE LOADING ' PERF SCRIBE,VARIUS B MAIN110 MAIN102 MOVE WKSTR7,=C'1' OPEN TO CUSTOMERS PERF OPRCMD MAIN110 B MAIN100 MAIN120 DC INPUT COMPLETED ABORT KB XSTAT DSCMIP,BIN3 COPY STATUS TO BIN3 PERF RECHK EXAMINE STATUS IB BIN2, CHECK AND BRANCH ON INDEX C MAIN500, READ OK C MAIN200, MODEM NOT OPERABLE C MAIN300, LINE CLOSED C MAIN220, ATM INACTIV C MAIN500, RETRANSMISSIONS PERFORMED C MAIN300, POLL LIST OVERFLOW C MAIN300, POLL HALTED C MAIN400 ATM HAS BECOME ACTIVE B MAIN200 MAIN130 PERF LDMONI B MAIN100 MAIN140 PERF SETKLK B MAIN100 MAIN150 PERF BUNDT B MAIN100 MAIN160 PERF LUK B MAIN100 MAIN200 TBT MESFG,MAIN210 CHECK IF MESSAGE ALREADY O/P MOVE VARIOUS,=C'LINE NOT OPERABLE ' PERF SCRIBE,VARIUS SET MESFG SET 'MESSAGE DISPLAYED' FLAG MAIN210 B MAIN700 RETRY OPEN LINE MAIN220 PERF SCRIBE,INACT 'MICROBANK NOT RESPONDING' B MAIN600 MAIN300 DATA COMM READ ERROR XCOPY STATUS,COB1,COB2,BIN3,COB0 COPY STATUS TO A BCD FIELD PERF SCRIBE,DATAER 'DATA COMM READ ERROR' B MAIN020 MAIN400 ATM HAS BECOME ACTIVE PERF SCRIBE,ACT 'MICROBANK RESPONDING' MAIN500 PERF READOK IB RETUR,MAIN520,MAIN510,MAIN530 B MAIN600 MAIN510 PERF UNSTAT UNSOLL.STATUS B MAIN600 MAIN520 PERF SOLLST SOLL.STATUS IB RETUR,MAIN600 PERF SENDFC SEND A FUNCTION COMMAND B MAIN600 MAIN530 PERF CUSREQ CUSTOMER REQUEST PERF SENDFC SEND A FUNCTION COMMAND MAIN600 B MAIN100 TRY TO READ AGAIN MAIN700 B MAIN020 EJECT NAME FRMT FILLR '1',2 FILLR ' ',24 FTEXT 'TABS SIMULATION UTILITY (12.0)' FEOR FILLR '2',2 FILLR ' ',30 FTEXT 'NORSK UTGAVE' FEOR FILLR '2',2 FILLR ' ',31 FTEXT 'VERSION 83.08.01' FMEND VARIUS FRMT FCOPY ='22' FCOPY VARIOUS FMEND ACT FRMT FCOPY ='22' FCOPY ='MICROBANK' FCOPY =' RESPONDING TO POLL' FMEND DATAER FRMT FTEXT '22DATA COMM READ ERROR : ' FMEL '9999',STATUS FMEND INACT FRMT FCOPY ='22' FCOPY ='MICROBANK' FCOPY =' NOT' FCOPY =' RESPONDING TO POLL' FMEND END