⟦a7a4505eb⟧

PTS(SC)

 IDENT DDIV 830809 NJ 


**********************************************************
*                                                        *
* THIS PROGRAM TESTS THE FUNCTIONING OF THE FOLLOWING    *
* ATM MACHINES:                                          *
*    - 912                                               *
*    - 922                                               *
*                                                        *
**********************************************************
 EJECT
	DDIV	



	TERM	A0
	TWB	TB1
	TWB	TB2
	TWB	TB3
	TWB	TB4
	TWB	TB5
	TWB	TB6
	TWB	TB7
 TWB TB8
 TWB TB9
 TWB TBA



DY	DSET	FC=X'50',BUFL=82
KB DSET FC=X'20'
DI DSET FC=X'40'
DSCMIP DSET FC=X'63',DEV=DC 
DSCMOP DSET FC=X'62',DEV=DC 
FD01 DSET FC=X'F8'
	START	GO 
 STACK 300
	EJECT	 
TB1	BLK 


SHEADP BIN		STANDARD HEADER POINTER 
PDX BIN		PDUOFF TABLE INDEX 
POOL STRG 1024X'38332E30312E30352031323A34302041		C 
		544D30310A0A4B4F4E544F4E522E2020		C 
		313233343536373839300A0A0E335441		C 
		4B20464F52204245530B394745540A20		C 
		20444554205641522048594747454C49		C 
		47540A0E3341542048494C534520500B		C 
		37204449470A0A0A0A57445220303030		C 
		31204B522E203130302E30300A0C574452		C 
		2030303032204B522E203330302E3030		C 
		0A0C5744522030303033204B522E203530		C 
		302E30300A0C5744522030303034204B52		C 
		2E313030302E30300A0C38332E30312E30		C 
		352031323A34302041544D30310A4B4F		C 
		4E544F4E522E20203132333435363738		C 
		39300A5744522030303031204B522E20		C 
		3130302E30300A38332E30312E303520		C 
		31323A34302041544D30310A4B4F4E54		C 
		4F4E522E202031323334353637383930		C 
		0A5744522030303032204B522E203330		C 
		302E30300A38332E30312E3035203132		C 
		3A34302041544D30310A4B4F4E544F4E		C 
		522E2020313233343536373839300A57		C 
		44522030303033204B522E203530302E		C 
		30300A38332E30312E30352031323A34		C 
		302041544D30310A4B4F4E544F4E522E		C 
		2020313233343536373839300A574452		C 
		2030303034204B522E313030302E3030		C 
		0A20' 
PDUOFF STRGI (64),6X'00002C',		C
		X'006915',		C 
		X'007E15',		C 
		X'009315',		C 
		X'00A815',		C 
		X'00BD3E',		C 
		X'00FB3E',		C 
		X'01393E',		C 
		X'01773E',		C 
		X'202020' 
FCBLDX	BIN		FCBLD TABLE INDEX 
PLEN BINI (30,2) LINELENGTHS IN PTAB/PNAT 
PTAB STRGI (30),250C' ' PRINT LINES (:2)
PNAT STRGI (10),250C' ' PRINT LINES (:3)
FCBLD STRGI (30),27C' ' FUNCTION COMMANDS 
* 01-08 - 8 OPERATION KEYS
* 09-11 - NEXT STATE
* 12    - FUNCTION ID 
* 13-15 - SCREEN NUMBER TO BE DISPLAYED WHILE DOING A FUNCTION
* 16    - FUNCTION ID 2 
* 17-19 - SCREEN NUMBER 2 
* 20    - FUNCTION ID 3 
* 21-23 - SCREEN NUMBER 3 
* 24    - CARD RETAIN FLAG
* 25    - PRINTER FLAG (0..3) 
* 26-27 - FORMAT TO BE PRINTED. IF ZERO AND PRINTER FLAG <> 0 
*         THE FORMAT IS TAKEN FROM THE PTAB-ARRAY 
* 28    - INDEX TO SERIALNUMBER TO BE AFFECTED
* 29    - INDEX TO SPECIAL ROUTINE (SEE APPL) ELSE 0
* 30    - FREE
	EJECT
TB2	BLK 


MESFG	BOOL		T=MESSAGE DISPLAYED 
RESFG	BOOL		T=RESPONSE EXPECTED 
DUMMY BOOL F DUMMY FLAG 
DLL BOOL F T=DOWNLINELOAD IN PROGRESS 
OPEN BOOL F T=DLL FILE OPEN 

TIME	BIN	W'5'	.5 SECOND TIMER 
ADR	BIN	X'0041'	MICROBANK ADDRESS 
PNT1	BIN	W'0'	BINARY POINTER
PNT2	BIN	W'0'	BINARY POINTER
PNT3	BIN	W'0'	BINARY POINTER
LENGTH	BIN		BINARY COUNTER
COUNT	BIN		BINARY COUNTER	
INDEX	BIN		INDEX
BIN1	BIN		WORK BINARY 
BIN2	BIN		WORK BINARY 
BIN3	BIN		WORK BINARY 
BIN4	BIN		WORK BINARY 
SEARCH	BIN		LENGTH OF DATA TO BE SEARCHED 
FS	STRG	X'1C1C'	CODE FOR FIELD SEPARATOR
CHAR2	STRG	X'2E'	CODE FOR FULL STOP 
GS STRG X'1D1D' GROUP SEPARATOR 
	EJECT
TB3	BLK 


COB0	BIN	W'0'	CONSTANT 0
COB1	BIN	W'1'	CONSTANT 1
COB2	BIN	W'2'	CONSTANT 2
COB3	BIN	W'3'	CONSTANT 3
COB4	BIN	W'4'	CONSTANT 4
COB5	BIN	W'5'	CONSTANT 5
COB6	BIN	W'6'	CONSTANT 6
COB7	BIN	W'7'	CONSTANT 7
COB8	BIN	W'8'	CONSTANT 8
COB9	BIN	W'9'	CONSTANT 9
COB10	BIN	W'10'	CONSTANT 10 
COB11	BIN	W'11'	CONSTANT 11 
COB13 BIN '13'
COB16 BIN '16'
COB26 BIN '26'
COB29 BIN '29'
	EJECT
TB4	BLK 


F1	BOOL		COMB FLAG
F2	BOOL		TK2D FLAG
F3	BOOL		TK3D FLAG
F4	BOOL		OPKY FLAG
F5	BOOL		PPPP FLAG
F6	BOOL		GPBA FLAG
F7	BOOL		GPBB FLAG
F8	BOOL		GPBC FLAG
F9	BOOL		TK1D FLAG
INACTIV BOOL F T=ATM INACTIVE ON
			SUBSEQUENT TRIES 

LENGTHS BINI (7),'80','66','14','40','106','66','40'
			LENGTHS TK1D -> TK3D2
PBCD	BCD	17	BCD POUNDS AND PENCE
TXFG	STRG	1	FIRST TRANSACTION ON RECEIPT
MESS	STRG	1	MESSAGE CO-ORDINATION NUMBER
COMB	STRG	2	TXFG AND MESS TOGETHER
TK1D	STRG	80	TRACK 1 DATA 
TK1D1	STRG	66	TRACK 1 DATA PART 1 
TK1D2	STRG	14	TRACK 1 DATA PART 2 
TK2D	STRG	40	TRACK 2 DATA 
TK3D	STRG	106	TRACK 3 DATA
TK3D1	STRG	66	TRACK 3 DATA PART 1 
TK3D2	STRG	40	TRACK 3 DATA PART 2 
GPBA	STRG	32	GENERAL PURPOSE BUFFER A 
GPBB	STRG	32	GENERAL PURPOSE BUFFER B 
GPBC	STRG	32	GENERAL PURPOSE BUFFER C 
	EJECT
TB5	BLK 


DID	BIN	1	DEVICE IDENTIFIER 
STATUS	BCD	6	BCD STSTUS 
BCDZRO	BCD	6'+0'	BCD ZERO 
BUFIN	STRG	384	INPUT BUFFER 
INFO	STRG	80	INFORMATION BUFFER 
STAT	STRG	1	STATUS DESCRIPTOR 
DEVST	STRG	32	DEVICE STATUS 
COMB2	STRG	18	DID + DEVICE STATUS 
CHAR4	STRG	12X'414243444546'	RECOGNISEABLE CHARACTERS 
DEVAR1 STRGI (25),13C'PRINTER      ',	2	C 
		'SECUROMATIC  ',	3	C
		'             ',	4	C
		'             ',	5	C
		'             ',	6	C
		'             ',	7	C
		'             ',	8	C
		'             ',	9	C
		'             ',	:	C
		'             ',	;	C
		'CONFIG. ID.  ',	<	C
		'CARD WRITER  ',	=	C
		'CARD READER  ',	>	C
		'DISPENSER    ',	?	C
		'DELIVERY DOOR',	@	C
		'DEPOSITORY   ',	A	C
		'HARDWARE CONF',	B	C
		'CHECK POINT  ',	C	C
		'CASSETTE     ',	D	C
		C'ALARM        ',	E	C 
		C'SWITCH       ',	SWITCH	C
		C'CONTROL PANEL',	G	C 
		C'VANDAL SHIELD',	H	C 
		C'CARD READER  '	I
DEVAR2 STRGI (8),14C'POWER FAIL    ',		C
		'ALARM         ',		C
		'KEYS          ',		C
		'PRINTERS      ',		C
		'CARD READER   ',		C
		'CONTROL PANEL ',		C
		'CARD WRITER   ',		C
		'VANDAL SHIELD '
INTAR STRGI (13),24C'DEP + PRINT',		C 
		24C'DISP + DEL + PRINT',		C 
		24C'DEL + PRINT',		C
		24C'PRINT IMMEDIATE',		C
		24C'NEXT STATE + PRINT',		C 
		24C'SECUROMATIC + PRINT',		C
		24C'DEPOSIT + PRINT',		C
		24C'DISP + DL + PRINT',		C
		24C'DEL + PRINT ',		C 
		24C' ',		C
		24C' ',		C
		24C' ',		C
		24C'CARD OUT AND DISP'
HEADER STRG X'4131201B3142331C1C1C31001C' 
	EJECT
TB6	BLK 


PNT4 BIN		USED IN LOADER
STORE1	BIN		INITIAL VALUE OF TOPDU
STORE2	BIN		INITIAL VALUE OF TOPOOL 
TK3DL	BIN		TRACK 3 DATA LENGTH
LIMIT	BCD	6'+0'	LIMITING VALUE
WKBCD1	BCD	6'+0'	WORK BCD 
WKBCD2	BCD	6'+0'	WORK BCD 
WKBCD3 BCD 6D'0' WORD BCD 
WKSTG1	STRG	50C	WORK STRING 
WKSTG2	STRG	50C	WORK STRING 
WKSTG3	STRG	50C	WORK STRING 
WKSTG4 STRG 4 
KEYS	STRG	5C'ABCD '	OPERATION KEYS PERMITTED
KEYS2	STRG	16C'0123456789ABCDEF'	NUMERIC CHARACTERS PERMITTED 
FCMESS	STRG	650	FUNCTION COMMAND MESSAGE
SRLNBR BCDI (3),6D'0' UTTAK/DEP/ANDET 
 EJECT
TB7	BLK 


MODIFLG BOOL F "MODIFIER FOUND" FLAG
EOF BOOL F T=':256' FOUND IN INPUTDATA
ERROR BOOL F T=INVALID AMOUNT 


RETUR BIN		RETURNCODES FROM PROCS 
PRWIDTH BIN '25' PRINTER WIDTH
BIN5 BIN		SCRATCH 
BIN6 BIN		SCRATCH 
BIN7 BIN		SCRATCH 
TLEN BIN		USED IN LOADER
RECNO BIN '0' LOGICAL RECORD NUMBER 
DISPL BIN 
PPPP STRG 16 POUNDS 
OPKY STRG 8 OPERATION KEYS
VARIOUS STRG 80 VARIOUS TEXT FOR DISPLAYING 
VOLUME STRG 'VOLUME'
FDBUF STRG 256 BUFFER FOR FD-INPUT
FDLBUF STRG 384 LOGICAL BUFFER FOR FD-INPUT 
DSFTABLE STRGI (2),		C
		X'20202020202020202020202020200080', LOADER	C 
		X'20202020202020202020202020200050' TABINT
 EJECT
TB8 BLK 


WKB1 BIN
WKBIN1 BIN
WKBIN2 BIN
WKBIN3 BIN
WKBIN4 BIN
SECTNO BIN
COB14 BIN '14'
NOFILS BIN '1'
RECLEN BIN '128'
FN BIN
DKSTAT STRG 4 
FILE STRG 8 
WKSTR6 STRG 6 
FMBUF STRG 256 FILE MANAGEMENT BUFFER 
WKSTR7 STRG 1 
WKSTR8 STRG 2 
 EJECT
TB9 BLK 

MORE BOOL F T=>1 STATUSBIT SET


CASTAT BINI (2,4) ELEMENT 1=DENOMINATION
			2=HI/LO NOTES
KIIX BIN		INDEX FOR PROC KINW 
KILN BIN		LENGTH ---
DATE BCD 7D 
DENOM BCDI (8),6D POSSIBLE CURRENCY DENOM 
SET BCD 6D RECORD SET (:2, :3)
OLDSET BCD 6D OLD RECORD SET (:2, :3) 
NOTES STRG 16 NOTE MIX FOR FUNCTION COMMAND 
CURR STRG 4 CURRENCY TEXT 
KIBUF STRG 1 BUFFER FOR KINW PROC.
HILIMIT BCD 6D DISPENSE LIMIT (NO DECIMALS) 
KL STRG 6C
STATTXT STRGI (128),80C' ' STATUSHANDLINGERRORTEXTS 
 EJECT
TBA BLK 


WKB2A BIN 
WKB2B BIN 
BYTE BIN '0' BYTENR UNDER TREATMENT 
ORD BINI (8) STATUSHANDLING 
WKD12A BCD 12 
WKD3A BCD 3 
WKS4A STRG 4
WKS14 STRG 14 
WKD12B BCD 12 
BEHOLDN BCDI (8,2),12D
LOLIMIT BCD '100' LOWEST AMOUNT TO BE PAID
	PDIV 
	ENTRY	GO 
 EXT STEP1
GO
 B STEP1

	END
DataMuseum.dk

Philips Data Systems

⟦a7a4505eb⟧

Derivation

PTS(SC)

Full view
