|
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: 3086 (0xc0e)
Notes: pts_type(SC)
Names: »AADEMO.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/AADEMO.SC«
IDENT AADEMO MAIN MODULE
DDUM DEMODD
PDIV
EXPROC BASPCT
EXPROC BCSTTO
EXPROC BESELF
EXPROC CGCSYS
EXPROC XAKBIN
EXPROC PAJRN
EXPROC QCGUWB
EXPROC QDFUWB
EXPROC ZBCLSD
EXPROC ZLCLSF
EXPROC ZHWRID
EXPROC ZGREA
ENTRY AAMAIN
************************************************************************
*
* COMMON ENTRY POINT
*
************************************************************************
AAMAIN
AA000
EDWRT SPDSSCRN,FMTSTT
PERF XAKBIN,=W'0'
TBT SBFT80,AA060 COMPACT TERMINAL
TBF SBKEY2,AA000 RECOGNIZE 34-TYPE KEYBOARD
B AA060 CONTINUE
*
* WAITING ROOM
*
AA050
CLEAR SBCANCEL
PERF ZGREA
EDWRT SPDSSCRN,FMTSTT
PERF XAKBIN,=W'0'
B AA060
AA060
CBE YDSTATUS,=D'1',AA050 SYSTEM START/CLOSE PROGR.
CBE YDSTATUS,=D'3',AA999 SYSTEM CLOSED
CBE SPBINW2,KWEND,AA600 SYSTEM CLOSE
CBNE SPBINW2,KWSTART,AA050 WAIT FOR THE START-KEY
*
* YDSTATUS = 0 OR 2 AND
* START HAS BEEN PRESSED
*
AA100
PERF QCGUWB GET UWB'S
CBE NWUWBNR,KW0,AA050 NO FREE USER WORK BLOCKS
*
* START HAS BEEN DEPRESSED
*
CBNE RDSTATUS,=D'0',AA300 TERMINAL ALREADY SPECIFIED
*
* TERMINAL SPECIFICATION
* AND SYSTEM START IF THIS IS THE FIRST TERMINAL
* RDSTATUS = 0
* YDSTATUS = 0,2
*
AA200
TBT SBFT80,AA250
TBF SBKEY2,AA900 KEY2 SHOULD BE ON
AA250
PERF BASPCT SPECIFY TERMINAL
B AA900 WAIT FOR START OF DEMO
*
* START DEMONSTRATION
*
AA300
*
* OPERATOR START AND TERMINAL START
* RDSTATUS = 1
* YDSTATUS = 2
*
PERF BCSTTO
CBNE RDSTATUS,=D'3',AA900 OPERATOR START UNSUCCESFULL
AA400
*
* SELECT FUNCTION
* RDSTATUS = 3
* YDSTATUS = 2
* ODSTATUS = 2
*
AA500
PERF BESELF
B AA900
*
* CLOSE SYSTEM
*
AA600
CBNE YDSTATUS,=D'2',AA050 SYSTEM NOT STARTED YET
TBF SBKEY2,AA050 KEY 2 MUST BE ON
*
* YDSTATUS = 2
* KEY 2 IS ON
* NO UWB'S ARE IN USE
*
PERF CGCSYS CLOSE SYSTEM
CBE YDSTATUS,=D'3',AA999 CLOSE SUCCEEDED
B AA050 UWB'S ARE RELEASED ALREADY
AA900
PERF QDFUWB FREE UWB'S
B AA050
AA999
EDWRT SPDSSCRN,FMTEND
EXIT
*
*
FMTSTT FRMT
FCOPY =X'2031' ERASE SCREEN
FTEXT 'DEMO PTS 6800 '
FTEXT '12NC=870155040100 '
FTEXT ':'
FMEND
*
*
FMTEND FRMT
FCOPY =X'2031' ERASE SCREEN
FTEXT '*'
FMEND
*
*
END
0x000…03c (0, 0, 400) Head {h00=0x0038, h01=0x0050, text=» IDENT AADEMO MAIN MODULE «, t00=0x0000, t01=0x0004}
0x03c…050 Head {h00=0x0010, h01=0x000c, text=» DDUM DEMODD«, t00=0x0000, t01=0x0040}
0x050…05e Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0054}
0x05e…074 Head {h00=0x0012, h01=0x0050, text=» EXPROC BASPCT«, t00=0x0000, t01=0x0062}
0x074…08a Head {h00=0x0012, h01=0x0050, text=» EXPROC BCSTTO«, t00=0x0000, t01=0x0078}
0x08a…0a0 Head {h00=0x0012, h01=0x0050, text=» EXPROC BESELF«, t00=0x0000, t01=0x008e}
0x0a0…0b6 Head {h00=0x0012, h01=0x0050, text=» EXPROC CGCSYS«, t00=0x0000, t01=0x00a4}
0x0b6…0cc Head {h00=0x0012, h01=0x0050, text=» EXPROC XAKBIN«, t00=0x0000, t01=0x00ba}
0x0cc…0e2 Head {h00=0x0012, h01=0x0050, text=» EXPROC PAJRN «, t00=0x0000, t01=0x00d0}
0x0e2…0f8 Head {h00=0x0012, h01=0x0050, text=» EXPROC QCGUWB«, t00=0x0000, t01=0x00e6}
0x0f8…10e Head {h00=0x0012, h01=0x0050, text=» EXPROC QDFUWB«, t00=0x0000, t01=0x00fc}
0x10e…124 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZBCLSD«, t00=0x0000, t01=0x0112}
0x124…13a Head {h00=0x0012, h01=0x0050, text=» EXPROC ZLCLSF«, t00=0x0000, t01=0x0128}
0x13a…150 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZHWRID«, t00=0x0000, t01=0x013e}
0x150…166 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZGREA «, t00=0x0000, t01=0x0154}
0x166…17c Head {h00=0x0012, h01=0x0050, text=» ENTRY AAMAIN «, t00=0x0000, t01=0x016a}
0x17c…1cc Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x0180}
0x1cc…1d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0040}
0x1d6…1f2 Head {h00=0x0018, h01=0x0050, text=»* COMMON ENTRY POINT«, t00=0x0001, t01=0x004a}
0x1f2…1fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0066}
0x1fc…24c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0001, t01=0x0070}
0x24c…25a Head {h00=0x000a, h01=0x0050, text=»AAMAIN«, t00=0x0001, t01=0x00c0}
0x25a…268 Head {h00=0x000a, h01=0x0050, text=»AA000 «, t00=0x0001, t01=0x00ce}
0x268…286 Head {h00=0x001a, h01=0x0050, text=» EDWRT SPDSSCRN,FMTSTT«, t00=0x0001, t01=0x00dc}
0x286…2a0 Head {h00=0x0016, h01=0x0050, text=» PERF XAKBIN,=W'0'«, t00=0x0001, t01=0x00fa}
0x2a0…2ca Head {h00=0x0026, h01=0x0050, text=» TBT SBFT80,AA060 COMPACT TERMINAL«, t00=0x0001, t01=0x0114}
0x2ca…2fe Head {h00=0x0030, h01=0x0050, text=» TBF SBKEY2,AA000 RECOGNIZE 34-TYPE KEYBOARD«, t00=0x0001, t01=0x013e}
0x2fe…318 Head {h00=0x0016, h01=0x0050, text=» B AA060 CONTINUE «, t00=0x0001, t01=0x0172}
0x318…322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x018c}
0x322…338 Head {h00=0x0012, h01=0x0050, text=»* WAITING ROOM«, t00=0x0002, t01=0x0008}
0x338…342 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001e}
0x342…350 Head {h00=0x000a, h01=0x0050, text=»AA050 «, t00=0x0002, t01=0x0028}
0x350…368 Head {h00=0x0014, h01=0x0050, text=» CLEAR SBCANCEL «, t00=0x0002, t01=0x0036}
0x368…37c Head {h00=0x0010, h01=0x0050, text=» PERF ZGREA «, t00=0x0002, t01=0x004e}
0x37c…39a Head {h00=0x001a, h01=0x0050, text=» EDWRT SPDSSCRN,FMTSTT«, t00=0x0002, t01=0x0062}
0x39a…3b4 Head {h00=0x0016, h01=0x0050, text=» PERF XAKBIN,=W'0'«, t00=0x0002, t01=0x0080}
0x3b4…3c4 Head {h00=0x000c, h01=0x0050, text=» B AA060«, t00=0x0002, t01=0x009a}
0x3c4…3d2 Head {h00=0x000a, h01=0x0050, text=»AA060 «, t00=0x0002, t01=0x00aa}
0x3d2…40e Head {h00=0x0038, h01=0x0050, text=» CBE YDSTATUS,=D'1',AA050 SYSTEM START/CLOSE PROGR. «, t00=0x0002, t01=0x00b8}
0x40e…43e Head {h00=0x002c, h01=0x0050, text=» CBE YDSTATUS,=D'3',AA999 SYSTEM CLOSED «, t00=0x0002, t01=0x00f4}
0x43e…46c Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,KWEND,AA600 SYSTEM CLOSE «, t00=0x0002, t01=0x0124}
0x46c…4a6 Head {h00=0x0036, h01=0x0050, text=» CBNE SPBINW2,KWSTART,AA050 WAIT FOR THE START-KEY«, t00=0x0002, t01=0x0152}
0x4a6…4b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x018c}
0x4b0…4d0 Head {h00=0x001c, h01=0x0050, text=»* YDSTATUS = 0 OR 2 AND «, t00=0x0003, t01=0x0008}
0x4d0…4f4 Head {h00=0x0020, h01=0x0050, text=»* START HAS BEEN PRESSED«, t00=0x0003, t01=0x0028}
0x4f4…4fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x004c}
0x4fe…50c Head {h00=0x000a, h01=0x0050, text=»AA100 «, t00=0x0003, t01=0x0056}
0x50c…52a Head {h00=0x001a, h01=0x0050, text=» PERF QCGUWB GET UWB'S«, t00=0x0003, t01=0x0064}
0x52a…562 Head {h00=0x0034, h01=0x0050, text=» CBE NWUWBNR,KW0,AA050 NO FREE USER WORK BLOCKS «, t00=0x0003, t01=0x0082}
0x562…56c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ba}
0x56c…58e Head {h00=0x001e, h01=0x0050, text=»* START HAS BEEN DEPRESSED«, t00=0x0003, t01=0x00c4}
0x58e…598 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e6}
0x598…5d6 Head {h00=0x003a, h01=0x0050, text=» CBNE RDSTATUS,=D'0',AA300 TERMINAL ALREADY SPECIFIED «, t00=0x0003, t01=0x00f0}
0x5d6…5e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x012e}
0x5e0…600 Head {h00=0x001c, h01=0x0050, text=»* TERMINAL SPECIFICATION«, t00=0x0003, t01=0x0138}
0x600…63a Head {h00=0x0036, h01=0x0050, text=»* AND SYSTEM START IF THIS IS THE FIRST TERMINAL«, t00=0x0003, t01=0x0158}
0x63a…650 (4, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* RDSTATUS = 0«, t00=0x0004, t01=0x0004}
0x650…668 Head {h00=0x0014, h01=0x0050, text=»* YDSTATUS = 0,2«, t00=0x0004, t01=0x001a}
0x668…672 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0032}
0x672…680 Head {h00=0x000a, h01=0x0050, text=»AA200 «, t00=0x0004, t01=0x003c}
0x680…69a Head {h00=0x0016, h01=0x0050, text=» TBT SBFT80,AA250 «, t00=0x0004, t01=0x004a}
0x69a…6c6 Head {h00=0x0028, h01=0x0050, text=» TBF SBKEY2,AA900 KEY2 SHOULD BE ON «, t00=0x0004, t01=0x0064}
0x6c6…6d4 Head {h00=0x000a, h01=0x0050, text=»AA250 «, t00=0x0004, t01=0x0090}
0x6d4…6fa Head {h00=0x0022, h01=0x0050, text=» PERF BASPCT SPECIFY TERMINAL «, t00=0x0004, t01=0x009e}
0x6fa…722 Head {h00=0x0024, h01=0x0050, text=» B AA900 WAIT FOR START OF DEMO «, t00=0x0004, t01=0x00c4}
0x722…72c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ec}
0x72c…74a Head {h00=0x001a, h01=0x0050, text=»* START DEMONSTRATION «, t00=0x0004, t01=0x00f6}
0x74a…754 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0114}
0x754…762 Head {h00=0x000a, h01=0x0050, text=»AA300 «, t00=0x0004, t01=0x011e}
0x762…76c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x012c}
0x76c…798 Head {h00=0x0028, h01=0x0050, text=»* OPERATOR START AND TERMINAL START «, t00=0x0004, t01=0x0136}
0x798…7ae Head {h00=0x0012, h01=0x0050, text=»* RDSTATUS = 1«, t00=0x0004, t01=0x0162}
0x7ae…7c4 Head {h00=0x0012, h01=0x0050, text=»* YDSTATUS = 2«, t00=0x0004, t01=0x0178}
0x7c4…7ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x018e}
0x7ce…7e2 Head {h00=0x0010, h01=0x0050, text=» PERF BCSTTO«, t00=0x0005, t01=0x0008}
0x7e2…820 Head {h00=0x003a, h01=0x0050, text=» CBNE RDSTATUS,=D'3',AA900 OPERATOR START UNSUCCESFULL«, t00=0x0005, t01=0x001c}
0x820…82e Head {h00=0x000a, h01=0x0050, text=»AA400 «, t00=0x0005, t01=0x005a}
0x82e…838 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0068}
0x838…852 Head {h00=0x0016, h01=0x0050, text=»* SELECT FUNCTION «, t00=0x0005, t01=0x0072}
0x852…868 Head {h00=0x0012, h01=0x0050, text=»* RDSTATUS = 3«, t00=0x0005, t01=0x008c}
0x868…87e Head {h00=0x0012, h01=0x0050, text=»* YDSTATUS = 2«, t00=0x0005, t01=0x00a2}
0x87e…894 Head {h00=0x0012, h01=0x0050, text=»* ODSTATUS = 2«, t00=0x0005, t01=0x00b8}
0x894…89e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ce}
0x89e…8ac Head {h00=0x000a, h01=0x0050, text=»AA500 «, t00=0x0005, t01=0x00d8}
0x8ac…8c0 Head {h00=0x0010, h01=0x0050, text=» PERF BESELF«, t00=0x0005, t01=0x00e6}
0x8c0…8d0 Head {h00=0x000c, h01=0x0050, text=» B AA900«, t00=0x0005, t01=0x00fa}
0x8d0…8da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x010a}
0x8da…8f0 Head {h00=0x0012, h01=0x0050, text=»* CLOSE SYSTEM«, t00=0x0005, t01=0x0114}
0x8f0…8fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x012a}
0x8fa…908 Head {h00=0x000a, h01=0x0050, text=»AA600 «, t00=0x0005, t01=0x0134}
0x908…942 Head {h00=0x0036, h01=0x0050, text=» CBNE YDSTATUS,=D'2',AA050 SYSTEM NOT STARTED YET «, t00=0x0005, t01=0x0142}
0x942…96c Head {h00=0x0026, h01=0x0050, text=» TBF SBKEY2,AA050 KEY 2 MUST BE ON«, t00=0x0005, t01=0x017c}
0x96c…976 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0016}
0x976…98c Head {h00=0x0012, h01=0x0050, text=»* YDSTATUS = 2«, t00=0x0006, t01=0x0020}
0x98c…9a2 Head {h00=0x0012, h01=0x0050, text=»* KEY 2 IS ON «, t00=0x0006, t01=0x0036}
0x9a2…9c0 Head {h00=0x001a, h01=0x0050, text=»* NO UWB'S ARE IN USE «, t00=0x0006, t01=0x004c}
0x9c0…9ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x006a}
0x9ca…9ec Head {h00=0x001e, h01=0x0050, text=» PERF CGCSYS CLOSE SYSTEM «, t00=0x0006, t01=0x0074}
0x9ec…a1e Head {h00=0x002e, h01=0x0050, text=» CBE YDSTATUS,=D'3',AA999 CLOSE SUCCEEDED «, t00=0x0006, t01=0x0096}
0xa1e…a4a Head {h00=0x0028, h01=0x0050, text=» B AA050 UWB'S ARE RELEASED ALREADY «, t00=0x0006, t01=0x00c8}
0xa4a…a58 Head {h00=0x000a, h01=0x0050, text=»AA900 «, t00=0x0006, t01=0x00f4}
0xa58…a78 Head {h00=0x001c, h01=0x0050, text=» PERF QDFUWB FREE UWB'S «, t00=0x0006, t01=0x0102}
0xa78…a88 Head {h00=0x000c, h01=0x0050, text=» B AA050«, t00=0x0006, t01=0x0122}
0xa88…a96 Head {h00=0x000a, h01=0x0050, text=»AA999 «, t00=0x0006, t01=0x0132}
0xa96…ab4 Head {h00=0x001a, h01=0x0050, text=» EDWRT SPDSSCRN,FMTEND«, t00=0x0006, t01=0x0140}
0xab4…ac2 Head {h00=0x000a, h01=0x0050, text=» EXIT «, t00=0x0006, t01=0x015e}
0xac2…acc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x016c}
0xacc…ad6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0176}
0xad6…aea Head {h00=0x0010, h01=0x0050, text=»FMTSTT FRMT «, t00=0x0006, t01=0x0180}
0xaea…b0e (7, 2, 284) Head {h00=0x0020, h01=0x0050, text=» FCOPY =X'2031' ERASE SCREEN«, t00=0x0007, t01=0x0004}
0xb0e…b2e Head {h00=0x001c, h01=0x0050, text=» FTEXT 'DEMO PTS 6800 ' «, t00=0x0007, t01=0x0028}
0xb2e…b52 Head {h00=0x0020, h01=0x0050, text=» FTEXT '12NC=870155040100 ' «, t00=0x0007, t01=0x0048}
0xb52…b64 Head {h00=0x000e, h01=0x0050, text=» FTEXT ':'«, t00=0x0007, t01=0x006c}
0xb64…b72 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0007, t01=0x007e}
0xb72…b7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x008c}
0xb7c…b86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0096}
0xb86…b9a Head {h00=0x0010, h01=0x0050, text=»FMTEND FRMT «, t00=0x0007, t01=0x00a0}
0xb9a…bbe Head {h00=0x0020, h01=0x0050, text=» FCOPY =X'2031' ERASE SCREEN«, t00=0x0007, t01=0x00b4}
0xbbe…bd0 Head {h00=0x000e, h01=0x0050, text=» FTEXT '*'«, t00=0x0007, t01=0x00d8}
0xbd0…bde Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0007, t01=0x00ea}
0xbde…be8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f8}
0xbe8…bf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0102}
0xbf2…bfe Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0007, t01=0x010c}
0xbfe…c02 Head {h00=0x4004, h01=0x0000}
0xc02…c06 00 07 01 18 ┆ ┆
0xc06…c0e (8, 1, 8) 20 04 00 00 00 08 00 04 ┆ ┆