|
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: 1602 (0x642)
Notes: pts_type(SC)
Names: »TIODMX.SC«
└─⟦025d39960⟧ Bits:30009672 Philips computer tape "600133"
└─⟦this⟧ »M:DSB/TIODMX.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSWORK/TIODMX.SC«
└─⟦1fa4b7c7b⟧ Bits:30009694 Philips computer tape "600410A"
└─⟦this⟧ »MODMON/TIODMX.SC«
└─⟦726a6c4ca⟧ Bits:30009685 Philips computer tape "600309"
└─⟦this⟧ »M:PTB/TIODMX.SC«
└─⟦this⟧ »M:PTD/TIODMX.SC«
IDENT TIODMX REL 9.2 79-11-16 870105040920 * **************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * TOSS DATA MANAGEMENT * * * LEVEL #1 1977-09-07 * * RELEASE #8 1977-09-07 * **************************************************** * * THIS DUMMY MODULE REPLACE TIODM AND DM * ENTRY TIODM,CHKIND,REQEND ENTRY FDBADF ENTRY TCFILE,COFILE TIODM EQU * CHKIND EQU * REQEND EQU * FDBADF EQU * DATA /6300 SOMETHING BAD, TRAP X:B EQU 0 TCFILE EQU X:B MONCON X:C EQU 0 COFILE EQU X:C MONCON END
0x000…036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT TIODMX REL 9.2 79-11-16 870105040920 «, t00=0x0000, t01=0x0004}
0x036…03e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x03e…048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x048…084 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x004c}
0x084…08e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0088}
0x08e…0b6 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x0092}
0x0b6…0c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ba}
0x0c0…0e0 Head {h00=0x001c, h01=0x0050, text=»* TOSS DATA MANAGEMENT«, t00=0x0000, t01=0x00c4}
0x0e0…0ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e4}
0x0ea…0f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ee}
0x0f4…11c Head {h00=0x0024, h01=0x0050, text=»* LEVEL #1 1977-09-07«, t00=0x0000, t01=0x00f8}
0x11c…126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0120}
0x126…14e Head {h00=0x0024, h01=0x0050, text=»* RELEASE #8 1977-09-07«, t00=0x0000, t01=0x012a}
0x14e…158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0152}
0x158…194 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x015c}
0x194…19e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0008}
0x19e…1d0 Head {h00=0x002e, h01=0x0050, text=»* THIS DUMMY MODULE REPLACE TIODM AND DM«, t00=0x0001, t01=0x0012}
0x1d0…1da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0044}
0x1da…1fc Head {h00=0x001e, h01=0x0050, text=» ENTRY TIODM,CHKIND,REQEND«, t00=0x0001, t01=0x004e}
0x1fc…212 Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBADF «, t00=0x0001, t01=0x0070}
0x212…22e Head {h00=0x0018, h01=0x0050, text=» ENTRY TCFILE,COFILE«, t00=0x0001, t01=0x0086}
0x22e…242 Head {h00=0x0010, h01=0x0050, text=»TIODM EQU * «, t00=0x0001, t01=0x00a2}
0x242…256 Head {h00=0x0010, h01=0x0050, text=»CHKIND EQU *«, t00=0x0001, t01=0x00b6}
0x256…26a Head {h00=0x0010, h01=0x0050, text=»REQEND EQU *«, t00=0x0001, t01=0x00ca}
0x26a…27e Head {h00=0x0010, h01=0x0050, text=»FDBADF EQU *«, t00=0x0001, t01=0x00de}
0x27e…2a6 Head {h00=0x0024, h01=0x0050, text=» DATA /6300 SOMETHING BAD, TRAP «, t00=0x0001, t01=0x00f2}
0x2a6…2b8 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0001, t01=0x011a}
0x2b8…2d6 Head {h00=0x001a, h01=0x0050, text=»TCFILE EQU X:B MONCON «, t00=0x0001, t01=0x012c}
0x2d6…2e8 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0001, t01=0x014a}
0x2e8…306 Head {h00=0x001a, h01=0x0050, text=»COFILE EQU X:C MONCON «, t00=0x0001, t01=0x015c}
0x306…312 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0001, t01=0x017a}
0x312…316 Head {h00=0x4004, h01=0x0000}
0x316…31a 00 01 01 86 ┆ ┆
0x31a…322 (2, 1, 8) 20 04 00 00 00 02 00 04 ┆ ┆
0x322…372 (3, 0, 400) 5c 53 45 54 20 52 45 54 55 52 4e 20 43 4f 44 45 00 3a 01 84 00 08 00 50 5c 58 49 46 00 3b 00 18 00 1a 00 50 5c 4c 44 4b 5c 41 34 2c 31 5c 49 4e 44 20 52 45 43 4f 56 45 52 59 00 3b 00 24 00 2a 00 50 5c 41 42 4c 5c 41 43 54 30 30 35 5c 53 54 ┆ SET RETURN CODE : P XIF ; P LDK A4,1 IND RECOVERY ; $ * P ABL ACT005 ST┆
0x372…3c2 41 52 54 20 52 45 43 4f 56 45 52 59 20 4f 46 20 50 52 49 4e 54 45 52 20 00 3b 00 42 00 26 00 50 52 43 54 50 31 30 5c 41 42 4c 5c 54 44 49 53 50 5c 47 4f 20 54 4f 20 44 49 53 50 41 54 43 48 45 52 20 00 3b 00 70 00 0a 00 50 5c 45 4a 45 43 54 ┆ART RECOVERY OF PRINTER ; B & PRCTP10 ABL TDISP GO TO DISPATCHER ; p P EJECT┆
0x3c2…412 00 3b 00 9a 00 06 00 50 2a 20 00 3b 00 a8 00 14 00 50 2a 20 20 20 42 20 43 20 44 20 54 20 42 20 59 20 00 3b 00 b2 00 06 00 50 2a 20 00 3b 00 ca 00 34 00 50 2a 20 20 20 53 55 42 52 4f 55 54 49 4e 45 20 54 4f 20 43 4f 4e 56 45 52 54 20 54 4f ┆ ; P* ; P* B C D T B Y ; P* ; 4 P* SUBROUTINE TO CONVERT TO┆
0x412…462 20 42 49 4e 41 52 59 20 46 52 4f 4d 20 44 45 43 49 4d 41 4c 00 3b 00 d4 00 06 00 50 2a 20 00 3b 01 0c 00 06 00 50 2a 20 00 3b 01 16 00 06 00 50 2a 20 00 3b 01 20 00 2e 00 50 42 43 44 54 42 59 5c 4c 44 52 5c 41 32 2c 41 31 5c 50 55 54 20 44 ┆ BINARY FROM DECIMAL ; P* ; P* ; P* ; . PBCDTBY LDR A2,A1 PUT D┆
0x462…4b2 45 43 49 4d 41 4c 20 4e 55 4d 42 45 52 20 49 4e 20 41 32 20 00 3b 01 2a 00 16 00 50 42 43 44 54 42 31 5c 53 55 4b 5c 41 32 2c 2f 31 30 5c 00 3b 01 5c 00 16 00 50 5c 52 46 28 4e 29 5c 42 43 44 54 42 32 5c 45 4e 44 20 00 3b 01 76 00 1c 00 50 ┆ECIMAL NUMBER IN A2 ; * PBCDTB1 SUK A2,/10 ; P RF(N) BCDTB2 END ; v P┆
0x4b2…502 (4, 0, 400) 5c 53 55 4b 5c 41 31 2c 36 5c 44 45 43 52 45 4d 45 4e 54 20 42 59 20 36 00 3b 01 90 00 10 00 50 5c 52 42 5c 42 43 44 54 42 31 5c 20 00 3c 00 20 00 22 00 50 42 43 44 54 42 32 5c 52 54 4e 5c 41 35 5c 52 45 54 55 52 4e 20 54 4f 20 43 41 4c 4c ┆ SUK A1,6 DECREMENT BY 6 ; P RB BCDTB1 < " PBCDTB2 RTN A5 RETURN TO CALL┆
0x502…552 45 52 00 3c 00 34 00 06 00 50 2a 20 00 3c 00 5a 00 06 00 50 2a 20 00 3c 00 64 00 06 00 50 2a 20 00 3c 00 6e 00 06 00 50 2a 20 00 3c 00 78 00 06 00 50 2a 20 00 3c 00 82 00 12 00 50 2a 20 20 20 47 20 52 20 41 20 53 20 50 20 00 3c 00 8c 00 06 ┆ER < 4 P* < Z P* < d P* < n P* < x P* < P* G R A S P < ┆
0x552…5a2 00 50 2a 20 00 3c 00 a2 00 34 00 50 2a 20 20 20 53 55 42 52 4f 55 54 49 4e 45 20 54 4f 20 53 45 4e 44 20 47 52 41 53 50 20 54 4f 20 56 4f 55 43 48 45 52 2f 50 41 53 53 42 4f 4f 4b 00 3c 00 ac 00 06 00 50 2a 20 00 3c 00 e4 00 06 00 50 2a 20 ┆ P* < 4 P* SUBROUTINE TO SEND GRASP TO VOUCHER/PASSBOOK < P* < P* ┆
0x5a2…5f2 00 3c 00 ee 00 10 00 50 47 52 41 53 50 41 5c 45 51 55 5c 2a 00 3c 00 f8 00 1c 00 50 5c 4c 44 4b 5c 41 32 2c 53 54 58 5c 53 45 4e 44 20 53 54 58 5c 3d 32 20 00 3c 01 0c 00 16 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c 5c 3d 32 20 00 3c ┆ < PGRASPA EQU * < P LDK A2,STX SEND STX =2 < P CF A5,OUTPUT =2 <┆
0x5f2…642 01 2c 00 1c 00 50 5c 4c 44 4b 5c 41 32 2c 4c 46 46 5c 4c 49 46 54 20 54 4f 20 54 4f 50 20 00 3c 01 46 00 12 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 20 00 3c 01 66 00 10 00 50 47 52 41 53 50 5c 45 51 55 5c 2a 20 00 3c 01 7c 00 0e 00 50 ┆ , P LDK A2,LFF LIFT TO TOP < F P CF A5,OUTPUT < f PGRASP EQU * < | P┆