|
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 - metricsIndex: S ½
Length: 1182912 (0x120cc0)
Description: Bits:30009714 Philips computer tape "M_173P"
Types: SimhTapContainer, ½" Magnetic Tape
0x000000…000ca0 (0, 0) DirGranule ((0, 0)) {
0x000000…000ca0 DirEnt {nam=» LA«, typ=»BE«, f00=0x4c20, f01=0x3d20, f02=0x4649, f03=0x5831}
0x000000…000ca0 DirEnt {nam=» «, typ=» «, f00=0x2020, f01=0x2020, f02=0x2020, f03=0x4441}
0x000000…000ca0 DirEnt {nam=»TE = «, typ=»79«, f00=0x3036, f01=0x3031, f02=0x2020, f03=0x2020}
0x000000…000ca0 DirEnt {nam=» «, typ=»PA«, f00=0x434b, f01=0x204e, f02=0x4252, f03=0x203d}
0x000000…000ca0 DirEnt {nam=» 001 «, typ=» «, f00=0x2020, f01=0x2020, f02=0x2020, f03=0x2020}
0x000000…000ca0 DirEnt {nam=» f «, typ=» x«, f00=0x1e12, f01=0x5400, f02=0x84b4, f03=0x948c}
0x000000…000ca0 DirEnt {nam=» 4 «, typ=» «, f00=0x8226, f01=0x3ae1, f02=0x91a0, f03=0x0002}
0x000000…000ca0 DirEnt {nam=» 4«, typ=»: «, f00=0x5600, f01=0x1908, f02=0x812d, f03=0x1502}
0x000000…000ca0 DirEnt {nam=» «, typ=»P «, f00=0x9da0, f01=0x0001, f02=0x591a, f03=0x5f28}
0x000000…000ca0 DirEnt {nam=» Y «, typ=» «, f00=0x4dc0, f01=0x5c04, f02=0xa520, f03=0x001f}
0x000000…000ca0 DirEnt {nam=» : «, typ=» «, f00=0x855d, f01=0x0000, f02=0x851e, f03=0x3d49}
0x000000…000ca0 DirEnt {nam=»R E «, typ=» «, f00=0x0018, f01=0x2020, f02=0x2020, f03=0x2020}
0x000000…000ca0 DirEnt {nam=» «, typ=» «, f00=0x2020, f01=0x2020, f02=0x2020, f03=0x2020}
[…0xc…]
0x000000…000ca0 DirEnt {nam=» («, typ=» 0«, f00=0x0038, f01=0x0040, f02=0x0048, f03=0x0050}
0x000000…000ca0 DirEnt {nam=» AS«, typ=»G «, f00=0x2f30, f01=0x322c, f02=0x4e4f, f03=0x0000}
0x000000…000ca0 DirEnt {nam=» «, typ=»MO«, f00=0x5620, f01=0x494e, f02=0x5456, f03=0x4d44}
0x000000…000ca0 DirEnt {nam=»,/S,TO«, typ=»SS«, f00=0x574f, f01=0x524b, f02=0x0000, f03=0x0016}
0x000000…000ca0 DirEnt {nam=» KP«, typ=»F «, f00=0x2f53, f01=0x2c49, f02=0x4e54, f03=0x564d}
0x000000…000ca0 DirEnt {nam=»D 4«, typ=» «, f00=0x0003, f01=0x5343, f02=0x5220, f03=0x0000}
0x000000…000ca0 DirEnt {nam=» J «, typ=»IN«, f00=0x4320, f01=0x494e, f02=0x5456, f03=0x4d44}
0x000000…000ca0 DirEnt {nam=»,TOSSW«, typ=»OR«, f00=0x4b20, f01=0x0000, f02=0x0056, f03=0x000a}
0x000000…000ca0 DirEnt {nam=» KPF «, typ=»/O«, f00=0x0000, f01=0x0072, f02=0x001a, f03=0x0016}
0x000000…000ca0 DirEnt {nam=»MOV IN«, typ=»IM«, f00=0x4f44, f01=0x2c2f, f02=0x532c, f03=0x544f}
0x000000…000ca0 DirEnt {nam=»SSWORK«, typ=» «, f00=0x0080, f01=0x0012, f02=0x000d, f03=0x4b50}
0x000000…000ca0 DirEnt {nam=»F /S,I«, typ=»NI«, f00=0x4d4f, f01=0x4400, f02=0x0000, f03=0x009e}
0x000000…000ca0 DirEnt {nam=» SC«, typ=»R «, f00=0x0000, f01=0x00b4, f02=0x0018, f03=0x0013}
0x000000…000ca0 DirEnt {nam=»INC IN«, typ=»IM«, f00=0x4f44, f01=0x2c54, f02=0x4f53, f03=0x5357}
0x000000…000ca0 DirEnt {nam=»ORK «, typ=» «, f00=0x000a, f01=0x0006, f02=0x4b50, f03=0x4620}
0x000000…000ca0 DirEnt {nam=»/O «, typ=» «, f00=0x0016, f01=0x4d4f, f02=0x5620, f03=0x2054}
0x000000…000ca0 DirEnt {nam=»DISP,/«, typ=»S,«, f00=0x544f, f01=0x5353, f02=0x574f, f03=0x524b}
0x000000…000ca0 DirEnt {nam=»DISP «, typ=» «, f00=0x0008, f01=0x0003, f02=0x5343, f03=0x5220}
0x000000…000ca0 DirEnt {nam=»SP,TOS«, typ=»SW«, f00=0x4f52, f01=0x4b20, f02=0x0000, f03=0x0128}
0x000000…000ca0 DirEnt {nam=» KP«, typ=»F «, f00=0x2f4f, f01=0x0000, f02=0x0144, f03=0x001a}
0x000000…000ca0 DirEnt {nam=» MOV «, typ=»LR«, f00=0x5049, f01=0x4e54, f02=0x2c2f, f03=0x532c}
0x000000…000ca0 DirEnt {nam=»TOSSWO«, typ=»RK«, f00=0x0000, f01=0x0152, f02=0x0012, f03=0x000d}
0x000000…000ca0 DirEnt {nam=»KPF /S«, typ=»,L«, f00=0x5250, f01=0x494e, f02=0x5400, f03=0x0000}
0x000000…000ca0 DirEnt {nam=» p «, typ=»SC«, f00=0x5220, f01=0x0000, f02=0x0186, f03=0x2f30}
0x000000…000ca0 DirEnt {nam=» IN«, typ=»C «, f00=0x4c52, f01=0x5049, f02=0x4e54, f03=0x2c54}
0x000000…000ca0 DirEnt {nam=»OSSWOR«, typ=»K «, f00=0x0001, f01=0x0004, f02=0x000a, f03=0x0006}
0x000000…000ca0 DirEnt {nam=»KPF /O«, typ=» «, f00=0x0020, f01=0x001a, f02=0x0016, f03=0x4d4f}
0x000000…000ca0 DirEnt {nam=»V TPR«, typ=»OC«, f00=0x2c2f, f01=0x532c, f02=0x544f, f03=0x5353}
0x000000…000ca0 DirEnt {nam=»WORK «, typ=» .«, f00=0x0010, f01=0x000c, f02=0x4b50, f03=0x4620}
0x000000…000ca0 DirEnt {nam=»/S,TPR«, typ=»OC«, f00=0x0001, f01=0x004c, f02=0x0008, f03=0x0003}
0x000000…000ca0 DirEnt {nam=»SCR «, typ=» `«, f00=0x0018, f01=0x0013, f02=0x494e, f03=0x4320}
0x000000…000ca0 DirEnt {nam=» TPROC«, typ=»,T«, f00=0x4f53, f01=0x5357, f02=0x4f52, f03=0x4b20}
0x000000…000ca0 DirEnt {nam=» l «, typ=» «, f00=0x4b50, f01=0x4620, f02=0x2f4f, f03=0x0001}
0x000000…000ca0 DirEnt {nam=» «, typ=»MO«, f00=0x5620, f01=0x204d, f02=0x5355, f03=0x4253}
0x000000…000ca0 DirEnt {nam=»,/S,TO«, typ=»SS«, f00=0x574f, f01=0x524b, f02=0x0001, f03=0x0096}
0x000000…000ca0 DirEnt {nam=» KP«, typ=»F «, f00=0x2f53, f01=0x2c4d, f02=0x5355, f03=0x4253}
0x000000…000ca0 DirEnt {nam=» «, typ=» «, f00=0x5343, f01=0x5220, f02=0x0001, f03=0x00c8}
0x000000…000ca0 DirEnt {nam=» IN«, typ=»C «, f00=0x204d, f01=0x5355, f02=0x4253, f03=0x2c54}
0x000000…000ca0 DirEnt {nam=»OSSWOR«, typ=»K «, f00=0x0001, f01=0x00d4, f02=0x000a, f03=0x0006}
0x000000…000ca0 DirEnt {nam=»KPF /O«, typ=» «, f00=0x00f0, f01=0x001a, f02=0x0016, f03=0x4d4f}
0x000000…000ca0 DirEnt {nam=»V TTMJ«, typ=»OB«, f00=0x2c2f, f01=0x532c, f02=0x544f, f03=0x5353}
0x000000…000ca0 DirEnt {nam=»WORK «, typ=» «, f00=0x0012, f01=0x000d, f02=0x4b50, f03=0x4620}
0x000000…000ca0 DirEnt {nam=»/S,TTM«, typ=»JO«, f00=0x4200, f01=0x0001, f02=0x011c, f03=0x0008}
0x000000…000ca0 DirEnt {nam=» SCR «, typ=» «, f00=0x0132, f01=0x0018, f02=0x0013, f03=0x494e}
0x000000…000ca0 DirEnt {nam=»C TTMJ«, typ=»OB«, f00=0x2c54, f01=0x4f53, f02=0x5357, f03=0x4f52}
0x000000…000ca0 DirEnt {nam=»K >«, typ=» «, f00=0x0006, f01=0x4b50, f02=0x4620, f03=0x2f4f}
0x000000…000ca0 DirEnt {nam=» Z «, typ=» «, f00=0x4d4f, f01=0x5620, f02=0x494e, f03=0x5052}
0x000000…000ca0 DirEnt {nam=»ET,/S,«, typ=»TO«, f00=0x5353, f01=0x574f, f02=0x524b, f03=0x0001}
0x000000…000ca0 DirEnt {nam=» h «, typ=»KP«, f00=0x4620, f01=0x2f53, f02=0x2c49, f03=0x4e50}
0x000000…000ca0 DirEnt {nam=»RET «, typ=» «, f00=0x0008, f01=0x0003, f02=0x5343, f03=0x5220}
0x000000…000ca0 DirEnt {nam=» «, typ=» «, f00=0x494e, f01=0x4320, f02=0x494e, f03=0x5052}
0x000000…000ca0 DirEnt {nam=»ET,TOS«, typ=»SW«, f00=0x4f52, f01=0x4b20, f02=0x0002, f03=0x0018}
0x000000…000ca0 DirEnt {nam=» KP«, typ=»F «, f00=0x2f4f, f01=0x0002, f02=0x0034, f03=0x001a}
0x000000…000ca0 DirEnt {nam=» MOV «, typ=» P«, f00=0x4654, f01=0x4142, f02=0x2c2f, f03=0x532c}
0x000000…000ca0 DirEnt {nam=»TOSSWO«, typ=»RK«, f00=0x0002, f01=0x0042, f02=0x0010, f03=0x000c}
0x000000…000ca0 DirEnt {nam=»KPF /S«, typ=»,P«, f00=0x4654, f01=0x4142, f02=0x0002, f03=0x0060}
0x000000…000ca0 DirEnt {nam=» SC«, typ=»R «, f00=0x0002, f01=0x0074, f02=0x0018, f03=0x0013}
0x000000…000ca0 DirEnt {nam=»INC P«, typ=»FT«, f00=0x4142, f01=0x2c54, f02=0x4f53, f03=0x5357}
0x000000…000ca0 DirEnt {nam=»ORK «, typ=» «, f00=0x000a, f01=0x0006, f02=0x4b50, f03=0x4620}
0x000000…000ca0 DirEnt {nam=»/O «, typ=» «, f00=0x0016, f01=0x4d4f, f02=0x5620, f03=0x204c}
0x000000…000ca0 DirEnt {nam=»KMAL,/«, typ=»S,«, f00=0x544f, f01=0x5353, f02=0x574f, f03=0x524b}
0x000000…000ca0 DirEnt {nam=» «, typ=» «, f00=0x4b50, f01=0x4620, f02=0x2f53, f03=0x2c4c}
0x000000…000ca0 DirEnt {nam=»KMAL «, typ=» «, f00=0x0008, f01=0x0003, f02=0x5343, f03=0x5220}
0x000000…000ca0 DirEnt {nam=» «, typ=» «, f00=0x494e, f01=0x4320, f02=0x204c, f03=0x4b4d}
0x000000…000ca0 DirEnt {nam=»AL,TOS«, typ=»SW«, f00=0x4f52, f01=0x4b20, f02=0x0002, f03=0x00e8}
0x000000…000ca0 DirEnt {nam=» KP«, typ=»F «, f00=0x2f4f, f01=0x0002, f02=0x0104, f03=0x001a}
0x000000…000ca0 DirEnt {nam=» MOV «, typ=» D«, f00=0x5654, f01=0x4b42, f02=0x2c2f, f03=0x532c}
0x000000…000ca0 DirEnt {nam=»TOSSWO«, typ=»RK«, f00=0x0002, f01=0x0112, f02=0x0010, f03=0x000c}
0x000000…000ca0 DirEnt {nam=»KPF /S«, typ=»,D«, f00=0x5654, f01=0x4b42, f02=0x0002, f03=0x0130}
0x000000…000ca0 DirEnt {nam=» SC«, typ=»R «, f00=0x0002, f01=0x0144, f02=0x0018, f03=0x0013}
0x000000…000ca0 DirEnt {nam=»INC D«, typ=»VT«, f00=0x4b42, f01=0x2c54, f02=0x4f53, f03=0x5357}
0x000000…000ca0 DirEnt {nam=»ORK «, typ=» P«, f00=0x000a, f01=0x0006, f02=0x4b50, f03=0x4620}
0x000000…000ca0 DirEnt {nam=»/O l«, typ=» «, f00=0x0016, f01=0x4d4f, f02=0x5620, f03=0x2044}
0x000000…000ca0 DirEnt {nam=»VTTP,/«, typ=»S,«, f00=0x544f, f01=0x5353, f02=0x574f, f03=0x524b}
0x000000…000ca0 DirEnt {nam=» z «, typ=» «, f00=0x4b50, f01=0x4620, f02=0x2f53, f03=0x2c44}
0x000000…000ca0 DirEnt {nam=»VTTP «, typ=» «, f00=0x0008, f01=0x0003, f02=0x5343, f03=0x5220}
0x000000…000ca0 DirEnt {nam=» «, typ=» «, f00=0x494e, f01=0x4320, f02=0x2044, f03=0x5654}
0x000000…000ca0 DirEnt {nam=»TP,TOS«, typ=»SW«, f00=0x4f52, f01=0x4b20, f02=0x0003, f03=0x0028}
0x000000…000ca0 DirEnt {nam=» KP«, typ=»F «, f00=0x2f4f, f01=0x0003, f02=0x0044, f03=0x001a}
0x000000…000ca0 DirEnt {nam=» MOV «, typ=» D«, f00=0x5654, f01=0x4750, f02=0x2c2f, f03=0x532c}
0x000000…000ca0 DirEnt {nam=»TOSSWO«, typ=»RK«, f00=0x0003, f01=0x0052, f02=0x0010, f03=0x000c}
0x000000…000ca0 DirEnt {nam=»KPF /S«, typ=»,D«, f00=0x5654, f01=0x4750, f02=0x0003, f03=0x0070}
0x000000…000ca0 DirEnt {nam=» SC«, typ=»R «, f00=0x0003, f01=0x0084, f02=0x0018, f03=0x0013}
0x000000…000ca0 DirEnt {nam=»INC D«, typ=»VT«, f00=0x4750, f01=0x2c54, f02=0x4f53, f03=0x5357}
0x000000…000ca0 DirEnt {nam=»ORK «, typ=» «, f00=0x000a, f01=0x0006, f02=0x4b50, f03=0x4620}
0x000000…000ca0 DirEnt {nam=»/O «, typ=» «, f00=0x0016, f01=0x4d4f, f02=0x5620, f03=0x2044}
0x000000…000ca0 DirEnt {nam=»VTDN,/«, typ=»S,«, f00=0x544f, f01=0x5353, f02=0x574f, f03=0x524b}
0x000000…000ca0 DirEnt {nam=» «, typ=» «, f00=0x4b50, f01=0x4620, f02=0x2f53, f03=0x2c44}
0x000000…000ca0 DirEnt {nam=»VTDN «, typ=» «, f00=0x0008, f01=0x0003, f02=0x5343, f03=0x5220}
0x000000…000ca0 DirEnt {nam=» «, typ=» «, f00=0x494e, f01=0x4320, f02=0x2044, f03=0x5654}
0x000000…000ca0 DirEnt {nam=»DN,TOS«, typ=»SW«, f00=0x4f52, f01=0x4b20, f02=0x0003, f03=0x00f8}
0x000000…000ca0 DirEnt {nam=» KP«, typ=»F «, f00=0x2f4f, f01=0x0003, f02=0x0114, f03=0x001a}
0x000000…000ca0 DirEnt {nam=» MOV «, typ=» D«, f00=0x5654, f01=0x4449, f02=0x2c2f, f03=0x532c}
0x000000…000ca0 DirEnt {nam=»TOSSWO«, typ=»RK«, f00=0x0003, f01=0x0122, f02=0x0010, f03=0x000c}
0x000000…000ca0 DirEnt {nam=»KPF /S«, typ=»,D«, f00=0x5654, f01=0x4449, f02=0x0003, f03=0x0140}
0x000000…000ca0 DirEnt {nam=» SC«, typ=»R «, f00=0x0003, f01=0x0154, f02=0x0018, f03=0x0013}
0x000000…000ca0 DirEnt {nam=»INC D«, typ=»VT«, f00=0x4449, f01=0x2c54, f02=0x4f53, f03=0x5357}
0x000000…000ca0 DirEnt {nam=»ORK «, typ=» `«, f00=0x000a, f01=0x0006, f02=0x4b50, f03=0x4620}
0x000000…000ca0 DirEnt {nam=»/O |«, typ=» «, f00=0x0016, f01=0x4d4f, f02=0x5620, f03=0x2044}
0x000000…000ca0 DirEnt {nam=»VTDY,/«, typ=»S,«, f00=0x544f, f01=0x5353, f02=0x574f, f03=0x524b}
0x000000…000ca0 DirEnt {nam=» «, typ=» «, f00=0x4b50, f01=0x4620, f02=0x2f53, f03=0x2c44}
0x000000…000ca0 DirEnt {nam=»VTDY «, typ=» «, f00=0x0008, f01=0x0003, f02=0x5343, f03=0x5220}
0x000000…000ca0 DirEnt {nam=» , «, typ=» «, f00=0x494e, f01=0x4320, f02=0x2044, f03=0x5654}
0x000000…000ca0 DirEnt {nam=»DY,TOS«, typ=»SW«, f00=0x4f52, f01=0x4b20, f02=0x0004, f03=0x0038}
0x000000…000ca0 DirEnt {nam=» KP«, typ=»F «, f00=0x2f4f, f01=0x0004, f02=0x0054, f03=0x001a}
0x000000…000ca0 DirEnt {nam=» MOV «, typ=» D«, f00=0x5654, f01=0x4347, f02=0x2c2f, f03=0x532c}
0x000000…000ca0 DirEnt {nam=»TOSSWO«, typ=»RK«, f00=0x0004, f01=0x0062, f02=0x0010, f03=0x000c}
0x000000…000ca0 DirEnt {nam=»KPF /S«, typ=»,D«, f00=0x5654, f01=0x4347, f02=0x0004, f03=0x0080}
0x000000…000ca0 DirEnt {nam=» SC«, typ=»R «, f00=0x0004, f01=0x0094, f02=0x0018, f03=0x0013}
0x000000…000ca0 DirEnt {nam=»INC D«, typ=»VT«, f00=0x4347, f01=0x2c54, f02=0x4f53, f03=0x5357}
0x000000…000ca0 DirEnt {nam=»ORK «, typ=» «, f00=0x000a, f01=0x0006, f02=0x4b50, f03=0x4620}
0x000000…000ca0 DirEnt {nam=»/O «, typ=» «, f00=0x0016, f01=0x4d4f, f02=0x5620, f03=0x2044}
0x000000…000ca0 DirEnt {nam=»VTCD,/«, typ=»S,«, f00=0x544f, f01=0x5353, f02=0x574f, f03=0x524b}
0x000000…000ca0 DirEnt {nam=» «, typ=» «, f00=0x4b50, f01=0x4620, f02=0x2f53, f03=0x2c44}
0x000000…000ca0 DirEnt {nam=»VTCD «, typ=» «, f00=0x0008, f01=0x0003, f02=0x5343, f03=0x5220}
0x000000…000ca0 DirEnt {nam=» «, typ=» «, f00=0x494e, f01=0x4320, f02=0x2044, f03=0x5654}
0x000000…000ca0 DirEnt {nam=»CD,TOS«, typ=»SW«, f00=0x4f52, f01=0x4b20, f02=0x0004, f03=0x0108}
0x000000…000ca0 DirEnt {nam=» KP«, typ=»F «, f00=0x2f4f, f01=0x0004, f02=0x0124, f03=0x001a}
0x000000…000ca0 DirEnt {nam=» MOV «, typ=» D«, f00=0x5654, f01=0x4d53, f02=0x2c2f, f03=0x532c}
0x000000…000ca0 DirEnt {nam=»TOSSWO«, typ=»RK«, f00=0x0004, f01=0x0132, f02=0x0010, f03=0x000c}
0x000000…000ca0 DirEnt {nam=»KPF /S«, typ=»,D«, f00=0x5654, f01=0x4d53, f02=0x0004, f03=0x0150}
0x000000…000ca0 DirEnt {nam=» SC«, typ=»R «, f00=0x0004, f01=0x0164, f02=0x0018, f03=0x0013}
0x000000…000ca0 DirEnt {nam=»INC D«, typ=»VT«, f00=0x4d53, f01=0x2c54, f02=0x4f53, f03=0x5357}
0x000000…000ca0 DirEnt {nam=»ORK «, typ=» p«, f00=0x000a, f01=0x0006, f02=0x4b50, f03=0x4620}
0x000000…000ca0 DirEnt {nam=»/O «, typ=» «, f00=0x0016, f01=0x4d4f, f02=0x5620, f03=0x2044}
0x000000…000ca0 DirEnt {nam=»VTOD,/«, typ=»S,«, f00=0x544f, f01=0x5353, f02=0x574f, f03=0x524b}
0x000000…000ca0 DirEnt {nam=» «, typ=» «, f00=0x4b50, f01=0x4620, f02=0x2f53, f03=0x2c44}
0x000000…000ca0 DirEnt {nam=»VTOD «, typ=» («, f00=0x0008, f01=0x0003, f02=0x5343, f03=0x5220}
0x000000…000ca0 DirEnt {nam=» < «, typ=» «, f00=0x494e, f01=0x4320, f02=0x2044, f03=0x5654}
0x000000…000ca0 DirEnt {nam=»OD,TOS«, typ=»SW«, f00=0x4f52, f01=0x4b20, f02=0x0005, f03=0x0048}
0x000000…000ca0 DirEnt {nam=» KP«, typ=»F «, f00=0x2f4f, f01=0x0005, f02=0x0064, f03=0x001a}
0x000000…000ca0 DirEnt {nam=» MOV «, typ=» D«, f00=0x5654, f01=0x5431, f02=0x2c2f, f03=0x532c}
0x000000…000ca0 DirEnt {nam=»TOSSWO«, typ=»RK«, f00=0x0005, f01=0x0072, f02=0x0010, f03=0x000c}
0x000000…000ca0 DirEnt {nam=»KPF /S«, typ=»,D«, f00=0x5654, f01=0x5431, f02=0x0005, f03=0x0090}
0x000000…000ca0 DirEnt {nam=» SC«, typ=»R «, f00=0x0005, f01=0x00a4, f02=0x0018, f03=0x0013}
0x000000…000ca0 DirEnt {nam=»INC D«, typ=»VT«, f00=0x5431, f01=0x2c54, f02=0x4f53, f03=0x5357}
0x000000…000ca0 DirEnt {nam=»ORK «, typ=» «, f00=0x000a, f01=0x0006, f02=0x4b50, f03=0x4620}
0x000000…000ca0 DirEnt {nam=»/O «, typ=» «, f00=0x0016, f01=0x4d4f, f02=0x5620, f03=0x4457}
0x000000…000ca0 DirEnt {nam=»II01,/«, typ=»S,«, f00=0x544f, f01=0x5353, f02=0x574f, f03=0x524b}
0x000000…000ca0 DirEnt {nam=» «, typ=» «, f00=0x4b50, f01=0x4620, f02=0x2f53, f03=0x2c44}
0x000000…000ca0 DirEnt {nam=»WII01 «, typ=» «, f00=0x00f8, f01=0x0008, f02=0x0003, f03=0x5343}
0x000000…000ca0 DirEnt {nam=»R «, typ=» «, f00=0x0013, f01=0x494e, f02=0x4320, f03=0x4457}
0x000000…000ca0 DirEnt {nam=»II01,T«, typ=»OS«, f00=0x5357, f01=0x4f52, f02=0x4b20, f03=0x0005}
0x000000…000ca0 DirEnt {nam=» «, typ=»KP«, f00=0x4620, f01=0x2f4f, f02=0x0005, f03=0x0136}
0x000000…000ca0 DirEnt {nam=» MO«, typ=»V «, f00=0x4457, f01=0x494f, f02=0x3031, f03=0x2c2f}
0x000000…000ca0 DirEnt {nam=»S,TOSS«, typ=»WO«, f00=0x524b, f01=0x0005, f02=0x0144, f03=0x0012}
0x000000…000ca0 DirEnt {nam=» KPF «, typ=»/S«, f00=0x2c44, f01=0x5749, f02=0x4f30, f03=0x3100}
0x000000…000ca0 DirEnt {nam=» b «, typ=» «, f00=0x5343, f01=0x5220, f02=0x0005, f03=0x0178}
0x000000…000ca0 DirEnt {nam=» IN«, typ=»C «, f00=0x4457, f01=0x494f, f02=0x3031, f03=0x2c54}
0x000000…000ca0 }
0x000ca0…120cc0 (0, 1) [
0x000ca0…120cc0 [0x000]: Pad {f00=0x0001, f01=0x0190, f02=»OSSWORK KPF /O MOV DW0701,/S,TOSSWORK KPF /S,DW0701 < SCR R INC DW0701,TOSSWORK ^ KPF /O z MOV DW1501,/S,TOSSWORK KPF /S,DW1501 SCR INC DW1501,TOSSWORK KPF /O MOV DW2201,/S,TOSSWORK
0x000ca0…120cc0 [0x001]: Pad {f00=0x0001, f01=0x0190, f02=»R INC CTABX,TOSSWORK KPF /O & MOV BLOK:S,/S,TOSSWORK 4 KPF /S,BLOK:S R SCR h INC BLOK:S,TOSSWORK t KPF /O MOV CD:TAB,/S,TOSSWORK KPF /S,CD:TAB SCR INC CD:TAB,TOSSWORK KPF /O MO
0x000ca0…120cc0 [0x002]: Pad {f00=0x0001, f01=0x0190, f02=»KPF /S,TTABX SCR INC TTABX,TOSSWORK KPF /O < MOV DC:TAB,/S,TOSSWORK J KPF /S,DC:TAB h SCR ~ INC DC:TAB,TOSSWORK KPF /O MOV INTLT1,/S,TOSSWORK KPF /S,INTLT1 SCR INC INTLT1,TOSSWORK
0x000ca0…120cc0 [0x003]: Pad {f00=0x0001, f01=0x018e, f02=»T3,/S,TOSSWORK KPF /S,INTLT3 SCR , INC INTLT3,TOSSWORK 8 KPF /O T MOV INTLT4,/S,TOSSWORK b KPF /S,INTLT4 SCR INC INTLT4,TOSSWORK KPF /O MOV INTRT1,/S,TOSSWORK KPF /S,INTRT1 SCR
0x000ca0…120cc0 [0x004]: Pad {f00=0x0001, f01=0x0190, f02=» KPF /O MOV INTRT3,/S,TOSSWORK KPF /S,INTRT3 0 SCR F INC INTRT3,TOSSWORK R KPF /O n MOV INTRT4,/S,TOSSWORK | KPF /S,INTRT4 SCR INC INTRT4,TOSSWORK KPF /O MOV MONTAB,/S,TOSSWORK KPF /S
0x000ca0…120cc0 [0x005]: Pad {f00=0x0001, f01=0x0190, f02=»C TIODM,TOSSWORK KPF /O MOV DMTASK,/S,TOSSWORK ( KPF /S,DMTASK F SCR INC DMTASK,TOSSWORK h KPF /O MOV DMINIT,/S,TOSSWORK KPF /S,DMINIT SCR INC DMINIT,TOSSWORK KPF /O MOV TASS,/S,
0x000ca0…120cc0 [0x006]: Pad {f00=0x0001, f01=0x0190, f02=» SCR INC DMTASS,TOSSWORK KPF /O 0 MOV DMBUF,/S,TOSSWORK > KPF /S,DMBUF SCR p INC DMBUF,TOSSWORK | KPF /O MOV DMFDB,/S,TOSSWORK KPF /S,DMFDB SCR INC DMFDB,TOSSWORK KPF /O
0x000ca0…120cc0 [0x007]: Pad {f00=0x0001, f01=0x0190, f02=» KPF /S,DMSUBX SCR INC DMSUBX,TOSSWORK & KPF /O B MOV ADDMOD,/S,TOSSWORK P KPF /S,ADDMOD n SCR INC ADDMOD,TOSSWORK KPF /O MOV DSUMOD,/S,TOSSWORK KPF /S,DSUMOD SCR INC DSUMOD,TOSSW
0x000ca0…120cc0 [0x008]: Pad {f00=0x0001, f01=0x0190, f02=»V DIVMOD,/S,TOSSWORK KPF /S,DIVMOD SCR 2 INC DIVMOD,TOSSWORK > KPF /O Z MOV DMSUBR,/S,TOSSWORK h KPF /S,DMSUBR SCR INC DMSUBR,TOSSWORK KPF /O MOV TTABD0,/S,TOSSWORK KPF /S,TTABD0 SCR
0x000ca0…120cc0 [0x009]: Pad {f00=0x0001, f01=0x0190, f02=» | KPF /O MOV TTABD2,/S,TOSSWORK KPF /S,TTABD2 4 SCR J INC TTABD2,TOSSWORK V KPF /O r MOV DRIC0X,/S,TOSSWORK KPF /S,DRIC0X SCR INC DRIC0X,TOSSWORK KPF /O MOV DRKB01,/S,TOSSWORK KP
0x000ca0…120cc0 [0x00a]: Pad {f00=0x0001, f01=0x0190, f02=» INC DRTP02,TOSSWORK KPF /O MOV DRDY01,/S,TOSSWORK . KPF /S,DRDY01 L SCR b INC DRDY01,TOSSWORK n KPF /O MOV DRRT01,/S,TOSSWORK KPF /S,DRRT01 SCR INC DRRT01,TOSSWORK KPF /O MOV DRTC
0x000ca0…120cc0 [0x00b]: Pad {f00=0x0001, f01=0x0190, f02=»,DRSOP1 SCR INC DRSOP1,TOSSWORK KPF /O 8 MOV DRDU01,/S,TOSSWORK F KPF /S,DRDU01 d SCR z INC DRDU01,TOSSWORK KPF /O MOV DRDC15,/S,TOSSWORK KPF /S,DRDC15 SCR INC DRDC15,TOSSWORK
0x000ca0…120cc0 [0x00c]: Pad {f00=0x0001, f01=0x0190, f02=» !!CH $$ X:E$$ 0$$ !!CH $$ X:F$$ 30$$ !!CH $$ X:G$$ 1$$ 8 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ R !!EN ~ ASM /S KPF /O KPF /S SCR LED DRTP02 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 0$$ !!CH
0x000ca0…120cc0 [0x00d]: Pad {f00=0x0001, f01=0x0190, f02=»2122,/2426,/3B3C,/3E40,/5E5F$$/2122,/2627,/3B3C,/3E40,/5E5F$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ F !!EN r ASM /S ~ KPF /O KPF /S SCR LED DRDY01 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 0$$ !!CH $$ X:C$$ 0$
0x000ca0…120cc0 [0x00e]: Pad {f00=0x0001, f01=0x0190, f02=»EN ASM /S KPF /O KPF /S & SCR 4 LED DRRT01 @ !!CH $$ X:A$$ 0$$ R !!CH $$ X:B$$ 1$$ l !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 1$$ !!CH $$ X:E$$ 15$$ !!CH $$ X:F$$ 01$$ ( #!!CH $$CREDIT EQU 0$$CREDIT
0x000ca0…120cc0 [0x00f]: Pad {f00=0x0001, f01=0x0190, f02=»X:B$$ 0$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ !!EN > ASM /S J KPF /O X KPF /S f SCR t LED DRSOP1 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 0$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ !!EN ASM /S
0x000ca0…120cc0 [0x010]: Pad {f00=0x0001, f01=0x0190, f02=» !!CH $$ X:D$$ 1$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ !!EN J ASM /S V KPF /O d KPF /S r SCR LED DRDC15 !!CH $$ X:A$$ 999$$ !!CH $$ X:B$$ 254$$ !!CH $$ X:C$$ 60$$ !!CH $$ X:D$$ 0$$
0x000ca0…120cc0 [0x011]: Pad {f00=0x0001, f01=0x0190, f02=»!!CH $$ X:J$$ 1$$ !!CH $$ X:K$$ 1$$ !!CH $$ X:L$$ 0$$ 4 !!CH $$ X:M$$ 2$$ N !!CH $$ X:N$$ 00$$ h !!CH $$ X:O$$ 02$$ !!CH $$ X:P$$ 0$$ !!CH $$ X:Q$$ 1$$ !!CH $$ X:R$$ 1$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU
0x000ca0…120cc0 [0x012]: Pad {f00=0x0001, f01=0x0190, f02=» INC EBCDIC,TOSSWORK KPF /O $ LED EBCDIC 2 !!EN D ASM /S P KPF /O ^ KPF /S l SCR z LED DVTKB !!DL 30 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0, !!EN ASM /S KPF /O
0x000ca0…120cc0 [0x013]: Pad {f00=0x0001, f01=0x018e, f02=»V TIMER,/S,TOSSWORK KPF /S,TIMER SCR 0 INC TIMER,TOSSWORK < KPF /O X MOV GRBUF,/S,TOSSWORK f KPF /S,GRBUF SCR INC GRBUF,TOSSWORK KPF /O MOV GRBUF,/S,TOSSWORK KPF /S,GRBUF SCR
0x000ca0…120cc0 [0x014]: Pad {f00=0x0001, f01=0x0190, f02=» KPF /O LED TABORT ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ $ !!EN P ASM /S,NL KPF /O n KPF /S | SCR LED LKMAL !!DL 017 !!DL 019 !!DL 020 !!DL 021 !!DL 022 !!DL 035
0x000ca0…120cc0 [0x015]: Pad {f00=0x0001, f01=0x0190, f02=» DATA 00 !!DL 040 DATA 00 ( !!EN D ASM /S P KPF /O ^ KPF /S l SCR z LED LRPINT !!CH $$ X:A$$ 0$$ !!EN ASM /S KPF /O KPF /S SCR LED TIODM !!CH
0x000ca0…120cc0 [0x016]: Pad {f00=0x0001, f01=0x018e, f02=»!!CH $$ X:A$$ 02$$ !!EN ASM /S & KPF /O 4 KPF /S B SCR P LED DMTASK !!CH $$ X:A$$ 1$$ n !!CH $$ X:B$$ 0$$ !!EN ASM /S KPF /O KPF /S SCR LED DMTASS !!CH $$ X:B$$ 0$$
0x000ca0…120cc0 [0x017]: Pad {f00=0x0001, f01=0x0190, f02=» !!EN ASM /S KPF /O " KPF /S 0 SCR > LED CD:TAB J !!DL 10 ** l !!DL 11 v ** !!DL 26,29 !!DL 30,37 !!IL 38 DATA 0,0,0,0,0,0,0,0 DATA 0,0, !!EN KPF /S
0x000ca0…120cc0 [0x018]: Pad {f00=0x0001, f01=0x0190, f02=» , '!!CH $$ILLINT 13$$IH1502 13$$ !!IL 55 4 EXTRN IH1501 D EXTRN IH1502 d !!DL 056 !!DL 064 !!DL 066 !!DL 067 !!DL 068 !!DL 069 !!DL 070 !!DL 071 !!DL 0
0x000ca0…120cc0 [0x019]: Pad {f00=0x0001, f01=0x0190, f02=» !!DL 122 DATA ILLINT !!DL 130 4 DATA ILLINT D !!DL 132 d DATA ILLINT t !!DL 133 DATA ILLINT !!DL 134 DATA ILLINT !!DL 135
0x000ca0…120cc0 [0x01a]: Pad {f00=0x0001, f01=0x0190, f02=» DATA ILLINT !!DL 141 $ DATA ILLINT 4 !!DL 142 T DATA ILLINT d !!DL 145 DATA ILLINT !!DL 149 DATA ILLINT !!DL 150 DATA ILLI
0x000ca0…120cc0 [0x01b]: Pad {f00=0x0001, f01=0x0190, f02=»F /O KPF /S ! SCR ! LED PFTAB ! & !!IL 12 ! 8 EXTRN DC15ON ! H !!DL 013 ! h !!DL 018 ! x !!DL 019 ! !!DL 020 ! !!DL 021 ! !!DL 022 ! !!DL 023 ! !!DL 024 ! !!DL 025 ! !!DL 026 ! !!
0x000ca0…120cc0 [0x01c]: Pad {f00=0x0001, f01=0x0190, f02=» ! !!DL 037 " !!DL 038 " !!IL 40 " ( DATA DC15ON " 8 !!DL 041 " X !!DL 046 " h !!DL 047 " x !!DL 048 " !!DL 049 " !!DL 050 " !!DL 051 " !!DL 052 " !!DL 053 " !!DL 054 " !!DL 055 " !!
0x000ca0…120cc0 [0x01d]: Pad {f00=0x0001, f01=0x0190, f02=» " !!DL 066 # !!EN # ASM /S # $ KPF /O # 2 KPF /S # @ SCR # N LED DVTKB # Z !!CH $$DVTKB$$DVKB00$$ # l !!CH $$BCA$$8791$$ # !!CH $$ED0$$FFBA$$ # !!CH $$8000$$8002$$ # !!CH $$ECH$$DWDY00$$ # !!EN # KPF /S #
0x000ca0…120cc0 [0x01e]: Pad {f00=0x0001, f01=0x0190, f02=»$$DVDY00$$ # !!CH $$/ABC$$/0824$$ $ !!EN $ . KPF /S $ : SCR $ H LED DVTTP $ T !!CH $$DVTTP$$DVTP01$$ $ f !!EN $ KPF /S $ SCR $ LED DVTTP $ !!CH $$DVTTP$$DVTP02$$ $ !!EN $ KPF /S $ SCR $ LED DVTKB
0x000ca0…120cc0 [0x01f]: Pad {f00=0x0001, f01=0x0190, f02=»03$$ $ !!EN % KPF /S % SCR % & LED DVTTP % 2 !!CH $$DVTTP$$DVTP03$$ % D !!EN % b KPF /S % n SCR % | LED DVTDY % !!CH $$DVTDY$$DVDY03$$ % !!CH $$/ABC$$/1850$$ % !!EN % KPF /S % SCR % LED DVTTP %
0x000ca0…120cc0 [0x020]: Pad {f00=0x0002, f01=0x018e, f02=»/S % SCR & LED TTABX & !!CH $$/EE$$'TC'$$ & ( !!CH $$TTABX$$TTABTC$$ & B !!CH $$/3C$$60$$ & ` !!IL 9 & x EXTRN DWKB01 & EXTRN DWTP01 & EXTRN DWDY01 & EXTRN DW1501 & !!IL
0x000ca0…120cc0 [0x021]: Pad {f00=0x0002, f01=0x0190, f02=» & v DATA /0050 ' DATA DWDY01 ' ( DATA /0231 ' H DATA DWTP01 ' h DATA /0132 ' DATA DWTP01 ' DATA /0061 ' DATA DW1501 ' !!
0x000ca0…120cc0 [0x022]: Pad {f00=0x0002, f01=0x0190, f02=» !!CH $$/3C$$60$$ ( !!IL 9 ( EXTRN DWKB02 ( * EXTRN DWTP02 ( J EXTRN DWDY02 ( j !!IL 21 ( DATA /0020 ( DATA DWKB02 ( DATA /0030 ( DATA
0x000ca0…120cc0 [0x023]: Pad {f00=0x0002, f01=0x0190, f02=»02 ( z DATA /0132 ) DATA DWTP02 ) * !!EN ) J ASM /S ) V KPF /O ) d KPF /S ) r SCR ) LED TTABX ) !!CH $$/EE$$'TE'$$ ) !!CH $$TTABX$$TTABTE$$ ) !!CH $$/3C$$60$$ ) !!IL 9 ) EXTRN
0x000ca0…120cc0 [0x024]: Pad {f00=0x0002, f01=0x0190, f02=» DATA DWKB41 ) DATA /0030 * DATA DWTP41 * < DATA /0050 * DATA DWDY41 * | DATA /0231 * DATA DWTP41 * DATA /0132 * DATA
0x000ca0…120cc0 [0x025]: Pad {f00=0x0002, f01=0x0190, f02=»$TTABX$$TTABDC$$ * !!CH $$/3C$$60$$ + !!EN + 0 ASM /S + < KPF /O + J KPF /S + X SCR + f LED CD:TAB + r !!CH $$/EE$$'CD'$$ + !!CH $$TTABX$$TTABCD$$ + !!CH $$/3C$$ $$ + !!IL 9 + EXTRN DWTC01 +
0x000ca0…120cc0 [0x026]: Pad {f00=0x0002, f01=0x0190, f02=»/0012 + ~ DATA DWTC01 , DATA /0010 , . DATA DWSI01 , N DATA /0011 , n DATA DWSO01 , DATA /015 , DATA DWREMU , DATA /060 , DATA DW1500 , !!EN , ASM
0x000ca0…120cc0 [0x027]: Pad {f00=0x0002, f01=0x018e, f02=»RN TTABTC , EXTRN TTABTD - EXTRN TTABTE - 4 EXTRN TTABDC - T !!IL 16 - t DATA TTABTC - DATA TTABTD - DATA TTABTE - DATA TTABDC - !!EN -
0x000ca0…120cc0 [0x028]: Pad {f00=0x0002, f01=0x0190, f02=» KPF /O . KPF /S . SCR . LED DW1501 . , !!CH $$DW1501$$DW1501$$ . > !!EN . ^ ASM /S . j KPF /O . x KPF /S . SCR . LED DW1501 . !!CH $$DW1501$$DW1501$$ . !!EN . ASM /S . KPF /O . KPF /S . SC
0x000ca0…120cc0 [0x029]: Pad {f00=0x0002, f01=0x0190, f02=»ATA *+6,0,0 . DATA *+6,0,0 / DATA *+6,0,0 / * DATA *+6,0,0 / @ DATA *+6,0,0 / V DATA *+6,0,0 / l DATA *+6,0,0 / DATA *+6,0,0 / DATA *+6,0,0 / DATA *+6,0,0 / DATA *+6,0,0 / DATA *+6,0,0 / DAT
0x000ca0…120cc0 [0x02a]: Pad {f00=0x0002, f01=0x0190, f02=»*+6,0,0 / DATA *+6,0,0 0 !!EN 0 & ASM /S 0 2 KPF /O 0 @ KPF /S 0 N SCR 0 LED DMFDB 0 h !!CH $$ X:A$$ 00245$$ 0 z !!CH $$ X:B$$ 00180$$ 0 !!EN 0 ASM /S 0 KPF /O 0 KPF /S 0 SCR 0 LED INTLT1 0
0x000ca0…120cc0 [0x02b]: Pad {f00=0x0002, f01=0x0190, f02=»02 0 z EXTRN DWTP02 1 EXTRN DWDY02 1 * !!IL 16 1 J T1 EQU /006 1 Z T2 EQU /006 1 x !!IL 18 1 DATA TN1 1 DATA TN2 1 DATA 00 1 DAT
0x000ca0…120cc0 [0x02c]: Pad {f00=0x0002, f01=0x0190, f02=» EQU * 1 DATA T1 2 DATA DWKB01 2 2 DATA DWTP01 2 R DATA DWDY01 2 r TN2 EQU * 2 DATA T2 2 DATA DWKB02 2 DATA DWTP02 2
0x000ca0…120cc0 [0x02d]: Pad {f00=0x0002, f01=0x0190, f02=» EXTRN DWKB41 2 EXTRN DWTP41 3 EXTRN DWDY41 3 > !!IL 16 3 ^ T1 EQU /006 3 n !!IL 18 3 DATA TN1 3 DATA 00 3 DATA 00 3 DATA 00 3
0x000ca0…120cc0 [0x02e]: Pad {f00=0x0002, f01=0x0190, f02=»* 3 ~ DATA T1 4 DATA DWKB41 4 & DATA DWTP41 4 F DATA DWDY41 4 f !!EN 4 ASM /S 4 KPF /O 4 KPF /S 4 SCR 4 LED DVKB00 4 !!CH $$DVKB00$$DWKB01$$ 4 !!CH $$/1111$$/1
0x000ca0…120cc0 [0x02f]: Pad {f00=0x0002, f01=0x0190, f02=»D DVTP00 4 !!CH $$DVTP00$$DWTP01$$ 5 !!CH $$/1111$$/2000$$ 5 0 !!EN 5 N ASM /S 5 Z KPF /O 5 h KPF /S 5 v SCR 5 LED DVDY00 5 !!CH $$DVDY00$$DWDY01$$ 5 !!CH $$/1111$$/C010$$ 5 !!EN 5 ASM /S 5 KPF /O 5 KP
0x000ca0…120cc0 [0x030]: Pad {f00=0x0002, f01=0x0190, f02=» 24,$$03$$02$$ 5 !!EN 6 ASM /S 6 " KPF /O 6 0 KPF /S 6 > SCR 6 L LED DVTP03 6 X !!CH $$DVTP03$$DWTP02$$ 6 j !!CH $$/1111$$/2200$$ 6 !!EN 6 ASM /S 6 KPF /O 6 KPF /S 6 SCR 6 LED DVDY03 6 !!CH $$DVDY03$
0x000ca0…120cc0 [0x031]: Pad {f00=0x0002, f01=0x0190, f02=»CH $$DVKB00$$DWKB41$$ 6 !!CH $$/1111$$/1144$$ 7 !!RE 07,$$00$$41$$ 7 < !!RE 24,$$00$$41$$ 7 V !!EN 7 p ASM /S 7 | KPF /O 7 KPF /S 7 SCR 7 LED DVTP00 7 !!CH $$DVTP00$$DWTP41$$ 7 !!CH $$/1111$$/2004$$ 7 !!EN 7
0x000ca0…120cc0 [0x032]: Pad {f00=0x0002, f01=0x0190, f02=» !!EN 8 ASM /S 8 KPF /O 8 KPF /S 8 , SCR 8 : LED INIMOD 8 F !!DL 025 8 X !!RE 29,$$0$$1$$ 8 h !!DL 033 8 !!EN 8 ASM /S 8 KPF /O 8 KPF /S 8 SCR 8 LED MONTAB 8 !!DL 010 8 !!DL 014 8 !!DL 0
0x000ca0…120cc0 [0x033]: Pad {f00=0x0002, f01=0x0080, f02=»,NL 8 KPF /O 9 ASG /02,LP0F 9 SCR 9 . INC INTVMD 9 : LKE M 9 L KPF /L,M:173P 9 Z ASG /E0,TY10 9 p!!DL 033 8 !!EN 8 ASM /S 8 KPF /O 8 KPF /S 8 SCR 8 LED MONTAB 8 !!DL 010 8 !!DL 014 8 !!DL 0
0x000ca0…120cc0 [0x034]: Pad {f00=0x0002, f01=0x2008, f02=» : KPF /O 9 ASG /02,LP0F 9 SCR 9 . INC INTVMD 9 : LKE M 9 L KPF /L,M:173P 9 Z ASG /E0,TY10 9 p!!DL 033 8 !!EN 8 ASM /S 8 KPF /O 8 KPF /S 8 SCR 8 LED MONTAB 8 !!DL 010 8 !!DL 014 8 !!DL 0
0x000ca0…120cc0 [0x035]: Pad {f00=0x0002, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f x T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x036]: Pad {f00=0x0002, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f x T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x037]: Pad {f00=0x0002, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f x T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x038]: Pad {f00=0x0016, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x039]: Pad {f00=0x0016, f01=0x000a, f02=» 0 8 @ H
0x000ca0…120cc0 [0x03a]: Pad {f00=0x0016, f01=0x018e, f02=» 2 P IDENT INTVMD REL 8.2 78-09-15 870105040820 P : P* B 8 P*************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 4 P* INTVMD = INTERRUPT VECTORS AND SYSTEM START P* P*
0x000ca0…120cc0 [0x03b]: Pad {f00=0x0016, f01=0x0190, f02=» P* 8 P* THIS MODULE CONTAINS HARDWARE INTERRUPT VECTORS, . P* COMMUNICATION VECTOR TABLE,STACK AREA N $ P* AND MONITOR INITIALIZATION. P* P* P P P P P P P P P P EJECT
0x000ca0…120cc0 [0x03c]: Pad {f00=0x0016, f01=0x0190, f02=»L d 0 P ENTRY CVTEBA ADDRESS TO END OF BUFFER POOL , P ENTRY CVTINP INTERPRETER ADDRESS TABLE > P ENTRY CVTDK START UP DISC n & P ENTRY CVTAPA APPLICATION ADDRESS , P ENTRY CVTAPS APPLICATION START ADDRESS " P ENTRY CVTCLK REAL TIME CLOCK
0x000ca0…120cc0 [0x03d]: Pad {f00=0x0016, f01=0x018e, f02=»PAR FREE PARTITION POINTER " P ENTRY PARLEN PARTITION LENGTH " & P ENTRY NUMPAR NUMBER OF PARTITIONS H P r , P EXTRN IHPFAR POWER FAIL / AUTO RESTART z P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK P EXTRN IH1501
0x000ca0…120cc0 [0x03e]: Pad {f00=0x0016, f01=0x0190, f02=» P** P** P** * P EXTRN CHRT1 REMOTE CHANNEL UNIT NO. 1 " * P EXTRN CHLT1 LOCAL CHANNEL UNIT NO. 1 P P EXTRN IHDU1 DISC UNIT NO. 1 ~ $ P EXTRN ILLINT ILLEGAL INTERRUPT P EXTRN HALT HALT ROUTINE P P EXTRN TCTAB & P EXT
0x000ca0…120cc0 [0x03f]: Pad {f00=0x0016, f01=0x0190, f02=»NIMON MONITOR INITIALIZATION ROUTINE P EXTRN BUG BUGGER , * P EXTRN PFINIT INIT AFTER MASTER CLEAR F P* t P ~ PFD EQU /09 FD DEVICE ADDRESS $ PCHCR EQU /0E CHCR DEVICE ADDRESS " PSOP EQU /2E SOP DEVICE ADDRESS PX:A EQU /0 *
0x000ca0…120cc0 [0x040]: Pad {f00=0x0021, f01=0x0190, f02=»EQUAL TO ZERO, UNLOAD IS NOT x < P* PERFORMED ON CASSETTE AFTER THE APPLICATION LOADING $ P* d PX:C EQU 0 n PUNLOAD EQU 0 PDOPDSK EQU 0 PREL0 EQU * P EJECT P P* P* INTERRUPT VECTORS P* P P D
0x000ca0…120cc0 [0x041]: Pad {f00=0x0021, f01=0x0190, f02=» P DATA ILLINT 5 P DATA ILLINT 6 P DATA ILLINT < P DATA IHTC 8 P DATA IHSOP 9 v P DATA ILLINT 10 P DATA ILLINT 11 P DATA IH1501 12 P DATA IH1502 13 P DATA CH
0x000ca0…120cc0 [0x042]: Pad {f00=0x0021, f01=0x018e, f02=»NT z P DATA ILLINT P DATA ILLINT * P DATA ILLINT J P DATA ILLINT 22 j P DATA ILLINT P DATA CHLT1 24 P DATA ILLINT P DATA ILLINT P
0x000ca0…120cc0 [0x043]: Pad {f00=0x0021, f01=0x0190, f02=» z P DATA ILLINT 32 P DATA ILLINT 33 $ P DATA ILLINT @ P DATA ILLINT ` P DATA ILLINT 36 P DATA ILLINT 37 P DATA ILLINT 38 P DATA ILLINT 39 P DATA IHDU1 40
0x000ca0…120cc0 [0x044]: Pad {f00=0x0021, f01=0x0190, f02=» 45 P DATA ILLINT 46 P DATA ILLINT 47 , P DATA ILLINT 48 H P DATA ILLINT 49 d P DATA ILLINT 50 P DATA ILLINT 51 P DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54
0x000ca0…120cc0 [0x045]: Pad {f00=0x0021, f01=0x0190, f02=» | P DATA ILLINT 60 P DATA ILLINT 61 $ P DATA ILLINT 62 @ P DATA TRAP TRAP ROUTINE P HLT | P EJECT P P* P* SYSTEM HALTS P* P P HLT P HLT P P P P P*
0x000ca0…120cc0 [0x046]: Pad {f00=0x0021, f01=0x0190, f02=»BA DATA 0 START OF BUFFER AREA $ PCVTEBA DATA 0 END OF BUFFER AREA & , PCVTINP DATA 0 INTERPPRETER TABLE ADDRESS N P RF INIT ~ P RF BUGG & PCVTAPA DATA 0 APPLICATION ADDRESS * PCVTAPS DATA 0 APPLICATON START ADDRESS " PCVTCLK DATA 0 REAL T
0x000ca0…120cc0 [0x047]: Pad {f00=0x0021, f01=0x0190, f02=»TION POINTER x 0 PPARLEN DATA 0 LENGTH OF PARTITIONS IN BYTES 4 PCVTAPN DATA 0 APPLICATION NUMBER (START SWITCH) H 8 PCVTSUB DATA 0 ADDRESS TO IPL READ SECTOR SUBROUTINE P EJECT P P* P* INIMON AND BUGGER ENTRIES P* P
0x000ca0…120cc0 [0x048]: Pad {f00=0x0021, f01=0x0190, f02=»4,-8 P AD A14,CVTAPA P LDKL A1,BUG " PBRANCH ABR(NZ) A1 6 P HLT P " PTRAP LDK A1,/D HALT PARAMETER P CF A15,HALT P EJECT P* , P* SAVE MEMORY SIZE, END OF BUFFER POOL P* AND LOAD STACK BASE P* P*
0x000ca0…120cc0 [0x049]: Pad {f00=0x0021, f01=0x0190, f02=»DPL (A9+2 = ADDRESS TO APPLICATION NO.) | P* A10= RELOCATION BASE 0 P* A11= BUFFER ADDRESS+2 P " P* A12= MONITOR START ADDRESS r P* A13= APPLICATION ADDRESS P* A14= MEMORY SIZE . P* A15= ADDRESS TO READ SECTOR SUBROUTINE P
0x000ca0…120cc0 [0x04a]: Pad {f00=0x0021, f01=0x0190, f02=»L p P IFT DOPDSK=1 P LDR A13,A9 P LDR A9,A12 4 P ORKL A12,/FFE H P ST A12,CVTEBA ^ P ADKL A12,2 t P ST A12,CVTMSZ P LDR A12,A9 P XIF P LDR A14,P LOAD STACK BASE & P LDKL A2,/400 INDICATE LOAD ON SOP P
0x000ca0…120cc0 [0x04b]: Pad {f00=0x0021, f01=0x0190, f02=» SUBR. f P* P* READ LSBT P* . P LDR A6,A1 8 P IFT DOPDSK=1 J P SUK A6,1 ` P ST A3,CVTAPN r P RF INIM20 P XIF P CFR A14,A15 READ LSBT P LDR* A2,A11 GET LENGTH P CWK A2,12 ONE SEGMENT ? P RF(E)
0x000ca0…120cc0 [0x04c]: Pad {f00=0x0021, f01=0x0190, f02=»DR A5,A13 P ADKL A5,408 $ PINIM10 LDR* A4,A3 GET TABLE WORD & P STR A4,A13 STORE TABLE WORD N & P ADKL A13,2 UPDATE MEMORY ADDRESS r & P ADK A3,2 INCREMENT FETCH ADDRESS P SUK A2,2 READY ? P RF(E) INIM20 P CWR A5,A13 P
0x000ca0…120cc0 [0x04d]: Pad {f00=0x0021, f01=0x0190, f02=» RELOCATION BASE p P* , PINIM20 ST A13,CVTAPA APPLICATION ADDRESS " , P ADR A10,A13 APPLICATION RELOCATION BASE R P EJECT P* $ P* READ AND RELOCATION ROUTINE P* P* ON ENTRY: & P* A10 = RELOCATION BASE *
0x000ca0…120cc0 [0x04e]: Pad {f00=0x0021, f01=0x0190, f02=» A2 = RELOCATION BITS CHECK REG 6 P* A3 = ADDRESS OF RELOCATION TABLE 0 2 P* A4 = RELOCATION BIT COUNTER j , P* A5 = CODE WORD ADDRESS , P* A7 = CODE WORD COUNTER $ P*
0x000ca0…120cc0 [0x04f]: Pad {f00=0x0021, f01=0x0190, f02=» A14,A15 READ FIRST SECTOR P LDR* A2,A11 START ADDRESS " $ P ADR A2,A10 ADD RELOCATION BASE D $ P ST A2,CVTAPS SAVE START ADDRESS l P LD A1,4,A11 LENGTH IN BYTES $ P ADR A1,A10 ADD RELOCATION BASE P ADK A1,2 & P LDKL A7,368 BYTES IN FI
0x000ca0…120cc0 [0x050]: Pad {f00=0x0022, f01=0x0190, f02=»A7,376 NUMBER OF BYTES IN NORMAL SECTOR P LDR A3,A11 0 , PRELOCS LDR A5,A3 BUFFER ADDRESS POINTER D * P ADR A3,A7 ADDRESS TO RELOCATION WORDS t PMOV EQU * P LDR* A2,A3 RELOCATION BITS P SRC A2,1 P LDR A4,A4 FIRST SECTOR ?
0x000ca0…120cc0 [0x051]: Pad {f00=0x0022, f01=0x018e, f02=»MOVE EQU * * P LDR* A8,A5 GET CODE WORD FROM BUFFER " P SLC A2,1 CHECK RELOCATION BIT @ P RF(NN) MOVABS NO RELOCATION f $ P ADR A8,A10 ADD RELOCATION BASE & PMOVABS STR A8,A13 STORE CODE WORD $ P ADK A5,2 UPDATE BUFFER POINTER & P ADKL
0x000ca0…120cc0 [0x052]: Pad {f00=0x0022, f01=0x0190, f02=» P RF(NE) MONFOR NO P LDKL A1,/100 PFELUTG OTR A1,0,SOP 4 P HLT P PMONFOR SUK A7,2 LAST ? P RF(Z) MOVEND YES z $ P SUK A4,1 NEXT RELOCATION WORD ? P RB(P) MOVE P RB MOV YES * PMOVEND ADK A6,1 UPDATE SECTOR POINTER
0x000ca0…120cc0 [0x053]: Pad {f00=0x0022, f01=0x0190, f02=»DING ENDED b P* PREDEND EQU * P ST A13,CVTSBA 0 $ P LDKL A4,NUMPAR OVERLAY SYSTEM ? F P RF(E) INIM35 NO n . P ADKL A13,10 DUMMY NEEDED AT SEGMENT LOAD ( P ST A13,CVTSBA START OF BUFFER POOL P* , P* CALCULATE NECESSARY PART
0x000ca0…120cc0 [0x054]: Pad {f00=0x0022, f01=0x0190, f02=» n P RF(NP) PAREND P ADKL A2,368 0 PPARADD SUKL A1,376 BYTES IN 2:ND-N:TH SECTOR 2 P RF(NP) PAREND f P ADKL A2,376 | P RB PARADD 6 PPAREND ADKL A2,408 RESERVED SPACE FOR LAST SECTOR P ST A2,PARLEN P EJECT P* 6 P
0x000ca0…120cc0 [0x055]: Pad {f00=0x0022, f01=0x0190, f02=»RENCE t P LD A2,PARLEN ( P SRL A2,1 PARTITION LENGTH REFERENCE $ PINIM28 ADR A1,A2 OVERFLOW? P P RF(O) OVERFL ERROR r P SUK A3,1 P RB(NZ) INIM28 " P LD A2,CVTEBA GET MEMORY SIZE P SRL A2,1 P CWR A1,A2 P RF(NG) IN
0x000ca0…120cc0 [0x056]: Pad {f00=0x0022, f01=0x018e, f02=»RTITION QUEUE P* PINILNK EQU * . P ST A13,FREPAR SET FREE PARTITION POINTER 4 $ PINIM29 SUK A4,1 LAST PARTITION ? f P RF(E) INIM32 P LDR A5,A13 ( P AD A13,PARLEN ADD PARTITION LENGTH P STR A13,A5 STORE LINK P RB INIM
0x000ca0…120cc0 [0x057]: Pad {f00=0x0022, f01=0x0190, f02=» P LD A7,CVTDK START UP DISC P ANK A7,/F & P SLL A7,4 8 P ORS A7,INIM37 J P ANK A7,/80 ` P RF(Z) INIM38 NOT FLEX DISC t P LDK A7,/C UNLOCK PINIM37 CIO A7,1,FD P RB(NA) *-2 P SST A7,FD P RB(NA) *-2 PINIM
0x000ca0…120cc0 [0x058]: Pad {f00=0x0022, f01=0x0190, f02=»DKL A1,BUG P ABR(NZ) A1 P EJECT & P 4 P* < P* FIND FIRST USER TASK F P* d PINIM40 EQU * n P LD A1,TCTAB TCTAB ADDRESS P LDR* A4,A1 TCTAB LENGTH PINIM50 ADK A1,2 P SUK A4,2 P RF(NZ) INIM60 P HLT
0x000ca0…120cc0 [0x059]: Pad {f00=0x0022, f01=0x0190, f02=»TOR TASK ~ , P ST A5,PRUN SET TTAB FOR RUNNING PROGRAM P CMR A5 @ $ P LD A7,TTB:ST,A5 GET USER LEVEL P P SRC A7,6 x P EJECT P* P* INITIALIZE STACK P* , P LDKL A15,STB-32 STACK BASE - IDLE LOOP P LDK A1,0 * P
0x000ca0…120cc0 [0x05a]: Pad {f00=0x0022, f01=0x0190, f02=»ER OF IDLE LOOP v P* P* START SYSTEM " P* 8 P B PINIM70 EQU * J P LDKL A13,WAITIS ^ * P STR A13,A15 STORE USER START ADDRESS v " P STR A7,A15 AND LEVEL ON STACK " P ABL PFINIT INITIALIZE DEVICES P DATA /FC00 PSW IDLE LOOP
0x000ca0…120cc0 [0x05b]: Pad {f00=0x0022, f01=0x4134, f02=»B * PWAITIS EQU * ! P LDKL A8,10 ! P LKM ! 4 P DATA 6 ! @ P LD A1,CVTDK START UP DISC ! P P SLL A1,8 INTO LEFT BYTE ! r 0 P LC A1,CVTAPN+1 APPLICATION NO IN RIGTH BYTE ! 8 P LD A2,CVTSUB ADDRESS TO IPL READ SECTOR SUBROUTINE ! P ABI CVT
0x000ca0…120cc0 [0x05c]: Pad {f00=0x0022, f01=0x2008, f02=» " P P END INIM @ & P EJECT 2 P @ P* H P* START SYSTEM R P* h P r P LD A13,CVTAPS z * P STR A13,A15 STORE USER START ADDRESS " P STR A7,A15 AND LEVEL ON STACK " P ABL PFINIT INITIALIZE DEVICES P
0x000ca0…120cc0 [0x05d]: Pad {f00=0x0022, f01=0x0190, f02=» REC NR j z P LD A2,ECBCW+2,A5 k ( P LD A3,ECBCW,A5 REC NR DATA FILE REC k * P SCR A2,A7 k V P ADK A7,2 k h P SCR A3,A7 k z P ECR A3,A3 k P SUK A7,1 k P SCR A3,A7 LOG REC NR k P ADK A7,2 k P LDK A1,/FF USED k P SCR A1,A7 STATUS
0x000ca0…120cc0 [0x05e]: Pad {f00=0x0022, f01=0x018e, f02=» P* l P ST A2,-28,A14 l P ST A3,-26,A14 l $ P EJECT l : P* l H : P* BELOW IS A NEW INDEX RECORD INSERTED AND FOLLOWING l R $ P* USED RECORDS ROLLED FORWARD l $ P* A6,A11,A13 IS USED AT ENTRY l $ P ADKL A11,7 RECORD LENGTH TOTAL l P*
0x000ca0…120cc0 [0x05f]: Pad {f00=0x0022, f01=0x0190, f02=» , P* A12 = AREA INDEX 0=BUFAR1,1=BUFAR2 m $ P* A13 = BUFFER ADDRESS SECTOR m 4 P* m PINS190 EQU * m f P LDKL A12,1 BUFADR2 m z PINS200 EQU * m P LDK A1,0 m P LDR A12,A12 m P RF(Z) INS210 BUFAR1 m ( P LDKL A1,RECBFZ RECORD BUUFFER
0x000ca0…120cc0 [0x060]: Pad {f00=0x0004, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f x T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x061]: Pad {f00=0x0004, f01=0x00be, f02=» ` X 0 @ P ` p 0 @ P ` p h p H X 8 0 P ` p h h ` ( @ X P ( 8 P
0x000ca0…120cc0 [0x062]: Pad {f00=0x0004, f01=0x0190, f02=» J F IDENT INTVMD REL 8.2 78-09-15 870105040820 D @ CVTMSZK CVTSTB CVTSBA CVTEBA CVTINP CVTDK CVTAPA CVTAPSC R < 8 CVTCLK LOOPY INIM40N CVTLSB FREPAR PARLEN@ NUMPAR NUMPAR IHPFARC IHLKM
0x000ca0…120cc0 [0x063]: Pad {f00=0x0004, f01=0x018e, f02=» IH1502R CHLT1 CHRT1 & , ( 6 , ( ! f , ( 1 IHDU1 , ( A , (
0x000ca0…120cc0 [0x064]: Pad {f00=0x0004, f01=0x0190, f02=» f CVTMSZK CVTSTB CVTSBA 0 CVTEBA D CVTINP X CVTAPA l CVTAPSC CVTCLK CVTLSB CVTDK FREPAR PARLEN@ , (
0x000ca0…120cc0 [0x065]: Pad {f00=0x0004, f01=0x0190, f02=» A , ( B. F A . P & , ( , 7 P _ V , ( @ . A N p , ( = W x ,: P : , ( ] : V P T
0x000ca0…120cc0 [0x066]: Pad {f00=0x0004, f01=0x0190, f02=»:a S @ v , ( :a U _n P _ 7 , ( G. @ ' ?D A ' P G O F INIM40N & v TCTAB TTB:ID , ( @ $ T $ T PRUNN TTB:ST , ( 9
0x000ca0…120cc0 [0x067]: Pad {f00=0x0004, f01=0x40b0, f02=»9H @ @ @ H D ! f W W W P& P CW WP cV qP uT P Pd U U 4 0 ` S U P P & 1T K F UP [ j g h b @ @ $ T $ T PRUNN TTB:ST , ( 9
0x000ca0…120cc0 [0x068]: Pad {f00=0x0004, f01=0x4124, f02=» J F IDENT INIMOD REL 8.2 78-09-15 870105040820 INIMONKdBUG DCEXT DM:TSK R INIMONK v tBUG DCEXT DM:TSK TTABD0A TTABD1A P
0x000ca0…120cc0 [0x069]: Pad {f00=0x0004, f01=0x0190, f02=» J F IDENT TDISP REL 8.2 78-09-15 870105040820 F B TDISP LKMDIS DISIOE DISEND DISQUE GBQUE PRUNY SRUNY RETU14 R F B RETU13 RETU12 RETU11 RETU10 RETUR9L RETUR8 RETUR7 RETUR6 F B RETUR5 RETUR4 RETUR3R RETUR2 R
0x000ca0…120cc0 [0x06a]: Pad {f00=0x0004, f01=0x018e, f02=»BA ECBRL ECBEL ECBRC ECBCW SACTY LRUNEW z DWTCHP 0 DWTST D DWTECB0 V DWTOR j DWTADR | DWTTAB DWTWAT DWTTQ DWTWA DWTTDM DWTVOL , ECB
0x000ca0…120cc0 [0x06b]: Pad {f00=0x0004, f01=0x0190, f02=» SACTY LRUNEW GBQUE . BLOK:S @ FREQUE R BLOCKEW f BLOCKL x DISIOE DISEND TENDIO TDISP , ( @
0x000ca0…120cc0 [0x06c]: Pad {f00=0x0004, f01=0x0190, f02=»ETU14 j RETU13 l RETU12 n $ RETU11 p 8 RETU10 r L , ( U ? , ? A ` RETUR9L t RETUR8 v RETUR7 x RETUR6 z RETUR5 | RETUR4 ~
0x000ca0…120cc0 [0x06d]: Pad {f00=0x0004, f01=0x40ae, f02=» LKMDIS , ( ? ? ? ? T ? _& $ @ @ P ^ 9j U Y >_` L PX )UL QP@ W P t @ v RETUR7 x RETUR6 z RETUR5 | RETUR4 ~
0x000ca0…120cc0 [0x06e]: Pad {f00=0x0004, f01=0x0190, f02=» J F IDENT LRPINT REL 8.2 78-09-15 870105040820 B > IHLKM LKMRQE LKMQDI IHRTC TIMQUE MONCLO IHPFAR@ INIFLG R IHLKM INTSAV PRUNN TTB:SA , ( @ A
0x000ca0…120cc0 [0x06f]: Pad {f00=0x0004, f01=0x0190, f02=» SACTN LRUNEW SWL48 " * & W H ? @ P A 2 , ( o @ (V ( U ` LKMAL LKMRQE LKMQDI QTJOB , ( " P @ V L P U
0x000ca0…120cc0 [0x070]: Pad {f00=0x0004, f01=0x0190, f02=» A A MONCLO ( FREBLKC < * & 8X Q Z P 0 9 N , ( _ _& P | TIMQUE INIFLG IHPFAR@ , ( @ H H A A
0x000ca0…120cc0 [0x071]: Pad {f00=0x0004, f01=0x4068, f02=»P GP cP yV P V P Q P #Q 7 < B J R@ d Z P 0 9 N , ( _ _& P | TIMQUE INIFLG IHPFAR@ , ( @ H H A A
0x000ca0…120cc0 [0x072]: Pad {f00=0x0004, f01=0x0190, f02=» J F IDENT TPROC REL 8.2 78-09-15 870105040820 < 8 dTIO TWAIT TEXIT TACTOTK TPAUSE TIOQ20 TIOERRL TPQUE R FNDDWT |TIO DWTST * & @ R @ ATTACHW DET
0x000ca0…120cc0 [0x073]: Pad {f00=0x0004, f01=0x0190, f02=» TIODM DWTADR , ( O P Y @ P X P X " * , ( i P P P H T H Z * & P H P I Y * & # C C '? Y DWTTDM DWTECB , (
0x000ca0…120cc0 [0x074]: Pad {f00=0x0004, f01=0x0190, f02=» l DWTWAT , ( Y x 8W TIOQ20 N TTB:ST b , ( T 8P Y ^ 5 ) t TTB:SA TIOERRL ( TPQUE , TDISP TWAIT 4 * & HP
0x000ca0…120cc0 [0x075]: Pad {f00=0x0004, f01=0x4134, f02=» $_ t LKMRQE , ( O & ( X4 @ P $ ACTOT T TPAUSE 0 d g L *_B x H D ! ( R T 3R =P CT IP OP YP@ cP2 iP0 qP( {P T~ Pn Pr 8 4 P W T P W P W P P
0x000ca0…120cc0 [0x076]: Pad {f00=0x0004, f01=0x018e, f02=» J F IDENT MSUBS REL 8.2 78-09-15 870105040820 J F " SAVE8 QTJOB QMJOB ACTOT EXITY GETBLK FREBLK FNDDWTL FNDTID TABIO R H D ! TENDIO PFINIT SWL48 SWLXY ILLINT INTSAV` HALTY IHRET8 IHRET7 < 8 IHRET6 IHRET5R IHRET4 IHR
0x000ca0…120cc0 [0x077]: Pad {f00=0x0004, f01=0x0190, f02=» TTB:ST0 , ( ! ? ? ? T $P QMJOB J F TTMJOB1 X , ( @ =@ E ^ 5 ) W j ACTOT ^ TTB:SA2 TTB:SS , ( Y W T T P L U TTB:SPO
0x000ca0…120cc0 [0x078]: Pad {f00=0x0006, f01=0x0190, f02=» EXITY , ( 4 T - 1_& U T GETBLK F , ( P 0 U ^W Z FREQUE , ( ? @ T 0 A 1 Q FREBLK , ( Q > 0 @ 1 A P
0x000ca0…120cc0 [0x079]: Pad {f00=0x0006, f01=0x0190, f02=»D , ( 5 T ? X D T W > CDTAB : , ( O _& @ 8 R Y T ? X D J , ( m T W > _& W > z FNDTID TCTAB , ( D 8 X W ? ` @ @ P TABIO
0x000ca0…120cc0 [0x07a]: Pad {f00=0x0006, f01=0x0190, f02=» P T R X "P X $ , ( T 4 Y & X $ X & DWTTDM V REQEND h * & $ T X & ( Y " Y z DWTECBO DWTWAT , ( $ " X *P - M Y * X ,P IHRET8 4
0x000ca0…120cc0 [0x07b]: Pad {f00=0x0006, f01=0x0190, f02=» > > > > > t IHRET2 @ IHRET1 B ( IHRTN D < PFINIT L N PFTAB b , ( A > > > @ .V ? . > r SWL48 b RTNA15 SWLXY t , ( ] _ W ? _ > 0 ? , (
0x000ca0…120cc0 [0x07c]: Pad {f00=0x0006, f01=0x411a, f02=» r A. H D ! $ ;P I > UW ]W iT. mP 4 T P W" T ( H D ! D D /R" 5T ET> KW8 ]R" cT sT yW W W P W W t @ < W P R P T T P$ P %P /W SV aW V
0x000ca0…120cc0 [0x07d]: Pad {f00=0x0006, f01=0x0190, f02=» J F IDENT TTMJOB REL 8.2 78-09-15 870105040820 F B TTMJOBK TTB:ST TTB:ID TTB:PP TTB:SP TTB:SS TTB:SAL TTB:TD R TTMJOBK TTB:ST TTB:ID TTB:PP TTB:SS TTB:SP
0x000ca0…120cc0 [0x07e]: Pad {f00=0x0006, f01=0x401e, f02=» , @ REL 8.2 78-09-15 870105040820 F B TTMJOBK TTB:ST TTB:ID TTB:PP TTB:SP TTB:SS TTB:SAL TTB:TD R TTMJOBK TTB:ST TTB:ID TTB:PP TTB:SS TTB:SP
0x000ca0…120cc0 [0x07f]: Pad {f00=0x0006, f01=0x4182, f02=» J F IDENT INPRET REL 8.2 78-09-15 870105040820 IHINPTK R IHINPTK d , ( ? ? ? ^ $ _ P A ;a x , ( ! :CV V A > > > ? > CVTINP , ( A _ > > > ; ^ [
0x000ca0…120cc0 [0x080]: Pad {f00=0x0007, f01=0x412c, f02=» J F IDENT PFTAB REL 8.2 78-09-15 870105040820 PFTAB R PFTAB b DC15ON t TCDRON SOPRN CHLTON DUONN DMINIT & " UP
0x000ca0…120cc0 [0x081]: Pad {f00=0x0007, f01=0xc03e, f02=» (@ :870105040820 PFTAB R PFTAB b TWONN t TCDRON SOPRN CHLTONA C1DRONA C2DRON C3DRON` FDONN * & UT
0x000ca0…120cc0 [0x082]: Pad {f00=0x0007, f01=0x0190, f02=» J F IDENT LKMAL REL 8.2 78-09-15 870105040820 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER GETBUF RELBUFC * & UT
0x000ca0…120cc0 [0x083]: Pad {f00=0x0007, f01=0x4012, f02=» " @ LKMAL REL 8.2 78-09-15 870105040820 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER GETBUF RELBUFC * & UT
0x000ca0…120cc0 [0x084]: Pad {f00=0x0007, f01=0x4136, f02=» J F IDENT DVTKB REL 8.2 78-09-15 870105040820 DVTKB R DVTKB b KBADN t & " KB bECH , ( !@ ?
0x000ca0…120cc0 [0x085]: Pad {f00=0x0007, f01=0x40f0, f02=» J F IDENT DVTTP REL 8.2 78-09-15 870105040820 DVTTP R DVTTP b TPADN t , ( TP $ $ @ VE AREA FOR REGS. A3,A4,A5
0x000ca0…120cc0 [0x086]: Pad {f00=0x0007, f01=0x40e8, f02=» J F IDENT DVTGP REL 8.2 78-09-15 870105040820 DVTGP R DVTGP b GPADN t & " GP ! $ $ @ P DATA 0 SAVE AREA FOR A4
0x000ca0…120cc0 [0x087]: Pad {f00=0x0007, f01=0x40d4, f02=» J F IDENT DVTDN REL 8.2 78-09-15 870105040820 DVTDN R DVTDN b DNADN t & " DN @ P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE A
0x000ca0…120cc0 [0x088]: Pad {f00=0x0008, f01=0x40d8, f02=» J F IDENT DVTDI REL 8.2 78-09-15 870105040820 DVTDI R DVTDI b DIADN t * & DI ?O_o @ ATA /2010 P DATA /3F4F,/5F6F * P DATA
0x000ca0…120cc0 [0x089]: Pad {f00=0x0008, f01=0x40ea, f02=» J F IDENT DVTDY REL 8.2 78-09-15 870105040820 DVTDY R DVTDY b DYADN t & " DY ! & & @ P DATA 0 SAVE AREA FOR A4
0x000ca0…120cc0 [0x08a]: Pad {f00=0x0008, f01=0x40fc, f02=» J F IDENT DVTCG REL 8.2 78-09-15 870105040820 DVTCG R DVTCG b CGADN t & " CG bECH !@ ( ( @ DATA 0 SAVE A
0x000ca0…120cc0 [0x08b]: Pad {f00=0x0008, f01=0x40e6, f02=» J F IDENT DVTCD REL 8.2 78-09-15 870105040820 DVTCD R DVTCD b CDADN t & " CD ! " " @ P RES 4 P DATA 0 PDW
0x000ca0…120cc0 [0x08c]: Pad {f00=0x0008, f01=0x40dc, f02=» J F IDENT DVTMS REL 8.2 78-09-15 870105040820 DVTMS R DVTMS b MSADN t & " ! ( @ FOR A3 P DATA 0 SAVE AREA FOR A4 P
0x000ca0…120cc0 [0x08d]: Pad {f00=0x0008, f01=0x40f8, f02=» J F IDENT DVTOD REL 8.2 78-09-15 870105040820 DVTOD R DVTOD b ODADN t & " OD ! ` , ) , + , , @ P DATA
0x000ca0…120cc0 [0x08e]: Pad {f00=0x0008, f01=0x40fa, f02=» J F IDENT DVTT1 REL 8.2 78-09-15 870105040820 DVTT1 R DVTT1 b TPAD3 t , ( TP . . @ R REGS. A3,A4,A5
0x000ca0…120cc0 [0x08f]: Pad {f00=0x0008, f01=0x40ca, f02=» J F IDENT DWII01 REL 8.2 78-09-15 870105040820 DWII01K R DWII01K d ITADI x ( $ @ PDWII01 EQU * & P DATA 0 QUEUE ANCHOR OUTPUT DWT'S
0x000ca0…120cc0 [0x090]: Pad {f00=0x000b, f01=0x40ca, f02=» J F IDENT DWIO01 REL 8.2 78-09-15 870105040820 DWIO01K R DWIO01K d ITADO x ( $ @ PDWIO01 EQU * P DATA 0 QUEUE LINK P DATA /8000 ST
0x000ca0…120cc0 [0x091]: Pad {f00=0x000b, f01=0x40da, f02=» J F IDENT DW0701 REL 8.2 78-09-15 870105040820 DW0701K R DW0701K d DC07AD x & " DC @ P END @ P DATA 0 ECB ADDRESS
0x000ca0…120cc0 [0x092]: Pad {f00=0x000b, f01=0x40de, f02=» J F IDENT DW1501 REL 8.2 78-09-15 870105040820 DW1501K R DW1501K d DC15AD x * & DC @ E QUEUE P DATA 0 STATUS QUEUE P
0x000ca0…120cc0 [0x093]: Pad {f00=0x000b, f01=0x40ee, f02=» J F IDENT DW2201 REL 8.2 78-09-15 870105040820 DW2201K R DW2201K d DC22AD x , ( , @ 0 TIMER FOR BUFFER QUEUE
0x000ca0…120cc0 [0x094]: Pad {f00=0x000b, f01=0x40aa, f02=» J F IDENT CTABX REL 8.2 78-09-15 870105040820 CTABX R CTABX b t @ P DATA C1 P DATA C2 P DATA C3 P DATA C4 P DATA C5 P DATA C6
0x000ca0…120cc0 [0x095]: Pad {f00=0x000b, f01=0xc162, f02=» J F IDENT BLOK:S REL 8.2 78-09-15 870105040820 BLOK:SK BLOCKE R BLOK:SK l , ( I $ , ( $ ! * 0 6 < B , ( I$ A H N T Z `
0x000ca0…120cc0 [0x096]: Pad {f00=0x000b, f01=0x4186, f02=» J F IDENT CD:TAB REL 8.2 78-09-15 870105040820 CD:TABK CDTABF R CD:TABK l DWTC01 DWSI01 DWSO01 DWREMUL DW1500 , ( $ `
0x000ca0…120cc0 [0x097]: Pad {f00=0x000b, f01=0x4146, f02=» J F IDENT TC:TAB REL 8.2 78-09-15 870105040820 TC:TABK TCTABT R TC:TABK l TTMJOBL TTABD0 TCTABT TTABTC TTABTD TTABTE TTABDC & " UP
0x000ca0…120cc0 [0x098]: Pad {f00=0x000a, f01=0x40ca, f02=» J F IDENT TTABX REL 8.2 78-09-15 870105040820 TTABX R TTABX b < t + + , @ PTTABX DATA 0 P DATA /3C TASK LEVEL & P DATA /E
0x000ca0…120cc0 [0x099]: Pad {f00=0x000a, f01=0x40ce, f02=» J F IDENT DC:TAB REL 8.2 78-09-15 870105040820 DC:TABK DCTAB R DCTAB j DC:TABK | @ P* P* P* PDCTAB DATA DC:TAB & PDC
0x000ca0…120cc0 [0x09a]: Pad {f00=0x000a, f01=0x415a, f02=» J F IDENT INTLT1 REL 8.2 78-09-15 870105040820 INTLT1K R INTLT1K d DWKB01 x DWTP01 DWDY01 DWKB02 , ( T DWTP02 DWDY0
0x000ca0…120cc0 [0x09b]: Pad {f00=0x000a, f01=0x408e, f02=» J F IDENT INTLT2 REL 8.2 78-09-15 870105040820 INTLT2K R INTLT2K d x@ P* P* PINTLT2 EQU * TABLE ENTRY P* P* P* P END @ ICES CONNECTED TO
0x000ca0…120cc0 [0x09c]: Pad {f00=0x000a, f01=0x408e, f02=» J F IDENT INTLT3 REL 8.2 78-09-15 870105040820 INTLT3K R INTLT3K d x@ P* P* PINTLT3 EQU * TABLE ENTRY P* P* P* P END @ ICES CONNECTED TO
0x000ca0…120cc0 [0x09d]: Pad {f00=0x000a, f01=0x408e, f02=» J F IDENT INTLT4 REL 8.2 78-09-15 870105040820 INTLT4K R INTLT4K d x@ P* P* PINTLT4 EQU * TABLE ENTRY P* P* P* P END @ ICES CONNECTED TO
0x000ca0…120cc0 [0x09e]: Pad {f00=0x000a, f01=0x4102, f02=» J F IDENT INTRT1 REL 8.2 78-09-15 870105040820 INTRT1K R INTRT1K d DWKB41 x DWTP41 DWDY41 * & T @ CTED TO
0x000ca0…120cc0 [0x09f]: Pad {f00=0x000a, f01=0x408e, f02=» J F IDENT INTRT2 REL 8.2 78-09-15 870105040820 INTRT2K R INTRT2K d x@ P* P* PINTRT2 EQU * TABLE ENTRY P* P* P* P END @ EVICES CONNECTED TO
0x000ca0…120cc0 [0x0a0]: Pad {f00=0x000c, f01=0x408e, f02=» J F IDENT INTRT3 REL 8.2 78-09-15 870105040820 INTRT3K R INTRT3K d x@ P* P* PINTRT3 EQU * TABLE ENTRY P* P* P* P END @ EVICES CONNECTED TO
0x000ca0…120cc0 [0x0a1]: Pad {f00=0x000c, f01=0x408e, f02=» J F IDENT INTRT4 REL 8.2 78-09-15 870105040820 INTRT4K R INTRT4K d x@ P* P* PINTRT4 EQU * TABLE ENTRY P* P* P* P END @ EVICES CONNECTED TO
0x000ca0…120cc0 [0x0a2]: Pad {f00=0x000c, f01=0x0190, f02=» J F IDENT MONTAB REL 8.2 78-09-15 870105040820 J F " MONTABK TCTAB CDTAB BLOCKS INTLT2 INTLT3 INTLT4@ INTRT2 INTRT3C R INTRT4 MONTABK TC:TABN TCTAB CD:TAB CDTAB
0x000ca0…120cc0 [0x0a3]: Pad {f00=0x000c, f01=0x405a, f02=» INTRT4 $ D@ VBK TCTAB CDTAB BLOCKS INTLT2 INTLT3 INTLT4@ INTRT2 INTRT3C R INTRT4 MONTABK TC:TABN TCTAB CD:TAB CDTAB
0x000ca0…120cc0 [0x0a4]: Pad {f00=0x000c, f01=0x0190, f02=» J F IDENT TIODM REL 8.2 78-09-15 870105040820 D @ TIODM FDBLNK FDBECB FDBSNR FDBRRO FDBRLE FDBBLF FDBTNRC R D @ FDBVTO FDBCEX FDBEXT EXTDMI EXTFC EXTLEN@ EXTBAS EXTELEC D @ FDBLRN FDBNIFN FDBEAL FDBCRL FDBKA
0x000ca0…120cc0 [0x0a5]: Pad {f00=0x000c, f01=0x0190, f02=» COFILE: , ( , ( ! " L , ( A # $ % | ECBFC FDBLNK FDBECB FDBSNR FDBRRO "
0x000ca0…120cc0 [0x0a6]: Pad {f00=0x000c, f01=0x0190, f02=» EXTFC EXTLEN@ EXTBAS 0 EXTELEC D FDBLRN E X FDBNIFN D l FDBEAL H FDBCRL J FDBKA L FDBMIA N FDBADF P FDBAI1 R FDBDBRW Z
0x000ca0…120cc0 [0x0a7]: Pad {f00=0x000c, f01=0x0190, f02=» DWTTDM! , ( a "$&( h @ D X , ( } P _ L R P @ R $P B DWTST r , ( U ' U _ (@(@ I 2P DWTOR , ( ^ H L Y H W Y EARELB * &
0x000ca0…120cc0 [0x0a8]: Pad {f00=0x000c, f01=0x0190, f02=» C P C * & - W < C C _H " , ( E H H S W C P ECBRL EATEST , ( aD C B B B U , ( y@ R W X [ X T E T DSUMO
0x000ca0…120cc0 [0x0a9]: Pad {f00=0x000c, f01=0x0190, f02=» , ( H B B Y ER Q X FU C bSQR 4 CALSNO B , ( '? T W T (@(@ T FNDTID DMTASKW , ( P D0 T ACTOT TDISP DISENDR $
0x000ca0…120cc0 [0x0aa]: Pad {f00=0x000c, f01=0x40ac, f02=» d 1 }P R R P P . W . W )P ~ H D ! /W SS UW uU R WJ P S W W, R Q U T W6 T. : T 2 @
0x000ca0…120cc0 [0x0ab]: Pad {f00=0x000c, f01=0x0190, f02=» J F IDENT DMTASK REL 8.2 78-09-15 870105040820 ( $ DMTASKKdSQRdQSW QIRNY QIRR DMTWM R QIRNY ~ QIRR tQSW tSQR , ( ECBRL FDBRL
0x000ca0…120cc0 [0x0ac]: Pad {f00=0x000c, f01=0x0190, f02=»R $ - _ " v , ( W P $ - : R $ - _ : Z TTB:TD F , ( w $ -_ D U 1 X CDTAB , ( W T ` U @ M FDBRRO ECBBA , ( B @ W : X
0x000ca0…120cc0 [0x0ad]: Pad {f00=0x000c, f01=0x0190, f02=» FDBDBR2 " DWTOR 4 , ( @ X P D V D D , ( "? P P &P E t FDBECB GTBKBU , ( 9$ V P ( ( DMTIOT * &
0x000ca0…120cc0 [0x0ae]: Pad {f00=0x000c, f01=0x0190, f02=» h FDBSNRL VLVRL FDBVTO * , ( @ X T T " A ( < DIVMOD l VLVBA ~ * & D J $ & P W T , ( B ( Y P T " _ Y DMTRBU CLRBUF
0x000ca0…120cc0 [0x0af]: Pad {f00=0x000c, f01=0x0190, f02=» DWTTDM ECBFC , ( % 0 ( T X 2 F " , ( ? 4 T P R TCTAB , ( ] ` 6 U @ 6 , D Z D , ( y ] 0 X W , ( B ` U @
0x000ca0…120cc0 [0x0b0]: Pad {f00=0x000d, f01=0x0190, f02=»T , ( @ P 0 @ < 1 A <(@_ EXTELE : , ( > @ (@ / O L DWTTQ | QTJOB , ( @ B $P % 4 D F , ( 4 (@ B * P , ( 9
0x000ca0…120cc0 [0x0b1]: Pad {f00=0x000d, f01=0x0190, f02=» @ n , ( Z" @ ) _ (@ C 4 ( B * & ! @ ( F U G > , ( @ F G l ECBCW , ( F H" F H +P DWTST EATEST , ( P
0x000ca0…120cc0 [0x0b2]: Pad {f00=0x000d, f01=0x0190, f02=» I $ P $ - F + X V FDBMRO , , ( g $ P "P $P W X X NT > , ( ;AR ( ( n , ( D T Y F H" F H , ( 4 D '? P P $ P CRNGETZ
0x000ca0…120cc0 [0x0b3]: Pad {f00=0x000d, f01=0x018e, f02=» EASETB0 , ( B 8W D J$ T L T V , ( #$@W E . E . X V ? T B F TENDIO v & " = * X(@( H D ! . . . . . . . . . H D ! ! . #
0x000ca0…120cc0 [0x0b4]: Pad {f00=0x000d, f01=0x4132, f02=» J H D ! TV P W P 5T KT S . gU, Wf U WF W P J P H D !J 7P I D mW uP& . U , P P* T U W R PB !P< #W T H D ! + . AP GW MP eV" kP qP: uP6 wW T* R T P P( P" , ( P P P W T T #
0x000ca0…120cc0 [0x0b5]: Pad {f00=0x000d, f01=0x0190, f02=» J F IDENT DMINIT REL 8.2 78-09-15 870105040820 DMINITK R DMINITK d INIFLG x , ( =a 9a Q - _ - > QFDBFL FDBSTA FDBEND CRNQUE , ( !D
0x000ca0…120cc0 [0x0b6]: Pad {f00=0x000d, f01=0x40f0, f02=» h BUFDMIC BUFSNR BUFOR , , ( Q , - M M M @ < TASBLKN l TASQUE ~ RTNA15@ g$ A A Q %PJ t @ CRNQUE , ( !D
0x000ca0…120cc0 [0x0b7]: Pad {f00=0x000d, f01=0x018e, f02=» J F IDENT TASS REL 8.2 78-09-15 870105040820 D @ TASSY VOLCHE IXTASS TASBLK TASQUE TASTTA TASASB TASCVOC R F B TASVOL TASCXO TASSEX TASXLB TASFDB TASVRL TASVLEC TASVRN F B TASECB TASFIL TASTID TASMXA TAS
0x000ca0…120cc0 [0x0b8]: Pad {f00=0x000d, f01=0x0190, f02=» TASVOL TASCXO TASSEX , , ( @ TASXLB $ p TASFDB 4 TASVRL 6 TASVLEC 8 TASVRN : TASECB < , ( !
0x000ca0…120cc0 [0x0b9]: Pad {f00=0x000d, f01=0x0190, f02=» TASCAQ Z , ( A @ P TTB:SA D QTJOB V , ( a @ 4 A U W A A f VOLCHE DFTAB , ( @@ } @ U ::A A CDTAB , ( ! , `
0x000ca0…120cc0 [0x0ba]: Pad {f00=0x000d, f01=0x0190, f02=»' T I @ 8 z DWTVOLW , ( =hP Y X P T , , ( Y H ! R W 9a I DFTABE , ( - ^ W P ,! T T ( IXTASS X TASSY ` , ( M@ :
0x000ca0…120cc0 [0x0bb]: Pad {f00=0x000d, f01=0x0190, f02=» , ( P @ E TTB:TD- 4 , ( H "# P P @ P W @ F , ( 0 R % "V E T v * & @ D A R_" P @ P , ( W @ 0 R ' F FND
0x000ca0…120cc0 [0x0bc]: Pad {f00=0x000d, f01=0x4132, f02=» , ( ( w R A J A 4 LKMQDIL 8 Z J H D ! _P sW R P0 T( P T W Th P PX T( R #W 3W 7P h H D ! ?T CT kP P U P P P W R V T P !W -Rb ?R a
0x000ca0…120cc0 [0x0bd]: Pad {f00=0x000d, f01=0x0190, f02=» J F IDENT DMTASS REL 8.2 78-09-15 870105040820 ( $ DMTASSK VTLRN VLVBA VLVRL SECTLEA R VLVBA ~ VLVRL VTLRN SECTLEA TASECB2 ECBBA ECBRC , (
0x000ca0…120cc0 [0x0be]: Pad {f00=0x000d, f01=0x0190, f02=» : t TASMXA0 TASASBz & VOLCHE 8 , ( 7H@ A A " P "" J TASCVO z CLRBUF , ( Q P @ TASVOLN ECBFC ECBRL ECBCW
0x000ca0…120cc0 [0x0bf]: Pad {f00=0x000d, f01=0x0190, f02=» , ( P L " TOP A " L TASVLE@ 4 TASVRL F * & ! A $ L C & @ X , ( $ A $Q @ A TASFIL DMTRBU , ( !$ @ ( B * D , (
0x000ca0…120cc0 [0x0c0]: Pad {f00=0x000e, f01=0x0190, f02=» j , ( I ( & , ( e@ @ (T A " 0" : , ( U _ L !SS j TASCXOL * & P !LL W L @ , A TASSEX , ( $ ,V P E
0x000ca0…120cc0 [0x0c1]: Pad {f00=0x000e, f01=0x0190, f02=» , ( @ 2P 4 2% P R 6 FDBVTO 4 FDBMIA F , ( D X T R 8 @ "T R :T @ X , ( ! ( 6 4 2% QFDBFLR , ( = DP 2 < DWTST
0x000ca0…120cc0 [0x0c2]: Pad {f00=0x000e, f01=0x0190, f02=» D E 3 P S ~ FDBRLE FDBBLF 0 * & F P S F P S H P S B FDBNIFL p FDBKA , ( $ J P % S L P & S N @ " S , ( 8 B | p @ , ( ,T W 2
0x000ca0…120cc0 [0x0c3]: Pad {f00=0x000e, f01=0x0190, f02=» EXTLEN * & + H . D Y P P 0 Y R P EXTBAS D , ( ? 0 Y T U ! T ! X6 V TASTBE , ( [ _R _V @ V P I @ MXIND , ( w P @ X V W H X I , (
0x000ca0…120cc0 [0x0c4]: Pad {f00=0x000e, f01=0x0190, f02=»F , ( (@( @ ( _r ^ FDBDBR : EXTELE L , ( A ` ` 9A S ` L b ^ FDBCEX FDBSNR * & @ b $X D b S d S GTLGRNX , ( f h R
0x000ca0…120cc0 [0x0c5]: Pad {f00=0x000e, f01=0x413e, f02=» l S n d H D !& P !Tl / f AP UP [ f P f Q< f I N iT H D !$ U P W V f T P f P( T T T % d + f =P d H D ! K f _P T W T W| P U Wd P #T. 'W> IU QT mP6 wP ( $ V W
0x000ca0…120cc0 [0x0c6]: Pad {f00=0x000e, f01=0x0190, f02=» J F IDENT DMBUF REL 8.2 78-09-15 870105040820 J F " CURBUFK BUFLNK BUFDMI BUFFC BUFSNR BUFOR BUFSTA@ DMTGBU DMTRBUC R CLRBUF CURBUFK BUFLNK BUFDMI BUFFC BUFSNR
0x000ca0…120cc0 [0x0c7]: Pad {f00=0x000e, f01=0x415e, f02=» , L T L P L , ( i T M Q M L V L A @ " HALTN R , ( : T @ [ [ M M b DMTRBUC CLRBUF , ( M A -(@ : - : @ & " , L T M @
0x000ca0…120cc0 [0x0c8]: Pad {f00=0x000e, f01=0xc076, f02=» M @ : z H D ! H I . / r s 'T -PF 5T ;Q GV YT T `@ rU n , ( @ , L T L P L , ( 5 T M Q M L V L A @ HALTN , ( U : T @
0x000ca0…120cc0 [0x0c9]: Pad {f00=0x000e, f01=0x4172, f02=» J F IDENT DMFDB REL 8.2 78-09-15 870105040820 < 8 FDBSTAK FDBEND QFDBFL CRNQUE CRBUFL CRNEND MXIND R CRBUFL QFDBFL ` FDBSTAK FDBEND CRNQUE
0x000ca0…120cc0 [0x0ca]: Pad {f00=0x000e, f01=0x40b8, f02=» J F IDENT DFTAB REL 8.2 78-09-15 870105040820 DFTAB DFTABE R DFTAB j DFTABE | @ P DATA /F8F9,/FAFB PDFTABE EQU * P END @ P*
0x000ca0…120cc0 [0x0cb]: Pad {f00=0x000e, f01=0x0190, f02=» J F IDENT DMSUBX REL 8.2 78-09-15 870105040820 . * FNDKMXK CHKKEY RDNXTR FNDKEY CRNUPD R FNDKMXK MPYMOD * & 4U :! 4 U , ( 9 & ?! , (
0x000ca0…120cc0 [0x0cc]: Pad {f00=0x000e, f01=0x0190, f02=»V _ W W | RDNXTR GTBKBU 0 , ( @ : T ; [ V ( B DMTIOZ r FDBRRO , ( " T E W D FDBMRO FDBRLE , ( V ; [ _ D V D
0x000ca0…120cc0 [0x0cd]: Pad {f00=0x000e, f01=0x0190, f02=» GTLGRN , ( D U E W ADDMOD B CALSNO T DMTRBU f , ( ! @ P W x , ( =@ _ P [ FNDKEY d FDBMIA , ( Y Z
0x000ca0…120cc0 [0x0ce]: Pad {f00=0x000e, f01=0x0190, f02=» FDBLRN , ( E E Z:Q , ( D D ZB W Z r @ , ( Q R W K ]d J _j @ W W p CRNUPD FDBADF FDBCRLR , ( " : : " $
0x000ca0…120cc0 [0x0cf]: Pad {f00=0x000e, f01=0x412a, f02=» U R ( R ( S ( m@ S (_P (@ : , H D ! UP U 3 r AU EP OP YW }P Q R V W W T. V T L H D ! W V V Wn U W 7P 9W KP T~ W Wh P0 Q W, Q , ( R W W W !W %PL 7R CQ S
0x000ca0…120cc0 [0x0d0]: Pad {f00=0x000f, f01=0x4138, f02=» J F IDENT ADDMOD REL 8.2 78-09-15 870105040820 ADDMODK R ADDMODK d , ( S Q R S P W x , ( ! S _ R Q _ ;A A [ [ : , ( S Q" R S P
0x000ca0…120cc0 [0x0d1]: Pad {f00=0x000f, f01=0x414c, f02=» J F IDENT DSUMOD REL 8.2 78-09-15 870105040820 DSUMODK R DSUMODK d , ( Q S W S Q x , ( ! R S P W S _ R _ " A ;A [ [ : 4 0 Q S
0x000ca0…120cc0 [0x0d2]: Pad {f00=0x000f, f01=0x4188, f02=» J F IDENT MPYMOD REL 8.2 78-09-15 870105040820 MPYMODK R MPYMODK d , ( T P P V x , ( ! P V S ? V :!9 V , ( A @ P R W * &
0x000ca0…120cc0 [0x0d3]: Pad {f00=0x000f, f01=0x0190, f02=» J F IDENT DIVMOD REL 8.2 78-09-15 870105040820 DIVMODK R DIVMODK d , ( P T P V x , ( ! Q U V U Q P , ( A P 9A?A:AV R Z _ , (
0x000ca0…120cc0 [0x0d4]: Pad {f00=0x000f, f01=0x4066, f02=» Pf V 'Q +UF /V 9Ud =Q4 ?P CP QR aP* cR oR qP V @ P@ b DIVMODK d , ( P T P V x , ( ! Q U V U Q P , ( A P 9A?A:AV R Z _ , (
0x000ca0…120cc0 [0x0d5]: Pad {f00=0x000f, f01=0x0190, f02=» J F IDENT DMSUBR REL 8.2 78-09-15 870105040820 F B EATESTK EASETB EARELB CRNGET CALSNO GTBKBU GTLGRNL DMTIOT R CHKIND REQEND DMTIOZ CHKIND , ( ? ? !? P P !> P W IHRET
0x000ca0…120cc0 [0x0d6]: Pad {f00=0x000f, f01=0x0190, f02=» P L P 4 M z QTJOB DWTTDM ( DWTST : , ( Y X M M J IHRTN z EATESTK x FDBEAL , ( q _8 D W 0P Q P FDBTNR EASETB * &
0x000ca0…120cc0 [0x0d7]: Pad {f00=0x000f, f01=0x0190, f02=» 4W 0P R Q P FREQUE * * & W R D Q ( 0 5 @ < CRNGET j FDBCRLL ~ , ( 1 A Z> : D W (P CRNTID CRNQUE HALTN * & H D I
0x000ca0…120cc0 [0x0d8]: Pad {f00=0x000f, f01=0x0190, f02=» I D ) E : T DIVMOD * FDBEXTR < , ( ] " $S P W X " N EXTLEN ~ FDBCEX , ( wH & ( U U (_ EXTBAS FDBSNR , ( H$ Y * (
0x000ca0…120cc0 [0x0d9]: Pad {f00=0x000f, f01=0x0190, f02=» 2 : p DWTECBa ECBRC " , ( D 4 6 B 8P T 2 FDBDBR: b ECBBA t BUFDMI , ( D$ G 8W X : Y : B < DMTIOZ DWTOR , ( A I > ~ B 8 B
0x000ca0…120cc0 [0x0da]: Pad {f00=0x000f, f01=0x0190, f02=» ECBFC , ( ) 6_^ X * P F X . 6 SECTLE @ ECBRL R DMTGBU b ECBCW t , ( ?D C H J C L NW BUFSTA , ( WD C P R C < X @%? : GTLGRNL t , (
0x000ca0…120cc0 [0x0db]: Pad {f00=0x000f, f01=0x414e, f02=» . D " V T 0 T , ( 2 ^ S W . : ^ H D ! P P P W #P 7T< ?R4 MP SP }W P P W W P8 R p H D ! W R W P W6 %T 9U cSP kP oW U U. R P W P8 , (
0x000ca0…120cc0 [0x0dc]: Pad {f00=0x000f, f01=0x4104, f02=» J F IDENT TTABD0 REL 8.2 78-09-15 870105040820 TTABD0K R TTABD0K d 1D0 x , ( + K + R @ ECBFZ
0x000ca0…120cc0 [0x0dd]: Pad {f00=0x000f, f01=0x4104, f02=» J F IDENT TTABD1 REL 8.2 78-09-15 870105040820 TTABD1K R TTABD1K d 1D1 x , ( + K + R @ ECBFZ
0x000ca0…120cc0 [0x0de]: Pad {f00=0x000f, f01=0x4104, f02=» J F IDENT TTABD2 REL 8.2 78-09-15 870105040820 TTABD2K R TTABD2K d 1D2 x , ( + K + R @ ECBFZ
0x000ca0…120cc0 [0x0df]: Pad {f00=0x000f, f01=0x40e4, f02=» J F IDENT DRIC0X REL 8.2 78-09-15 870105040820 ITABRTK ITADI ITADO R ITADI p ITADO IHRTN ITABRTK @ @ P* P* P* P*
0x000ca0…120cc0 [0x0e0]: Pad {f00=0x0010, f01=0x8190, f02=» J F IDENT DRKB01 REL 9.1 78-09-15 870105640912 $ KBADY EOQUEU DWTINQ DWTUTQ R DWTINQ ( z DWTUTQ * KBADY DWTST , ( Y U P R , ( X ( ) Y
0x000ca0…120cc0 [0x0e1]: Pad {f00=0x0010, f01=0x8190, f02=» * V t , ( }@ ! B _P B P $$ R , ( % C W Y &X ! 8$ P D , ( W 8$ P $ T W $ Y 'P Y t , ( %P Y $P T ! B Z ECHEND , ( W W ! * T ! C
0x000ca0…120cc0 [0x0e2]: Pad {f00=0x0010, f01=0x8190, f02=» W X (P Y * 0 %_. % Y * , ( q _d _ P _ ?" ( , ( 8 T ! )_ W ! T "? 9 0 R X LDREG , ( Q > 4 >_ X R ;GV TDISP , ( X ( $4 P X *T * W Y ( -
0x000ca0…120cc0 [0x0e3]: Pad {f00=0x0010, f01=0xc10a, f02=» # 1 7P ;T WT ]W cT iW m wV { x H D !( P R WV P W P T W PH P P T W 4 H D ! @ W T - KT SW ]P }P T W T R Q R $ V P T W W T @
0x000ca0…120cc0 [0x0e4]: Pad {f00=0x0010, f01=0x018e, f02=» J F IDENT DRTP02 REL 8.2 78-09-15 870105040820 TPADY R TPADY b , ( !"&';<>@ t DWTOR , ( ! ^_ 9: X ! Y DISIOE , ( @ = M $P ^
0x000ca0…120cc0 [0x0e5]: Pad {f00=0x0010, f01=0x0190, f02=» , ( W X ! T B R Q B D OUTPUT 8 , ( ! V ! W ! ! Y J , ( T ! V " ! z , ( B C ! T " T W Q " DISEND , ( T ) !
0x000ca0…120cc0 [0x0e6]: Pad {f00=0x0010, f01=0x0190, f02=» _ D ! P | , ( ! P W C V B P ! , ( " ! ! Y 4 L , ( R Q " P _ " P R M T | , ( @ ! L ,! :D" ! Y Y , ( U ! _$ W , ! T ,
0x000ca0…120cc0 [0x0e7]: Pad {f00=0x0010, f01=0x0190, f02=» W P W , ( s@@ X R ! Y # ! , TDISP , ( : R _ 4 ! l * & ! " T ! ! , ( 4 X # 4 Y # ! " " P ,$
0x000ca0…120cc0 [0x0e8]: Pad {f00=0x0010, f01=0x40fe, f02=» Q V W ` T V T l H D ! p T W Q T + 1P 3Q 9W K x W ] sT P P W ( H D ! V P RN Q PH P R: T2 U W4 T )R /U =W QRD t $ UP [P cW2 wR R T P @ P ,$
0x000ca0…120cc0 [0x0e9]: Pad {f00=0x0010, f01=0x8190, f02=» J F IDENT DRDY01 REL 9.1 78-09-15 870105740912 DYADY ECHODY R DYADY j OUTPUT | , ( ! DISIOE , ( P P & B , ( = P
0x000ca0…120cc0 [0x0ea]: Pad {f00=0x0010, f01=0x8190, f02=» GETCHR , ( X " E , ( P 8'0P E T ! T 9 @ , ( _t ! T @_ ! p , ( B P ! B C ^N , ( P R ?] _ C _ , ( 1@
0x000ca0…120cc0 [0x0eb]: Pad {f00=0x0010, f01=0x8190, f02=» @ 8!0T 8 !@P ! $ P ! , ( ! ! T . TENDIO ^ TDISP p , ( Y " X " C X Y " DWTST , ( Y > X " X "" Y %Q Y LDREG SAVE8
0x000ca0…120cc0 [0x0ec]: Pad {f00=0x0010, f01=0x8190, f02=» _ n ECHODY ` , ( K@ ! X $ P ! R " ECHRTN R * & $ i V P P ! W d , ( X $ X ! _ X $ X X , ( " ! ! Y _8 X " , ( " X "" Y %U W
0x000ca0…120cc0 [0x0ed]: Pad {f00=0x0010, f01=0x8190, f02=» X % V Y ! , ( 9 X $ X " ! B " , ( W `R Y ! ! ! R , ( s 4 ! V ! " V W :h ! 4 H D ! ` #Pz 'P - v 3 b =P MPP Q
0x000ca0…120cc0 [0x0ee]: Pad {f00=0x0010, f01=0xc08e, f02=» Q R 'T CT UP Y cR iV oP p H D !80 sP" }W v X U W U R@ +V 9 X G v ]R V V W , x@ 4 ! V ! " V W :h ! 4 H D ! ` #Pz 'P - v 3 b =P MPP Q
0x000ca0…120cc0 [0x0ef]: Pad {f00=0x0010, f01=0x0190, f02=» J F IDENT DRRT01 REL 8.2 78-09-15 870105040820 F B CHLT1 CHLT2 CHLT3 CHLT4 CHRT1 CHRT2 CHRT3 CHRT4 OUTLIN` CHLTON R H D ! OUTPUTN CHTAB LDREG LDREGE LDREGF STREG GETCHRC DWREMU LOCHAN F B RECHAN CWTLT1 CWTLT2 CWTLT3R
0x000ca0…120cc0 [0x0f0]: Pad {f00=0x0011, f01=0x0190, f02=» RECHAN REMFC CWTLT1 * INTLT1V > CWTLT2 P CWTLT3R d CWTLT4 x CWTRT1K INTRT1 , ( J B B J B CWTRT2 4 , ( B pU
0x000ca0…120cc0 [0x0f1]: Pad {f00=0x0011, f01=0x0190, f02=» [ J B B pU , ( y J BQB rU 0 CWTRT5 ` INTRT3W t , ( J!B!B pU CWTRT6 , ( J!BaB rU CWTRT7
0x000ca0…120cc0 [0x0f2]: Pad {f00=0x0011, f01=0x0190, f02=» CHTAB " , ( rU DWREMU < F , ( / 4 V x Z DISIOE * & O B " P Q :A H *P P TDISP , ( m H !@T I T !
0x000ca0…120cc0 [0x0f3]: Pad {f00=0x0011, f01=0x0190, f02=» , ( 1 U A W A CHRT2 8 CHRT3 J , ( W A W A CHRT4 , ( W A " , ( U R ; V . # T , (
0x000ca0…120cc0 [0x0f4]: Pad {f00=0x0011, f01=0x0190, f02=» DWTST * & S P R 4T ] U X , ( q "0T + Y W 8Z < , ( 4 U R ] U # $P l , ( H> R > 8' T Y X ' T DWTADR , ( P X P <W
0x000ca0…120cc0 [0x0f5]: Pad {f00=0x0011, f01=0x018e, f02=»W P , ( C 8R R Y X Z ;BR , ( _ 8% =A Y T Z& _, ~ 4X4 P , ( @ X: U T T T U 5 U , ( @ R " ] ;h # <c , ( $ P X " Z
0x000ca0…120cc0 [0x0f6]: Pad {f00=0x0011, f01=0x018e, f02=» , ( (@ L ' T 4X <d$ _@ $? , ( 7 :D" Y X P Y # 4 , ( S P 4T U J # P d , ( s 4 4 P _r T _$ U _ ? 4 , ( U 5 R P "P T , ( R X # X
0x000ca0…120cc0 [0x0f7]: Pad {f00=0x0011, f01=0x0190, f02=» f , ( > > E D E E , ( / S % ;DV " U D $ P #`P 8 OUTPUTN b h , ( @ O T E <_ " P | STREG x , ( m T 8! P Y Y Y LDREG LDREGF
0x000ca0…120cc0 [0x0f8]: Pad {f00=0x0011, f01=0x018e, f02=» B l OUTLIN` , ( (" W C " 8' , ( ?A $ R 8;b# 4T R P , ( T T ] ] 8 W T , ( W T ] _ T V W 8V , ( ? T P U 8 ~ U Q P
0x000ca0…120cc0 [0x0f9]: Pad {f00=0x0011, f01=0x0190, f02=» , ( P _ ] W Q Y _4 @ " , ( T P "X R @ U S 8 , ( @ U T " D P D T h , ( U W _ U 4XR XX 5 ECHEND ECHOY , ( _b Y Y Y X
0x000ca0…120cc0 [0x0fa]: Pad {f00=0x0011, f01=0x0190, f02=» X $ H D !p # E L M P O WP ]Q eP iP uT W. W" W W R V H D ! j R PJ P z RL 'P 3P 7P EPB IP: OP0 SP, WR ^ H D !H _T m wTl WH R P2 R. T T P P Wf T H D !$ W V #P
0x000ca0…120cc0 [0x0fb]: Pad {f00=0x0011, f01=0x40ec, f02=» P P Wj T W /S( 7V IP MP QT iP mT sP6 w U H D ! W R T RR T T W: Tj W #T 7V 9WN =V CP [Q, ]P J < 8 uR V P P W T R4 S P T W 1V$ MV Z @ T H D !$ W V #P
0x000ca0…120cc0 [0x0fc]: Pad {f00=0x0011, f01=0x0190, f02=» J F IDENT DRTC01 REL 8.2 78-09-15 870105040820 $ IHTCY DWTC01 DWTC02 TCDRON R z DISIOEN , ( 1"78 Q P ^ A ECBRL , ( + B X T " T A 7
0x000ca0…120cc0 [0x0fd]: Pad {f00=0x0011, f01=0x0190, f02=» H TCDRON 0 SAVE8 D INIFLGA T TDISP f , ( @ v , ( P X XP# Y ) W , ( " P P _ :CV + W , (
0x000ca0…120cc0 [0x0fe]: Pad {f00=0x0011, f01=0x0190, f02=» DISEND , ( ; Y A A , ( S X T " P A J , ( s X P W Y @ T z , ( ] D W @ , ( :CZ _J) @ _ P _ Y , (
0x000ca0…120cc0 [0x0ff]: Pad {f00=0x0011, f01=0x0190, f02=» A _$ _ _, _0 _4 _8 _< A , ( / ?M P A P Q ? A B @ . , ( M T M -W ,E A A > > >M A ^ , ( m _ A > , ( @ ;I C X "A _@ A | , ( U @ A A A
0x000ca0…120cc0 [0x100]: Pad {f00=0x0012, f01=0x0190, f02=» P Y W X | , ( @ # $ Q R _ P , ( C U ( _ : V # P W Y P L DWTC02 | | DWTC01 | , ( cB X ' P Y _ Y " " | H D ! A P + 3
0x000ca0…120cc0 [0x101]: Pad {f00=0x0012, f01=0x417a, f02=» ! P P ( V W* T T T # %P + S W YT H D ! ] c mP: q u wP { ( W T( W P L H D !n $ W B 5P: 9 ;Pd =Q* OT UW ] m s H D ! T T V W T V
0x000ca0…120cc0 [0x102]: Pad {f00=0x0012, f01=0x0190, f02=» J F IDENT DRSOP1 REL 8.2 78-09-15 870105040820 0 , SOPCT SOPRY IHSOP DWSI01 DWSI02A DWSO01A R SOPCT DISIOE , ( T 8T 9W 7P P SAVE8 , ( ( ! B A W B A @
0x000ca0…120cc0 [0x103]: Pad {f00=0x0012, f01=0x4160, f02=» ECBCW TENDIO TDISP SOPRY f 0 , ( W $ C A B DWSI01 r , ( @ m @ A. X V 9_8 DWSO01A DWSI02A ( $ @ < 8
0x000ca0…120cc0 [0x104]: Pad {f00=0x0012, f01=0x0190, f02=» J F IDENT DRDU01 REL 8.2 78-09-15 870105040820 4 0 DUADR DUONY IHDU1 IHDUY IHDU2 DWDU01 DWDU02 R DUADR , ( DWTOR , ( A X !
0x000ca0…120cc0 [0x105]: Pad {f00=0x0012, f01=0x0190, f02=» :e X Y, X P Y ! 9 V ! 9 , ( 9 R Y P P 0 , ( Y U ! ! ! P _ X @ F ` , ( y ! ! ! P _ , ( ! ! ! P _ X b , ( X # P
0x000ca0…120cc0 [0x106]: Pad {f00=0x0012, f01=0x0190, f02=»:BW X c X :B X TDISP SAVE8 . , ( 5 ! E Y Y Y > DUONY P n INIFLGL DWTST , ( QB @ P Y TENDIOC * & k ! _. @ X"_6 X
0x000ca0…120cc0 [0x107]: Pad {f00=0x0012, f01=0x0190, f02=»SAV * & -_Z _d A _ A , ( I D 9AZV9a X V : DWTECB j , ( " # T X X X X ' | , ( @ 4 T B C @ X P X , ( " I X ,
0x000ca0…120cc0 [0x108]: Pad {f00=0x0012, f01=0x0190, f02=»" l * & @ I X T Y _f X Y DWDU02 : DWDU01 N , ( Y 4 b , ( B B " r s H D ! P P PF P
0x000ca0…120cc0 [0x109]: Pad {f00=0x0012, f01=0x4116, f02=» P : , P W P W ( * H D ! . : W, W( W !W % : - ? $ W ]P$ m s ( } R < H D ! P 8 V T T P / 8 =T G : OTJ ( $ S , ]P mP }P T 8 8
0x000ca0…120cc0 [0x10a]: Pad {f00=0x0012, f01=0x0190, f02=» J F IDENT DRDC15 REL 9.1 78-09-15 870106440911 . * DC15ADK IH1501 IH1502 DC15ON DW1500 R DC15ADK , ( 5 P P P P P P P W DISIOEC TDISP , (
0x000ca0…120cc0 [0x10b]: Pad {f00=0x0012, f01=0x018e, f02=» P @ % | DWTST TENDIO , , ( A A Y _^ > DWTECB n , ( _h X P , Y C , ( L C _ _ , ( P C C _T _ B
0x000ca0…120cc0 [0x10c]: Pad {f00=0x0012, f01=0x0190, f02=» * & ]@ Y W Y @ X , ( y T ) _ B X" A 2 * & Y _4 Y X P : X b , ( H A @ Z , ( A _` X P ( y Y W , ( (P 0 ) >
0x000ca0…120cc0 [0x10d]: Pad {f00=0x0012, f01=0x0190, f02=» (P _ ) 1_f X , ( g X _x (P _ ) 1_ , ( (X P _ 0 )_ _2 P , ( _" _> _0 (P , ( _ ) 1 4 X R X T , ( X P , Y C L C L
0x000ca0…120cc0 [0x10e]: Pad {f00=0x0012, f01=0x018e, f02=» p _ > g $ , ( { BHBB . ! 2B ! B , ( T P P r , ( ! T T A P A T ! T , ( ! T T ! T ! A I A , (
0x000ca0…120cc0 [0x10f]: Pad {f00=0x0012, f01=0x018e, f02=» , ( [ ! @ hP @ X@ ! T A l ! , ( PP { @ fP @ P @ d * 8 ! 4 , ( 8 ! ! A p_D ! X@_d A d , ( l @ @ |T 1 0 2P TEBCDI , ( @ P P A z @ b 8 H @ , (
0x000ca0…120cc0 [0x110]: Pad {f00=0x0013, f01=0x0190, f02=» f , ( ( K ! ! X ! X ! , ( ( i W A h @ b X A n A d A 8 , ( p ! @ f @ hP ! ! h , ( H @ fT @ hX W @ d @ l @ | @ , ( v A z ! @ fX< ! T @ , ( pP ! !
0x000ca0…120cc0 [0x111]: Pad {f00=0x0013, f01=0x0190, f02=» A l A f X ! XD Y _N X , ( e ! P ! # T @ T ! ( , ( @ _ ! ! _ A h A z H E A X , ( l A b 4 ! @ ~P ! ! A f , ( P @ T ! _ T _ , ( PJ t A d B B A v A x
0x000ca0…120cc0 [0x112]: Pad {f00=0x0013, f01=0x018e, f02=» P T T v , ( S Y W t P C , ( UP o @ v A f A d 4 @ F , ( $ @ lT @ | A z @ z A | A l v , ( ! T P P P P , ( P 1 A z @ z X]6W P _@ , (
0x000ca0…120cc0 [0x113]: Pad {f00=0x0013, f01=0x0190, f02=» f , ( O ! @ ! @ ! ! ! , ( o B J 4 ! ! @ v @ z A | 8 , ( @ zT @ ! 8 ! @ nP - h , ( ! x ! W 0 " @ nP , ( R ~T }T T W , ( ! P "
0x000ca0…120cc0 [0x114]: Pad {f00=0x0013, f01=0x0190, f02=» A z 0 ! A z ! " ! , ( m " ! b A j _" A l A d ! ( , ( ! % ! R ! ! @ ! X * & 8 ! X ! 9a D ! X , ( ! P ! T & ! _b B J B ! IH1501 INTSAVL
0x000ca0…120cc0 [0x115]: Pad {f00=0x0013, f01=0x0190, f02=» !$ A D_ I " P A l , ( U = . A 4 A _$" P 0 , ( A ]@ H B P W ! * _ ! j ` , ( y ! 1 4 A @ ` @ DC15ON , ( P 0 M A 4 @ , (
0x000ca0…120cc0 [0x116]: Pad {f00=0x0013, f01=0x0190, f02=» , ( $ > A 4 A , ( T / . ! N @ fP ! B ! @ P a 4 , ( O A 4 A A A ?a :a# d $ o P @ @ @ 4 , ( * A r ! j ! j A r @ :H DW1500 , (
0x000ca0…120cc0 [0x117]: Pad {f00=0x0013, f01=0x0190, f02=» r "? H ! r 4 ABC | , ( DEFGHI[.<(+!&JKLMNOPQR]$*);^-/ST , ( UVWXYZ|,%_>?0123456789:#@'=" L , ( | , ( % E H D ! T 4 9P =P AP EP
0x000ca0…120cc0 [0x118]: Pad {f00=0x0013, f01=0x0190, f02=»P [ b a j iW s }T P f d d H D !(n P W P P: R. T& !P" C K QP _ c i wP B H D !t~ P ~ ~ P R4 T, P( - F 1 J 5 N 9 R = V A Z CW H D ! N t T P P t Tj Tf
0x000ca0…120cc0 [0x119]: Pad {f00=0x0013, f01=0x0190, f02=»P g m qTF y : P* P$ r H D ! A 6 j T P P Pt P PF R@ T8 9P IW W . H D ! y g ( iW6 F P N F T W^ F j T P B z H D ! W T, P T0 6 > ' 7T kP o , wT { }T (
0x000ca0…120cc0 [0x11a]: Pad {f00=0x0013, f01=0x018e, f02=»P P N ^ H D ! #T 'W +W 9W =W AW Q Y r a r g ` m ` y T T( H D ! r r P r W PL R T T T0 W, r T r W f H D !G R ! r /UH ?P ET M r W r a r k ` s ` T r r T H D ! r r
0x000ca0…120cc0 [0x11b]: Pad {f00=0x0013, f01=0x405e, f02=» J < 8 Y ] a oP { F H@ Z H D ! r r P r W PL R T T T0 W, r T r W f H D !G R ! r /UH ?P ET M r W r a r k ` s ` T r r T H D ! r r
0x000ca0…120cc0 [0x11c]: Pad {f00=0x0013, f01=0x018e, f02=» J F IDENT DRKB01 REL 9.1 78-09-15 870105640912 $ KBADY EOQUEU DWTINQ DWTUTQ R DWTINQ ( z DWTUTQ * KBADY DWTST , ( Y U -P - , ( P R X
0x000ca0…120cc0 [0x11d]: Pad {f00=0x0013, f01=0x0190, f02=» f STREG , ( } * $ 4 T % W X (T ! P ECHON H , ( W Y * V ! B _T X , ( B P $$ R % C , ( W Y &X ! 8$ P W 8$ P , ( $ T W $ Y 'P Y %P Y
0x000ca0…120cc0 [0x11e]: Pad {f00=0x0013, f01=0x0190, f02=»END , ( U ! 0 Z , ( q ! B Z ZX X * ,T < , ( J W X (P Y * 0 %_. % l , ( Y * _t _ P _ , ( ?" 8 T ! )_ W ! T "? 9 0 , ( R Q
0x000ca0…120cc0 [0x11f]: Pad {f00=0x0013, f01=0x0190, f02=»DREG , ( M P y X ( $4 P X TDISP < , ( k *T * W Y ( - Y X L EOQUEU | , ( Z @_8 B 1 " W JT RTNA15 , H D ! U P P !R )
0x000ca0…120cc0 [0x120]: Pad {f00=0x0014, f01=0x40c6, f02=» P T +W / 1W 5 ;T IP o T W P P H D ! T W T R Q T R R W !W 'P 3P AR EV KP @ @ aP g mT qW W T @ A15 , H D ! U P P !R )
0x000ca0…120cc0 [0x121]: Pad {f00=0x0014, f01=0x0190, f02=» J F IDENT DRDY01 REL 9.1 78-09-15 870105740912 DYADY ECHODY R DYADY j OUTPUT | , ( ! , ( 8! P ! P P & DISIOE , ( =
0x000ca0…120cc0 [0x122]: Pad {f00=0x0014, f01=0x018e, f02=» @$ T B 1 ! B B , ( U $ ! T _ U D 0 , ( ! T _ $$ X" X& X* C ` GETCHR , ( X`" E P , ( 8'0P E T ! T 9 _ ! , ( 5 @
0x000ca0…120cc0 [0x123]: Pad {f00=0x0014, f01=0x0190, f02=» , ( # C V C ! Y , ( B ! Y _` C _ 4 , ( " $ P X # X d , ( ] ! B 8! , ( T ! ! R $Y , ( '@ ! _ B X
0x000ca0…120cc0 [0x124]: Pad {f00=0x0014, f01=0x0190, f02=» ! W Y "_ , ( Y " B Y %U X % T T W $ , ( V X # Y %U P R ! T , ( @_ R _ ! Y # * & @ " ! 8!0T 8 !@P ! , ( $ P ! ! !
0x000ca0…120cc0 [0x125]: Pad {f00=0x0014, f01=0x0190, f02=» DWTST LDREG , ( m Y %Q Y > X Z2<BR F $ SAVE8 T , ( X Y 8" P d , ( D ! 8" P ! ! , ( T ! Y " Z @ T ECHODY , (
0x000ca0…120cc0 [0x126]: Pad {f00=0x0014, f01=0x0190, f02=»X ! _ X $ X z , ( 3 8! P ! _( X " ! ! , ( S Y _D X " X "" Y %U W J , ( s" ! ! ! Y z , ( 4 B U ) , ( X R X X "" C X % , (
0x000ca0…120cc0 [0x127]: Pad {f00=0x0014, f01=0x0190, f02=» j , ( @ V ! V W :h ;@ ! 4 8 H D ! x . #P /P 3P 9 Z ? IP YP ]P. cT uR R P H D !a T ` U4 T U T P( P !TJ 'T 5T SP YT( _ H D ! k uPR yRF V P ` T
0x000ca0…120cc0 [0x128]: Pad {f00=0x0014, f01=0x4092, f02=» P T T P Z R V P P" W ' Z 7P ; Z < 8 G Q mU qW U R@ V R %V 3V 7W < @ |@ R P H D !a T ` U4 T U T P( P !TJ 'T 5T SP YT( _ H D ! k uPR yRF V P ` T
0x000ca0…120cc0 [0x129]: Pad {f00=0x0014, f01=0x0190, f02=» J F IDENT EBCDIC REL 8.2 78-09-15 870105040820 TASCIIK TEBCDI R TASCIIK l , ( , ( ! , ( A ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^
0x000ca0…120cc0 [0x12a]: Pad {f00=0x0014, f01=0x416e, f02=»89:#@'=" p , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ TEBCDI @ , ( -/STUVWXYZ|,%_>?0123456789:#@'= T , ( 7- <=2&p ?' , ( ! @O {[lP}M] Nk`Ka z^L~no , ( A | J Z
0x000ca0…120cc0 [0x12b]: Pad {f00=0x0014, f01=0x40f0, f02=» J F IDENT ATTACX REL 8.2 78-09-15 870105040820 ATTACHK DETACH ATT:CH R ATTACHK t DETACH TIOERR ATT:CH @ @ * * P*
0x000ca0…120cc0 [0x12c]: Pad {f00=0x0014, f01=0x0190, f02=» J F IDENT TIMER REL 8.2 78-09-15 870105040820 TIMER SETIME SETIMP R TIMER r TDISP FNDTIDN LKMRQE , ( $ T GETBLK` LKMQDIA ,
0x000ca0…120cc0 [0x12d]: Pad {f00=0x0014, f01=0x414a, f02=» P n ACTOT SETIME SETIMP ^ 2 SAVE8 F , ( Q @ L _J ^ 4 V TIMQUE , ( m _ @ IHRET8 & " 1 A _ P 9 , ( ~
0x000ca0…120cc0 [0x12e]: Pad {f00=0x0014, f01=0x018e, f02=» J F IDENT GRBUF REL 8.2 78-09-15 870105040820 GETBUFK RELBUF R GETBUFK l GBQUE TTB:SA , ( B $P H L P _ TDISP RELBUF 0 , ( T $
0x000ca0…120cc0 [0x12f]: Pad {f00=0x0014, f01=0x40d4, f02=» LKMQDI , ( s > > > P 5 ) _4 , ( 0 $P , # J @ > z ( $ $ P P Tj UP0 o {P P @ TDISP RELBUF 0 , ( T $
0x000ca0…120cc0 [0x130]: Pad {f00=0x0015, f01=0x0190, f02=» J F IDENT TABORT REL 8.2 78-09-15 870105040820 TABORTK R TABORTK d FNDDWT x DWTTAB DWTST , ( "R P X T X R ? TENDIO@ ITABRT TABIO
0x000ca0…120cc0 [0x131]: Pad {f00=0x0015, f01=0x4024, f02=»R V ~ : @ REL 8.2 78-09-15 870105040820 TABORTK R TABORTK d FNDDWT x DWTTAB DWTST , ( "R P X T X R ? TENDIO@ ITABRT TABIO
0x000ca0…120cc0 [0x132]: Pad {f00=0x0015, f01=0x414a, f02=» J F IDENT TTABTC REL 8.2 78-09-15 870105040820 TTABTCK R TTABTCK d <TC x DWKB01 DWTP01 DWDY01 , ( +$ 0 P 1 2 DW1501
0x000ca0…120cc0 [0x133]: Pad {f00=0x0015, f01=0x4122, f02=» J F IDENT TTABTD REL 8.2 78-09-15 870105040820 TTABTDK R TTABTDK d <TD x DWKB02 DWTP02 DWDY02 , ( +$ 0 P 1 2 +
0x000ca0…120cc0 [0x134]: Pad {f00=0x0015, f01=0x4122, f02=» J F IDENT TTABTE REL 8.2 78-09-15 870105040820 TTABTEK R TTABTEK d <TE x DWKB41 DWTP41 DWDY41 , ( +$ 0 P 1 2 +
0x000ca0…120cc0 [0x135]: Pad {f00=0x0015, f01=0x40ce, f02=» J F IDENT TTABDC REL 8.2 78-09-15 870105040820 TTABDCK R TTABDCK d <DC x + + , @ PTTABX DATA 0 P DATA /3C TASK LEVEL & P DATA /E
0x000ca0…120cc0 [0x136]: Pad {f00=0x0015, f01=0x0190, f02=» J F IDENT BLOK:S REL 8.2 78-09-15 870105040820 BLOK:SK BLOCKE R BLOK:SK l , ( I $ , ( $ ! * 0 6 < B , ( I$ A H N T Z `
0x000ca0…120cc0 [0x137]: Pad {f00=0x0015, f01=0x40b2, f02=» p , ( I , ( $ @ BLOCKE p @ $ ! * 0 6 < B , ( I$ A H N T Z `
0x000ca0…120cc0 [0x138]: Pad {f00=0x0015, f01=0x413e, f02=» J F IDENT DWKB01 REL 8.2 78-09-15 870105040820 DWKB01K R DWKB01K d KBADN x & " @ KB DWDY01 , ( !@ ?
0x000ca0…120cc0 [0x139]: Pad {f00=0x0015, f01=0x40f4, f02=» J F IDENT DWTP01 REL 8.2 78-09-15 870105040820 DWTP01K R DWTP01K d TPADN x , ( TP $ $ @ 0 SAVE AREA FOR REGS.
0x000ca0…120cc0 [0x13a]: Pad {f00=0x0015, f01=0x40ee, f02=» J F IDENT DWDY01 REL 8.2 78-09-15 870105040820 DWDY01K R DWDY01K d DYADN x & " DY ! $ & & @ P DATA 0 SAVE AREA FOR A4
0x000ca0…120cc0 [0x13b]: Pad {f00=0x0015, f01=0x413e, f02=» J F IDENT DWKB02 REL 8.2 78-09-15 870105040820 DWKB02K R DWKB02K d KBADN x & " @ KB DWDY02 , ( !@ ?
0x000ca0…120cc0 [0x13c]: Pad {f00=0x0015, f01=0x40f4, f02=» J F IDENT DWTP02 REL 8.2 78-09-15 870105040820 DWTP02K R DWTP02K d TPADN x , ( " TP $ $ @ 0 SAVE AREA FOR REGS.
0x000ca0…120cc0 [0x13d]: Pad {f00=0x0015, f01=0x40ee, f02=» J F IDENT DWDY02 REL 8.2 78-09-15 870105040820 DWDY02K R DWDY02K d DYADN x & " DY ! P & & @ P DATA 0 SAVE AREA FOR A4
0x000ca0…120cc0 [0x13e]: Pad {f00=0x0015, f01=0x413e, f02=» J F IDENT DWKB41 REL 8.2 78-09-15 870105040820 DWKB41K R DWKB41K d KBADN x & " D KB DWDY41 , ( !@ ?
0x000ca0…120cc0 [0x13f]: Pad {f00=0x0015, f01=0x40f4, f02=» J F IDENT DWTP41 REL 8.2 78-09-15 870105040820 DWTP41K R DWTP41K d TPADN x , ( TP $ $ @ 0 SAVE AREA FOR REGS.
0x000ca0…120cc0 [0x140]: Pad {f00=0x0016, f01=0x40ee, f02=» J F IDENT DWDY41 REL 8.2 78-09-15 870105040820 DWDY41K R DWDY41K d DYADN x & " DY ! $ & & @ P DATA 0 SAVE AREA FOR A4
0x000ca0…120cc0 [0x141]: Pad {f00=0x0016, f01=0x2008, f02=» L = FIX1 DATE = 790601 PACK NBR = 001 f _
0x000ca0…120cc0 [0x142]: Pad {f00=0x0016, f01=0x40ee, f02=» J F IDENT DWDY02 REL 8.2 78-09-15 870105040820 DWDY02K R DWDY02K d DYADN x & " DY ! P & & @ P DATA 0 SAVE AREA FOR A4
0x000ca0…120cc0 [0x143]: Pad {f00=0x0016, f01=0x413e, f02=» J F IDENT DWKB41 REL 8.2 78-09-15 870105040820 DWKB41K R DWKB41K d KBADN x & " D KB DWDY41 , ( !@ ?
0x000ca0…120cc0 [0x144]: Pad {f00=0x0016, f01=0x40f4, f02=» J F IDENT DWTP41 REL 8.2 78-09-15 870105040820 DWTP41K R DWTP41K d TPADN x , ( TP $ $ @ 0 SAVE AREA FOR REGS.
0x000ca0…120cc0 [0x145]: Pad {f00=0x0016, f01=0x2008, f02=» L = FIX1 DATE = 790601 PACK NBR = 001 f
0x000ca0…120cc0 [0x146]: Pad {f00=0x0016, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x147]: Pad {f00=0x0016, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x148]: Pad {f00=0x0016, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x149]: Pad {f00=0x0016, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x14a]: Pad {f00=0x0016, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x14b]: Pad {f00=0x0016, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x14c]: Pad {f00=0x0016, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x14d]: Pad {f00=0x0016, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x14e]: Pad {f00=0x0016, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x14f]: Pad {f00=0x0016, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x150]: Pad {f00=0x0017, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x151]: Pad {f00=0x0017, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x152]: Pad {f00=0x0017, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x153]: Pad {f00=0x0017, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x154]: Pad {f00=0x0017, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x155]: Pad {f00=0x0017, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x156]: Pad {f00=0x0017, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x157]: Pad {f00=0x0017, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x158]: Pad {f00=0x0017, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x159]: Pad {f00=0x0017, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x15a]: Pad {f00=0x0017, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x15b]: Pad {f00=0x0017, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x15c]: Pad {f00=0x0017, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x15d]: Pad {f00=0x0017, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x15e]: Pad {f00=0x0017, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x15f]: Pad {f00=0x0017, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x160]: Pad {f00=0x0018, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x161]: Pad {f00=0x0018, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x162]: Pad {f00=0x0018, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x163]: Pad {f00=0x0018, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x164]: Pad {f00=0x0018, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x165]: Pad {f00=0x0018, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x166]: Pad {f00=0x0018, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x167]: Pad {f00=0x0018, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x168]: Pad {f00=0x0018, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x169]: Pad {f00=0x0018, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x16a]: Pad {f00=0x0018, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x16b]: Pad {f00=0x0018, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x16c]: Pad {f00=0x0018, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x16d]: Pad {f00=0x0018, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x16e]: Pad {f00=0x0018, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x16f]: Pad {f00=0x0018, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x170]: Pad {f00=0x0019, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x171]: Pad {f00=0x0019, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x172]: Pad {f00=0x0019, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x173]: Pad {f00=0x0019, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x174]: Pad {f00=0x0019, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x175]: Pad {f00=0x0019, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x176]: Pad {f00=0x0019, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x177]: Pad {f00=0x0019, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x178]: Pad {f00=0x0019, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x179]: Pad {f00=0x0019, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x17a]: Pad {f00=0x0019, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x17b]: Pad {f00=0x0019, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x17c]: Pad {f00=0x0019, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x17d]: Pad {f00=0x0019, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x17e]: Pad {f00=0x0019, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x17f]: Pad {f00=0x0019, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x180]: Pad {f00=0x001a, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x181]: Pad {f00=0x001a, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x182]: Pad {f00=0x001a, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x183]: Pad {f00=0x001a, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x184]: Pad {f00=0x001a, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x185]: Pad {f00=0x001a, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x186]: Pad {f00=0x001a, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x187]: Pad {f00=0x001a, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x188]: Pad {f00=0x001a, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x189]: Pad {f00=0x001a, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x18a]: Pad {f00=0x001a, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x18b]: Pad {f00=0x001a, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x18c]: Pad {f00=0x001a, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x18d]: Pad {f00=0x001a, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x18e]: Pad {f00=0x001a, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x18f]: Pad {f00=0x001a, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x190]: Pad {f00=0x001b, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x191]: Pad {f00=0x001b, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x192]: Pad {f00=0x001b, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x193]: Pad {f00=0x001b, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x194]: Pad {f00=0x001b, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x195]: Pad {f00=0x001b, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x196]: Pad {f00=0x001b, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x197]: Pad {f00=0x001b, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x198]: Pad {f00=0x001b, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x199]: Pad {f00=0x001b, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x19a]: Pad {f00=0x001b, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x19b]: Pad {f00=0x001b, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x19c]: Pad {f00=0x001b, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x19d]: Pad {f00=0x001b, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x19e]: Pad {f00=0x001b, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x19f]: Pad {f00=0x001b, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1a0]: Pad {f00=0x001c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1a1]: Pad {f00=0x001c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1a2]: Pad {f00=0x001c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1a3]: Pad {f00=0x001c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1a4]: Pad {f00=0x001c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1a5]: Pad {f00=0x001c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1a6]: Pad {f00=0x001c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1a7]: Pad {f00=0x001c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1a8]: Pad {f00=0x001c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1a9]: Pad {f00=0x001c, f01=0x0008, f02=»
0x000ca0…120cc0 [0x1aa]: Pad {f00=0x001c, f01=0x0190, f02=» 0 P IDENT DMBUF REL 8.2 78-09-15 870105040820 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* DMBUF = DATA MANAGEMENT BUFFER AREAS P* P* P*
0x000ca0…120cc0 [0x1ab]: Pad {f00=0x001c, f01=0x018e, f02=»FOR DMTASK v P* . P* A ROUTINE DMTGBU TO GET A DISC BUFFER P* N L P* BY MEANS OF CONDITIONAL ASSEMBLY QNBUF NUMBER OF BUFFERS WILL BE ALL X P* P* MAX VALUE OF QNBUF IS 16 P* > P* AT LEAST TWO BUFFERS PER DISC DRIVE MU
0x000ca0…120cc0 [0x1ac]: Pad {f00=0x001c, f01=0x018e, f02=» ( P ENTRY CURBUF CURRENT BUFFER POINTER P ENTRY BUFLNK BUFFER LINK 4 P ENTRY BUFDMI DMTASK IDENT V P ENTRY BUFFC FILE CODE x P ENTRY BUFSNR SECTOR NO P ENTRY BUFOR ORDER * P ENTRY BUFSTA DATA AREA START ADDRESS P ENTRY DMTGB
0x000ca0…120cc0 [0x1ad]: Pad {f00=0x001c, f01=0x0190, f02=» P EJECT $ PX:A EQU 8 NUMBER OF DISC BUFFERS PQNBUF EQU 02 : P* N P* X PCURBUF DATA BUF1 b PNEWBUF DATA 0 z P* P* PBUFLNK EQU 0 2 PBUF1 DATA BUF2 BUFFER LINK STATUS IN BIT 15 PBUFDMI EQU *-BUF1 DMI
0x000ca0…120cc0 [0x1ae]: Pad {f00=0x001c, f01=0x0190, f02=»-WORD | " P DATA 0 BUFFER STATUS,DM ORDER ( PBUFSTA EQU *-BUF1 DATA BUFFER START 4 P RES 205 ` P* p P* z P IFT QNBUF=1 PBUF2 EQU BUF1 P XIF P* P* P IFF QNBUF=1 PBUF2 DATA BUF3 P DATA 0,0,0
0x000ca0…120cc0 [0x1af]: Pad {f00=0x001c, f01=0x0190, f02=»=1 P IFF QNBUF=2 PBUF3 DATA BUF4 P DATA 0,0,0 4 P RES 205 H P XIF X P* d P* n P IFT QNBUF=3 x PBUF4 EQU BUF1 P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 PBUF4 DATA BU
0x000ca0…120cc0 [0x1b0]: Pad {f00=0x001e, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1b1]: Pad {f00=0x001e, f01=0x0010, f02=»
0x000ca0…120cc0 [0x1b2]: Pad {f00=0x001e, f01=0x0190, f02=» 2 P IDENT DMTASS REL 8.2 78-09-15 870105040820 P : P MX REL. L. 176,565 B P REL 8.1 78-04-21 ` P* | 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 4 P* DMTASS =
0x000ca0…120cc0 [0x1b3]: Pad {f00=0x001e, f01=0x0190, f02=»********************** r P* * P* THIS MODULE IS ACTIVATED FROM TASS ( P* V B P* INPUT A2 = TID TASK IDENT OF DMTASK AT PRESENT NOT USED ` ( P* TASBLK PARAMETER BLOCK P* J P* IN TASVOL IN TASBLK ALL VOLUMES WHERE THE
0x000ca0…120cc0 [0x1b4]: Pad {f00=0x001e, f01=0x0190, f02=»E FILE TO BE ASSIGNED. FOR EACH EXTENT ITS z > P* FILE-SECTION-NO, FILE-EXTENT-NO,FILE-EXTENT-LENGTH AND 2 . P* FILE-EXTENT-BASE ARE SAVED IN TASBLK. t L P* FOR THE FIRST EXTENT (I.E. FILE-SECTION-NO =0 AND FILE-EXTENT-NO =0) J P* THE LAST-RECORD-
0x000ca0…120cc0 [0x1b5]: Pad {f00=0x001e, f01=0x018e, f02=»FDB:S CAN BE SEARCHED ^ L P* TO CHECK IF THE FILE TO BE ASSIGNED HAS PREVIOUSLY BEEN ASSIGNED TO L P* ANOTHER FILE CODE. IF SO THE FDB ADDRESS IS PUT INTO THE CD:TAB AND n L P* THE ASSIGNMENT IS COMPLETED. IF NO FDB DESCRIBING THE FILE IS FOUND
0x000ca0…120cc0 [0x1b6]: Pad {f00=0x001e, f01=0x0190, f02=» 2 P* FOR INDEX ASIGN THE PRODGRAM IS RUN TWICE. 4 P* DURING THE FIRST LOOP A MASTERINDEX IS READ. : . P* FC 13 IN TTAB FOR DMTASK IS THEN USED r P EJECT P* P*************** P* ENTRIES * P*************** P*
0x000ca0…120cc0 [0x1b7]: Pad {f00=0x001e, f01=0x0190, f02=»*************** P* EXTERNALS * P***************** 2 P* L P EXTRN QTJOB V P EXTRN FNDTID,TTB:TD j P* P EXTRN DWTST P EXTRN DWTADR P* P EXTRN ECBFC P EXTRN ECBBA P EXTRN ECBRL P EXTRN ECB
0x000ca0…120cc0 [0x1b8]: Pad {f00=0x0023, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1b9]: Pad {f00=0x0023, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1ba]: Pad {f00=0x0023, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1bb]: Pad {f00=0x0023, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1bc]: Pad {f00=0x0023, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1bd]: Pad {f00=0x0023, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1be]: Pad {f00=0x0023, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1bf]: Pad {f00=0x0023, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1c0]: Pad {f00=0x0023, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1c1]: Pad {f00=0x0023, f01=0x0004, f02=» p x
0x000ca0…120cc0 [0x1c2]: Pad {f00=0x0023, f01=0x0190, f02=» 2 P IDENT DMINIT REL 8.2 78-09-15 870105040820 P : P MONCON B P REL 8.1 78-04-21 T P* p 8 P**************************************************** z P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* DMINIT = DATA MANAGE
0x000ca0…120cc0 [0x1c3]: Pad {f00=0x0023, f01=0x0190, f02=»****** b P* 0 P* ALLOCATE AND LINK FDB:S IN THE FDB AREA > P* CLEAR THE USE BIT AND THE BUFFER HEADER IN DM BUFFERS L 0 P* CLEAR USE BIT AND QUEUE ANCHOR IN TASBLK , P* CLEAR DM FILE CODE ENTRIES IN CD:TAB P* , P* DMINIT IS
0x000ca0…120cc0 [0x1c4]: Pad {f00=0x0023, f01=0x0190, f02=» P EXTRN INIFLG P EXTRN CDTAB P EXTRN QFDBFL . P EXTRN FDBSTA D P EXTRN FDBEND Z P EXTRN CURBUF p P EXTRN BUFDMI P EXTRN BUFSNR P EXTRN BUFOR P EXTRN TASBLK P EXTRN TASQUE P EXTRN CDTABF P E
0x000ca0…120cc0 [0x1c5]: Pad {f00=0x0023, f01=0x0190, f02=» A3= LINK ROOT P* A6= AREA END ADDR PDMIN30 LDR A4,A3 < P ADR A4,A2 T P* f P* DIV W. 2 FOR 16 K LIMIT p P* P LDR A5,A4 P SRL A5,1 P LDR A1,A6 P SRL A1,1 P CWR A5,A1 " P RF(G) DMIN40 END
0x000ca0…120cc0 [0x1c6]: Pad {f00=0x0023, f01=0x018e, f02=»DB CHAIN P ADKL A15,4 P ABR* A15 $ P EJECT 6 P* D PDMINIT EQU * N . P* NO INITIALIZATIONS IF POWER FAIL RESTART b P* P LD A1,INIFLG P RF(Z) DMINEX P LDKL A2,QFDBFL FDB LENGTH P* $ P* CHAIN FDB:S IN T
0x000ca0…120cc0 [0x1c7]: Pad {f00=0x0023, f01=0x0190, f02=» x P* P LDKL A3,CRNQUE+2 P ST A3,CRNQUE , P LDKL A2,CRBUFL B P LDKL A6,CRNEND Z P CF A15,DMIN30 r P* < P* CLEAR USE BIT AND BUFFER HEADER WORDS IN DM BUFFERS P* P LDKL A2,/FFFE P LD A3,CURBUF PDM
0x000ca0…120cc0 [0x1c8]: Pad {f00=0x001e, f01=0x0190, f02=» @ n , ( Z" @ ) _ (@ C 4 ( B * & ! @ ( F U G > , ( @ F G l ECBCW , ( F H" F H +P DWTST EATEST , ( P
0x000ca0…120cc0 [0x1c9]: Pad {f00=0x001e, f01=0x0190, f02=» I $ P $ - F + X V FDBMRO , , ( g $ P "P $P W X X NT > , ( ;AR ( ( n , ( D T Y F H" F H , ( 4 D '? P P $ P CRNGETZ
0x000ca0…120cc0 [0x1ca]: Pad {f00=0x001e, f01=0x018e, f02=» EASETB0 , ( B 8W D J$ T L T V , ( #$@W E . E . X V ? T B F TENDIO v & " = * X(@( H D ! . . . . . . . . . H D ! ! . #
0x000ca0…120cc0 [0x1cb]: Pad {f00=0x001e, f01=0x4132, f02=» J H D ! TV P W P 5T KT S . gU, Wf U WF W P J P H D !J 7P I D mW uP& . U , P P* T U W R PB !P< #W T H D ! + . AP GW MP eV" kP qP: uP6 wW T* R T P P( P" , ( P P P W T T #
0x000ca0…120cc0 [0x1cc]: Pad {f00=0x001e, f01=0x2008, f02=»
0x000ca0…120cc0 [0x1cd]: Pad {f00=0x001e, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1ce]: Pad {f00=0x001e, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1cf]: Pad {f00=0x001e, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1d0]: Pad {f00=0x0026, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1d1]: Pad {f00=0x0026, f01=0x0010, f02=»
0x000ca0…120cc0 [0x1d2]: Pad {f00=0x0026, f01=0x0190, f02=» 2 P IDENT DMTASS REL 8.2 78-09-15 870105040820 P : P MX REL. L. 176,565 B P REL 8.1 78-04-21 ` P* | 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 4 P* DMTASS =
0x000ca0…120cc0 [0x1d3]: Pad {f00=0x0026, f01=0x0190, f02=»********************** r P* * P* THIS MODULE IS ACTIVATED FROM TASS ( P* V B P* INPUT A2 = TID TASK IDENT OF DMTASK AT PRESENT NOT USED ` ( P* TASBLK PARAMETER BLOCK P* J P* IN TASVOL IN TASBLK ALL VOLUMES WHERE THE
0x000ca0…120cc0 [0x1d4]: Pad {f00=0x0026, f01=0x0190, f02=»E FILE TO BE ASSIGNED. FOR EACH EXTENT ITS z > P* FILE-SECTION-NO, FILE-EXTENT-NO,FILE-EXTENT-LENGTH AND 2 . P* FILE-EXTENT-BASE ARE SAVED IN TASBLK. t L P* FOR THE FIRST EXTENT (I.E. FILE-SECTION-NO =0 AND FILE-EXTENT-NO =0) J P* THE LAST-RECORD-
0x000ca0…120cc0 [0x1d5]: Pad {f00=0x0026, f01=0x018e, f02=»FDB:S CAN BE SEARCHED ^ L P* TO CHECK IF THE FILE TO BE ASSIGNED HAS PREVIOUSLY BEEN ASSIGNED TO L P* ANOTHER FILE CODE. IF SO THE FDB ADDRESS IS PUT INTO THE CD:TAB AND n L P* THE ASSIGNMENT IS COMPLETED. IF NO FDB DESCRIBING THE FILE IS FOUND
0x000ca0…120cc0 [0x1d6]: Pad {f00=0x0026, f01=0x0190, f02=» 2 P* FOR INDEX ASIGN THE PRODGRAM IS RUN TWICE. 4 P* DURING THE FIRST LOOP A MASTERINDEX IS READ. : . P* FC 13 IN TTAB FOR DMTASK IS THEN USED r P EJECT P* P*************** P* ENTRIES * P*************** P*
0x000ca0…120cc0 [0x1d7]: Pad {f00=0x0026, f01=0x0190, f02=»*************** P* EXTERNALS * P***************** 2 P* L P EXTRN QTJOB V P EXTRN FNDTID,TTB:TD j P* P EXTRN DWTST P EXTRN DWTADR P* P EXTRN ECBFC P EXTRN ECBBA P EXTRN ECBRL P EXTRN ECB
0x000ca0…120cc0 [0x1d8]: Pad {f00=0x0028, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1d9]: Pad {f00=0x0028, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1da]: Pad {f00=0x0028, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1db]: Pad {f00=0x0028, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1dc]: Pad {f00=0x0028, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1dd]: Pad {f00=0x0028, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1de]: Pad {f00=0x0028, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1df]: Pad {f00=0x0028, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1e0]: Pad {f00=0x0028, f01=0x0190, f02=»RX EQU 32 " P DATA DMTERR GET CURRENT INDEX PQRWD EQU 34 8 & P DATA DMRDWD DELAYED RANDOM WRITE L PQRDD EQU 36 v & P DATA DMRDDD DELAYED RANDOM DELETE PQRRRB EQU 38 $ P DATA DMRRRB RAND READ REL BUFF P* $ PVTOCRL DATA 0 VT
0x000ca0…120cc0 [0x1e1]: Pad {f00=0x0028, f01=0x018e, f02=» DMTFRL FIND RECORD LENGTH P* & 4 P* INPUT A1 = RETURN CODE IF INCORRECT LENGTH 0 P* A6 = FDB ADDRESS h & P* A9 = USER ECB ADDRESS P* . P* OUTPUT A2 = RECORD LENGTH TO BE USED < P* A1 IS ORED I
0x000ca0…120cc0 [0x1e2]: Pad {f00=0x0028, f01=0x0190, f02=» P CW A2,FDBRLE,A6 $ P RF(E) DMTF20 ECBRL = REC LENGTH $ P RF(L) DMTF10 ECBRL < REC LENGTH D ( P LD A2,FDBRLE,A6 ECBRL > REC LENGTH l P RF DMTF20 * PDMTF10 ORS A1,ECBRC,A9 SET RETURN CODE . PDMTF20 ST A2,ECBEL,A9 SET EFFECTIVE LENGTH P
0x000ca0…120cc0 [0x1e3]: Pad {f00=0x0028, f01=0x0190, f02=» MOVE x P* " P* INPUT A1 = FROM ADDRESS , P* A2 = NO OF BYTES TO BE MOVED > P* A3 = TO ADDRESS n P* $ P* A4 WILL BE DESTROYED P* P* PDMTWM EQU * P SUK A2,2 " P RF(N) DMTW1
0x000ca0…120cc0 [0x1e4]: Pad {f00=0x0028, f01=0x0190, f02=»1 P RF(E) DMTW20 P LCR A4,A1 MOVE LAST CHAR P SCR A4,A3 B PDMTW20 RTN A14 T P EJECT j P* x P************* P* DMTBM * P************* P* " P* ENTRY DMTBM BYTE MOVE P* " P* INPUT
0x000ca0…120cc0 [0x1e5]: Pad {f00=0x0028, f01=0x018e, f02=» WILL BE DESTROYED P* P* OUTPUT A3 = NEXT CHAR $ P* F P* P PDMTBM EQU * Z P SUK A2,1 n " P RF(N) DMTB10 LAST BYTE MOVED P LCR A4,A1 P SCR A4,A3 P ADK A1,1 P ADK A3,1 P RB DMTBM PDMTB10 RTN
0x000ca0…120cc0 [0x1e6]: Pad {f00=0x0028, f01=0x0190, f02=» ~ P ADR A3,A2 PDMTB20 SUK A2,1 P RB(N) DMTB10 2 P SUK A1,1 H P SUK A3,1 Z P LCR A4,A1 l P SCR A4,A3 ~ P RB DMTB20 P EJECT 8 P****DESCRIPTION************************************* P* : P* FNDFDB WILL SEAR
0x000ca0…120cc0 [0x1e7]: Pad {f00=0x0028, f01=0x0190, f02=»B ADDR $ P* A2 = FILE CODE TO SEARCH FOR 4 P* A5 NOT= 0 WHEN ONLY TTAB SHALL BE SEARCHED 6 P* n 8 P****EXIT PARAMETERS********************************* x P* P* A1 = UNCHANGED 2 P* A2 = FILE CODE. = 0 WHEN NO CODE IS FOUND
0x000ca0…120cc0 [0x1e8]: Pad {f00=0x0025, f01=0x0190, f02=» EXTLEN * & + H . D Y P P 0 Y R P EXTBAS D , ( ? 0 Y T U ! T ! X6 V TASTBE , ( [ _R _V @ V P I @ MXIND , ( w P @ X V W H X I , (
0x000ca0…120cc0 [0x1e9]: Pad {f00=0x0025, f01=0x0190, f02=»F , ( (@( @ ( _r ^ FDBDBR : EXTELE L , ( A ` ` 9A S ` L b ^ FDBCEX FDBSNR * & @ b $X D b S d S GTLGRNX , ( f h R
0x000ca0…120cc0 [0x1ea]: Pad {f00=0x0025, f01=0x413e, f02=» l S n d H D !& P !Tl / f AP UP [ f P f Q< f I N iT H D !$ U P W V f T P f P( T T T % d + f =P d H D ! K f _P T W T W| P U Wd P #T. 'W> IU QT mP6 wP ( $ V W
0x000ca0…120cc0 [0x1eb]: Pad {f00=0x0025, f01=0x2008, f02=»
0x000ca0…120cc0 [0x1ec]: Pad {f00=0x0025, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1ed]: Pad {f00=0x0025, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1ee]: Pad {f00=0x0025, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1ef]: Pad {f00=0x0025, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1f0]: Pad {f00=0x002a, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1f1]: Pad {f00=0x002a, f01=0x0002, f02=» H
0x000ca0…120cc0 [0x1f2]: Pad {f00=0x002a, f01=0x0190, f02=» 0 P IDENT DFTAB REL 8.2 78-09-15 870105040820 P UPDATE #0 76.10.07 8 P* V 8 P**************************************************** ` P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P*
0x000ca0…120cc0 [0x1f3]: Pad {f00=0x002a, f01=0x40fe, f02=»************************ t P* P* DISC FILE CODE TABLE * P* J P ENTRY DFTAB T P ENTRY DFTABE h P* ~ P* PDFTAB EQU * P DATA /F0F1,/F2F3 P DATA /F8F9,/FAFB PDFTABE EQU * P END @ P*
0x000ca0…120cc0 [0x1f4]: Pad {f00=0x002a, f01=0x2008, f02=» NT DFTAB P* P* DISC FILE CODE TABLE " P* B P ENTRY DFTAB L P ENTRY DFTABE ` P* v P* PDFTAB EQU * P DATA /F0F1 PDFTABE EQU * P END @ END P ENTRY QFDBFL P* P* ,
0x000ca0…120cc0 [0x1f5]: Pad {f00=0x002a, f01=0x4046, f02=»ATA MSAD P DATA ODAD P DATA TPAD3 " P END 6@ BATA 0 > PINTLT4 DATA 0 T PINTRT1 DATA 0 j PINTRT2 DATA 0 PINTRT3 DATA 0 PINTRT4 DATA 0 P DATA MONCON P DATA KBAD3 P DATA KBAD P DATA TPAD
0x000ca0…120cc0 [0x1f6]: Pad {f00=0x002a, f01=0x2008, f02=» DATA DYAD P* P* $ P END .@ : DYAD 8 P* L P* V P* ` PMONTAB EQU * j PTCTAB DATA 0 ~ PCDTAB DATA 0 PBLOCKS DATA 0 PDCTAB DATA 0 PINTLT1 DATA 0 PINTLT2 DATA 0 PINTRT1 DATA 0
0x000ca0…120cc0 [0x1f7]: Pad {f00=0x002a, f01=0x0190, f02=»DR* A3,A2 CRN $ P ADK A3,1 CRN+1 % $ P ST A3,10,A8 STORE CRN+1 IN ECB % . P CWR A3,A7 % V P RF(NL) SQR:10 END OF DATA % h P CF A5,BIO:RE % P LDKL A4,BUF BUFFER ADDRESS % 2 P CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 % P LDK A7,128 %
0x000ca0…120cc0 [0x1f8]: Pad {f00=0x002a, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x1f9]: Pad {f00=0x002a, f01=0x000c, f02=» X ` h p x
0x000ca0…120cc0 [0x1fa]: Pad {f00=0x002a, f01=0x0190, f02=» 2 P IDENT DMSUBX REL 8.2 78-09-15 870105040820 P : * P BUF HANDL + SEQ L. 230-250,317-325 B P REL 8.1 78-04-21 p P* 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P*
0x000ca0…120cc0 [0x1fb]: Pad {f00=0x002a, f01=0x018e, f02=»************************************ 8 P****THIS MODULE IS ACTIVATED FROM :***************** , P* h P* DMTASK r P* P*************** P* ENTRIES * P*************** P* P ENTRY FNDKMX,CHKKEY P ENTRY RDNXTR
0x000ca0…120cc0 [0x1fc]: Pad {f00=0x002a, f01=0x0190, f02=» | P* P EXTRN MPYMOD : P EXTRN EXTLEN,FDBECB,FDBMIA,BUFSTA,FDBRLE,FDBSNR,ECBCW ( . P EXTRN FDBRRO,FDBCEX,FDBBLF,EXTBAS,BUFSNR f . P EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF,CRNCIF 4 P EXTRN DMTIOT,GTLGRN,GTBKBU,ADDMOD,CALSNO,DMTRBU P EXTRN D
0x000ca0…120cc0 [0x1fd]: Pad {f00=0x002a, f01=0x0190, f02=»Y IN A MASTER INDEX. l > P* A BINARY SEARCH IS USED. REF : KNUTH PAGE 411 ALG. U. 4 P* THE SEARCH KEY MAY BE TERMINATED WITH A /EE. ^ 0 P* THE FIRST TWO WORDS IN MASTER INDEX IS : P* - NO OF ENTRIES N $ P* - NO OF CHARACTERS PER ENTRY
0x000ca0…120cc0 [0x1fe]: Pad {f00=0x002a, f01=0x0190, f02=»ESS OF SEARCH KEy P* A11 = NR OF CHAR IN KEY P* > P* CF A14,FNDKMX H P* d 8 P****EXIT PARAMETERS********************************* n P* 0 P* A1,A2 = LODGICAL RECORD NO IN INDEX FILE P* A8,A11= UNCHANGED P*
0x000ca0…120cc0 [0x1ff]: Pad {f00=0x002a, f01=0x0190, f02=»* A2,A5 NO OF ENTRIES N " P RF(NP) FND045 NO MASTER INDEX P LDR A9,A2 F P ANKL A9,/1 GET BIT 15 X P SRA A2,1 v P LDR A10,A2 M=N/2 FLOOR P ADR A9,A2 I=N/2 CEILING P ADK A5,2 TABLE BASE - 2 PFND020 EQU * P LDK A2,0
0x000ca0…120cc0 [0x200]: Pad {f00=0x002c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x201]: Pad {f00=0x002c, f01=0x0004, f02=»
0x000ca0…120cc0 [0x202]: Pad {f00=0x002c, f01=0x0190, f02=» 2 P IDENT ADDMOD REL 8.2 78-09-15 870105040820 P* LREK 78-02-20 : P* T 8 P**************************************************** ^ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* P
0x000ca0…120cc0 [0x203]: Pad {f00=0x002c, f01=0x0190, f02=»THIS ROUTINE EXECUTES THE DOUBLE ADDITION INSTRUCTION ON THE ALPHA P* COMPUTER J P*CALLING SEQUENCE: $ P* A1-A2 = ARG1 v $ P* AG-A7 = ARG2 P* CF A14,ADDMOD & P*RETURN : RESULT IN A1-A
0x000ca0…120cc0 [0x204]: Pad {f00=0x002c, f01=0x0190, f02=» ANK.L A7,/7FFF P ANK.L A2,/7FFF P ADR A2,A7 > P RF(3) OVER1 ^ 0 PNOVER ADR A1,A6 * NO OVERFLOW ~ P RF(1) END1 P RF(2) END2 P RF(3) END3
0x000ca0…120cc0 [0x205]: Pad {f00=0x002c, f01=0x0190, f02=» ADK A1,1 P RF(3) OVER3 P RB(7) NOVER 6 POVER3 ADR A1,A6 V P RF(2) END3 v P ADK A1,0 P RF(1) END1 P RB(7) NOVER1 PEND3 ADK A3,/80
0x000ca0…120cc0 [0x206]: Pad {f00=0x002c, f01=0x40ee, f02=»**** V P ANK.L A3,/0300 P LDK.L A4,/FCFF . P AN.S A4,2,A14 P B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM r P RTN A14 P END @ PEND3 ADK A3,/80
0x000ca0…120cc0 [0x207]: Pad {f00=0x002c, f01=0x2008, f02=» ANK.L A3,/0300 P LDK.L A4,/FCFF * P AN.S A4,2,A14 L B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM n P RTN A14 P END @ D1 P RB(7) NOVE
0x000ca0…120cc0 [0x208]: Pad {f00=0x002d, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x209]: Pad {f00=0x002d, f01=0x0004, f02=»
0x000ca0…120cc0 [0x20a]: Pad {f00=0x002d, f01=0x0190, f02=» 2 P IDENT DSUMOD REL 8.2 78-09-15 870105040820 P* LREK 78-02-20 : P* T 8 P**************************************************** ^ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* P
0x000ca0…120cc0 [0x20b]: Pad {f00=0x002d, f01=0x0190, f02=»THIS ROUTINE EXECUTES THE DOUBLE SUBSTRACTION INSTRUCTION ON THE ALPHA P*COMPUTER N P*CALLING SEQUENCE ` $ P* A1-A2 = ARG1 z $ P* A6-A7 = ARG2 P* CF A14,DSUMOD & P*RETURN: RESULT IN
0x000ca0…120cc0 [0x20c]: Pad {f00=0x002d, f01=0x0190, f02=» C1R A6,A6 P C1R A7,A7 P ANK.L A7,X'7FFF' > P ANK.L A2,/7FFF b P ADK A7,1 P RF(1) NOVER1 P ADK A6,1 P RF(3) OVER4 P R
0x000ca0…120cc0 [0x20d]: Pad {f00=0x002d, f01=0x0190, f02=» END1 P RF(2) END2 P RF(3) END3 , P ADK A2,0 J P RF(0) END0 h P RF(7) END1 POVER1 ANK.L A2,X'7FFF' P ADK A1,1 P RF(3) OVER4 P
0x000ca0…120cc0 [0x20e]: Pad {f00=0x002d, f01=0x0190, f02=» NOVER2 PEND3 ADK A3,/80 PEND2 ADK A3,/80 4 PEND1 ADK A3,/80 V F PEND0 SLL A3,1 ************************************* x P ANK.L A3,/0300 P LDK.L A4,/FCFF P
0x000ca0…120cc0 [0x20f]: Pad {f00=0x002d, f01=0x4014, f02=» END @ D3 ADK A3,/80 PEND2 ADK A3,/80 4 PEND1 ADK A3,/80 V F PEND0 SLL A3,1 ************************************* x P ANK.L A3,/0300 P LDK.L A4,/FCFF P
0x000ca0…120cc0 [0x210]: Pad {f00=0x002e, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x211]: Pad {f00=0x002e, f01=0x0004, f02=»
0x000ca0…120cc0 [0x212]: Pad {f00=0x002e, f01=0x0190, f02=» 2 P IDENT MPYMOD REL 8.2 78-09-15 870105040820 P* LREK 78-02-20 : P* T 8 P**************************************************** ^ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* P
0x000ca0…120cc0 [0x213]: Pad {f00=0x002e, f01=0x0190, f02=»THIS ROUTINE EXECUTES THE MULTIPLY INSTRUCTION ON THE ALPLA COMPUTER P* CALLING SEQUENCE: L ( P* LD A6,ARG1 h ( P* LD A7,ARG1 P* CF A14,MPYMOD ( P* RETURN : RESULT IN A1,A2
0x000ca0…120cc0 [0x214]: Pad {f00=0x002e, f01=0x0190, f02=» RETURN IN ERROR EXIT d P CWR A3,A6 P RF(4) SUITE > P CWR A3,A7 ^ P RF(0) END3 ~ < P LDR A6,A7 * A6= X'8000' A7# X'8000' 4 P LDR A7,A3 * EXCHANGE A6-A
0x000ca0…120cc0 [0x215]: Pad {f00=0x002e, f01=0x0190, f02=» A4,15 P ADK A6,0 P RF(0) END0 0 P RF(6) ARG1PS N 0 P ADK A3,1 *ARG1 NEGATIVE n P C1R A6,A6 P ADK A6,1 PARG1PS ADK A7,0 P RF(
0x000ca0…120cc0 [0x216]: Pad {f00=0x002e, f01=0x0190, f02=» ADK A7,1 P RF(3) CASSPE PARG2PS SRC A7,1 > P RF(6) NOVER1 P ADR A1,A6 | PNOVER1 SRA A2,1 P SRC A1,1 P RF(6) NOVER2 P ORK.L
0x000ca0…120cc0 [0x217]: Pad {f00=0x002e, f01=0x0190, f02=» *END* RESTORE SI=N z P RF(0) END1 " P C1R A1,A1 @ P C1R A2,A2 ` P ADK A2,1 D P*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR < P* WHEN THE ADK A2,1 SET AN OVERFLOW
0x000ca0…120cc0 [0x218]: Pad {f00=0x002e, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x219]: Pad {f00=0x002e, f01=0x0004, f02=»
0x000ca0…120cc0 [0x21a]: Pad {f00=0x002e, f01=0x0190, f02=» 2 P IDENT DIVMOD REL 8.2 78-09-15 870105040820 P* LREK 78-02-20 : P* T 8 P**************************************************** ^ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* P
0x000ca0…120cc0 [0x21b]: Pad {f00=0x002e, f01=0x0190, f02=»THIS ROUTINE EXECUTES THE DIVIDE INSTRUCTION ON THE ALPHA COMPUTER P* CALLING SEQUENCE J & P* A1-A2= DIVIDEND d $ P* A6 = DIVISOR P* CF A14,DIVMOD B P*RETURN* RESUT IN A1-A2 ; A1= REMAINDE
0x000ca0…120cc0 [0x21c]: Pad {f00=0x002e, f01=0x0190, f02=»1 SAVE DIVIDEND SIGN z P LDK A3,0 " P ADK A6,0 @ @ P RF(0) END3 * IF DIVISOR IS NULL, OVREFLOW ^ P ADK A1,0 P RF(4) SIGNE P ANK.L A2,/7FFF @ P
0x000ca0…120cc0 [0x21d]: Pad {f00=0x002e, f01=0x0190, f02=» A7,0 P LDK A4,16 4 P ADK A1,0 *SIGN OF DIVIDEND 0 P RF(6) DIVENP h 8 P ADK A3,1 * DIVIDEND IS NEGATIVE P C1R A1,A1 P C1R A2,A2 P
0x000ca0…120cc0 [0x21e]: Pad {f00=0x002e, f01=0x0190, f02=»5) END3 2 PDIVENP ADK A6,0 *SIGN OF DIVISOR P RF(6) DIVORP H 4 P SUK A3,1 *NEGATIVE DIVISOR h P C1R A6,A6 P ADK A6,1 < P ADK A6,0 RESET
0x000ca0…120cc0 [0x21f]: Pad {f00=0x002e, f01=0x0190, f02=»SSP1 | 2 PSHIFT SUK A4,1 *A1 LESS THAN A6 P RF(0) END B P SLL A1,1 ` P SLL A7,1 ~ P SLL A2,1 P RF(6) *+4 P ADK A1,1 P ADK A1
0x000ca0…120cc0 [0x220]: Pad {f00=0x002f, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x221]: Pad {f00=0x002f, f01=0x000e, f02=»
0x000ca0…120cc0 [0x222]: Pad {f00=0x002f, f01=0x0190, f02=» 2 P IDENT DMSUBR REL 8.2 78-09-15 870105040820 P : $ P BUF HANDL + RC L. 496,543,551 B P REL 8.1 78-04-21 j P* 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P*
0x000ca0…120cc0 [0x223]: Pad {f00=0x002f, f01=0x018e, f02=»**************** l 8 P****THIS MODULE IS ACTIVATED FROM :***************** P* T P* DMTASK,TIODM,DMTASS ^ P* ~ P*************** P* ENTRIES * P*************** P* P* & P ENTRY EATEST,EASETB,EARELB,CRNGET
0x000ca0…120cc0 [0x224]: Pad {f00=0x002f, f01=0x0190, f02=» P***************** P* EXTERNALS * P***************** 8 P* R P* 4 P EXTRN FDBEAL,FDBTNR,FDBCRL,FDBRLE,FDBSNR,FDBRRO f P EXTRN FDBCEX,FDBBLF,FDBEXT : P EXTRN FDBECB,DWTECB,DWTOR,EXTDMI,BUFSTA,BUFDMI,BUFOR " P EXTRN ECB
0x000ca0…120cc0 [0x225]: Pad {f00=0x002f, f01=0x0190, f02=»XTRN EXTELE P EXTRN CRNTID P EXTRN DMTGBU * P EXTRN EXTLEN,EXTBAS @ P EXTRN CRNQUE,GETBLK,FREQUE P EXTRN HALT P EXTRN CRBUFL $ P EXTRN IHRET2,IHRTN,FDBADF,DWTST P EXTRN FDBDBR P EXTRN QIRN,QIRR P EJECT
0x000ca0…120cc0 [0x226]: Pad {f00=0x002f, f01=0x0190, f02=»XR,XN, DATA FILE OTHERWISE P* " PCHKIND EQU * , P STR A1,A15 @ P STR A2,A15 T " P LDK A2,1 INDEX FOR DATA FILE h P LDR A1,A7 ORDER P ANK A1,/3F P CWK A1,/20 P RF(E) FND320 DELETE INDEX P CWK A1,/1A P RF(E)
0x000ca0…120cc0 [0x227]: Pad {f00=0x002f, f01=0x0190, f02=» P RF FND340 ( PFND320 LDK A2,0 INDEX FOR INDEX FILE PFND340 EQU * B P CCR A2,A6 INDEX V P RF(E) FND390 ENTRY FOUND n P LDK A1,2 * P ADS A1,8,A15 RETURN+2 WHEN NOT FOUND PFND390 ABL IHRET2 P EJECT P* : P* REQE
0x000ca0…120cc0 [0x228]: Pad {f00=0x0031, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f : 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x229]: Pad {f00=0x0031, f01=0x0002, f02=» 8
0x000ca0…120cc0 [0x22a]: Pad {f00=0x0031, f01=0x0190, f02=» 2 P IDENT TTABD0 REL 8.2 78-09-15 870105040820 P* LREK 78-02-20 : P* T 8 P**************************************************** ^ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* P
0x000ca0…120cc0 [0x22b]: Pad {f00=0x0031, f01=0x0190, f02=» $ P* TERMINAL 01: TELLER TERMINAL P* 0 P ENTRY TTABD0 TABLE ENTRY : PX:A EQU 0 4 PRECBFZ EQU X:A INDEX RECORD BUFFER SIZE IN WORDS n P* P* PTTABD0 DATA 0 P DATA /8031 TASK LEVEL & P DATA 'D0' TERMINAL IDENTIFI
0x000ca0…120cc0 [0x22c]: Pad {f00=0x0031, f01=0x4132, f02=»INAL SAVE AREA P RES 14 P* & " P DATA TTABE-* TERMINAL DEVICES 0 P DATA 0,0 MASTER INDEX ENTRY V PTTABE EQU * z P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P DATA 0 TASK STACK P RES RECBFZ BUFAR1 P RES RECBFZ
0x000ca0…120cc0 [0x22d]: Pad {f00=0x0031, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIFIC
0x000ca0…120cc0 [0x22e]: Pad {f00=0x0031, f01=0x0190, f02=»TP220 EQU * P LDK A1,0 6 PTP230 LDKL A2,/FDFF VOUCHER STATUS CHANGE ALLOWED & P ANS A2,DWTST,A6 ` P EJECT x P* P* P* ECB-BUFFER IS WRITTEN P* * P* SEND LINE FEED IF JOURNAL OR TALLY P* P* PTP
0x000ca0…120cc0 [0x22f]: Pad {f00=0x0031, f01=0x018e, f02=» * P LDKL A1,MESS INDICATE MESSAGE PRINTED P ORS A1,DWTST,A6 6 P XIF N PTPLF10 EQU * Z P SUK A7,8 n ( P RF(NN) TPL010 NOT JOURNAL AND TALLY P ADK A7,2 GET INDEX TABLE $ P LC A2,LFTAB,A7 GET LF CHARACTER P CF A5,OUTPUT SEND L
0x000ca0…120cc0 [0x230]: Pad {f00=0x0031, f01=0x414e, f02=» . D " V T 0 T , ( 2 ^ S W . : ^ H D ! P P P W #P 7T< ?R4 MP SP }W P P W W P8 R p H D ! W R W P W6 %T 9U cSP kP oW U U. R P W P8 , (
0x000ca0…120cc0 [0x231]: Pad {f00=0x0031, f01=0x2008, f02=»
0x000ca0…120cc0 [0x232]: Pad {f00=0x0031, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f : 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x233]: Pad {f00=0x0031, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f : 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x234]: Pad {f00=0x0031, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f : 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x235]: Pad {f00=0x0031, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f : 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x236]: Pad {f00=0x0031, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f : 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x237]: Pad {f00=0x0031, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f : 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x238]: Pad {f00=0x0032, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f : 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x239]: Pad {f00=0x0032, f01=0x0002, f02=» P
0x000ca0…120cc0 [0x23a]: Pad {f00=0x0032, f01=0x0190, f02=» 2 P IDENT TTABD2 REL 8.2 78-09-15 870105040820 P* LREK 78-02-20 : P* T 8 P**************************************************** ^ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* P
0x000ca0…120cc0 [0x23b]: Pad {f00=0x0032, f01=0x0190, f02=» $ P* TERMINAL 01: TELLER TERMINAL P* 0 P ENTRY TTABD2 TABLE ENTRY : PX:A EQU 0 4 PRECBFZ EQU X:A INDEX RECORD BUFFER SIZE IN WORDS n P* P* PTTABD2 DATA 0 P DATA /8031 TASK LEVEL & P DATA 'D2' TERMINAL IDENTIFI
0x000ca0…120cc0 [0x23c]: Pad {f00=0x0032, f01=0x4132, f02=»INAL SAVE AREA P RES 14 P* & " P DATA TTABE-* TERMINAL DEVICES 0 P DATA 0,0 MASTER INDEX ENTRY V PTTABE EQU * z P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P DATA 0 TASK STACK P RES RECBFZ BUFAR1 P RES RECBFZ
0x000ca0…120cc0 [0x23d]: Pad {f00=0x0032, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIFIC
0x000ca0…120cc0 [0x23e]: Pad {f00=0x0032, f01=0x0190, f02=»,DWTST,A6 [ P RF(N) CWR900 NO REQUEST P LD A2,DWTOR,A6 GET ORDER 2 P SUK A2,6 T P RF(Z) CWR100 WRITE REQUEST f P SUK A2,2 ( P RF(NZ) CWR900 NOT EXCHANGE REQUEST P LDR A1,A1 2 P RF(NZ) CWR100 TRANSMISSION ERROR, RC NOT ZERO
0x000ca0…120cc0 [0x23f]: Pad {f00=0x0032, f01=0x0190, f02=» n P CF A15,CTIME STOP TIMING ] P LDR A8,A8 ] * P RF(Z) CWR150 ] < P ST A2,ECBCW,A8 ] R $ P CF A15,TENDIO COMPLETE REQUEST ] j PCWR150 EQU * ] * P CF A15,REMOVW REMOVE FROM WRITE QUEUE ] PCWR200 EQU * ] P IFF TBUFL=0 ] $ P LD A4,FECBBA
0x000ca0…120cc0 [0x240]: Pad {f00=0x0033, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f : 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x241]: Pad {f00=0x0033, f01=0x0002, f02=» `
0x000ca0…120cc0 [0x242]: Pad {f00=0x0033, f01=0x0190, f02=» 2 P IDENT DRIC0X REL 8.2 78-09-15 870105040820 P : P* B P*************************** L P* p $ P* PHILIPS TERMINAL SYSTEM PTS z P* $ P* DRIC0X = DRIC01 DUMMY MODULE P* P* P* P* P* P*
0x000ca0…120cc0 [0x243]: Pad {f00=0x0033, f01=0x4060, f02=»RN IHRTN PITADI EQU * PITADO EQU * $ PITABRT ABL IHRTN 8 END P@ ******* L P* p $ P* PHILIPS TERMINAL SYSTEM PTS z P* $ P* DRIC0X = DRIC01 DUMMY MODULE P* P* P* P* P* P*
0x000ca0…120cc0 [0x244]: Pad {f00=0x0033, f01=0x2008, f02=» NT DRIC0X REL=8.1 DATE=78-03-03 A-TEST END :@ F
0x000ca0…120cc0 [0x245]: Pad {f00=0x0033, f01=0x0190, f02=»******************** " ( P* S (LEADING ZERO REPLACED BY SIGN)* # ( P************************************ # H PLS EQU *-BASE # t & PEDP850 IM EDSUPP MARK SUPPRESSION # ( P CF A14,EDGETN GET CHR FROM ELEMENT # & P LD A1,EDNOTZ LOAD ZERO INDICATOR # ( P
0x000ca0…120cc0 [0x246]: Pad {f00=0x0033, f01=0x018e, f02=» AND STORE CHR # | P EJECT $ P************************* $ $ P* C:CONDITIONAL PICTURE * $ F P************************* $ h PLC EQU *-BASE $ " PEDP900 LD A4,EDSIGN LOAD SIGN $ ( P RB(NZ) EDP725 JUMP BACK IF POSITIVE $ & P LD A4,EDPPOI LOAD PICTU
0x000ca0…120cc0 [0x247]: Pad {f00=0x0033, f01=0x0190, f02=» $ P* % P************************ % P* PRINT SPACE IF BLANK * % 2 P************************ % R PLD EQU *-BASE % r ( P IM EDSUPP INDICATE SUPPRESSION CODE % , P CF A14,EDGETA GET DIGIT IN ASCII TO A6 % P CWK A6,/20 % P RB(E) EDP670 JUMP
0x000ca0…120cc0 [0x248]: Pad {f00=0x0033, f01=0x0190, f02=»INTER v $ P* A4: OUTPUT COUNTER " P* A5: STACK POINTER 6 P* A6: DWT-ADDRESS P* A7: ORDER P* A8: ECB-ADDRESS P* P* P* P* P* SYSTEM ADAPTATION: P*
0x000ca0…120cc0 [0x249]: Pad {f00=0x0033, f01=0x0190, f02=»ET IF RECOVERY IS EXECUTED ON REQUEST | 4 P* CUT/PERFORATE JOURNAL TAPE (PTS 6221,6222) . 0 P* ACCAPTANCE OF SPECIAL CHARACTER /13,/14 f H P* COMPLETION OF REQUEST AT 'VOUCHER OUT' BEFORE MESSAGE IS WRITTEN P* P* @ P* THE CHARACTE
0x000ca0…120cc0 [0x24a]: Pad {f00=0x0033, f01=0x0190, f02=» P EJECT P* P*********** P* ENTRIES * 0 P*********** D P* X P* b P ENTRY TPAD ADDRESS BLOCK l P* P* P* P************* P* EXTERNALS * P************* P* P* , P EXTRN T
0x000ca0…120cc0 [0x24b]: Pad {f00=0x0033, f01=0x0190, f02=»O END I/O & P EXTRN OUTPUT OUTPUT ONE CHARACTER " P EXTRN LDREG RESTORE REGISTERS < 8 P EXTRN STREG STORE REGISTERS AND WAIT FOR INTERRUPT b P EXTRN SAVE8 SAVE REG. A1-A8 P* P* P* . P* DISPLACMENT IN DEVICE WORK TABLE DWT
0x000ca0…120cc0 [0x24c]: Pad {f00=0x0033, f01=0x018e, f02=»************** P* CONDITIONAL ASSEMBLY * P************************ 6 P* V P* ` < P* WHEN RECOVERY EXECUTED ON REQUEST RETURN CODE IS SET j P* BY SETTING X:A = 1 P* P* PX:A EQU 0 PRECOV EQU 0 P*
0x000ca0…120cc0 [0x24d]: Pad {f00=0x0033, f01=0x018e, f02=» PCUTPER EQU 0 P* P* & B P* SPECIAL CHARACTER /13, /14 IS ACCEPTED BY SETTING X:C = 1 0 P* AND X:D = 1 RESPECTIVLY v P* P* PX:C EQU 0 PCHR13 EQU 0 P* P* PX:D EQU 0 PCHR14 EQU 0
0x000ca0…120cc0 [0x24e]: Pad {f00=0x0033, f01=0x0190, f02=» X P* P* PX:E EQU 0 PCOMPL EQU 0 . P EJECT B P* P P* Z > P* IN SITUATIONS WHERE PRINTER HARDWARE OR SELECTOR UNIT d < P* IS INACTIVE,END OF REQUEST MAY BE CHOSEN BY SETTING > P* THE CONSTANT RELEND=1. RETURN CO
0x000ca0…120cc0 [0x24f]: Pad {f00=0x0033, f01=0x0190, f02=»N THE SHB-PROJECT FOR l < P* LOCAL PRINTERS THE CONSTANT SHBDUM CAN BE SET TO 1. ( P* NOT ALLOWED FOR REMOTE PRINTERS. ^ P* PX:H EQU 0 PSHBDUM EQU X:H P EJECT P* P* P************* P* CONSTANTS * P
0x000ca0…120cc0 [0x250]: Pad {f00=0x0035, f01=0x0190, f02=»----------------------- P* 6 P* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: * 4 P* -CAN HANDLE GRAFIC MODE FOR PTS 6351 OR NOT d , P* -IS ADAPTED TO CONTROL ONLY PTS 6344 : P* -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7 8 P
0x000ca0…120cc0 [0x251]: Pad {f00=0x0035, f01=0x0190, f02=»12), LOW INT (/1E), HIGH INT (/1F) p P EJECT * P* 8 P* B P* L P* V P*********** ` P* ENTRIES * t P*********** P* P* P* ( P ENTRY DYAD ADDRESS TO ADDRESSBLOCK 0 P ENTRY ECHODY DEVICE-DEPENDENT ECHO-
0x000ca0…120cc0 [0x252]: Pad {f00=0x0035, f01=0x0190, f02=»TRIES * t . P***************************************** P* H P* R $ P EXTRN DISIOE I/O REQUEST ERROR . P EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER P EXTRN TDISP DISPATCHER > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND R
0x000ca0…120cc0 [0x253]: Pad {f00=0x0035, f01=0x0190, f02=»CHO h 0 P EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER P EJECT @ P* N P************************ X P* DWT PARAMETERS * x P************************ P* P EXTRN DWTST STATUS P EXTRN DWTOR ORDER P* $ P********
0x000ca0…120cc0 [0x254]: Pad {f00=0x0035, f01=0x0190, f02=» BYTE COUNTER ( PDWTAP EQU /22 HEAD POSITION POINTER PDWTPOS EQU /25 POSITIONS B PDWTLIN EQU /24 LINES b P* ~ P EJECT P************* P* CONSTANTS * P************* P* PFASTO EQU /14 FAST OUTPUT $ PSCADD
0x000ca0…120cc0 [0x255]: Pad {f00=0x0035, f01=0x0190, f02=»SITY START x & PLISTOP EQU /1F LOW INTENSITY STOP PBACKSP EQU /08 BACKSPACE < PLF EQU /0A LINE FEED PHOME EQU /0B CURSOR HOME x ( PCLEHOM EQU /0C CLEAR AND CURSOR HOME PCR EQU /0D CARRIAGE RETURN PCURRIG EQU /10 CURSOR RIGHT P
0x000ca0…120cc0 [0x256]: Pad {f00=0x0035, f01=0x0190, f02=» EQU /12 RETURN TO ALPHANUMERIC MODE * PESCAPE EQU /11 ESCAPE TO GRAPHIC MODE , " PPOINT EQU /2E POINT CHARACTER Z 2 PEQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT PSTILL EQU /18 CURSOR STEADY P* P******************** P* RETUR
0x000ca0…120cc0 [0x257]: Pad {f00=0x0035, f01=0x0190, f02=» P* P EJECT P* P* & . P***************************************** 0 . P* CONDITIONAL ASSEMBLY * b . P***************************************** P* P* H P* BY SETTING X:A TO 1 DRIVER CAN HANDLE GRAFI
0x000ca0…120cc0 [0x258]: Pad {f00=0x0038, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x259]: Pad {f00=0x0038, f01=0x0004, f02=»
0x000ca0…120cc0 [0x25a]: Pad {f00=0x0038, f01=0x0190, f02=» J F IDENT INTVMD REL 8.2 78-09-15 870105040820 D @ CVTMSZK CVTSTB CVTSBA CVTEBA CVTINP CVTDK CVTAPA CVTAPSC R < 8 CVTCLK LOOPY INIM40N CVTLSB FREPAR PARLEN@ NUMPAR NUMPAR IHPFARC IHLKM
0x000ca0…120cc0 [0x25b]: Pad {f00=0x0038, f01=0x018e, f02=» IH1502R CHLT1 CHRT1 & , ( 6 , ( ! f , ( 1 IHDU1 , ( A , (
0x000ca0…120cc0 [0x25c]: Pad {f00=0x0038, f01=0x0190, f02=» f CVTMSZK CVTSTB CVTSBA 0 CVTEBA D CVTINP X CVTAPA l CVTAPSC CVTCLK CVTLSB CVTDK FREPAR PARLEN@ , (
0x000ca0…120cc0 [0x25d]: Pad {f00=0x0038, f01=0x0190, f02=» A , ( B. F A . P & , ( , 7 P _ V , ( @ . A N p , ( = W x ,: P : , ( ] : V P T
0x000ca0…120cc0 [0x25e]: Pad {f00=0x0038, f01=0x0190, f02=»:a S @ v , ( :a U _n P _ 7 , ( G. @ ' ?D A ' P G O F INIM40N & v TCTAB TTB:ID , ( @ $ T $ T PRUNN TTB:ST , ( 9
0x000ca0…120cc0 [0x25f]: Pad {f00=0x0038, f01=0x40b0, f02=»9H @ @ @ H D ! f W W W P& P CW WP cV qP uT P Pd U U 4 0 ` S U P P & 1T K F UP [ j g h b @ @ $ T $ T PRUNN TTB:ST , ( 9
0x000ca0…120cc0 [0x260]: Pad {f00=0x003b, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x261]: Pad {f00=0x003b, f01=0x0010, f02=» h p x
0x000ca0…120cc0 [0x262]: Pad {f00=0x003b, f01=0x018e, f02=» 2 P IDENT DRTC01 REL 8.2 78-09-15 870105040820 P : P NO SELECT AT PGM LOADING B P FAST I/O, SHORT INH TIME f P REL 8.1 78-04-21 P P < P******************************************************* P* $ P* PHILIP
0x000ca0…120cc0 [0x263]: Pad {f00=0x003b, f01=0x0190, f02=» P* < P******************************************************* P* R P* > P* THIS DRIVER HANDLES ONE OR TWO TAPE CASSETTE RECORDERS f & P* CONNECTED TO CPU VIA CHCR-DCR P* > P* ONLY ONE RECORDER CAN BE BE OPERATED AT A
0x000ca0…120cc0 [0x264]: Pad {f00=0x003b, f01=0x0190, f02=»ARACTERS P* P EJECT DRTC01 P* 2 P* < 4 P* THE DRIVER CONSISTS OF THE FOLLOWING PARTS: F P* ~ " P* T C D A : ACTIVATION PART P* $ P* I H T C : INTERRUPT HANDLER P* & P* R C O V E R : RECOVERY ROUTI
0x000ca0…120cc0 [0x265]: Pad {f00=0x003b, f01=0x0190, f02=» AND O R D E R P R O C E S S O R S P* . P* 8 * P* THE FOLLOWING ORDERS ARE TREATED: B P* p P* ORDER /00: TEST STATUS z P* /02: READ P* /05: WRITE P* /06: WRITE " P* /22: WRI
0x000ca0…120cc0 [0x266]: Pad {f00=0x003b, f01=0x0190, f02=»ASE | P* /37: LOAD P* /38: UNLOAD ( P* F P EJECT DRTC01 P P* h P* r , P* THE FOLLOWING RETURN CODES ARE USED: | P* P* BIT 0 REQUEST ERROR P* 1 LEADER P* 2 BOT MISSING P*
0x000ca0…120cc0 [0x267]: Pad {f00=0x003b, f01=0x0190, f02=»7 B-SIDE P* 9 REWIND TIME-OUT P* 11 SEQUENCE ERROR 2 P* -READ SEQUENCE ERROR R > P* -POSITION OF TAPE UNSUCCESSFULL AT WRITE RECOVERY v 6 P* -POWER RECOVERY WHEN SEQ. COUNTER NOT USED , P* -POWER RECOVERY
0x000ca0…120cc0 [0x268]: Pad {f00=0x0040, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x269]: Pad {f00=0x0040, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x26a]: Pad {f00=0x0040, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x26b]: Pad {f00=0x0040, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x26c]: Pad {f00=0x0040, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x26d]: Pad {f00=0x0040, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x26e]: Pad {f00=0x0040, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x26f]: Pad {f00=0x0040, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x270]: Pad {f00=0x0041, f01=0x0190, f02=» V P* * P* PARAMETERS FOR CONDITIONAL ASSEMBLY P* @ P* J & PX:A EQU 2000 RECEIVE BUFFER LENGTH T PRBUFL EQU 300 ~ ( PX:B EQU 1000 TRANSMIT BUFFER LENGTH PTBUFL EQU 260 PX:C EQU /60 DCTASK FILE CODE PDC15FC EQU /60
0x000ca0…120cc0 [0x271]: Pad {f00=0x0041, f01=0x0190, f02=»STATUS AND RVI HANDLING IF=1 PSTAT EQU 1 $ ( PX:G EQU 1 READ COMMAND HANDLING IF=1 6 PRCOM EQU 1 b & PX:H EQU 254 TRANSMIT BLOCK LENGTH t PTBLEN EQU 252 ( PX:I EQU 1 CODE , 0=ASCII , 1=EBCDIC PCODE EQU 1 * PX:J EQU 0 IF 1 SPECIFIC
0x000ca0…120cc0 [0x272]: Pad {f00=0x0041, f01=0x0190, f02=»SPEED EQU 1 * PX:L EQU 0 IF 1 SIEMENS MSV1 PROCEDURE PMSV1 EQU 0 B . PX:M EQU 2 NUMBER OF RECEIVE BUFFERS (2-5) T PRBUFNR EQU 2 . PX:N EQU 0 IF = 1 PTS 6805 ADAPTION SALCUZ PP6805 EQU 00 PX:O EQU /02 P IFT P6805=0 , PLC
0x000ca0…120cc0 [0x273]: Pad {f00=0x0041, f01=0x0190, f02=» PX:P EQU 0 , PIBMCHR EQU 0 IF 1 IBM CHARACTER HANDLING . PX:Q EQU 0 IF 1 MESSAGE PASSING TO DC TASK F PMESPAS EQU 1 x 4 PX:R EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 PEM3270 EQU 1 * PBINTRM EQU 0 IF 1 BINARY TRANSMISSION , PTSTR
0x000ca0…120cc0 [0x274]: Pad {f00=0x0041, f01=0x0190, f02=»E THAT f 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE". B , P ONLY WORKING IF STAT IS SET TO "ONE". v P IFT P6805=0 SALCUZ < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ P XIF S
0x000ca0…120cc0 [0x275]: Pad {f00=0x0041, f01=0x0190, f02=»* P* REQUEST HANDLING P* $ P* . P* 8 P* A7=ORDER B P* T P* /02: READ ^ P* /06: WRITE r P* /08: EXCHANGE P* /22: RELEASE READ BUFFER P* /31: GET WRITE BUFFER P* /37: TRANSFER PARAMETERS P* /38: S
0x000ca0…120cc0 [0x276]: Pad {f00=0x0041, f01=0x018e, f02=»DCSTOL DATA 0 OLD DC EQUIPMENT STATUS PDCSTCU DATA 0 CURRENT STATUS . $ PDCWRQ DATA 0 WRITE REQUEST QUEUE R P IFF TBUFL=0 z * PDCGWQ DATA 0 GET BUFFER REQUEST QUEUE P XIF , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL , PDC15DC DATA DCACTD
0x000ca0…120cc0 [0x277]: Pad {f00=0x0041, f01=0x0190, f02=» " P RES 1 AND FOR TRANSFER PARAM PSTB2 RES 1 * P < P IFT SPEED=1 D PLSPEED EQU /0200 X P XIF p P IFT SPEED=0 | PLSPEED EQU 0 P XIF P EJECT P* P* $ P* ACTIVATION FROM TERMINAL TASKS P* PDCACT
0x000ca0…120cc0 [0x278]: Pad {f00=0x0043, f01=0x0190, f02=»E OK E x $ P LD A4,DCRBUF GET BUFFER ADDRESS F P ADK A4,6 F 4 P CW A4,FBLST F F " P RF(NE) BRM325 NOT FIRST BLOCK F Z P IFF RCOM=0 F P LDK A1,ESC F P CCR A1,A4 F P RB(NE) BRM310 ESC NOT FOUND F P ADK A4,1 F P LCR A1,A4 GET COMMAND COD
0x000ca0…120cc0 [0x279]: Pad {f00=0x0043, f01=0x0190, f02=»OD READ BUFFER RECEIVED F P XIF G PBRM325 EQU * G , P SUK A7,1 G @ & P RF(Z) BRM340 MESSAGE ENDED BY ETB G R P CM FBAX G | * P CF A15,GRBUF ALLOCATE RECEIVE BUFFER G P ADK A4,6 G P LD A6,FDWTIN GET INPUT DWT G P* G " P* PREPARE FOR CH
0x000ca0…120cc0 [0x27a]: Pad {f00=0x0043, f01=0x018e, f02=» G P ST A2,+4,A1 H P XIF H PBRM326 EQU * H ( P CWK A6,DW1500 H < , P RF(E) BRM330 MESSAGE IS MENT FOR DCTASK H R P LD A2,DWTST,A6 GET STATUS H P RF(N) BRM330 NO REQUEST H P LDK A2,2 H P CW A2,DWTOR,A6 H " P RF(NE) BRM330 NO READ REQUE
0x000ca0…120cc0 [0x27b]: Pad {f00=0x0043, f01=0x018e, f02=» H j P LD A3,-4,A4 GET LENGTH I * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH I ( & P CF A15,CTIME STOP REQUEST TIMING I V ( P ST A2,ECBCW,A8 STORE REMAINING TIME I P EJECT I P* I P* I 0 P* CHECK IF START PRINTER BIT SET IN CCC/WCC I P* I
0x000ca0…120cc0 [0x27c]: Pad {f00=0x0043, f01=0x0190, f02=» P RF(Z) BRM328 J P LD A2,DWTST,A6 GET STATUS J P ORK A2,/A J < P ST A2,DWTST,A6 J N PBRM328 EQU * J f P XIF J z $ P CF A15,TENDIO COMPLETE REQUEST J P RF BRM345 J P EJECT J PBRM330 EQU * J P SUK A4,6 GET BUFFER BASE J ( P CF A5
0x000ca0…120cc0 [0x27d]: Pad {f00=0x0043, f01=0x0190, f02=» J v P ABL BRM K PBRM345 EQU * K P IFT STAT=1 K , P LD A1,DWTST,A6 K @ P ANK A1,8 K X $ P RB(Z) BRM340 ACK SHOULD BE SENT K j P CF A5,TRWACK SEND WACK K P RF BRM410 K P XIF K P IFF STAT=1 K P RB BRM340 K P XIF K P EJECT K
0x000ca0…120cc0 [0x27e]: Pad {f00=0x0043, f01=0x0190, f02=»FER COMMAND K | PRDMOD EQU * L " P CM XSEL RESET SELECT EXPECTED L ( 4 P LD A6,FDWTIN DWT-ADDRESS FOR ADDRESSED TERMINAL L N $ P LD A4,DWTBUF,A6 BUFFER ADDRESS L $ P SUK A4,2 SDJUST BUFFER ADDRESS L " P LDKL A3,1922 REQUESTED LENGTH L " P IM XRB SET RE
0x000ca0…120cc0 [0x27f]: Pad {f00=0x0043, f01=0x0190, f02=»* L P* M P* ENQ HAS BEEN RECEIVED M P* M 4 P* M > PBRM400 EQU * M H & P CF A5,HPTIM STOP PROCEDURE TIMER M P LD A1,XACK M P OR A1,XSEL M " P RF(Z) BRM410 IN CONTROL STATE M . P CF A5,TRREP REPEAT LAST CONTROL SEQUENCE M PBRM4
0x000ca0…120cc0 [0x280]: Pad {f00=0x003b, f01=0x2008, f02=»
0x000ca0…120cc0 [0x281]: Pad {f00=0x003b, f01=0x018e, f02=»P n , ( C "P T (R X # X > P RTNA15 > , ( c P P X X> P , ( _@ W ? T T , ( W u > > E D , ( E E S % ;DV " U "
0x000ca0…120cc0 [0x282]: Pad {f00=0x003b, f01=0x0190, f02=» f LDREG . , ( @ Y Y Y Y _8 X XB LDREGF < J LDREGE @ ^ , ( 9@" Y X X X X ' r GETCHRC T * & S 4 B U B (" W C OUTLIN` r , ( q
0x000ca0…120cc0 [0x283]: Pad {f00=0x003b, f01=0x0190, f02=» P T (V W 8V T (P U , ( ( 8 ~ U Q P X H ( IHRET8N X , ( 5 U R " ] " Y j , ( + V P X P P _ ] CHLTON X , ( @ I W Q Y _4 @ T
0x000ca0…120cc0 [0x284]: Pad {f00=0x003b, f01=0x0190, f02=» @ n & " T A % > > ECHEND 8 ECHOY L DWTWAT ^ , ( @ Y Y Y X 9BV X " p ECHRTN TENDIO , ( A Y X D V " @ X <
0x000ca0…120cc0 [0x285]: Pad {f00=0x003b, f01=0x0190, f02=» P: P0 P, R H D !H T ( Tl WH R 5P2 9R. AT QT UP _P mWf s } ( T H D !$ W V P W P R R R T r 3 =R G ]P d H D ! T" V. T P T P P T P P T 7R =P> GP* MR [ r H D ! aP eP k
0x000ca0…120cc0 [0x286]: Pad {f00=0x003b, f01=0x408e, f02=» H D ! P Q0 P R /V 7P AP KW _T qR4 yS P T W $ T V$ V P x@ R T r 3 =R G ]P d H D ! T" V. T P T P P T P P T 7R =P> GP* MR [ r H D ! aP eP k
0x000ca0…120cc0 [0x287]: Pad {f00=0x003b, f01=0x2008, f02=»
0x000ca0…120cc0 [0x288]: Pad {f00=0x0046, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x289]: Pad {f00=0x0046, f01=0x0002, f02=»
0x000ca0…120cc0 [0x28a]: Pad {f00=0x0046, f01=0x0190, f02=» 0 P IDENT DVTKB REL 8.2 78-09-15 870105040820 P* 8 " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVTKB TABLE ENTRY r P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN ECH P* P* PDVTKB EQU * TABLE ENTRY
0x000ca0…120cc0 [0x28b]: Pad {f00=0x0046, f01=0x0190, f02=»R AND ECB-ADDRESS j ( P DATA KBAD POINTER TO ADDRESS BLOCK P DATA 'KB' TTAB-ADDRESS F $ P DATA 0 WAIT/INDICATE INDICATOR f P DATA 0 TERMINAL QUEUE * P DATA 0 CODE CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE ARE
0x000ca0…120cc0 [0x28c]: Pad {f00=0x0046, f01=0x4140, f02=»ATA /BCA BACKSPACE AND CANCEL " P DATA /ED0 EOR AND DOUBLE ZERO & 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE L 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE PDWTSQ EQU *-DVTKB P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0
0x000ca0…120cc0 [0x28d]: Pad {f00=0x0046, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES
0x000ca0…120cc0 [0x28e]: Pad {f00=0x0046, f01=0x0190, f02=»F70 90-97 v ( P DATA /7172,/5D24,/2A29,/3B5E 98-9F ( P DATA /2D2F,/7374,/7576,/7778 A0-A7 > ( P DATA /797A,/7C2C,/255F,/3E3F A8-AF j ( P DATA /3031,/3233,/3435,/3637 B0-B7 ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /2041,/4243,/4445,/464
0x000ca0…120cc0 [0x28f]: Pad {f00=0x0046, f01=0x0190, f02=»D8-DF r ( P DATA /2D2F,/5354,/5556,/5758 E0-E7 ( P DATA /595A,/7C2C,/255F,/3E3F E8-EF : ( P DATA /3031,/3233,/3435,/3637 F0-F7 f ( P DATA /3839,/3A23,/4027,/3DFF F8-FF P XIF P EJECT P* P* 2 P* TABLE FOR CONVERSION OF ASCI
0x000ca0…120cc0 [0x290]: Pad {f00=0x004c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x291]: Pad {f00=0x004c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x292]: Pad {f00=0x004c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x293]: Pad {f00=0x004c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x294]: Pad {f00=0x004c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x295]: Pad {f00=0x004c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x296]: Pad {f00=0x004c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x297]: Pad {f00=0x004c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x298]: Pad {f00=0x004c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x299]: Pad {f00=0x004c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x29a]: Pad {f00=0x004c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x29b]: Pad {f00=0x004c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x29c]: Pad {f00=0x004c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x29d]: Pad {f00=0x004c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x29e]: Pad {f00=0x004c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x29f]: Pad {f00=0x004c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x2a0]: Pad {f00=0x004d, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x2a1]: Pad {f00=0x004d, f01=0x0010, f02=»
0x000ca0…120cc0 [0x2a2]: Pad {f00=0x004d, f01=0x0190, f02=» 2 P IDENT DRKB01 REL 9.1 78-09-15 870105640912 P : P* B 0 P******************************************* L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* DRKB01 = DRIVER KEYBOARD P* P* P* P* P*
0x000ca0…120cc0 [0x2a3]: Pad {f00=0x004d, f01=0x0190, f02=» d . P* AND ALPHANUMERIC KEYBOARDS PTS 6231, ( P* 6232, 6233, 6234, 6331,AND 6342 : , P* CONNECTED TO CPU VIA CHLT OR CHRT. f P* , P* ONLY INPUT DATA FROM DEPRESSED KEYS $ P* ARE HANDLED BY THE DRIVER. P* 0 P* AN
0x000ca0…120cc0 [0x2a4]: Pad {f00=0x004d, f01=0x0190, f02=» DRIVER CONSISTS OF FOLLOWING PARTS: P* , " P* A C K B : ACTIVATION PART 6 P* $ P* I H K B : INTERRUPT HANDLER f P* P* E C H O : ECHO HANDLER P* $ P* R C K B : RECOVERY ROUTINE P* P EJECT P*
0x000ca0…120cc0 [0x2a5]: Pad {f00=0x004d, f01=0x0190, f02=»AD v P* ORDER 03: NUMERIC READ & P* ORDER 04: RESET INPUT BUFFER . P* X P* b P* NORMAL REGISTER USAGE : l P* " P* REGISTER A1 : RETURN CODE & P* A2 : INPUT CHARACTER $ P* A3 : BUFFER INDEX
0x000ca0…120cc0 [0x2a6]: Pad {f00=0x004d, f01=0x0190, f02=» A7 : ORDER " P* A8 : ECB-ADDRESS P* < P EJECT F P* T P* ^ P* SYSTEM ADAPTATION h P* 4 P* KEYBOARD TYPE MUST BE DEFINED IN FIRST WORD : P* IN DWT. BIT 10 IS RELEVANT FOR ALPHANUMERIC READ & P*
0x000ca0…120cc0 [0x2a7]: Pad {f00=0x004d, f01=0x0190, f02=» 6342 j < P* BIT 11 = 0 FOR ALL KEYBOARDS BUT PTS 6342 AND 6234 & P* BIT 11 = 1 FOR PTS 6234,6342 N P* x 8 P* CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, 8 P* MULTIPLE ZERO AND STANDARD EOR MUST BE DEFINED P* IN DWT.
0x000ca0…120cc0 [0x2a8]: Pad {f00=0x0046, f01=0x0190, f02=» ! l , ( U X ! X ! W A r @ l X , ( s A x A n A z ! @ < , ( p @ rP ! ! @ pT @ rX l , ( ( W @ n @ v @ @ A ! , ( @ pX< ! T @ zP ! ! , ( _V /
0x000ca0…120cc0 [0x2a9]: Pad {f00=0x0046, f01=0x0190, f02=» ! XD Y _N X ! P , ( k ! # T @ T ! _ ! ! * , ( ( _ A r A H E A v A l 4 ! Z , ( * @ P ! ! A p @ T , ( J ! _ T _ ~ A n B , ( T B A A A A t
0x000ca0…120cc0 [0x2aa]: Pad {f00=0x0046, f01=0x018e, f02=»T T Y v , ( ( W W ~ P C @ , ( U u h A p A n 4 @ @ vT F , ( J @ A @ A A v ! T v , ( P P P P P 1 , ( P A @ ]6W P _@ @ @ , (
0x000ca0…120cc0 [0x2ab]: Pad {f00=0x0046, f01=0x0190, f02=» f , ( U ! @ ! ! ! B J ! , ( T u 4 ! ! @ @ A 8 , ( @ @ T @ ! 8 ! @ xP - ! h , ( x ! W 0 " @ xP R , ( W ! P " ! " :A *@ H , ( T 0 !
0x000ca0…120cc0 [0x2ac]: Pad {f00=0x0046, f01=0x018e, f02=» ! " ! ` A t _" A v A n , ( s ! ! % ! R ! ! @ ( , ( ! 8 ! X ! 9a D ! X , ( @ X ! P ! T & ! _b B J B ! IH1501 INTSAVL SAVE8 , ( H ! 4 A
0x000ca0…120cc0 [0x2ad]: Pad {f00=0x0046, f01=0x018e, f02=» , ( % " P A v . A 4 A , ( E _(" P H B P W ! ! 4 , ( c 4 _$ ! ` ! 1 4 A x @ d , ( ` @ P 0 M A x DC15ON * & 4 @ ` @ P $ Y , (
0x000ca0…120cc0 [0x2ae]: Pad {f00=0x0046, f01=0x0190, f02=» f , ( $ A 4 A . ! @ @ pP ! @ , ( T 5 ! @ P a A 4 A A 8 , ( U A ?a :a# P @ @ h u @ 4 , ( * A | ! ` ~ ! ` A | @ ~:H DW1500 , ( 4
0x000ca0…120cc0 [0x2af]: Pad {f00=0x0046, f01=0x0190, f02=»P A A p , ( : @ - R A @ @ : 4 @ , ( =W :f"? H ! h "? H ! h 4 T , ( =w ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ , ( = -/STUVWXYZ|,%_>?0123456789:#@'=" , ( =
0x000ca0…120cc0 [0x2b0]: Pad {f00=0x0050, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x2b1]: Pad {f00=0x0050, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x2b2]: Pad {f00=0x0050, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x2b3]: Pad {f00=0x0050, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x2b4]: Pad {f00=0x0050, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x2b5]: Pad {f00=0x0050, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x2b6]: Pad {f00=0x0050, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x2b7]: Pad {f00=0x0050, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x2b8]: Pad {f00=0x0050, f01=0x018e, f02=»KSENDING RUNNING e t $ PCPO010 LDR A3,A6 DEVICE COUNTER f P ANK A3,/FF f @ " P LDR A1,A8 SET ADDRESS POINTER f T PCPO020 ADK A1,2 f z P LDR* A6,A1 GET DWT-ADDRESS f P RF(E) CPO030 f P SRC A6,1 f P RF(N) CPO030 f P SLC A6,1 f ( P LCR
0x000ca0…120cc0 [0x2b9]: Pad {f00=0x0050, f01=0x0190, f02=» f l P ANS A7,DWTST,A6 g P LC A7,DWTST,A6 g P ANK A7,/20 ECHO MODE ? g 8 P RF(NE) CPO030 YES g X 0 P CWR A6,A2 DEVICE WAITING FOR CHANNEL ANSWER g r P RF(E) CPO030 YES g : PCPO025 LD A7,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK IN A7 g 2 P LD A7,4,A7
0x000ca0…120cc0 [0x2ba]: Pad {f00=0x0050, f01=0x0190, f02=»RECOVERY ROUTINE g ~ * PCPO030 SUK A3,2 ALL DEVICES THREATED? h P RB(NE) CPO020 NO TAKE NEXT h F PEXIIT RF EXIT h j P EJECT h P* h 6 P* INDICATE NOT OPERABLE BEFORE GOING TO DRIVER h P* h PCLT045 EQU * h ( P LDK A1,NOERR INDICATE NOT
0x000ca0…120cc0 [0x2bb]: Pad {f00=0x0050, f01=0x0190, f02=»ND THEN EXAMINE LAST h v 0 P* OUTPUT DWT. IF NOT DEFINED UPDATE ERROR i 6 P* ACKUMULATOR AND GO TO DISPATCHER. IF SYNC-ACK i P P* DROP IT. i 8 P* NORMAL ACK OR DRI WILL RESULT IN A RESETTING OF i 8 P* RECOVERY BIT IN DWT. THEN A SIMULATION OF
0x000ca0…120cc0 [0x2bc]: Pad {f00=0x0050, f01=0x0190, f02=» i X : P* HANDLING ANSWERS FROM DEVICE IS AFFECTED AND THEN j > P* IF DRI A BRANCH IS MADE TO THE DATA REQUEST SECTION. j F * P* IF ACK WE HAVE TO WAIT FOR A DRD. j PCLT050 EQU * j & P LC A3,CWTLOW,A5 LAST OUTPUT WORD j " P ANK A3,/F0 KEEP DEVIC
0x000ca0…120cc0 [0x2bd]: Pad {f00=0x0050, f01=0x0190, f02=»DK A4,2 j 4 P ORS A4,CWTRST,A5 INDICATE ACK IN CHANNEL STATUS k P LDR A8,A3 OBC-ACK ? k H P RF(NE) CLT052 k d P LDKL A3,/8000 k z * P ORS A3,LRCACK,A7 INDICATE ABC ALLOWED k P RF CLT055 k PCLT052 EQU * k . P LDR* A3,A6 DEVICE WITHOUT DATA REQUES
0x000ca0…120cc0 [0x2be]: Pad {f00=0x0050, f01=0x0190, f02=»G k ~ P* l PCLT055 EQU * l P INH l ( * P LD A3,DWTTP,A6 ADDRESS TO TIMER BLOCK l 4 P RF(E) CLT060 l b P* l x P* RESTART TIMER l P* l " P LDKL A3,-DRQTIM RESTART TIMER l P ST* A3,DWTTP,A6 l P RF CLT068 l P* l P* START
0x000ca0…120cc0 [0x2bf]: Pad {f00=0x0050, f01=0x018e, f02=» l v " P CF A15,SETIMP GET TIMER BLOCK m > P DATA DRQTUT,DRQTIM ADDRESS TO TIME-OUT ROUTINE AND DELAY m . PCLT068 EQU * m p P LDR A8,A8 OBC-ACK ? m P RF(E) EXIT YES m P LDK A1,0 m & P LDR* A4,A6 GET CHANNEL PARAMETER m . P RF(N) CLT110 DEVICE W
0x000ca0…120cc0 [0x2c0]: Pad {f00=0x0047, f01=0x0190, f02=» P* P* PDCRD EQU * P LD A8,DWTECB,A6 GET ECB * . P LD A3,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE J " P RF(Z) DCRD10 NOTHING IN QUEUE | P ( P LDR* A2,A3 TAKE THE FIRST IN QUEUE P ST A2,DWTRQ,A6 P ADK A3,6 P ST A3,ECB
0x000ca0…120cc0 [0x2c1]: Pad {f00=0x0047, f01=0x0190, f02=» P $ PDCRD10 CF A15,TIMERE START TIMER P RB DCRTN 4 P EJECT F P* T P* ^ P* GET WRITE BUFFER h P* P* P IFF TBUFL=0 P* COMPLETE WHEN: P* BUFFER BEEN ALOCATED P* TIME OUT P* P* P
0x000ca0…120cc0 [0x2c2]: Pad {f00=0x0047, f01=0x0190, f02=» P LDKL A1,TBUFL+TBUFL ( P ST A1,ECBEL,A8 STORE BUFFER LENGTH P LDK A1,0 L P RB ENDIO COMPLETE REQUEST ^ PDCGW10 EQU * P CF A15,TIMERE START TIMER P CF A15,INSGWQ QUEUE REQUEST P RB DCRTN P XIF P EJECT P*
0x000ca0…120cc0 [0x2c3]: Pad {f00=0x0047, f01=0x0190, f02=»DCRR10 EQU * P LDK A1,0 * P CF A15,TENDIO COMPLETE RRBUF REQUEST & P RB DCRTN T P EJECT f P* t P* ~ P* EXCHANGE P* P* P* P* COMPLETE WHEN: " P* MESSAGE PASSED TO TERMINAL P* TIME OUT P
0x000ca0…120cc0 [0x2c4]: Pad {f00=0x0047, f01=0x0190, f02=» IFF STAT=0 PDCSS EQU * * P LD A1,ECBCW,A8 GET STATUS INFORMATION & P ANK A1,3 MASK DB,IR T P RF(Z) DCSS20 DEVICE END p PDCSS10 EQU * P ST A1,DWTST,A6 P RB DCRR10 COMPLETE REQUEST PDCSS20 EQU * P LD A1,DWTST,A6
0x000ca0…120cc0 [0x2c5]: Pad {f00=0x0047, f01=0x0190, f02=»DK A1,4 SET DE P RB DCSS10 P XIF ( P EJECT 4 P* B P* L P* V P* TIMER HANDLING PART ` P* ~ P* P* P* READ TIMER=TIMERR P* PTIMERE EQU * P LDR A1,A6 & P LD A2,ECBCW,A8 GET TIMEOUT VALUE
0x000ca0…120cc0 [0x2c6]: Pad {f00=0x0047, f01=0x0190, f02=»WTTP,A6 STORE TIMER POINTER PTIME10 EQU * $ P RF GBUF10 RETURN 8 P* R P* TIMEOUT READ TIMER P* x PTOUTRE EQU * P LDR A6,A1 FETCH DWT P CM DWTTP,A6 P IFF TBUFL=0 $ P CF A15,REMOVG REMOVE FROM QUEUE P XIF
0x000ca0…120cc0 [0x2c7]: Pad {f00=0x0047, f01=0x0190, f02=») TOUTR2 NOT EXCHANGE 2 P ORK A1,2 RETURN CODE /42 AT EXCHANGE TIME OUT $ PTOUTR2 RB ENDIO COMPLETE REQUEST T P* | P* WRITE TIMER=TIMWR P* PTIMEWR LDR A1,A6 & P LD A2,ECBCW,A8 GET TIMEOUT VALUE P RB(Z) TIME10 NO TIMING
0x000ca0…120cc0 [0x2c8]: Pad {f00=0x0047, f01=0x0190, f02=»/06-/02 P RF(Z) DCWR P SUK A7,/08-/06 $ P RF(Z) DCEX EXCHANGE < P SUK A7,/22-/08 X $ P RF(Z) DCRR RELEASE READ BUFFER p P SUK A7,/37-/22 $ P RF(Z) DCTP TRANSFER PARAMETERS P SUK A7,/38-/37 P IFF STAT=0 P RF(Z)
0x000ca0…120cc0 [0x2c9]: Pad {f00=0x0047, f01=0x0002, f02=»
0x000ca0…120cc0 [0x2ca]: Pad {f00=0x0047, f01=0x0190, f02=» J F IDENT EBCDIC REL 8.2 78-09-15 870105040820 TASCIIK TEBCDI R TASCIIK l , ( , ( ! , ( A ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^
0x000ca0…120cc0 [0x2cb]: Pad {f00=0x0047, f01=0x416e, f02=»89:#@'=" p , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ TEBCDI @ , ( -/STUVWXYZ|,%_>?0123456789:#@'= T , ( 7- <=2&p ?' , ( ! @O {[lP}M] Nk`Ka z^L~no , ( A | J Z
0x000ca0…120cc0 [0x2cc]: Pad {f00=0x0047, f01=0x2008, f02=»
0x000ca0…120cc0 [0x2cd]: Pad {f00=0x0047, f01=0x0190, f02=»E IN DC:TAB n * P LD A1,DC:IN GET DC:TAB INPUT POINTER * P CWK A1,DC:END TABLE ALREADY FULL ???? B & P ABL(E) DISIOE YES!! REQUEST ERROR p P EJECT P P PDCTP20 EQU * P IFT EM3270=0 " P LDKL A5,STB2 LOAD STACK BASE , P C
0x000ca0…120cc0 [0x2ce]: Pad {f00=0x0047, f01=0x018e, f02=»TAB t P LDK A1,2 * P ADS A1,DC:IN UPDATE DC:TAB IN POINTER P L * P ADS A1,DC:TAB INCREMENT DC:TAB LENGTH T P IFT STAT=1 P LDK A1,4 DEVICE END P ORS A1,DWTST,A6 ( P CF A15,INSSQ INSERT IN STATUS QUEUE P XIF PDCTP30 E
0x000ca0…120cc0 [0x2cf]: Pad {f00=0x0047, f01=0x018e, f02=» P* P* P* WRITE P* , P* 6 P* COMPLETE WHEN: @ P* SUCCESFUL TRANSMISSION X P* TIME OUT z P* P* PDCWR EQU * P CF A15,TIMEWR SET TIMER P CF A15,INSWQ QUEUE REQUEST P RB DCRTN P
0x000ca0…120cc0 [0x2d0]: Pad {f00=0x0049, f01=0x0190, f02=» P IM XSTA INDICATE MESSAGE OK F $ P LD A4,DCRBUF GET BUFFER ADDRESS F ( P ADK A4,6 F P P CW A4,FBLST F b " P RF(NE) BRM325 NOT FIRST BLOCK F v P IFF RCOM=0 F P LDK A1,ESC F P CCR A1,A4 F P RB(NE) BRM310 ESC NOT FOUND F P ADK A4,1 F
0x000ca0…120cc0 [0x2d1]: Pad {f00=0x0049, f01=0x0190, f02=»OM-RDBCOM F & P RF(Z) RDMOD READ BUFFER RECEIVED G P XIF G < PBRM325 EQU * G H P SUK A7,1 G & P RF(Z) BRM340 MESSAGE ENDED BY ETB G n P CM FBAX G * P CF A15,GRBUF ALLOCATE RECEIVE BUFFER G P ADK A4,6 G P LD A6,FDWTIN GET INPUT DWT G
0x000ca0…120cc0 [0x2d2]: Pad {f00=0x0049, f01=0x0190, f02=»CRBUF G P RF(Z) BRM326 H P ST A2,+4,A1 H $ P XIF H 8 PBRM326 EQU * H D P CWK A6,DW1500 H X , P RF(E) BRM330 MESSAGE IS MENT FOR DCTASK H n P LD A2,DWTST,A6 GET STATUS H P RF(N) BRM330 NO REQUEST H P LDK A2,2 H P CW A2,DWTOR,A6 H " P
0x000ca0…120cc0 [0x2d3]: Pad {f00=0x0049, f01=0x0190, f02=»BA,A8 STORE BUFFER ADDRESS H P LD A3,-4,A4 GET LENGTH I " * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH I B & P CF A15,CTIME STOP REQUEST TIMING I p ( P ST A2,ECBCW,A8 STORE REMAINING TIME I P EJECT I P* I P* I 0 P* CHECK IF START PRINTER BIT SET I
0x000ca0…120cc0 [0x2d4]: Pad {f00=0x0049, f01=0x0190, f02=»TE I x P ANK A2,8 J P RF(Z) BRM328 J P LD A2,DWTST,A6 GET STATUS J 2 P ORK A2,/A J T P ST A2,DWTST,A6 J f PBRM328 EQU * J ~ P XIF J $ P CF A15,TENDIO COMPLETE REQUEST J P RF BRM345 J P EJECT J PBRM330 EQU * J P SUK A4,6 GET BU
0x000ca0…120cc0 [0x2d5]: Pad {f00=0x0049, f01=0x0190, f02=»F A5,TRACK SEND ACK 0/1 J P ABL BRM K PBRM345 EQU * K 0 P IFT STAT=1 K D P LD A1,DWTST,A6 K X P ANK A1,8 K p $ P RB(Z) BRM340 ACK SHOULD BE SENT K P CF A5,TRWACK SEND WACK K P RF BRM410 K P XIF K P IFF STAT=1 K P RB BRM340 K
0x000ca0…120cc0 [0x2d6]: Pad {f00=0x0049, f01=0x0190, f02=» $ PRDBUF EQU * READ BUFFER COMMAND L PRDMOD EQU * L , " P CM XSEL RESET SELECT EXPECTED L @ 4 P LD A6,FDWTIN DWT-ADDRESS FOR ADDRESSED TERMINAL L f $ P LD A4,DWTBUF,A6 BUFFER ADDRESS L $ P SUK A4,2 SDJUST BUFFER ADDRESS L " P LDKL A3,1922 REQUESTED LENG
0x000ca0…120cc0 [0x2d7]: Pad {f00=0x0049, f01=0x0190, f02=»127 L P XIF M P* M P* M " P* ENQ HAS BEEN RECEIVED M , P* M L P* M V PBRM400 EQU * M ` & P CF A5,HPTIM STOP PROCEDURE TIMER M t P LD A1,XACK M P OR A1,XSEL M " P RF(Z) BRM410 IN CONTROL STATE M . P CF A5,TRREP REPEAT LAST CONTR
0x000ca0…120cc0 [0x2d8]: Pad {f00=0x004a, f01=0x0190, f02=» P RF CWR150 ^ & PCWR100 LD A8,FECB GET ECB ADDRESS ^ P CF A15,CTIME STOP TIMING ^ @ P LDR A8,A8 ^ b P RF(Z) CWR150 ^ t P ST A2,ECBCW,A8 ^ $ P CF A15,TENDIO COMPLETE REQUEST ^ PCWR150 EQU * ^ * P CF A15,REMOVW REMOVE FROM WRITE QUEUE ^
0x000ca0…120cc0 [0x2d9]: Pad {f00=0x004a, f01=0x0190, f02=»5,CKGBQ CHECK GET BUFFER QUEUE ^ P XIF _ & PCWR900 EQU * _ 2 " P CM XACK RESET 'ACK EXPECTED' _ F P CM FDWTUT _ l P RTN A5 _ ~ P EJECT _ P* _ P* _ P* READ ONE TEXT BLOCK _ P* _ P* ON EXIT A3 CONTAINS : _ ( P* 0 : IF CORRECT E
0x000ca0…120cc0 [0x2da]: Pad {f00=0x004a, f01=0x0190, f02=»RDMESS EQU * _ $ P LD A4,DCRBUF GET BUFFER ADDRESS ` P ADK A4,6 RESERVE HEADER ` < P LDK A3,0 ` P LD A1,XSTA ` n $ P RF(NZ) RDM050 LAST INPUT WAS OK ` " P LD A1,FBLST COMPUTE NEW INDEX ` P SUR A1,A4 ` P ST A1,FBAX ` PRDM050 EQU * ` P
0x000ca0…120cc0 [0x2db]: Pad {f00=0x004a, f01=0x0190, f02=»C ` ~ P a P IFT IBMCHR=1 a P LD A1,FBAX a ( " P RF(NZ) RDM100 NOT FIRST BLOCK a < P CF A5,READP a b P RF(NZ) RDM120 PARITY ERROR a v P CWK A2,ESC a P RF(NE) RDM110 a * P CF A5,READP SKIP NEXT TWO CHARACTERS a P CF A5,READP a P XIF
0x000ca0…120cc0 [0x2dc]: Pad {f00=0x004a, f01=0x018e, f02=»X a P RF(E) RDM130 ETX RECEIVED b P CWK A2,ETB b , P RF(E) RDM160 ETB RECEIVED b @ P CWK A2,ITB b b P RF(E) RDM170 ITB RECEIVED b v P CWK A2,ENQ b & P RF(E) RDM140 ENQ IN TEXT RECEIVED b P CWK A2,/FF b $ P RF(E) RDM140 MARK HOLD RECEIVED
0x000ca0…120cc0 [0x2dd]: Pad {f00=0x004a, f01=0x0190, f02=» b t P ADK A1,3 c P RF(N) RDM115 NOT DC1-DC3 c P SLL A1,6 c < P LDR A8,A1 c N * P CF A5,READP 8-BIT CHAR GET NEXT PART c ` P RF(NZ) RDM120 PARITY ERROR c * P SUK A2,/20 ASSEMBLE TO ONE CHARACTER c P ORR A2,A8 c PRDM115 EQU * c P XIF
0x000ca0…120cc0 [0x2de]: Pad {f00=0x004a, f01=0x0190, f02=»BAX c P CWK A1,RBUFL+RBUFL d P RB(NG) RDM100 NOT OVERFLOW d ( P* d L P* BUFFER OVERFLOW d V P* d p P RF RDM140 ABORT INPUT d z PRDM120 EQU * d & P LDK A3,1 INDICATE INVALID MESSAGE d P SUK A2,/7F d $ P RF(Z) RDM150 MARK HOLD RECEIVED
0x000ca0…120cc0 [0x2df]: Pad {f00=0x004a, f01=0x0190, f02=»,FBAX GET BUFFER INDEX d 2 P ST A2,+2,A1 STORE EFFECTIVE LENGTH IN HEADER e P IFF CODE=1 e T P CF A5,RDLRC e h P RF(Z) RDM150 LRC WAS OK e | P XIF e P IFT CODE=1 e & P CF A5,RDCRC READ CRC AND CHECK IT e P RF(E) RDM150 CRC WAS OK e P XIF
0x000ca0…120cc0 [0x2e0]: Pad {f00=0x004a, f01=0x0190, f02=»TEP SEND IT u P IM FBAX INCREMENT INDEX v P XIF v 4 PTRT116 EQU * v @ P LDK A2,ETB LOAD ETB v T PTRT120 EQU * v p P CF A5,WRITEP SEND IT v P IFF CODE=1 v P LDR A2,A7 GET LRC v P CF A5,WRITEP SEND LRC v P XIF v P IFT CODE=1 v
0x000ca0…120cc0 [0x2e1]: Pad {f00=0x004a, f01=0x0190, f02=» ANK A2,/FF v " P CF A5,WRIT05 SEND CRC BYTE 2 w P XIF w : P ABL TRRE10 HALT OUTPUT w F PTRT130 EQU * w f P IM XETX INDICATE 'ETX SENT' w z PTRT140 EQU * w P LDK A2,ETX LOAD ETX w P RB TRT120 SEND ETX AND LRC w P EJECT w P* w P
0x000ca0…120cc0 [0x2e2]: Pad {f00=0x004a, f01=0x0190, f02=»' w r P ST A6,FDWTUT SAVE A6 x P CF A5,TRSYNC START OUTPUT x ( P LDK A2,SOH x J P CF A5,WRITE SEND SOH x ^ P LDK A7,0 REST LRC x | P LDK A2,'%' x P CF A5,WRITEP SEND '%' x P LDK A2,'R' x P CF A5,WRITEP SEND 'R' x P LDK A2,STX x
0x000ca0…120cc0 [0x2e3]: Pad {f00=0x004a, f01=0x0190, f02=» P LD A1,DWTST,A6 GET STATUS y P ANK A1,/06 MASK FOR S/S 0 y & P SRL A1,1 y H $ P LC A2,SSTAB,A1 GET STATUS BYTE y Z P CF A5,WRITEP SEND S/S 0 y P LDK A2,NOIR PRELOAD S/S 1 y P LD A1,DWTST,A6 GET STATUS y P ANK A1,5 y P RF(Z) TRST10 NOT
0x000ca0…120cc0 [0x2e4]: Pad {f00=0x004a, f01=0x0190, f02=» RB TRT130 SEND ETX AND LRC y P XIF z $ P EJECT z 0 P* z > P* z H P* TRANSMIT SYNC SEQUENCE z R P* z r P* z | PTRSYNC EQU * z P LDK A2,0 SALCUZ z * P CIO A2,0,LCUIN HALT INPUT IF NOT DONE z P SST A2,LCUIN PERFORM SST z P IFT P
0x000ca0…120cc0 [0x2e5]: Pad {f00=0x004a, f01=0x0190, f02=» z | P LDK A2,0 SALCUZ { , P CIO A2,1,LCUUT START TRANSMITTER SALCUZ { " P RF(A) TRS010 SALCUZ { R P SST A1,LCUUT SALCUZ { p P RF(A) TRS005 SALCUZ { P ABL BRM SALCUZ { " PTRS005 CIO A2,1,LCUUT SALCUZ { PTRS010 EQU * SALCUZ { P LDK
0x000ca0…120cc0 [0x2e6]: Pad {f00=0x004a, f01=0x018e, f02=» CODE=0 SALCUZ { P LDK A2,/0C SALCUZ | P CIO A2,1,LCUUT SALCUZ | 4 P RF(A) TRS010 SALCUZ | T P SST A1,LCUUT SALCUZ | r P RF(A) TRS005 SALCUZ | P ABL BRM SALCUZ | " PTRS005 CIO A2,1,LCUUT SALCUZ | PTRS010 EQU * | P LDK A2,SY
0x000ca0…120cc0 [0x2e7]: Pad {f00=0x004a, f01=0x0190, f02=» | h P LDK A3,4 4 SYNS } PTRS100 LDK A2,SYN } P CF A5,WRITE SEND SYN } : P SUK A3,1 } X P RB(NZ) TRS100 } j P RTN A5 } P EJECT } P* } P* } P* RECEIVER INTERRUPT } P* } P* } PIH1501 EQU * } P ST P,INTSAV }
0x000ca0…120cc0 [0x2e8]: Pad {f00=0x0027, f01=0x0190, f02=» P LD A2,TASVRN P ST A2,FDBVTO,A12 P EJECT 4 P* B P* CHECK NEXT VTOC RECORD L P* n PDMT250 EQU * x P* A3 = ADR 1ST REC P* A9 = VTOC REC LGTH P ADR A3,A9 P ADK A3,1 SKIP STATUS BYTE P LDR A2,A3
0x000ca0…120cc0 [0x2e9]: Pad {f00=0x0027, f01=0x0190, f02=»* < P* ALL VTOCS IN ALL VOLUMES ARE SEARCHED AT THIS POINT P* J PDMT300 EQU * T P LDK A3,16 h P SU A3,TASCXO z P RF(NZ) DMT310 P LDK A7,6 P RF DMTASX FILE NAME UNKNOWN PDMT310 EQU * P LD A12,TASFDB P RF(
0x000ca0…120cc0 [0x2ea]: Pad {f00=0x0027, f01=0x0190, f02=»FDB IN ASCENDING ORDER p 8 P* ACCORDING TO INCREASING SECTOR NO AND EXTENT NO P* Z PDMT320 EQU * d P* x @ P* CHECK IF RECORD BUFFERS ARE LARGE ENOUGH FOR INDEX FILE P* P LD A6,TASFIL P RF(Z) DMT330 DATA FILE ASS $ P
0x000ca0…120cc0 [0x2eb]: Pad {f00=0x0027, f01=0x0190, f02=»NG) DMT330 OK P LDK A7,12 ! * P RF DMTASX RECORD BUFFER IS TOO SMALL ! ( PDMT330 EQU * ! V P LDR A6,A12 ! j P* FDB ADDR ! ~ P ADKL A6,FDBEXT ! P LDK A2,0 ! P LDR A5,A3 ! P SRL A5,2 NUMBER OF EXTENTS ! PDMT340 EQU * ! P LDK
0x000ca0…120cc0 [0x2ec]: Pad {f00=0x0027, f01=0x0190, f02=»DMT350 MORE EXTENTS TO CHECK ! P* " $ , P* THE EXTENT SEARCHED FOR IS NOT FOUND " . 2 P* CHECK IF RIGHT HALF OF A2 = 0 (EXT-NO = 0) " ^ P* " P LDR A1,A2 " P ANK A1,/FF " $ P RF(NZ) DMT370 TRY NEXT SECTION " P* " PDMT355 EQU * " P
0x000ca0…120cc0 [0x2ed]: Pad {f00=0x0027, f01=0x018e, f02=»* " P LD A1,TASSEX+2,A4 # P LD A1,TASVOL,A1 # $ P ST A1,EXTDMI,A6 # < P LD A1,TASXLB,A4 # T P ST A1,EXTLEN,A6 # l P LD A1,TASXLB+2,A4 # P ST A1,EXTBAS,A6 # P ADK A6,6 # P SUK A5,1 # & P RF(NP) DMT500 ALL EXTENTS HANDLED # P* #
0x000ca0…120cc0 [0x2ee]: Pad {f00=0x0027, f01=0x0190, f02=» # P SUK A1,3 $ " P RF(NE) DMT380 NOT EXT-NO = 3 $ PDMT370 EQU * $ @ P ECR A1,A2 $ T P ANK A1,/FF $ f P SUK A1,3 $ z P RB(E) DMT355 SECTION-NO = 3 $ " P ADK A1,4 INCREMENT SECTION-NO $ P ECR A2,A1 EXT-NO = 0 $ P RB DMT340 $ $ PDMT3
0x000ca0…120cc0 [0x2ef]: Pad {f00=0x0027, f01=0x0190, f02=»T400 EQU * $ P LDK A7,0 % PDMTASX EQU * % $ , P LD A2,TASTBE TTAB/CDTAB FILE CODE ADDR % 8 P LDR A7,A7 % h P RF(Z) DMT420 CORRECT RETURN % z P CM -1,A2 ZERO FILE CODE % P* % $ P* REMOVE FDB WITH MASTER INDEX % P* % $ P LD A4,TASMXA MA
0x000ca0…120cc0 [0x2f0]: Pad {f00=0x0027, f01=0x0190, f02=»6,A1 MAKE NEXT ENTRY LARGER - $ P LD A7,MXIND,A1 PREVIOUS POINTER . $ P SLL A2,1 NO OF BYTES . L P ADR A7,A2 . j P ST A7,MXIND+4,A1 . | P EJECT . PDMT590 EQU * . P ENB . P* . 2 P* NOW READ MASTER INDEX WITH SEQUENTIAL READ . P* A8
0x000ca0…120cc0 [0x2f1]: Pad {f00=0x0027, f01=0x0190, f02=» . X P* / PDMT550 EQU * / & P LDK A7,/42 SEQ READ,NOWAIT,NO EA / & P LKM / P P DATA -1 / P DATA DMTAR5 / l P LKM / P DATA 3 EXIT / PDMTAR5 EQU * / " P LDKL A14,DMTA14 RESTORE STACK / P LDKL A8,TASECB ECB ADDR / P LD A2,ECBRC,A8
0x000ca0…120cc0 [0x2f2]: Pad {f00=0x0027, f01=0x0190, f02=» P LD A4,TASFDB FDB ADDR 0 P LD A5,FDBCRL,A4 CRN BUF ADR 0 " P RF(Z) DMT553 NO CRN 0 F P CM FDBCRL,A4 0 b P INH 0 x P LD A6,CRNQUE 0 P STR A6,A5 0 P ST A5,CRNQUE 0 P ENB 0 PDMT553 EQU * 0 P ANKL A2,/1000 BIT 3 = EOF 0 0 P RF(NZ
0x000ca0…120cc0 [0x2f3]: Pad {f00=0x0027, f01=0x018e, f02=»60 EQU * 0 P* 1 P* RECORD READ,READ NEXRT 1 P* 1 < P LD A2,ECBRL,A8 1 F P ADS A2,ECBBA,A8 REC LENGTH 1 ^ P RB DMT550 READ NEXT RECORD 1 PDMT570 EQU * 1 P ENB 1 P LDK A7,3 NOT SUFF SPACE 1 P RB DMT555 1 P EJECT 1 PDMT5
0x000ca0…120cc0 [0x2f4]: Pad {f00=0x0027, f01=0x0190, f02=» 1 v " P LD A3,TASSPW TTAB ADR DMTASK 2 P CM TTB:TD+2,A3 DELETE ENTRY 2 . P CM TTB:TD+4,A3 2 R P LD A3,TASFDB FDB ADDR 2 j P LDKL A2,/FFFE 2 " P ANRS A2,A3 CLEAR FDB USE BIT 2 ( P CM TASFDB EXT 0 NOT FOUND FOR INDEX 2 P LDK A1,16 2 & P ST A1,T
0x000ca0…120cc0 [0x2f5]: Pad {f00=0x0027, f01=0x0190, f02=» P EJECT 3 PDMT600 EQU * 3 P* 3 & P* INDEX FILE ASSIGN 3 0 P* 3 N P LDK A7,10 RET CODE 3 X & P LD A10,TASFDD FDB ADDR DATA FILEP 3 t P RF(Z) DMT650 NO DATA FILE 3 P* 3 * P* STORE INDEX ADDR IN FDB DATA FILE 3 P* 3 P INH I
0x000ca0…120cc0 [0x2f6]: Pad {f00=0x0027, f01=0x018e, f02=»20 EQU * 3 P SUK A3,2 4 $ P RF(N) DMT640 MORE THAN 4 INDEX 4 " P LDR A6,A10 4 J P ADR A6,A3 4 ^ P LD A2,FDBAI1,A6 4 p P RB(NZ) DMT620 USED 4 * P ST A12,FDBAI1,A6 STORE FDB ADDR INDEX 4 P* 4 < P* MOVE FDB ADDRESSES FROM DATA FILE TO ALL I
0x000ca0…120cc0 [0x2f7]: Pad {f00=0x0027, f01=0x018e, f02=» P LDR A1,A10 FDB DATA 5 P ADR A1,A5 5 $ P LD A3,FDBAI1,A1 FDB ADDR INDEX 5 2 P RB(Z) DMT625 NO INDEX FILE 5 Z P LDKL A1,FDBADF 5 ~ P ADR A3,A1 TO ADDR 5 P ADR A1,A10 FROM ADDR 5 P LDK A2,10 NO OF BYTES 5 P CF A14,DMTWM MOVE 5 WORDS 5
0x000ca0…120cc0 [0x2f8]: Pad {f00=0x002a, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x2f9]: Pad {f00=0x002a, f01=0x0002, f02=» P
0x000ca0…120cc0 [0x2fa]: Pad {f00=0x002a, f01=0x0190, f02=» 0 P IDENT DFTAB REL 8.2 78-09-15 870105040820 P UPDATE #0 76.10.07 8 P* V 8 P**************************************************** ` P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P*
0x000ca0…120cc0 [0x2fb]: Pad {f00=0x002a, f01=0x40fe, f02=»************************ t P* P* DISC FILE CODE TABLE * P* J P ENTRY DFTAB T P ENTRY DFTABE h P* ~ P* PDFTAB EQU * P DATA /F0F1,/F2F3 P DATA /F8F9,/FAFB PDFTABE EQU * P END @ P*
0x000ca0…120cc0 [0x2fc]: Pad {f00=0x002a, f01=0x2008, f02=» NT DFTAB P* P* DISC FILE CODE TABLE " P* B P ENTRY DFTAB L P ENTRY DFTABE ` P* v P* PDFTAB EQU * P DATA /F0F1 PDFTABE EQU * P END @ END P ENTRY QFDBFL P* P* ,
0x000ca0…120cc0 [0x2fd]: Pad {f00=0x002a, f01=0x4046, f02=»ATA MSAD P DATA ODAD P DATA TPAD3 " P END 6@ BATA 0 > PINTLT4 DATA 0 T PINTRT1 DATA 0 j PINTRT2 DATA 0 PINTRT3 DATA 0 PINTRT4 DATA 0 P DATA MONCON P DATA KBAD3 P DATA KBAD P DATA TPAD
0x000ca0…120cc0 [0x2fe]: Pad {f00=0x002a, f01=0x2008, f02=» DATA DYAD P* P* $ P END .@ : DYAD 8 P* L P* V P* ` PMONTAB EQU * j PTCTAB DATA 0 ~ PCDTAB DATA 0 PBLOCKS DATA 0 PDCTAB DATA 0 PINTLT1 DATA 0 PINTLT2 DATA 0 PINTRT1 DATA 0
0x000ca0…120cc0 [0x2ff]: Pad {f00=0x002a, f01=0x0190, f02=»DR* A3,A2 CRN $ P ADK A3,1 CRN+1 % $ P ST A3,10,A8 STORE CRN+1 IN ECB % . P CWR A3,A7 % V P RF(NL) SQR:10 END OF DATA % h P CF A5,BIO:RE % P LDKL A4,BUF BUFFER ADDRESS % 2 P CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 % P LDK A7,128 %
0x000ca0…120cc0 [0x300]: Pad {f00=0x0055, f01=0x0190, f02=» @ n , ( Z" @ ) _ (@ C 4 ( B * & ! @ ( F U G > , ( @ F G l ECBCW , ( F H" F H +P DWTST EATEST , ( P
0x000ca0…120cc0 [0x301]: Pad {f00=0x0055, f01=0x0190, f02=» I $ P $ - F + X V FDBMRO , , ( g $ P "P $P W X X NT > , ( ;AR ( ( n , ( D T Y F H" F H , ( 4 D '? P P $ P CRNGETZ
0x000ca0…120cc0 [0x302]: Pad {f00=0x0055, f01=0x018e, f02=» EASETB0 , ( B 8W D J$ T L T V , ( #$@W E . E . X V ? T B F TENDIO v & " = * X(@( H D ! . . . . . . . . . H D ! ! . #
0x000ca0…120cc0 [0x303]: Pad {f00=0x0055, f01=0x4132, f02=» J H D ! TV P W P 5T KT S . gU, Wf U WF W P J P H D !J 7P I D mW uP& . U , P P* T U W R PB !P< #W T H D ! + . AP GW MP eV" kP qP: uP6 wW T* R T P P( P" , ( P P P W T T #
0x000ca0…120cc0 [0x304]: Pad {f00=0x0055, f01=0x2008, f02=» DMTEX2 @ EXITI L ND900 QUL
0x000ca0…120cc0 [0x305]: Pad {f00=0x0055, f01=0x2008, f02=» S-BLOCK | P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 4 P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK z P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STA
0x000ca0…120cc0 [0x306]: Pad {f00=0x0055, f01=0x0190, f02=»N+1,A6 s P LDKL A1,/1000 EOF t P ORS A1,ECBRC,A9 EOF TO USER t * PINS430 EQU * t N P* t b 0 P* UPDATE CRN-LINK FOR MOVED INDEX RECORDS t l P* t P LDKL A12,1 ADD ON E TO CRN t P LDR A8,A2 t P LDR A9,A3 LAST REC NR MOVED t P LD A1
0x000ca0…120cc0 [0x307]: Pad {f00=0x0055, f01=0x0190, f02=»SAME FILE CODE t ~ P* u P LD A1,FDBADF,A5 FDB DATA F u " P CF A14,CRNGET GET CRN BUFFER u D " P LC A4,ECBFC,A9 USER FILE CODE u j P CC A4,FDBECB+1,A5 u P RF(NE) INS440 OTHRER FILE u P ST A10,CRNCIF,A2 u P ST A11,CRNCIF+2,A2 REC NR u P S
0x000ca0…120cc0 [0x308]: Pad {f00=0x0056, f01=0x018e, f02=» $ P RF(Z) DEL245 BUFFER NOT CHANGED ~ P* ~ , P* WRITE SECTOR ~ 6 P* ~ N P LDK A7,/95 WRITE WAIT ~ X P LKM ~ v P DATA 1 ~ P LDR A1,A5 FDB ~ P CF A14,DMTIOZ IO CHECK ~ P LDR A1,A1 ~ P ABL(NZ) DMTERR ~ ( P SUR A12,A12 BUFFER NOT
0x000ca0…120cc0 [0x309]: Pad {f00=0x0056, f01=0x0002, f02=»
0x000ca0…120cc0 [0x30a]: Pad {f00=0x0056, f01=0x0190, f02=» 2 P IDENT DWKB02 REL 8.2 78-09-15 870105040820 P* : " P* KEYBOARD DEVICE WORK TABLE D P* j P ENTRY DWKB02 TABLE ENTRY t P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN DWDY82 P* P* PDWKB02 EQU * TABLE
0x000ca0…120cc0 [0x30b]: Pad {f00=0x0056, f01=0x0190, f02=»PUT, ORDER AND ECB-ADDRESS r ( P DATA KBAD POINTER TO ADDRESS BLOCK " P DATA 'KB' TTAB-ADDRESS N $ P DATA 0 WAIT/INDICATE INDICATOR n P DATA 0 TERMINAL QUEUE * P DATA 0 CODE CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3 P DATA 0
0x000ca0…120cc0 [0x30c]: Pad {f00=0x0056, f01=0x4152, f02=»ICE x $ P DATA /8791 BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 4 6 P DATA DWTSQ+DWKB02 POINTER TO FIRST PLACE IN QUEUE 6 P DATA DWTSQ+DWKB02 POINTER TO LAST PLACE IN QUEUE PDWTSQ EQU *-DWKB02 P DATA 0,0,0,0,0,0,0,0 P D
0x000ca0…120cc0 [0x30d]: Pad {f00=0x0056, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES
0x000ca0…120cc0 [0x30e]: Pad {f00=0x0056, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x30f]: Pad {f00=0x0056, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x310]: Pad {f00=0x0056, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x311]: Pad {f00=0x0056, f01=0x0002, f02=»
0x000ca0…120cc0 [0x312]: Pad {f00=0x0056, f01=0x4172, f02=» J F IDENT DMFDB REL 8.2 78-09-15 870105040820 < 8 FDBSTAK FDBEND QFDBFL CRNQUE CRBUFL CRNEND MXIND R CRBUFL QFDBFL ` FDBSTAK FDBEND CRNQUE
0x000ca0…120cc0 [0x313]: Pad {f00=0x0056, f01=0x2008, f02=»
0x000ca0…120cc0 [0x314]: Pad {f00=0x0056, f01=0x0190, f02=» FDBDBR2 " DWTOR 4 , ( @ X P D V D D , ( "? P P &P E t FDBECB GTBKBU , ( 9$ V P ( ( DMTIOT * &
0x000ca0…120cc0 [0x315]: Pad {f00=0x0056, f01=0x0190, f02=» h FDBSNRL VLVRL FDBVTO * , ( @ X T T " A ( < DIVMOD l VLVBA ~ * & D J $ & P W T , ( B ( Y P T " _ Y DMTRBU CLRBUF
0x000ca0…120cc0 [0x316]: Pad {f00=0x0056, f01=0x0190, f02=» DWTTDM ECBFC , ( % 0 ( T X 2 F " , ( ? 4 T P R TCTAB , ( ] ` 6 U @ 6 , D Z D , ( y ] 0 X W , ( B ` U @
0x000ca0…120cc0 [0x317]: Pad {f00=0x0056, f01=0x0190, f02=»T , ( @ P 0 @ < 1 A <(@_ EXTELE : , ( > @ (@ / O L DWTTQ | QTJOB , ( @ B $P % 4 D F , ( 4 (@ B * P , ( 9
0x000ca0…120cc0 [0x318]: Pad {f00=0x0056, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x319]: Pad {f00=0x0056, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x31a]: Pad {f00=0x0056, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x31b]: Pad {f00=0x0056, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x31c]: Pad {f00=0x0056, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x31d]: Pad {f00=0x0056, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x31e]: Pad {f00=0x0056, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x31f]: Pad {f00=0x0056, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x320]: Pad {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x321]: Pad {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x322]: Pad {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x323]: Pad {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x324]: Pad {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x325]: Pad {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x326]: Pad {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x327]: Pad {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x328]: Pad {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x329]: Pad {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x32a]: Pad {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x32b]: Pad {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x32c]: Pad {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x32d]: Pad {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x32e]: Pad {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x32f]: Pad {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x330]: Pad {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x331]: Pad {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x332]: Pad {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x333]: Pad {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x334]: Pad {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x335]: Pad {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x336]: Pad {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x337]: Pad {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x338]: Pad {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x339]: Pad {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x33a]: Pad {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x33b]: Pad {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x33c]: Pad {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x33d]: Pad {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x33e]: Pad {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x33f]: Pad {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x340]: Pad {f00=0x0059, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x341]: Pad {f00=0x0059, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x342]: Pad {f00=0x0059, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x343]: Pad {f00=0x0059, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x344]: Pad {f00=0x0059, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x345]: Pad {f00=0x0059, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x346]: Pad {f00=0x0059, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x347]: Pad {f00=0x0059, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x348]: Pad {f00=0x0059, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x349]: Pad {f00=0x0059, f01=0x0012, f02=» 8 H P X ` h p x
0x000ca0…120cc0 [0x34a]: Pad {f00=0x0059, f01=0x0190, f02=» Ff* p X D D D D D+v- D D<R< # D# D D D D D D D# D D D D D D D D D D D D D D D1< D D D D D D D D D D D D D D D D D D D D D D n W W W J A B. F A . P&
0x000ca0…120cc0 [0x34b]: Pad {f00=0x0059, f01=0x0190, f02=»P T A. P Y(_8 _J Pd pU p xU x_ A 9a @ :a S @ :a U _n P _ 7 G. @ ' ?D A ' P G O . @ $ T $ T Z A 5 T ? N ? P ? r ? p_ ( @ 9H @
0x000ca0…120cc0 [0x34c]: Pad {f00=0x0059, f01=0x0190, f02=» ? A > > > > > >W ? @ _ > > @ ? ? ? ? T ? _& @ P ^ 9j U Y >_` A @ ( ? ? ? ? ? ? ? > > H ( P c P J @ ? ? @ P A @ (V ( U P @ V L P U
0x000ca0…120cc0 [0x34d]: Pad {f00=0x0059, f01=0x0190, f02=» A @ A lQ A n ? ? ? ? ? ^ A _ _ ^ ? ? ? T $P E ^ 5 ) b W W T T. P L U U U U T U U 4 T - 1_& U T P 0 U
0x000ca0…120cc0 [0x34e]: Pad {f00=0x0059, f01=0x0190, f02=» 6T> nW8 > _& @ 8 R" Y T ? X D 6T nW > _& W > 8 X W ? ` @ @ P $X H W W W X P T R X P X T 4 Y X 6 X T X Y Y X P$ - M Y X P P W > > > > > > >
0x000ca0…120cc0 [0x34f]: Pad {f00=0x0059, f01=0x0190, f02=» BA. 0 = ) -B( 0 r "V W W W W S T T UL & X2X U 4 R 4 " # $ % "$&( 8 @ D X P _ L R P
0x000ca0…120cc0 [0x350]: Pad {f00=0x005a, f01=0x0190, f02=» 6 2% P ` P %_ S 6 S E 3 P S E P S F P S $ P S & P % S D P & S L @ S ( B | 2 @ T W T W| @ P R $ >a U Wd , =b P P @ ! T. W> P D Y P
0x000ca0…120cc0 [0x351]: Pad {f00=0x005a, f01=0x0190, f02=» P B f n (@( @ < _r P ` ` 9A S Z D $X D S * S ! R & S W S [ S R $ R & D S ^ T T A 0" U _ L !SSP !LL W L @ A
0x000ca0…120cc0 [0x352]: Pad {f00=0x005a, f01=0x0190, f02=» 6 2% P P %_ S 6 S E 3 P S E P S F P S $ P S & P % S D P & S L @ S ( B | 2 @ T W T W @ P R $ >a U =b P P @ ! T W P D Y P
0x000ca0…120cc0 [0x353]: Pad {f00=0x005a, f01=0x0190, f02=» P B (@( @ < _r P ` ` 9A S Z D $X D S * S R & S W S [ S R $ R & S ^ T A 0" U _ L !SSP !LL W L @ ,
0x000ca0…120cc0 [0x354]: Pad {f00=0x005a, f01=0x0190, f02=» @ , L T M @ : P %_ S 6 S E 3 P S E P S F P S $ P S & P % S D P & S L @ S ( B | 2 @ T W T W @ P R $ >a U =b P P @ ! T W P D Y P
0x000ca0…120cc0 [0x355]: Pad {f00=0x005a, f01=0x0190, f02=» P B (@( @ < _r P ` ` 9A S Z D $X D S * S R & S W S [ S R $ R & S ^ T A 0" U _ L !SSP !LL W L @ ,
0x000ca0…120cc0 [0x356]: Pad {f00=0x005a, f01=0x0190, f02=» @ , L T M @ : P %_ S 6 S E 3 P S E P S F P S $ P S & P % S D Q S W S Q R S P W S _ R _ ;A [ [ : T PT PJV
0x000ca0…120cc0 [0x357]: Pad {f00=0x005a, f01=0x0190, f02=» V Q UF V Ud Q4P P 9A?A:AV R Z _ P*R R P ;A [ [ : V X"Z(_( L _P ? ? !? P P !> P W 9P _ T T< R4 L PX P L P 4 M X M M _8
0x000ca0…120cc0 [0x358]: Pad {f00=0x005a, f01=0x0190, f02=» Y E B Y F_ W v C P C W < C C _H v H H S W C C B B B U R WJ X [ X T E T F P C X E X F S W C C W, B B Y ER Q X FU C '? T W6 T.(@(@
0x000ca0…120cc0 [0x359]: Pad {f00=0x005a, f01=0x0002, f02=» H
0x000ca0…120cc0 [0x35a]: Pad {f00=0x005a, f01=0x018e, f02=» 2 P IDENT INIMOD REL 8.2 78-09-15 870105040820 P : P* B " P****************************** L P* r $ P* PHILIPS TERMINAL SYSTEM PTS | P* D P* INIMOD= DUMMY MODULE HOLDING ADDRESSES BUG INIMON AND DCEXT " P* AND DATA MANAGEM
0x000ca0…120cc0 [0x35b]: Pad {f00=0x005a, f01=0x4158, f02=» ~ P* P* P ENTRY INIMON P ENTRY BUG 2 P ENTRY DCEXT D P ENTRY DM:TSK X P EXTRN TTABD0 n P EXTRN TTABD1 P* PINIMON EQU 0 INIMON PBUG EQU 0 DEBUGGER PDCEXT EQU 1 PDM:TSK DATA DMTSKE-* P
0x000ca0…120cc0 [0x35c]: Pad {f00=0x005a, f01=0x2008, f02=» NT INIMOD P* P* DUMMY MODULE $ P* < P* F P ENTRY INIMON P P ENTRY BUG f P* x P* PINIMON EQU 0 INIMON PBUG EQU 0 DEBUGGER P END @
0x000ca0…120cc0 [0x35d]: Pad {f00=0x005a, f01=0x0190, f02=» A U W A A @ U ::A A , ` R @ U P0 ,% T( C ( B P T W ' Th I @ 8 =hP Y X PX ,T( Y H ! R W 9a I ^ W P ,! T T ( : @ P
0x000ca0…120cc0 [0x35e]: Pad {f00=0x005a, f01=0x0190, f02=» * +W @ 0 R % "V E T D A _" P @ P * +W @ 0 Rb ' F "R G @ D D0 0 T G W, A "R A A B B P ! Tl M : j A A " P
0x000ca0…120cc0 [0x35f]: Pad {f00=0x005a, f01=0x0190, f02=» L A L C @ A Q< @ 8 A @ B f D E X D0( ( B f B @ D W C C ( ( j l @ T A 0" " " U _ L !SSP !LL " W L @ A
0x000ca0…120cc0 [0x360]: Pad {f00=0x0005, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f x T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x361]: Pad {f00=0x0005, f01=0x0008, f02=»
0x000ca0…120cc0 [0x362]: Pad {f00=0x0005, f01=0x0190, f02=» 0 P IDENT TDISP REL 8.2 78-09-15 870105040820 P 8 P* @ 6 P************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* TDISP = TERMINAL DISPATCHER P* P* P* P*
0x000ca0…120cc0 [0x363]: Pad {f00=0x0005, f01=0x0190, f02=»INAL DISPATCHER IN TOSS. | > P* ENTRY POINT IS 'TDISP' WITH 8 REGISTERS ON A15 STACK. > P* THE DISPATCHER CHECKS IF THERE IS A JOB IN DISPATCHER- b < P* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. < P* - IF SO THE QUEUED PROGRAM IS STAR
0x000ca0…120cc0 [0x364]: Pad {f00=0x0005, f01=0x0190, f02=»TED PROGRAM VIA RETUR8. h P* @ P* AN ENTRYPOINT 'LKMDIS' IS ALSO INCLUDED IN THIS MODULE. * D P* THIS PART IS DISPATCHED AFTER EACH LKM-REQUEST.(NO REGISTERS n H P* ON STACK) A CHECK IS MADE IF THERE IS A JOB IN DISPATCHER QUEUE 6 P* WITH
0x000ca0…120cc0 [0x365]: Pad {f00=0x0005, f01=0x0190, f02=»OGRAM VIA RETU14. b P* P* $ > P* AN OPTIONALY ENTRYPOINT 'DISIOE' IS ALSO PROVIDED FOR . > P* ERRORS IN I/O DRIVERS. BIT 0 IS SET IN A1 AND THE SUB- p < P* ROUTINE 'TENDIO' IS CALLED BEFORE THE 'TDISP'-ENTRY P* IS ENTERED. @ P
0x000ca0…120cc0 [0x366]: Pad {f00=0x0005, f01=0x0190, f02=»********* P* " P ENTRY TDISP DISPATCHER ENTRY & P ENTRY LKMDIS DISPATCHED AFTER LKM B " P ENTRY DISIOE I/O ERROR ENTRY l & P ENTRY DISEND END I/O AND DISPATCH < P ENTRY DISQUE POINTER TO FIRST PLACE IN DISPATCHER-QUEUE 6 P ENTRY GBQUE P
0x000ca0…120cc0 [0x367]: Pad {f00=0x0005, f01=0x0190, f02=»RY RETU14 RESTORE REGISTER A14-A1 VIA A15 STACK P ENTRY RETU13 8 P ENTRY RETU12 N P ENTRY RETU11 d P ENTRY RETU10 z P ENTRY RETUR9 P ENTRY RETUR8 P ENTRY RETUR7 P ENTRY RETUR6 P ENTRY RETUR5 P ENTRY RETUR
0x000ca0…120cc0 [0x368]: Pad {f00=0x0005, f01=0x0190, f02=» P EJECT $ P ENTRY DWTCHP CHANNEL PARAMETER P ENTRY DWTST STATUS > P ENTRY DWTECB ECB ADDRESS Z P ENTRY DWTOR ORDER | * P ENTRY DWTADR POINTER TO ADDRESS-BLOCK P ENTRY DWTTAB TTAB-ADDRESS * P ENTRY DWTWAT WAIT ACTIVATE INDICATO
0x000ca0…120cc0 [0x369]: Pad {f00=0x0005, f01=0x0190, f02=»L VOLUME NAME P ENTRY ECBBA,ECBRL,ECBEL P ENTRY ECBRC,ECBCW 6 & P ENTRY SACT ACTIVE SEGMENT POINTER P 8 P ENTRY LRUNEW DUMMY FOR MEMORY MANAGEMENT (OVERLAY) z P EJECT P* P************* P* EXTERNALS * P*************
0x000ca0…120cc0 [0x36a]: Pad {f00=0x0005, f01=0x0190, f02=»D I/O P EXTRN EXIT PROGRAM EXIT & P EXTRN BLOK:S START OF BLOCK POOL . $ P EXTRN BLOCKE BLOCK POOL LENGTH X P EJECT P P* . P****************************************** P* & P* DWT-DISPLACEMENT DECLARATIONS P*
0x000ca0…120cc0 [0x36b]: Pad {f00=0x0005, f01=0x0190, f02=» PDWTECB EQU 4 ECB-ADDRESS PDWTOR EQU 6 ORDER $ & PDWTADR EQU 8 ADDRESS BLOCK POINTER > PDWTTAB EQU 10 TTAB-ADDRESS h * PDWTWAT EQU 12 WAIT/ACTIVATE INDICATOR PDWTTQ EQU 14 TERMINAL QUEUE PDWTWA EQU 16 WORK AREA * PDWTTDM EQU 16 DM
0x000ca0…120cc0 [0x36c]: Pad {f00=0x0005, f01=0x0190, f02=»PLACEMENTS P* " P****************************** P* B PECBBA EQU /02 L PECBRL EQU /04 b PECBEL EQU /06 x PECBRC EQU /08 PECBCW EQU /0A P EJECT P* P* D I S Q U E P* 2 P* POINTER TO FIRST P
0x000ca0…120cc0 [0x36d]: Pad {f00=0x0005, f01=0x0190, f02=» OF RUNING PROGRAM P* PPRUN EQU * $ P DATA 0 6 P* F P* S R U N P P* d P* RUNNING SEGMENT POINTER n P* PSRUN EQU * P DATA 0 $ P******************************* P* P* S A C T P*
0x000ca0…120cc0 [0x36e]: Pad {f00=0x0005, f01=0x0190, f02=»EW EQU * P* P* G B Q U E P* 0 4 P* POINTER TO FIRST TASK TABLE IN BUFFER QUEUE : P* r PGBQUE EQU * | P DATA 0 PFREQUE DATA BLOK:S PBLOCKL DATA BLOCKE P* P EJECT P* P* D I S I O E
0x000ca0…120cc0 [0x36f]: Pad {f00=0x0005, f01=0x0190, f02=»DE t P* PDISEND EQU * P CF A15,TENDIO ( P EJECT > P* L P* V P* T D I S P ` P* v $ P* THIS IS THE DISPATCHER ENTRY P* PTDISP EQU * P INH P LD A5,DISQUE " P RF(Z) RETUR8 NO QUEUE,RETURN
0x000ca0…120cc0 [0x370]: Pad {f00=0x0005, f01=0x0190, f02=»NG) RETUR8 RETURN TO INTERRUPTED PROGRAM $ P STR A9,A15 SAVE A9-A14 ON STACK 0 P STR A10,A15 X P STR A11,A15 l P STR A12,A15 P STR A13,A15 P STR A14,A15 P LD A1,PRUN " P STR A1,A15 SAVE PRUN ON STACK " P AND DISPATCH QUEU
0x000ca0…120cc0 [0x371]: Pad {f00=0x0005, f01=0x018e, f02=»ESS OF PROGRAM TO BE DISPATCHED ~ P* ( PDIS100 EQU * 2 0 P LDR* A1,A5 REMOVE JOB FROM DISPATCHER QUEUE F P ST A1,DISQUE z * P LD A1,TTB:SA,A5 LOAD DISPATCH ADDRESS " P LD A2,TTB:ST+1,A5 LOAD LEVEL P SLL A2,10 P CWK A2,/C000 MONITO
0x000ca0…120cc0 [0x372]: Pad {f00=0x0005, f01=0x0190, f02=» . P ADK A3,14 SET ADDRESS TO A1 IN SAVE AREA P LDK A1,14 SET COUNTER : , PDIS110 LDR* A2,A3 SET UP A1-A14 ON STACK X P STR A2,A15 P ADK A3,2 P SUK A1,1 P RB(NZ) DIS110 : PDIS120 ST A5,PRUN SET TABB-ADDRES FOR DISPATCHED PRO
0x000ca0…120cc0 [0x373]: Pad {f00=0x0005, f01=0x0190, f02=»RYPOINTS RETU14-RETUR1 :RELOAD REGISTERS FROM STACK P* AND RETURN VIA A15 < P* Z PRETU14 LDR* A14,A15 d PRETU13 LDR* A13,A15 PRETU12 LDR* A12,A15 PRETU11 LDR* A11,A15 PRETU10 LDR* A10,A15 PRETUR9 LDR* A9,A15 P
0x000ca0…120cc0 [0x374]: Pad {f00=0x0005, f01=0x0190, f02=»R3 LDR* A3,A15 PRETUR2 LDR* A2,A15 P RF RETUR1 0 PRTNA15 STR A1,A15 B PRETUR1 LDK A1,/40 BIT 9 . P ORS A1,4,A15 SET PSW IN A15 STACK TO ENB | P LDR* A1,A15 P RTN A15 P EJECT P* P* P* MONITOR JOB DISPAT
0x000ca0…120cc0 [0x375]: Pad {f00=0x0005, f01=0x0190, f02=»CK z ( P STR A2,A15 STORE LEVEL 48 ON STACK & P SUKL A15,16 ADJUST STACK POINTER 6 : P STR A1,A15 SET MONITOR JOB DISPATCH ADDRESS ON STACK ` P STR A2,A15 SET LEVEL , P LD A1,TTB:SA+2,A5 LOAD PARAMETER IN A1 P STR A1,A15 AND SET ON STACK
0x000ca0…120cc0 [0x376]: Pad {f00=0x0005, f01=0x0190, f02=»S P* 6 P* THIS PART IS DISPATCHED AFTER EACH LKM-REQUEST P* NO REGISTERS ON STACK N P* p P* z PLKMDIS EQU * P INH P LD A5,DISQUE " P RF(Z) DIS010 NO QUEUE,RETURN & P LD A1,32,A15 LOAD PSW FROM STACK P
0x000ca0…120cc0 [0x377]: Pad {f00=0x0005, f01=0x4066, f02=»DR* A5,A15 , P RB DIS120 RETURN TO INTERRUPTED PROGRAM P* B P* L P END V@ bK N P* p P* z PLKMDIS EQU * P INH P LD A5,DISQUE " P RF(Z) DIS010 NO QUEUE,RETURN & P LD A1,32,A15 LOAD PSW FROM STACK P
0x000ca0…120cc0 [0x378]: Pad {f00=0x0006, f01=0x2008, f02=» p P* P* P END $@ 0K P* > P* H PLKMDIS EQU * R P INH f P LD A5,DISQUE r " P RF(Z) DIS010 NO QUEUE,RETURN & P LD A1,32,A15 LOAD PSW FROM STACK P SRL A1,10 GET LEVEL 4 P CC A1,TTABST+1,A5 AND
0x000ca0…120cc0 [0x379]: Pad {f00=0x0006, f01=0x0008, f02=»
0x000ca0…120cc0 [0x37a]: Pad {f00=0x0006, f01=0x018e, f02=» 2 P IDENT LRPINT REL 8.1 78-04-21 870105040810 P : P* B 6 P************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* LRPINT = INTERRUPT HANDLERS FOR LKM, RTC " P* AND POW
0x000ca0…120cc0 [0x37b]: Pad {f00=0x0006, f01=0x0190, f02=» P* P* : P* THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS P* FOR TOSS. THESE ARE: V P* v P* -IHLKM: LKM-INTERRUPT P* P* -IHRTC: RTC-INTERRUPT P* ( P* -IHPFAR: POWER FAILURE INTERRUPT P*
0x000ca0…120cc0 [0x37c]: Pad {f00=0x0006, f01=0x0190, f02=»UE JOB AND DISPATCH v P* ( P* -LKMQDI: QUEUE JOB AND DISPATCH & P* R P EJECT P*********** j P* ENTRIES * ~ P*********** P* & P ENTRY IHLKM LKM INTERRUPT HANDLER $ P ENTRY LKMRQE LKM REQUEST ERROR $ P ENTRY L
0x000ca0…120cc0 [0x37d]: Pad {f00=0x0006, f01=0x0190, f02=»E ^ P ENTRY MONCLO MONITOR CLOCK 2 P ENTRY IHPFAR POWER FAILURE INTERRUPT HANDLER . & P ENTRY INIFLG INITIALIZATION FLAG d P* P************* P* EXTERNALS * P************* P* P EXTRN TDISP DISPATCHER : P EXTRN
0x000ca0…120cc0 [0x37e]: Pad {f00=0x0006, f01=0x0190, f02=» $ P EXTRN SWL48 SWITCH TO LEVEL 48 2 P EXTRN TTB:SA FIRST WORD OF SAVE AREA IN TTAB , , P EXTRN TTB:TD START OF TERMINAL DEVICES b " P EXTRN LKMAL LKM REQUEST TABLE P EXTRN FREBLK SET BLOCK FREE " P EXTRN QMJOB QUEUE MONITOR JOB 6 P EXTRN R
0x000ca0…120cc0 [0x37f]: Pad {f00=0x0006, f01=0x0190, f02=» SAVE8 SAVE 8 REGISTERS " P EXTRN PFTAB POWER FAIL TABLE P EXTRN HALT HALT-MODULE F P EXTRN SACT ACTIVE SEGMENT f , P EXTRN LRUNEW INSERT SEGMENT IN LRUQUEUE ( P EXTRN INTSAV INTERRUPT SAVE MODULE P EJECT P* P* 8 P*
0x000ca0…120cc0 [0x380]: Pad {f00=0x000c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x381]: Pad {f00=0x000c, f01=0x0008, f02=» 0 8 p
0x000ca0…120cc0 [0x382]: Pad {f00=0x000c, f01=0x018e, f02=» 2 P IDENT LRPINT REL 8.2 78-09-15 870105040820 P : P* B 6 P************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* LRPINT = INTERRUPT HANDLERS FOR LKM, RTC " P* AND POW
0x000ca0…120cc0 [0x383]: Pad {f00=0x000c, f01=0x0190, f02=» P* P* : P* THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS P* FOR TOSS. THESE ARE: V P* v P* -IHLKM: LKM-INTERRUPT P* P* -IHRTC: RTC-INTERRUPT P* ( P* -IHPFAR: POWER FAILURE INTERRUPT P*
0x000ca0…120cc0 [0x384]: Pad {f00=0x000c, f01=0x0190, f02=»UE JOB AND DISPATCH v P* ( P* -LKMQDI: QUEUE JOB AND DISPATCH & P* R P EJECT P*********** j P* ENTRIES * ~ P*********** P* & P ENTRY IHLKM LKM INTERRUPT HANDLER $ P ENTRY LKMRQE LKM REQUEST ERROR $ P ENTRY L
0x000ca0…120cc0 [0x385]: Pad {f00=0x000c, f01=0x0190, f02=»E ^ P ENTRY MONCLO MONITOR CLOCK 2 P ENTRY IHPFAR POWER FAILURE INTERRUPT HANDLER . & P ENTRY INIFLG INITIALIZATION FLAG d P* P************* P* EXTERNALS * P************* P* P EXTRN TDISP DISPATCHER : P EXTRN
0x000ca0…120cc0 [0x386]: Pad {f00=0x000c, f01=0x0190, f02=» $ P EXTRN SWL48 SWITCH TO LEVEL 48 2 P EXTRN TTB:SA FIRST WORD OF SAVE AREA IN TTAB , , P EXTRN TTB:TD START OF TERMINAL DEVICES b " P EXTRN LKMAL LKM REQUEST TABLE P EXTRN FREBLK SET BLOCK FREE " P EXTRN QMJOB QUEUE MONITOR JOB 6 P EXTRN R
0x000ca0…120cc0 [0x387]: Pad {f00=0x000c, f01=0x0190, f02=» SAVE8 SAVE 8 REGISTERS " P EXTRN PFTAB POWER FAIL TABLE P EXTRN HALT HALT-MODULE F P EXTRN SACT ACTIVE SEGMENT f , P EXTRN LRUNEW INSERT SEGMENT IN LRUQUEUE ( P EXTRN INTSAV INTERRUPT SAVE MODULE P EJECT P* P* 8 P*
0x000ca0…120cc0 [0x388]: Pad {f00=0x0049, f01=0x0190, f02=»:A = 0 r P* PX:A EQU 1 PKLOCKA EQU 0 * P EJECT > P* L P* V P* I H L K M ` P* v P* 8 P* THIS IS THE LKM INTERRUPT HANDLER. THE FOLLOWING P* STEPS ARE CARRIED OUT: P* * P* - IF STACK OVERFLOW
0x000ca0…120cc0 [0x389]: Pad {f00=0x0049, f01=0x0190, f02=»LKMDIS' AND 8 REGISTERS ARE SET ON STACK x $ P* - TTB:SA IS UPDATED IN TTAB 0 : P* - EXIT CONDITIONS ARE SET AND A BRANCH IS MADE TO X $ P* APPROPIATE LKM-PROCESSOR. P* P* EXIT CONDITIONS ARE: P* * P* A4 = LABLE ADDRESS O
0x000ca0…120cc0 [0x38a]: Pad {f00=0x0049, f01=0x0190, f02=» AND A3 ARE LOST. : P* ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING P* PROGRAM. X P* l P* v P* PIHLKM EQU * P ST P,INTSAV P SAVE LAST INTERRUPT * P RIT /1D RESET INTERNAL INTERRUPT FLAG PLKM010 INH
0x000ca0…120cc0 [0x38b]: Pad {f00=0x0049, f01=0x0190, f02=»TR A14,A15 SAVE USERS REGISTERS, -A14 P STR A13,A15 -A13 . P STR A12,A15 -A12 H P STR A11,A15 -A11 b P STR A10,A15 -A10 | P STR A9,A15 -A9 P STR A8,A15 -A8 P STR A7,A15 -A7 P STR A6,A15 -A6 P STR A5,A15 -A5
0x000ca0…120cc0 [0x38c]: Pad {f00=0x0049, f01=0x0190, f02=»TER n PLKM020 EQU *-2 P* " P* , . P* GET DISPATCH ADDRESS AND SWITCH LEVEL 6 P* h P LDR* A2,A15 r 4 P LDR* A2,A15 LOAD P.C. AND ADJUST STACK POINTER P LD A3,-2,A2 P CWK A3,/2804 P RF(E) LKM025 LKM P CWK A3,
0x000ca0…120cc0 [0x38d]: Pad {f00=0x0049, f01=0x0190, f02=»DIS ~ . P STR A3,A15 SET DISPATCH ADDRESS ON STACK P LDKL A3,/C000 > P STR A3,A15 SET LEVEL 48 T . P SUKL A15,16 RESERVE SPACE FOR 8 REGISTERS t P LD A3,SACT ACTIVE SEGMENT P RF(E) LKM027 P CF A15,LRUNEW P CM SACT PLKM027
0x000ca0…120cc0 [0x38e]: Pad {f00=0x0049, f01=0x0190, f02=»DICATOR x $ P LDR* A3,A2 LOAD DATA DIRECTIVE P RF(NN) LKM030 NO LABLE 8 P* X P* b P* LKM-REQUEST WITH LABLE l P* P ADK A2,2 P LDR* A4,A2 LOAD LABLE P NGR A3,A3 NEGATE DATA P* P* . P* UPDATE TTB:S
0x000ca0…120cc0 [0x38f]: Pad {f00=0x0049, f01=0x0190, f02=» p " P ADR A3,A3 GET INDEX IN LKMAL ( P RF(Z) LKMQDI PROGRAM SWITCH REQUEST . P CW A3,LKMAL Z * P RF(NL) LKMRQE INVALID DATA DIRECTIVE n P LD A3,LKMAL,A3 & P RF(Z) LKMRQE ERROR IF NOT PRESENT P INH INHIBIT INTERRUPTS $ P ABR A3 BRAN
0x000ca0…120cc0 [0x390]: Pad {f00=0x0049, f01=0x018e, f02=»ISPATCH j P* P* A5 = TTAB-ADDRESS P* 8 P* B PLKMRQE EQU * L P LDKL A2,-1 ` . P ST A2,TTB:SA+14,A5 SET -1 IN SAVE AREA A7 t P* P* P* L K M Q D I P* ( P* QUEUE TERMINAL JOB AND DISPATCH P*
0x000ca0…120cc0 [0x391]: Pad {f00=0x0049, f01=0x018e, f02=» P EJECT P* P* I H R T C P* 2 6 P* THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER < 6 P* THE TIMER QUEUE WILL BE PROCESSED EACH 100 MS v P* PIHRTC EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT " P RIT /1B RESET INTER
0x000ca0…120cc0 [0x392]: Pad {f00=0x0049, f01=0x0190, f02=» p " P LDKL A4,-4 SET 100 MS SWITCH P ST A4,COUNT . . P LDKL A2,CLOCK QUEUE CLOCK-ROUTINE AS MJOB B P CF A15,QMJOB t P* P IFT KLOCKA=1 P* P IM DINKAN 2 P RF(P) RTC025 UPDATE MONITOR CLOCK EACH SECOND P* P XIF
0x000ca0…120cc0 [0x393]: Pad {f00=0x0049, f01=0x0190, f02=»G ROUTINE STARTED EACH SECOND v P* & P* 0 PMCLOCK EQU * : ( PRTC025 LDKL A4,-9 SET SECOND SWITCH N P ST A4,DINKAN z P LDK A4,4 2 PMCLO10 LDK A3,60 NUMBER OF MINUTES AND SECONDS ( PMCLO20 IM MONCLO+2,A4 INCREMENT TIME 0 P XR A3
0x000ca0…120cc0 [0x394]: Pad {f00=0x0049, f01=0x0190, f02=» A4,2 END ? P RF(N) MCLO30 MIDNIGTH CARRY P RB(P) MCLO10 UPDATE MINUTES 8 P LDK A3,24 UPDATE HOURS P RB MCLO20 | * PMCLO30 IM MONCLO UPDATE 24 HOUR CARRY P RB RTC020 GOTO DISPATCHER P* P* P XIF P* PMO
0x000ca0…120cc0 [0x395]: Pad {f00=0x0049, f01=0x0190, f02=» DATA 0 SECOND P* PDINKAN DATA 0 SECOND SWITCH P* D P* N P XIF X P EJECT d P r P* z * P* CLOCK ROUTINE STARTED EACH 100 MS. P* P PCLOCK INH , P LDKL A4,TIMQUE LOAD FIRST TIMER ADDRESS PCLK1
0x000ca0…120cc0 [0x396]: Pad {f00=0x0049, f01=0x0190, f02=» RB(N) CLK10 NOT TIME OUT, GET NEXT IN QUEUE P RF(Z) CLK30 TIME OUT 4 P R P LDR* A3,A4 RELEASE TIMER Z P STR A3,A6 | P CF A15,FREBLK P LDR A4,A2 P CF A15,FREBLK P RB CLK20 P , PCLK30 CF A15,CLK40 CALL TIME OUT ROU
0x000ca0…120cc0 [0x397]: Pad {f00=0x0049, f01=0x0190, f02=»TER z $ P ABI 2,A2 GO TO TIME OUT ROUTINE P* 4 P* > P* H PCOUNT DATA 0 100 MS SWITCH R P* t P* ~ P* T I M Q U E P* . P* POINTER TO FIRST BLOCK IN TIMER QUEUE P* PTIMQUE EQU * P DATA 0 P
0x000ca0…120cc0 [0x398]: Pad {f00=0x004b, f01=0x0190, f02=»* P* P* 1. POWER OFF P* * : P* REGISTERS A1-A14 ARE SAVED ON INTERRUPT STACK AND 4 ( P* STACK POINTER IS SAVED IN CORE r P* THEN SYSTEM IS HALTED P* P* P* 2. POWER ON P* & P* STACK POINTER A15
0x000ca0…120cc0 [0x399]: Pad {f00=0x004b, f01=0x0190, f02=»K X 4 P* AND RETURN IS GIVEN TO INTERRUPTED PROGRAM P* B P* L P* V P* WORK AREAS ` P* t P* ~ & PPFX DATA 1 POWER ON OFF INDICATOR P* P* & PINIFLG DATA 1 INITIALIZATION FLAG P* P EJECT P*
0x000ca0…120cc0 [0x39a]: Pad {f00=0x004b, f01=0x0190, f02=»PT r & P RIT /17 RESET INTERNAL INTERRUPT & P C1S PFX INDICATE POWER ON OR OFF 4 P RF(P) PFA200 POWER ON ^ P* | P* POWER OFF P* ( P CF A15,SAVE8 SAVE A1 - A8 ON STACK & P STR A9,A15 SAVE A9 - A14 ON STACK P STR A10,A15
0x000ca0…120cc0 [0x39b]: Pad {f00=0x004b, f01=0x413c, f02=»00 HLT HALT SYSTEM P* P* POWER ON & P* 8 PPFA200 EQU * B * P LDKL A15,0 RESTORE A15 STACK POINTER V PPFA210 EQU *-2 ( P CM INIFLG RESET INITIALIZATION FLAG * P CF A15,PFINIT RESTART COMMON DEVICES 4 P ABL RETU14 RESTORE A1
0x000ca0…120cc0 [0x39c]: Pad {f00=0x004b, f01=0x2008, f02=» POINTER z PPFA210 EQU *-2 ( P CM INIFLG RESET INITIALIZATION FLAG . * P CF A15,PFINIT RESTART COMMON DEVICES Z 4 P ABL RETU14 RESTORE A1-A14 FROM INTERRUPT STACK P END @ 13,A15 P STR A14,A15 * P ST A15,PFA210 SAVE A15
0x000ca0…120cc0 [0x39d]: Pad {f00=0x004b, f01=0x018e, f02=»,A7 SAVE CURRENT CRC $ P IM SYNSW DO NOT SKIP SYNCS NOW P CF A5,READ READ BYTE 1 D P LD A8,CRCSAV+2 SAVE IT d P CF A5,READ READ BYTE 2 ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN P LD A2,CRCSAV+2 SAVE IT P SLL A2,8 P XRR A2,
0x000ca0…120cc0 [0x39e]: Pad {f00=0x004b, f01=0x0190, f02=» & P* RDLRC READ LRC CHARACTER " P* CR=0 IF LRC OK . P* T PRDLRC IM SYNSW ^ P CF A5,READP t P ADK A5,4 P LDR A1,A1 P RF(NZ) LRCEND P ANK A7,/7F PLRCEND EQU * P CM SYNSW P ABR* A5
0x000ca0…120cc0 [0x39f]: Pad {f00=0x004b, f01=0x0190, f02=»NTRY | P DATA 0 CU LINE ADDRESS P DATA /8000 STATUS , P DATA 0 ECB ADDRESS F P DATA 0 ORDER b * P DATA DC15DC POINTER TO ADDRESS BLOCK x P DATA 0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TASK QUEUE P DATA
0x000ca0…120cc0 [0x3a0]: Pad {f00=0x0007, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f x T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x3a1]: Pad {f00=0x0007, f01=0x0008, f02=»
0x000ca0…120cc0 [0x3a2]: Pad {f00=0x0007, f01=0x0190, f02=» 0 P IDENT TPROC REL 8.2 78-09-15 870105040820 P 8 P* @ 6 P************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* TPROC = TOSS LKM PROCESSORS . P* TIO,TWAIT,TEXIT,TACTOT
0x000ca0…120cc0 [0x3a3]: Pad {f00=0x0007, f01=0x018e, f02=»* P* 6 P* THIS MODULE CONTAINS MANDATORY LKM PROCESSORS P* FOR TOSS. THESE ARE: N P* n P* -TIO INPUT/OUTPUT x P* P* -TWAIT WAIT P* P* -TEXIT EXIT P* * P* -TACTOT ACTIVATE/RESTART
0x000ca0…120cc0 [0x3a4]: Pad {f00=0x0007, f01=0x018e, f02=» P*********** P* P* " P ENTRY TIO I/O PROCESSOR , P* L P ENTRY TWAIT WAIT PROCESSOR V P* z P ENTRY TEXIT EXIT PROCESSOR P* , P ENTRY TACTOT ACTIVATE/RESTART PROCESSOR P* " P ENTRY TPAUSE PAUSE PROCESSOR
0x000ca0…120cc0 [0x3a5]: Pad {f00=0x0007, f01=0x0190, f02=» P EJECT P* P************* P* EXTERNALS * 6 P************* L P* b P* l , P EXTRN DWTADR DWT ADDRESS BLOCK POINTER v " P EXTRN DWTTAB DWT TTAB ADDRESS * P EXTRN DWTWAT WAIT/ACTIVATE INDICATOR & P EXTRN DWTTDM DM
0x000ca0…120cc0 [0x3a6]: Pad {f00=0x0007, f01=0x0190, f02=»XTRN DWTECB ECB ADDRESS P EXTRN DWTST STATUS P EXTRN TDISP DISPATCHER < 2 P EXTRN SRUN POINTER TO RUNNING SEGMENT IN LSBT $ P EXTRN LKMRQE LKM REQUEST ERROR , P EXTRN GETBLK PUT BLOCK IN PENDING QUEUE 2 P EXTRN FREBLK RELEASE BLOCK FROM
0x000ca0…120cc0 [0x3a7]: Pad {f00=0x0007, f01=0x018e, f02=»R l * P EXTRN TTB:ID TERMINAL IDENTIFICATION 0 P EXTRN FNDTID SEARCH TERMINAL IDENTIFICATION 8 $ P EXTRN ACTOT 'ACTIVATE' TERMINAL l ( P EXTRN TTB:ST TASK STATUS AND LEVEL P EXTRN TTB:SA SAVE AREA P EXTRN TIODM ENTRY ADDR P EXTRN ATT
0x000ca0…120cc0 [0x3a8]: Pad {f00=0x0008, f01=0x0190, f02=» P************* P* B P* DISPLACEMENT IN DEVICE WORK TABLE AND EVENT CONTROL BLOCK $ P* j $ PDWTTQ EQU /0E TASK QUEUE IN DWT t & PDWTSB2 EQU /1E STACK BASE 2 IN DWT " PDWTECH EQU /22 ECHO-DEVICE DWT * PECBEL EQU /06 EFFECTIVE LENGTH
0x000ca0…120cc0 [0x3a9]: Pad {f00=0x0008, f01=0x0190, f02=»* THIS MODULE IS ENTERED WHEN TERMINAL I/O 2 P* IS REQUIRED. IF A REQUEST CANNOT BE SERVICED 2 4 P* DUE TO E.G. BUSY DEVICE, THE REQUEST IS QUEUED h 2 P* AND THE TERMINAL PROGRAM SET IN WAIT STATE. 6 P* THIS MODULE IS CALLED BY THE LKM HANDLING MODULE
0x000ca0…120cc0 [0x3aa]: Pad {f00=0x0008, f01=0x0190, f02=»RMAL I/O REQUEST ( P* NOT ZERO, I/O AND ACTIVATION P* D P* A5 = TTAB ADDRESS N P* j P* A7 = CODE t P* P* A8 = ECB ADDRESS P* P* < P* THE 'TIO'-ROUTINE EXITS TO REQUESTED ACTIVATION DRIVER * P* WITH T
0x000ca0…120cc0 [0x3ab]: Pad {f00=0x0008, f01=0x018e, f02=» A7 = ORDER P* P* A8 = ECB-ADDRESS P* : P EJECT D P* R , P* THE FOLLOWING DWT FIELDS ARE UPDATED:- P* " P* -DWTOR DWT-INDEX AND ORDER P* -DWTECB ECB ADDRESS $ P* -DWTST READY AND ECHO FIELDS P* -DWTT
0x000ca0…120cc0 [0x3ac]: Pad {f00=0x0008, f01=0x0190, f02=» " P* -BITS 0-7 IN THE FIRST WORD P* -ECBEL EFFECTIVE LENGTH . P* -ECBRC RETURN CODE R P* p P z P P P* 2 P* GET DWT ADDRESS AND CHECK IF DEVICE IS BUSY P* P P ( PTIO CF A15,FNDDWT SEARCH DWT A
0x000ca0…120cc0 [0x3ad]: Pad {f00=0x0008, f01=0x0190, f02=»,A9 SAVE TASK STATUS P RF(N) TIO020 DMTASK CALLING $ P LDKL A9,/4000 REQUEST BUSY BIT @ P AN A9,DWTST,A6 h , P RF(NZ) TIOQ20 REQ BUSY,NOT DMTASK CALL PTIO020 EQU * P CCK A7,/BB00 P ABL(E) ATTACH ATTACH ORDER P CCK A7,/BC0
0x000ca0…120cc0 [0x3ae]: Pad {f00=0x0008, f01=0x0190, f02=»A10,/0800 ATTACH BIT P AN A10,DWTST,A6 P RF(Z) TIO030 NOT ATTACHED 4 P CW A5,DWTTAB,A6 V * P RF(NE) TIOQ20 ATTACHED TO OTHER TASK n P AN A3,DWTST,A6 P RF(Z) TIOQ05 DEVICE BUSY PTIO030 EQU * P AN A3,DWTST,A6 P RF(Z) T
0x000ca0…120cc0 [0x3af]: Pad {f00=0x0008, f01=0x0190, f02=» P RF(Z) TIO100 NOT ECHO P LDKL A2,TIODM " P CW A2,DWTADR,A6 8 P RF(E) TIO090 DM-REQUEST P & P LD A2,DWTECH,A6 LOAD ECHO DEVICE p P RF(Z) TIO100 NO ECHO DEVICE & P LDKL A10,/100 BIT 7=INPUT DEVICE P ANR* A10,A6 ECHO ALLOWED? P
0x000ca0…120cc0 [0x3b0]: Pad {f00=0x0008, f01=0x018e, f02=»A5,DWTTAB,A2 . P RF(NE) TIOQ10 ECHO ATTACHED TO OTHER TASK P AN A3,DWTST,A2 F " P RF(Z) TIOQ00 ECHO DEVICE BUSY ^ PTIO040 AN A3,DWTST,A2 " P RF(Z) TIOQ10 ECHO DEVICE BUSY P LDKL A3,/A000 0 P XRS A3,DWTST,A2 UPDATE BUSY AND ECHO IN DWT
0x000ca0…120cc0 [0x3b1]: Pad {f00=0x0008, f01=0x0190, f02=» b P 6 PTIO100 XRS A3,DWTST,A6 UPDATE BUSY AND ECHO IN DWT P LDKL A3,/7FFF J , P ANRS A3,A8 RESET BIT 0 IN ECB FILE-CODE ` $ P CM ECBEL,A8 -EFFECTIVE LENGTH P CM ECBRC,A8 -RETURN CODE P LDR A3,A7 SAVE CODE P ANK A7,/3F ( P
0x000ca0…120cc0 [0x3b2]: Pad {f00=0x0008, f01=0x0190, f02=»,DWTTAB,A6 SAVE TTAB ADDRESS IN DWT P RF TIO120 , PTIO110 EQU * > 0 P ST A5,DWTTDM,A6 SAVE TTAB ADDRESS IN DWTTDM R PTIO120 EQU * " P ST A8,DWTECB,A6 -ECB ADDRESS P EJECT P P* , P* UPDATE DWTWAT (WAIT/ACTIVE INDICATOR)
0x000ca0…120cc0 [0x3b3]: Pad {f00=0x0008, f01=0x0190, f02=»CK IF WAIT REQUESTED v P RF(Z) TIO220 NOT WAIT P LDK A4,1 INDICATE WAIT : P RF TIO230 Z $ PTIO200 LD A3,SRUN SEGM. POINTER l P RF(Z) TIO210 JUMP IF ROOT P SU A2,2,A3 RELATIVE ADDRESS P < PTIO210 CF A15,GETBLK SAVE PARAMETER AND
0x000ca0…120cc0 [0x3b4]: Pad {f00=0x0008, f01=0x0190, f02=»OR ` * P LDK A5,DWTSB2 LOAD STACK BASE 2 IN A5 P ADR A5,A6 8 , P ABI* DWTADR,A6 GO TO DRIVER ACTIVATION J P EJECT z P* P* QUEUE ECHO DEVICE FIRST P* PTIOQ00 LDR A6,A2 P P* P* QUEUE DEVICE FIRST P*
0x000ca0…120cc0 [0x3b5]: Pad {f00=0x0008, f01=0x018e, f02=»UE r P & PTIOQ10 LDR A6,A2 QUEUE ECHO DEVICE P < ( PTIOQ20 ADK A6,DWTTQ GET QUEUE ANCHOR D P LC A1,TTB:ST+1,A5 GET LEVEL p PTIOQ30 LDR A2,A6 $ P LDR* A6,A6 FOLLOW QUEUE TO END P RF(Z) TIOQ40 END FOUND & P CC A1,TTB:ST+1,A6 COM
0x000ca0…120cc0 [0x3b6]: Pad {f00=0x0008, f01=0x0190, f02=» P SUK A3,4 " P LDR A4,A4 CHECK IF ACTIVATION P RF(Z) TIOQ50 NO < P SUK A3,2 YES T 4 PTIOQ50 ADS A3,TTB:SA,A5 UPDATE PC TO REPEAT LKM j P RF TPDIS P P P* P* ERROR FILE CODE UNKNOWN P* P 0 PTIOERR S
0x000ca0…120cc0 [0x3b7]: Pad {f00=0x0008, f01=0x0190, f02=»* P* P* W A I T P* & : P* THIS MODULE IS ENTERED WHEN THE APPLICATION PROGRAM 0 4 P* WANTS TO SYNCHRONIZE WITH A PARTICULAR EVENT. n 8 P* IT IS CALLED BY THE LKM HANDLER WITH THE FOLLOWING P* PARAMETERS:- P* P* A5 =
0x000ca0…120cc0 [0x3b8]: Pad {f00=0x0008, f01=0x0190, f02=»ADDRESS v P LDR A6,A6 $ P RF(Z) TAC010 FILE CODE UNKNOWN " * P LDR* A1,A8 RETURN IF EVENT COMPLETED J P RB(N) TPQUE COMPLETED x , P IM DWTWAT,A6 SET WAIT INDICATOR IN DWT P RB TPDIS GO TO DISPATCHER P EJECT P* P* P
0x000ca0…120cc0 [0x3b9]: Pad {f00=0x0008, f01=0x0190, f02=»HE h P* TERMINAL IT IS STARTED. . P* THIS MODULE IS CALLED BY THE LKM HANDLER , & P* WITH THE FOLLOWING PARAMETERS:- ^ P* P* A5 = TTAB ADDRESS P* P* PTEXIT EQU * " P CF A15,EXIT CALL PROGRAM EXIT P RB TPDIS GO T
0x000ca0…120cc0 [0x3ba]: Pad {f00=0x0008, f01=0x0190, f02=»HANDLER j * P* WHEN A TERMINAL HAS TO BE ACTIVATED. P* > . P* THE FOLLOWING PARAMETERS ARE SUPPLIED:- H & P* A1 = PARAMETER WHEN A4 NOT ZERO z 2 P* A4 = START ADDRESS AT ACTIVATION, ELSE ZERO P* A5 = TTAB 8 P* A7 = IDENTIFICATION FOR T
0x000ca0…120cc0 [0x3bb]: Pad {f00=0x0008, f01=0x018e, f02=»10 EQU * * P ABL(Z) LKMRQE TERMINAL NOT IN SYSTEM 8 P CF A15,QTJOB QUEUE CALLING TERMINAL FOR DISPATCHING > P LDR A5,A2 z P LDR A2,A4 0 P RB(Z) TPQUE RESTART: QUEUE FOR DISPATCHING P LD A3,SRUN SEGMENT POINTER P RF(E) TAC020 JUMP I
0x000ca0…120cc0 [0x3bc]: Pad {f00=0x0008, f01=0x40b6, f02=» P RB TPDIS GO TO DISPACHER P EJECT & P* 4 P* > P* T P A U S E H P* ^ P* h & PTPAUSE EQU TPDIS GO TO DISPATCHER r P* P END @ EUE FOR DISPATCHING P LD A3,SRUN SEGMENT POINTER P RF(E) TAC020 JUMP I
0x000ca0…120cc0 [0x3bd]: Pad {f00=0x0008, f01=0x2008, f02=» TERMINAL NOT IN SYSTEM 8 P CF A15,QTJOB QUEUE CALLING TERMINAL FOR DISPATCHING ( P LDR A5,A2 d P LDR A2,A4 v 0 P RB(Z) TPQUE RESTART: QUEUE FOR DISPATCHING P CF A15,ACTOT ACTIVATION P RB TPDIS GO TO DISPACHER P EJECT
0x000ca0…120cc0 [0x3be]: Pad {f00=0x0008, f01=0x0190, f02=» n , ( w Y : V ! _$ Y 4 ! , ( ! : Y 4 Y 0 X > , ( 2 X 0 ! P Y R ! n , ( _ Y 0 X 2 X 0 ! , ( @A ! Y 0 X 0 , ( 2 !
0x000ca0…120cc0 [0x3bf]: Pad {f00=0x0008, f01=0x0190, f02=» w ! _& ! P U Y Z , ( U Y < P Y ` _0 X +T . , ( ! _j ! V X (R X D" T ! ! ^ , ( ZJ9 R Y < , Y +T _t X , ( D: Z|W ! ! _ = Y < , ( X + -P X (R Y
0x000ca0…120cc0 [0x3c0]: Pad {f00=0x0009, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f x T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x3c1]: Pad {f00=0x0009, f01=0x000e, f02=» ( 0 8 @ H P
0x000ca0…120cc0 [0x3c2]: Pad {f00=0x0009, f01=0x0190, f02=» 0 P IDENT MSUBS REL 8.2 78-09-15 870105040820 P 8 P SWLXY INCLUDED @ P REL 8.1 78-04-21 Z P v P* ~ 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* MSUBS =
0x000ca0…120cc0 [0x3c3]: Pad {f00=0x0009, f01=0x0190, f02=»**** b P* 2 P* THIS MODULE CONTAINS THE FOLLOWING MONITOR P* SUBROUTINES: L P* d , P* -SAVE8 SAVE 8 REGISTERS ON STACK n 4 P* -QTJOB QUEUE TERMINAL JOB FOR DISPATCHING 2 P* -QMJOB QUEUE MONITOR JOB FOF DISPATCHING :
0x000ca0…120cc0 [0x3c4]: Pad {f00=0x0009, f01=0x0190, f02=»T PROGRAM EXIT * P* -GETBLK GET A FREE MONITOR BLOCK * P* -FREBLK SET A MONITOR BLOCK FREE H " P* -FNDDWT FIND DWT ADDRESS v . P* -FNDTID FIND TERMINAL IDENTIFICATION , P* -TABIO ABORT I/O WITH ACTIVATION P* -TENDIO
0x000ca0…120cc0 [0x3c5]: Pad {f00=0x0009, f01=0x0190, f02=»* -HALT HALT MODULE P EJECT " P* 0 P*********** : P* ENTRIES * N P*********** b P* v P* " P ENTRY SAVE8 SAVE 8 REGISTERS $ P ENTRY QTJOB QUEUE TERMINAL JOB " P ENTRY QMJOB QUEUE MONITOR JOB " P ENTRY ACTOT
0x000ca0…120cc0 [0x3c6]: Pad {f00=0x0009, f01=0x018e, f02=»NDDWT FIND DWT 0 P ENTRY FNDTID FIND TERMINAL INDENTIFICATION * P ENTRY TABIO ABORT I/O WITH ACTIVATION J P ENTRY TENDIO END I/O x P ENTRY PFINIT RESTART DEVICE $ P ENTRY SWL48 SWITCH TO LEVEL 48 $ P ENTRY SWLXY SWITCH TO LEVEL XY , P
0x000ca0…120cc0 [0x3c7]: Pad {f00=0x0009, f01=0x0190, f02=» P* P* 2 P* ENTRIES TO RESTORE REGISTERS A8-A1 WITHOUT P* ENEABLE INTERRUPTS R P* p P* z " P ENTRY IHRET8 RESTORE FROM A8 " P ENTRY IHRET7 A7 " P ENTRY IHRET6 A6 " P ENTRY IHRET5
0x000ca0…120cc0 [0x3c8]: Pad {f00=0x0009, f01=0x0190, f02=»NTRY IHRET1 A1 2 P ENTRY IHRTN RETURN WITHOUT ENABLE INTERRUPTS $ P EJECT Z P* h P************* r P* EXTERNALS * P************* P* P* < P EXTRN DISQUE POINTER TO FIRST PLACE IN DISPATCHER QUEUE & P E
0x000ca0…120cc0 [0x3c9]: Pad {f00=0x0009, f01=0x0190, f02=» j P EXTRN TTB:SA SAVE AREA * P EXTRN TTB:PP POINTER TO PENDING QUEUE ( ( P EXTRN TTB:TD TERMINAL DEVICE TABLE V P EXTRN RETUR8 6 P EXTRN FREQUE POINTER TO FIRST FREE MONITOR BLOCK P EXTRN DWTST DWT STATUS " P EXTRN DWTADR -DRIVER
0x000ca0…120cc0 [0x3ca]: Pad {f00=0x0009, f01=0x0190, f02=» ON QUEUE p " P EXTRN DWTTAB -TTAB ADDRESS & P EXTRN DWTTDM DM TASK TTAB ADDRESS 8 ( P EXTRN TCTAB TERMINAL CONTROL TABLE b $ P EXTRN CDTAB COMMON DEVICE TABLE 2 P EXTRN PFTAB TABLE OF DEVICES TO BE RESTARTED P EXTRN TTB:SP,TTB:SS $ P E
0x000ca0…120cc0 [0x3cb]: Pad {f00=0x0009, f01=0x018e, f02=» r P EJECT P* P* P* S A V E 8 * P* @ 0 P* SUBROUTINE TO SAVE 8 REGISTERS ON STACK J $ P* WITHOUT ENABLING INTERRUPTS. ~ P* P* PSAVE8 EQU * P INH INHIBIT INTERRUPTS P STR A3,A15 P STR A4,
0x000ca0…120cc0 [0x3cc]: Pad {f00=0x0009, f01=0x0190, f02=» f , P ST A3,SAVE81 AND MODIFY BRANCH ADDRESS P ST A2,14,A15 8 P ST A1,16,A15 N P LD A3,12,A15 RESTORE A3 d & P ABL 0 THIS IS USED TO BRANCH BACK PSAVE81 EQU *-2 P* P EJECT P* P* P* Q T J O B P*
0x000ca0…120cc0 [0x3cd]: Pad {f00=0x0009, f01=0x0190, f02=»GRAM TO BE QUEUED. t P* 8 P* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON $ 8 P* PRIORITY BASIS. WITHIN ONE PRIORITY LEVEL JOB IS ` P* PUT LAST IN QUEUE. P* P* P* PQTJOB EQU * P INH $ P STR A1,A15 SAVE A
0x000ca0…120cc0 [0x3ce]: Pad {f00=0x0009, f01=0x0190, f02=»D LEVEL TO BE QUEUED z & PQTJ010 LDR A2,A1 SAVE LAST ADDRESS " P LDR* A1,A1 FOLLOW THE THREAD F " P RF(Z) QTJ020 END QUEUE FOUND l & P CC A3,TTB:ST+1,A1 COMPARE LEVELS P RB(NL) QTJ010 TRY NEXT $ PQTJ020 STR A1,A5 INSET IN QUEUE P STR A
0x000ca0…120cc0 [0x3cf]: Pad {f00=0x0009, f01=0x0190, f02=» ON LEVEL 49 l P* ENTRY PARAMETERS:- P* 2 P* A1 = PARAMETER < P* V P* A2 = DISPATCH ADDRESS ` P* 8 P* A5 IS SET TO TTAB-ADDRESS OF MONITORJOBS AND THE < P* SUBROUTINE 'ACTOT' IS USED TO ACTIVATE AND QUEUE THE P*
0x000ca0…120cc0 [0x3d0]: Pad {f00=0x0009, f01=0x0190, f02=»0 P RF ACT02 AND GO TO ACTOT P EJECT , P* : P* D P* A C T O T , A C T O T P N P* r 2 P* SUBROUTINE TO ACTIVATE A TERMINAL PROGRAM. | P* ENTRY PARAMETERS:- P* P* A1 = PARAMETER P* A2 = DISPATCH ADDR
0x000ca0…120cc0 [0x3d1]: Pad {f00=0x0009, f01=0x0190, f02=» < P* - IF REQUESTED PROGRAM IS NOT ACTIVE THE PROGRAM IS : P* PUT IN DISPATCHER QUEUE VIA SUBROUTINE 'QTJOB'. H @ P* - IF PROGRAM IS ACTIVE, THE REQUEST IS PUT IN A PENDING P* QUEUE. @ P* - ACTOT WILL PUT REQUEST IN PENDING QUEU
0x000ca0…120cc0 [0x3d2]: Pad {f00=0x0009, f01=0x0190, f02=»F A15,SAVE8 SAVE REGISTERS P LDK A6,1 INDICATE LIFO " P RF ACT03 B PACTOT EQU * T P CF A15,SAVE8 SAVE REGISTERS h 0 PACT02 LDK A6,0 INDICATE FIFO PENDING QUEUING PACT03 EQU * ( P LD A4,TTB:SA,A5 IS PROGRAM ACTIVE? , P RF(NZ) AC
0x000ca0…120cc0 [0x3d3]: Pad {f00=0x0009, f01=0x0190, f02=»TB:SS,A5 LAST SEGMENT START * PACT05 ST A2,TTB:SA,A5 DISPATCH ADDRESS $ $ P ST A3,TTB:SP,A5 SEGMENT POINTER R $ P ST A1,TTB:SA+2,A5 AND PARAMETER z $ P LD A4,TTB:ID,A5 SET TERMINAL ID * P ST A4,TTB:SA+4,A5 TO A2 IN SAVE AREA * P ST A7,TTB:SA+14,A
0x000ca0…120cc0 [0x3d4]: Pad {f00=0x0009, f01=0x0190, f02=»T REQUEST IN PENDING QUEUE. P* $ * PACT020 CF A15,GETBLK GET A FREE BLOCK . P LDR A2,A4 P LDR A1,A7 ABORT PARAMETER n P CF A15,GETBLK P ADKL A5,TTB:PP " PACT030 LDR A3,A5 SAVE ADDRESS ( P LDR* A5,A5 FOLLOW THE QUEUE THREAD
0x000ca0…120cc0 [0x3d5]: Pad {f00=0x0009, f01=0x018e, f02=»T030 NO, TRY NEXT! PACT040 EQU * " P STR A4,A3 SET BLOCK IN QUEUE . P STR A5,A4 T P RB ACT010 f P EJECT x P* P* P* E X I T P* 8 P* SUBROUTINE TO SET A PROGRAM FREE AND QUEUE FIRST P* PENDING PROGRAM
0x000ca0…120cc0 [0x3d6]: Pad {f00=0x0009, f01=0x0190, f02=» PEXIT EQU * P INH ( P CM TTB:SA,A5 RESET PROGRAM COUNTER " 0 P LD A4,TTB:PP,A5 GET PENDING PROGRAM POINTER N $ P RF(Z) EXT010 NO PENDING PROGRAM P LDR* A3,A4 GET QUEUE THREAD 0 P ST A3,TTB:PP,A5 AND SAVE IN PENDING POINTER 0 P CF A15,
0x000ca0…120cc0 [0x3d7]: Pad {f00=0x0009, f01=0x0190, f02=»TIVATE TERMINAL PEXT010 RF GBL020 P EJECT 0 P* > P* H P* G E T B L K R P* j 4 P* SUBROUTINE TO GET A FREE BLOCK FROM MONITOR t 6 P* BLOCK POOL.REGISTERS A3-A1 ARE STORED IN FOUND P* FREE BLOCK. P* P*
0x000ca0…120cc0 [0x3d8]: Pad {f00=0x0009, f01=0x018e, f02=» P STR A5,A15 SAVE A5 0 P LD A4,FREQUE GET FIRST BLOCK IN FREE QUEUE $ P RF(NZ) GBL010 X P LDK A1,/B HALT PARAMETER n . P CF A15,HALT HALT IF ALL BLOCKS OCCUPIED PGBL010 LDR* A5,A4 . P ST A5,FREQUE TAKE BLOCK OUT OF FREE QUEUE
0x000ca0…120cc0 [0x3d9]: Pad {f00=0x0009, f01=0x0190, f02=» ~ P EJECT P* P* P* F R E B L K * P* B : P* SUBROUTINE TO GET PARAMETERS FROM A MONITOR BLOCK L P* AND SET THIS BLOCK FREE. P* P* ENTRY PARAMETER:- P* P* A4 = BLOCKADDRESS P* P*
0x000ca0…120cc0 [0x3da]: Pad {f00=0x0009, f01=0x0190, f02=» " " P* P* $ PFREBLK EQU * . P INH B P LDR* A3,A4 UPDATE A3 N P LD A1,FREQUE l P STR A1,A4 P ST A4,FREQUE SET BLOCK FREE P LD A2,2,A4 P LD A1,4,A4 P ABL IHRTN P EJECT P P*
0x000ca0…120cc0 [0x3db]: Pad {f00=0x0009, f01=0x0190, f02=»D FROM DATA MANAGEMENT t P* A8 = ECB ADDRESS P* 8 P* EXIT PARAMETERS:- B P* ^ P* A2 = DWT INDEX h & P* A6 = DWT ADDRESS IF FOUND ELSE 0 P* P PFNDDWT STR A1,A15 SAVE A1 P LDKL A6,TTB:TD 4 P ADR A6,A5 GET ADDRE
0x000ca0…120cc0 [0x3dc]: Pad {f00=0x0009, f01=0x0190, f02=»ILE CODE FROM ECB ~ P PFND100 SUK A1,4 " ( P RF(N) FND110 FILE CODE NOT IN TTAB : & P CC A2,1,A6 SEARCH IN DEVICE TABLE f & P RF(NE) FND106 BRANCH IF NOT FOUND P STR A1,A15 P LD A1,2,A6 DWT ADDR " P LD A1,DWTADR,A1 DRIVER ENTRY
0x000ca0…120cc0 [0x3dd]: Pad {f00=0x0009, f01=0x0190, f02=» P LDR* A1,A15 PFND106 EQU * ( P ADK A6,4 ADDRESS TO NEXT FILE CODE , P RB FND100 TRY NEXT X P EJECT t P* $ P* SEARCH IN COMMON DEVICE TABLE P* P $ PFND110 LD A6,CDTAB CDTAB ADDRESS P LDR* A1,A6 CDTAB LENGTH
0x000ca0…120cc0 [0x3de]: Pad {f00=0x0009, f01=0x0190, f02=» & P RF(NE) FND126 FILE CODE NOT FOUND P STR A1,A15 . P LD A1,2,A6 B P LD A1,DWTADR,A1 V P CWK A1,TIODM n P RF(NE) FND200 NOT DM REQ $ P CF A15,CHKIND CHECK INDEX IN DM P RF FND200 INDEX OK P LDR* A1,A15 PFND126 EQU *
0x000ca0…120cc0 [0x3df]: Pad {f00=0x0009, f01=0x018e, f02=»15 RESET STACK P LCR A2,A6 LOAD DWT INDEX P LD A6,2,A6 LOAD DWT ADDRESS 8 PFND210 RF IHRET1 P EJECT t P* P* P* F N D T I D P* P* B P* SUBROUTINE TO FIND TTAB ADDRESS FROM TERMINAL IDENTIFICATION P*
0x000ca0…120cc0 [0x3e0]: Pad {f00=0x000a, f01=0x0190, f02=» P* P* A2 = TTAB ADDRESS . P* A2 = 0 INDICATES ILLEGAL IDENTIFICATION * P* P* f " PFNDTID STR A1,A15 SAVE REG. A1 p P LD* A1,TCTAB TCTAB LENGTH P AD A1,TCTAB P PFTI010 SUK A1,2 P CW A1,TCTAB $ P RF(E) FTI
0x000ca0…120cc0 [0x3e1]: Pad {f00=0x000a, f01=0x0190, f02=»IONS l & P RB(NE) FTI010 NO MATCH. TRY NEXT P 6 PFTI020 RF IHRET1 > , PFTI030 SUR A2,A2 ILLEGAL IDENTIFICATION V P RF IHRET1 P EJECT P* P* $ P* T E N D I O , T A B I O P* P* . P* THIS MODULE IS CAL
0x000ca0…120cc0 [0x3e2]: Pad {f00=0x000a, f01=0x0190, f02=»D TO START THE TASK ~ P* P* -IF NORMAL I/O WITH WAIT:- & P* J * P* QTJOB IS CALLED TO QUEUE THE TASK T 8 P* FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- P* P* A5 = TTAB-ADDRESS P* $ P* -IF NORMAL I/O WITH NO W
0x000ca0…120cc0 [0x3e3]: Pad {f00=0x000a, f01=0x0190, f02=»THAT TASK IS PUT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION P* ! J 0 P* ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- ! T P* ! P* A1 = RETURN CODE ! P* A6 = DWT ADDRESS ! P* NO REGISTERS ARE DESTROYED ! P* ! 6 P* N.B. THE ECB RET
0x000ca0…120cc0 [0x3e4]: Pad {f00=0x000a, f01=0x0190, f02=»EPT ABORT PARAMETER A7 ! d F P* WILL BE SET TO 1 BEFORE ACTOT IS CALLED IN CASE OF ACTIVATION. " , P* (FOR TENDIO THE ABORT PARAMETER = 0) " h P EJECT " P* " 4 P* CHECK IF ANY TERMINAL ON QUEUE FOR THIS DEVICE " P* " PTABIO EQU * " $ P CF
0x000ca0…120cc0 [0x3e5]: Pad {f00=0x000a, f01=0x0190, f02=» ON STACK " x . P LDK A7,0 ABORT PARAMETER=0 (NO ABORTION) # PTEN100 EQU * # D $ P LD A5,DWTTQ,A6 ANY TASK QUEUED? # X P RF(Z) TEN110 NO # P # P LD A2,2,A5 TASK STATUS # " P RF(N) TEN105 DM REQUEST NEXT # P LDKL A2,/800 ATTACH BIT 4 # P A
0x000ca0…120cc0 [0x3e6]: Pad {f00=0x000a, f01=0x0190, f02=»N'T QUEUE TASK # z PTEN105 EQU * $ 0 P LDR* A3,A5 YES: UPDATE QUEUE ANCHOR ADDRESS $ * P ST A3,DWTTQ,A6 $ ^ . P CF A15,QTJOB QUEUE TASK TO REPEAT REQUEST $ v P EJECT $ P* $ P* $ P* UPDATE ECB AND DWT $ P* $ P* $ P $ PTEN110 E
0x000ca0…120cc0 [0x3e7]: Pad {f00=0x000a, f01=0x018e, f02=»ST $ v & P LD A5,DWTTDM,A6 GET TTAB ADDRESS % 0 P CF A15,REQEND RESET REQ BUSY FOR ALL FILES % 4 PTEN115 EQU * % h P LDKL A2,/8000 % | 2 P ORS A2,DWTST,A6 INDICATE DEVICE READY IN DWT % . P LDKL A3,/DBFF RESET ECHO-BIT AND BITS 5,6 % 2 P ANS A3,DWTST,A6
0x000ca0…120cc0 [0x3e8]: Pad {f00=0x000a, f01=0x0190, f02=» % X * P ORRS A2,A3 SET EVENT COMPLETED IN ECB & ( P ORS A1,8,A3 SET RETURN CODE IN ECB & 6 $ P CM DWTECB,A6 RESET ECB ADDRESS & b P EJECT & P* & " P* CHECK IF WAIT OR ACTIVATION & P* & 0 P LD A4,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR & ( P RF(
0x000ca0…120cc0 [0x3e9]: Pad {f00=0x000a, f01=0x0190, f02=»DR & ^ . P CF A15,ACTOTP ACTIVATE TASK ON LIFO BASIS ' P RF TEN130 RETURN ' < PTEN120 EQU * ' V 2 P CF A15,QTJOB WAIT: QUEUE TASK FOR DISPATCHING ' j PTEN130 EQU * ' P EJECT ' P* ' P* ' , P* RESTORE REGISTERS AND RETURN WITHOUT ' P*
0x000ca0…120cc0 [0x3ea]: Pad {f00=0x000a, f01=0x0190, f02=»* A5,A15 ' PIHRET4 LDR* A4,A15 ( PIHRET3 LDR* A3,A15 ( * PIHRET2 LDR* A2,A15 ( D PIHRET1 LDR* A1,A15 ( ^ PIHRTN INH ( x $ P ADKL A15,4 ADJUST STACK POINTER ( P ABR* A15 AND RETURN ( P EJECT ( P* ( P* ( P* P F I N I T ( P*
0x000ca0…120cc0 [0x3eb]: Pad {f00=0x000a, f01=0x0190, f02=»GISTERS A1-A8 ARE AVAILABLE FOR THE RESTART ROUTINES. ( P* ) > P* ) H PPFINIT EQU * ) R ( P LDK A1,2 SET INDEX TO FIRST ROUTINE ) f $ PPFI100 CW A1,PFTAB CHECK IF LAST ) P RF(NL) PFI110 ALL RESTARTED ) P STR A1,A15 SAVE A1 ) * P CFI A15,PFTAB,A
0x000ca0…120cc0 [0x3ec]: Pad {f00=0x000a, f01=0x0190, f02=»WHEN ALL STARTED ) x P EJECT * P* * & P* * 0 P* S W L 4 8 * : P* * P : P* SUBROUTINE TO SWITCH PROGRAM PRIORITY LEVEL TO 48. * Z P* * P* * PSWL48 EQU * * P INH * P STR A1,A15 * $ P LDKL A1,/C000 PSW FOR LEVEL 48 * & P S
0x000ca0…120cc0 [0x3ed]: Pad {f00=0x000a, f01=0x0190, f02=»JECT MSUBS * P* + P* + P* S W L X Y + ( P* + > 8 P* SUBROUTINE TO SWITCH PROGRAM PRIORITY LEVEL TO: + H ( P* :=48 IF LEVEL ON STACK IS >=48 + ( P* :=XY " " " " " XY<48 + P* + P* + PSWLXY EQU * + P INH +
0x000ca0…120cc0 [0x3ee]: Pad {f00=0x000a, f01=0x018e, f02=» + n P ANK A1,/FC , & P CWK A1,/C0 LEVEL IS IN BITS 8-13 , P RF(NL) LEV48 LEVEL >= 48? , F P ECR A1,A1 NO , h 8 P ORK A1,/C0 SET RUN AND ENABLE FLIP FLOPS (BITS 8&9) , ~ P* , PSETLEV EQU * , ( P ORS A1,4,A15 SET NEW LEVEL ON STACK , P LDR*
0x000ca0…120cc0 [0x3ef]: Pad {f00=0x000a, f01=0x0190, f02=» , b P RB SETLEV - P* - P EJECT - $ P* - 2 ( P* INTERRUPT SAVE AND HALT MODULE - < P* - h PINTSAV DATA 0 - r PSAVA15 DATA 0 - " PILLINT LDK A1,5 HALT PARAMETER - P CF A15,HALT - PHALT EQU * - P CF A15,SAVE8 - P STR A9,A1
0x000ca0…120cc0 [0x3f0]: Pad {f00=0x000a, f01=0x4046, f02=»TR A1,0,SOP INDICATE TYPE OF HALT - P HLT . * P END . 6@ . B
0x000ca0…120cc0 [0x3f1]: Pad {f00=0x000a, f01=0x2008, f02=» / 5 STACK " ~ P LDR* A1,A15 RESTORE A1 # P RTN A15 RETURN TO CALLER # 8 P* # Z P END # d@ # pN WHEN ALL STARTED " ` P EJECT " P* " P* " P* S W L 4 8 " P* " : P* SUBROUTINE TO SWITCH PROGRAM PRIORITY LEVEL TO 48. "
0x000ca0…120cc0 [0x3f2]: Pad {f00=0x000a, f01=0x407e, f02=» W T sP wR4 ` H D !6 P P B T P T B W0 )T& / B AW IP mU P h@ z $ 1W $P e % v ECBRL , ( W D (@ H B Z D U ECBEL ECBBA , (
0x000ca0…120cc0 [0x3f3]: Pad {f00=0x000a, f01=0x40e4, f02=» J F IDENT DRIC0X REL 8.1 78-04-21 870105040810 ITABRT ITADI ITADO R ITADI p ITADO IHRTN ITABRT @ @
0x000ca0…120cc0 [0x3f4]: Pad {f00=0x000a, f01=0x018e, f02=» J F IDENT ATTACH REL 8.1 78-04-21 870105040810 ATTACH DETACH ATT:CH R ATTACH t TTB:ST , ( T C @ T P U W DWTST DWTTAB TIODM , ( "$ X
0x000ca0…120cc0 [0x3f5]: Pad {f00=0x000a, f01=0x0190, f02=» , ( QD _ X X GETBLKK 4 , ( k T B Z T @_$ A @ F SETIMPK v TIOQ20B DETACH , ( 1 A N , ( X XT X Z Y
0x000ca0…120cc0 [0x3f6]: Pad {f00=0x000a, f01=0x0190, f02=» TTB:SAK TPQUE , ( $ ) U ATT:CH P IHRTN d , ( 0P P t FDBADF , ( - $ @ E R 0 , ( I P R I I W I
0x000ca0…120cc0 [0x3f7]: Pad {f00=0x000a, f01=0x4080, f02=» GP i mT, uT } n < 8 t T 8 h T ( P ER IP MR WW _ h oP * j@ | 0P P t FDBADF , ( - $ @ E R 0 , ( I P R I I W I
0x000ca0…120cc0 [0x3f8]: Pad {f00=0x000b, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f x T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x3f9]: Pad {f00=0x000b, f01=0x0002, f02=» h
0x000ca0…120cc0 [0x3fa]: Pad {f00=0x000b, f01=0x0190, f02=» 2 P IDENT TTMJOB REL 8.2 78-09-15 870105040820 P* : P* D P* MONITOR TABLE N P* h P* r P ENTRY TTMJOB TABLE ENTRY | " P ENTRY TTB:ST TERMINAL STATUS * P ENTRY TTB:ID TERMINAL IDENTIFICATION * P ENTRY TTB:PP PENDING PR
0x000ca0…120cc0 [0x3fb]: Pad {f00=0x000b, f01=0x0190, f02=» p " P ENTRY TTB:TD TERMINAL DEVICES P* . P* 8 P* B PTTMJOB DATA 0 TABLE ENTRY L ( PTTB:ST EQU *-TTMJOB TERMINAL STATUS n P DATA 48 0 PTTB:ID EQU *-TTMJOB TERMINAL IDENTIFICATION P DATA /8000 PTTB:PP EQU *-TTMJOB
0x000ca0…120cc0 [0x3fc]: Pad {f00=0x000b, f01=0x40f6, f02=»R z * PTTB:SA EQU *-TTMJOB TERMINAL SAVE AREA P DATA 0 8 & P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0 H ( PTTB:TD EQU *-TTMJOB TERMINAL DEVICES r P DATA TTABE-* PTTABE EQU * P* P* P* P END @ PP EQU *-TTMJOB
0x000ca0…120cc0 [0x3fd]: Pad {f00=0x000b, f01=0x2008, f02=» TMJOB TERMINAL STATUS P DATA 48 * 0 PTTABID EQU *-TTMJOB TERMINAL IDENTIFICATION : P DATA /8000 n PTTABPP EQU *-TTMJOB P DATA 0 * PTTABSA EQU *-TTMJOB TERMINAL SAVE AREA P DATA 0 & P DATA 0,0,0,0,0,0,0,0,0,0,0,0,
0x000ca0…120cc0 [0x3fe]: Pad {f00=0x000b, f01=0x0190, f02=» P* A1 = RETURN CODE & P* A2 = INPUT OR OUTPUT CHARACTER $ P* A3 = BUFFER INDEX N P* A4 = FUNCTION INDEX l P* A5 = STACK BASE P* A6 = DWT-ADDRESS P* A7 = ORDER P* A8 = ECB-ADDRESS P EJECT P*
0x000ca0…120cc0 [0x3ff]: Pad {f00=0x000b, f01=0x0190, f02=» VOLTAGE ERROR DISPENSER & P* BIT 3: TIMEOUT ERROR DISPENSER ( P* BIT 4: SOLENOID ERROR DISPENSER J * P* BIT 5: ELECTRONICS ERROR DISPENSER v ( P* BIT 6: DETECTOR ERROR DISPENSER * P* BIT 7: FRONT SHUTTER DOESN'T CLOSE ( P* BIT 8: P
0x000ca0…120cc0 [0x400]: Pad {f00=0x000b, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f x T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x401]: Pad {f00=0x000b, f01=0x0004, f02=» p x
0x000ca0…120cc0 [0x402]: Pad {f00=0x000b, f01=0x0190, f02=» 2 P IDENT INPRET REL 8.2 78-09-15 870105040820 P : P* B 6 P************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* INPRET = SUBROUTINE INTERPRETER P* P* P*
0x000ca0…120cc0 [0x403]: Pad {f00=0x000b, f01=0x0190, f02=» INTERPRETER TO HANDLE SUBROUTINE x < P* CALLS USING THE A14 STACK. THE INTERPRETER IS CALLED * @ P* WITH INSTRUCTION CODES /C001 - /C0FF WHERE /1 - /FF IS A j . P* INDEX. INDEX VAULES ARE 1,2,3,4...... @ P* THE INDEX IS USED TO GET ABSOLUTE ADDR
0x000ca0…120cc0 [0x404]: Pad {f00=0x000b, f01=0x018e, f02=»R TABLE. ('CVTINP') l P* H P* THE INTERPRETER MAY ALSO EXECUTE THE FOLLOWING TWO INSTRUCTIONS: & P* r . P* LD R1,DISPL,A13 CALLING CODE: CXYY | P* . P* ST R1,DISPL,A13 CALLING CODE: DXYY P* $ P* X = R1 = REGISTER
0x000ca0…120cc0 [0x405]: Pad {f00=0x000b, f01=0x0190, f02=» P* ENTRY * P********* P* ( P* 2 ( P ENTRY IHINPT TRAP INTERRUPT ADDRESS < P* h P* r P* | P************* P* EXTERNALS * P************* P* P* ( P EXTRN CVTINP FUNCTION TABLE ADDRESS P E
0x000ca0…120cc0 [0x406]: Pad {f00=0x000b, f01=0x0190, f02=»IHINPT EQU * $ P STR A1,A15 SAVE A1-A3 ON STACK P STR A2,A15 < P STR A3,A15 SAVE A3 ON STACK P $ P LD A1,10,A15 LOAD TRAP ADDRESS t P LDR* A2,A1 LOAD TRAP CODE P ADK A1,2 & P ST A1,10,A15 SAVE RETURN ADDRESS P LDR A3,A2 SAVE
0x000ca0…120cc0 [0x407]: Pad {f00=0x000b, f01=0x0190, f02=»EXECUTE LOAD/STORE INSTRUCTION P* & $ P SC A2,DISPL+1 STORE DISPLACMENT 0 , P SRL A3,1 SHIFT TO FIT INSTRUCTION CODE X P SLL A2,3 . P RF(NN) INT100 BRANCH IF LOAD INSTRUCTION ( P ADK A3,1 INDICATE STORE INSTRUCTION 6 PINT100 ADKL A3,/80
0x000ca0…120cc0 [0x408]: Pad {f00=0x000b, f01=0x0190, f02=»15 RESTORE A1-A2 P LDR* A1,A15 ( PINSTR DATA 0 LOAD/STORE INSTRUCTION , PDISPL DATA 0 DISPLACMENT X P STR A1,A15 SAVE A1 x * P CF A15,IHSTAK SAVE CONDITION REGISTER $ PIHSTAK LDR* A1,A15 GET COND. REG $ P ST A1,6,A15 STORE IN RETURN PSW
0x000ca0…120cc0 [0x409]: Pad {f00=0x000b, f01=0x0190, f02=»* P* P* EXECUTE SUBROUTINE CALL P* 8 PINT200 EQU * B 8 P STR A1,A14 STORE CONTINUATION ADDRESS ON A14 STACK V P LD A3,8,A15 ( P ST A3,-2,A14 STORE PSW ON A14 STACK $ P SUKL A14,4 ADJUST STACK POINTER P ANKL A2,/1FFF G
0x000ca0…120cc0 [0x40a]: Pad {f00=0x000b, f01=0x40a2, f02=» ADDRESS AND p ( P ST A2,10,A15 STORE IT ON A15 STACK : P ABL RETUR3 RESTORE A1-A3 AND GO TO CALLED SUBROUTINE @ P* ~ P* P END @ ( P ST A3,-2,A14 STORE PSW ON A14 STACK $ P SUKL A14,4 ADJUST STACK POINTER P ANKL A2,/1FFF G
0x000ca0…120cc0 [0x40b]: Pad {f00=0x000b, f01=0x2008, f02=» RT ADDRESS t 0 P LDR* A2,A2 GET SUBROUTINE START ADDRESS AND ( P ST A2,10,A15 STORE IT ON A15 STACK N : P ABL RETUR3 RESTORE A1-A3 AND GO TO CALLED SUBROUTINE z P* P* P END @ ( P ST A3,-2,A14 STORE PSW ON A14 STACK $
0x000ca0…120cc0 [0x40c]: Pad {f00=0x000b, f01=0x0190, f02=» " P* -BITS 0-7 IN THE FIRST WORD P* -ECBEL EFFECTIVE LENGTH . P* -ECBRC RETURN CODE R P* p P z P P P* 2 P* GET DWT ADDRESS AND CHECK IF DEVICE IS BUSY P* P P ( PTIO CF A15,FNDDWT SEARCH DWT A
0x000ca0…120cc0 [0x40d]: Pad {f00=0x000b, f01=0x0190, f02=»,A9 SAVE TASK STATUS P RF(N) TIO020 DMTASK CALLING $ P LDKL A9,/4000 REQUEST BUSY BIT @ P AN A9,DWTST,A6 h , P RF(NZ) TIOQ20 REQ BUSY,NOT DMTASK CALL PTIO020 EQU * P CCK A7,/BB00 P ABL(E) ATTACH ATTACH ORDER P CCK A7,/BC0
0x000ca0…120cc0 [0x40e]: Pad {f00=0x000b, f01=0x0190, f02=»A10,/0800 ATTACH BIT P AN A10,DWTST,A6 P RF(Z) TIO030 NOT ATTACHED 4 P CW A5,DWTTAB,A6 V * P RF(NE) TIOQ20 ATTACHED TO OTHER TASK n P AN A3,DWTST,A6 P RF(Z) TIOQ05 DEVICE BUSY PTIO030 EQU * P AN A3,DWTST,A6 P RF(Z) T
0x000ca0…120cc0 [0x40f]: Pad {f00=0x000b, f01=0x0190, f02=» P RF(Z) TIO100 NOT ECHO P LDKL A2,TIODM " P CW A2,DWTADR,A6 8 P RF(E) TIO090 DM-REQUEST P & P LD A2,DWTECH,A6 LOAD ECHO DEVICE p P RF(Z) TIO100 NO ECHO DEVICE & P LDKL A10,/100 BIT 7=INPUT DEVICE P ANR* A10,A6 ECHO ALLOWED? P
0x000ca0…120cc0 [0x410]: Pad {f00=0x0002, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f x T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x411]: Pad {f00=0x0002, f01=0x0002, f02=» X
0x000ca0…120cc0 [0x412]: Pad {f00=0x0002, f01=0x018e, f02=» 0 P IDENT PFTAB REL 8.2 78-09-15 870105040820 P* 8 P* B P* L P* POWER FAIL TABLE V P* p D P* THIS TABLE HOLDS ADDRESSES TO MODULES THAT SHOULD BE EXECUTED z P* AFTER MASTER CLEAR P* P* P ENTRY PFTAB TABLE ENTRY
0x000ca0…120cc0 [0x413]: Pad {f00=0x0002, f01=0x4184, f02=» ( P EXTRN CHLTON LOCAL/REMOTE TERMINALS P EXTRN DUON DISC UNIT 0 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION N $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA DC15ON P DATA TCDRON P DATA SOPR P* P DATA CHLTON
0x000ca0…120cc0 [0x414]: Pad {f00=0x0002, f01=0x2008, f02=» TON LOCAL/REMOTE TERMINALS P* * P EXTRN DUON DISC UNIT 4 " P EXTRN MTON MAGNETIC YAPE UNIT R P* x P* $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA TWON P DATA TCDRON P DATA SOPR P DATA DRDCON P DATA CH
0x000ca0…120cc0 [0x415]: Pad {f00=0x0002, f01=0x0190, f02=»PAR FREE PARTITION POINTER " P ENTRY PARLEN PARTITION LENGTH " & P ENTRY NUMPAR NUMBER OF PARTITIONS H P r , P EXTRN IHPFAR POWER FAIL / AUTO RESTART z P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK P EXTRN IHTW TYPEWRITER
0x000ca0…120cc0 [0x416]: Pad {f00=0x0002, f01=0x0190, f02=» * P EXTRN CHRT1 REMOTE CHANNEL UNIT NO. 1 * P EXTRN CHRT2 REMOTE CHANNEL UNIT NO. 2 6 P EXTRN CHRT3 d P EXTRN CHRT4 x ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 ( P EXTRN IHCC2 2 ( P EXTRN IHCC3 3
0x000ca0…120cc0 [0x417]: Pad {f00=0x0002, f01=0x0190, f02=»AL CHANNEL UNIT NO. 4 P EXTRN IHFD FLOPPY DISCEN P EXTRN IHLP LINE PRINTER @ P EXTRN IHCR CARD-READER ` P EXTRN IHDU1 DISC UNIT NO. 1 P EXTRN IHDU2 DISC UNIT NO. 2 P EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT
0x000ca0…120cc0 [0x418]: Pad {f00=0x0047, f01=0x0190, f02=» DATA /0005,/1500,/0C00,/0000 08-0F ( P DATA /1011,/1213,/3C3D,/3226 10-17 , ( P DATA /7019,/3F27,/1C1D,/1E1F 18-1F X ( P DATA /404F,/7F7B,/5B6C,/507D 20-27 ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 ( P D
0x000ca0…120cc0 [0x419]: Pad {f00=0x0047, f01=0x0002, f02=»
0x000ca0…120cc0 [0x41a]: Pad {f00=0x0047, f01=0x018e, f02=» 0 P IDENT LKMAL REL 8.2 78-09-15 870105040820 P* 8 P* B $ P* LINK TO MONITOR REQUEST TABLE L @ P* THIS TABLE HOLDS INFORMATION ABOUT MODULES THAT HANDLE THE t ( P* DIFFERENT LINK TO MONITOR REQUESTS P* 2 P ENTRY LKMAL TABLE ENTRY CON
0x000ca0…120cc0 [0x41b]: Pad {f00=0x0047, f01=0x0190, f02=» * P EXTRN TACTOT ACTIVATE OTHER TERMINAL P EXTRN TPAUSE PAUSE TERMINAL 2 P EXTRN TIMER TIMER V P EXTRN GETBUF GET BUFFER p P EXTRN RELBUF RELEASE BUFFER P EXTRN TABORT ABORT FUNCTION 2 P EXTRN TASS,IXTASS ASSIGN FILE CODE AND INDEX
0x000ca0…120cc0 [0x41c]: Pad {f00=0x0047, f01=0x0190, f02=»ATA TEXIT TERMINAL EXIT ( P DATA TACTOT ACTIVATE OTHER TERMINAL P DATA TPAUSE TERMINAL PAUSE L P DATA TIMER TIMER p P DATA GETBUF GET BUFFER P DATA RELBUF RELEASE BUFFER P DATA 0 P DATA TABORT ABORT FUNCTION
0x000ca0…120cc0 [0x41d]: Pad {f00=0x0047, f01=0x4050, f02=»ASSIGN FILE CODE AND INDEX ~ PLKMALE EQU * " P* 6 P END @@ LA TPAUSE TERMINAL PAUSE L P DATA TIMER TIMER p P DATA GETBUF GET BUFFER P DATA RELBUF RELEASE BUFFER P DATA 0 P DATA TABORT ABORT FUNCTION
0x000ca0…120cc0 [0x41e]: Pad {f00=0x0047, f01=0x2008, f02=» f " P DATA SETTIM SET MONITOR CLOCK PLKMALE EQU * 4 P* H P END R@ ^INAL EXIT R ( P DATA TACTOT ACTIVATE OTHER TERMINAL t P DATA TPAUSE TERMINAL PAUSE P DATA TIMER TIMER P DATA GETBUF GET BUFFER P DATA RELBUF
0x000ca0…120cc0 [0x41f]: Pad {f00=0x0047, f01=0x0190, f02=»/O MOV DVTOD,/S,TOSSWORK KPF /S,DVTOD ( SCR < INC DVTOD,TOSSWORK H KPF /O d MOV DVTT1,/S,TOSSWORK r KPF /S,DVTT1 SCR INC DVTT1,TOSSWORK KPF /O MOV DWII01,/S,TOSSWORK KPF /S,DWII01
0x000ca0…120cc0 [0x420]: Pad {f00=0x0047, f01=0x0190, f02=» ~ P* & P* FREE BLOCK AND TIMER IN ATT:CH P* < P CM* 2,A4 FREE TIMER F " P LDR* A3,A4 REMOVE FROM ATT:CH b P STR A3,A2 P CF A15,FREBLK RELEASE BLOCK PATT:20 LDK A3,0 RETURN CODE " PATT:30 ABL TIOERR END REQUEST $ PAT
0x000ca0…120cc0 [0x421]: Pad {f00=0x0047, f01=0x0002, f02=»
0x000ca0…120cc0 [0x422]: Pad {f00=0x0047, f01=0x0190, f02=» 0 P IDENT DVTKB REL 8.2 78-09-15 870105040820 P* 8 " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVTKB TABLE ENTRY r P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN ECH P* P* PDVTKB EQU * TABLE ENTRY
0x000ca0…120cc0 [0x423]: Pad {f00=0x0047, f01=0x0190, f02=»R AND ECB-ADDRESS j ( P DATA KBAD POINTER TO ADDRESS BLOCK P DATA 'KB' TTAB-ADDRESS F $ P DATA 0 WAIT/INDICATE INDICATOR f P DATA 0 TERMINAL QUEUE * P DATA 0 CODE CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE ARE
0x000ca0…120cc0 [0x424]: Pad {f00=0x0047, f01=0x4140, f02=»ATA /BCA BACKSPACE AND CANCEL " P DATA /ED0 EOR AND DOUBLE ZERO & 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE L 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE PDWTSQ EQU *-DVTKB P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0
0x000ca0…120cc0 [0x425]: Pad {f00=0x0047, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES
0x000ca0…120cc0 [0x426]: Pad {f00=0x0047, f01=0x0190, f02=»F70 90-97 v ( P DATA /7172,/5D24,/2A29,/3B5E 98-9F ( P DATA /2D2F,/7374,/7576,/7778 A0-A7 > ( P DATA /797A,/7C2C,/255F,/3E3F A8-AF j ( P DATA /3031,/3233,/3435,/3637 B0-B7 ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /2041,/4243,/4445,/464
0x000ca0…120cc0 [0x427]: Pad {f00=0x0047, f01=0x0190, f02=»D8-DF r ( P DATA /2D2F,/5354,/5556,/5758 E0-E7 ( P DATA /595A,/7C2C,/255F,/3E3F E8-EF : ( P DATA /3031,/3233,/3435,/3637 F0-F7 f ( P DATA /3839,/3A23,/4027,/3DFF F8-FF P XIF P EJECT P* P* 2 P* TABLE FOR CONVERSION OF ASCI
0x000ca0…120cc0 [0x428]: Pad {f00=0x000d, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x429]: Pad {f00=0x000d, f01=0x0002, f02=»
0x000ca0…120cc0 [0x42a]: Pad {f00=0x000d, f01=0x0190, f02=» 0 P IDENT DVTTP REL 8.2 78-09-15 870105040820 P* 8 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER B P* z P ENTRY DVTTP TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDVTTP EQU * TABLE
0x000ca0…120cc0 [0x42b]: Pad {f00=0x000d, f01=0x018e, f02=»ATA DWTEND-DVTTP LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK . P DATA 'TP' TTAB-ADDRESS Z $ P DATA 0 WAIT/ACTIVATE INDICATOR z P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5
0x000ca0…120cc0 [0x42c]: Pad {f00=0x000d, f01=0x4022, f02=» P* P END @ RDER ( P DATA TPAD POINTER TO ADDRESS BLOCK . P DATA 'TP' TTAB-ADDRESS Z $ P DATA 0 WAIT/ACTIVATE INDICATOR z P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5
0x000ca0…120cc0 [0x42d]: Pad {f00=0x000d, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0 TI
0x000ca0…120cc0 [0x42e]: Pad {f00=0x000d, f01=0x0190, f02=»M INVALID POLL 3 PBRM120 EQU * 4 & P CF A5,FINTER CHECK IF STA PRESENT 4 * P LDR A6,A3 LOAD DWT TO A6 4 T P RF(NZ) BRM130 STA FOUND 4 v $ P LDKL A6,DWDC00 SELECT TO DCTASK 4 PBRM130 EQU * 4 P ABL SELECT 4 P EJECT 4 P* 4 P* 4 P*
0x000ca0…120cc0 [0x42f]: Pad {f00=0x000d, f01=0x0190, f02=»F(Z) BRM220 ACK IS NOT EXPECTED 4 " P LD A6,FDWTUT GET WRITING DWT 5 ( P RF(Z) BRM210 NO ONE WRITING 5 N P LDK A1,2 SET RC=2 5 r ( P CF A5,CWRITE COMPLETE WRITE REQUEST 5 PBRM210 EQU * 5 " P CM XACK RESET 'ACK EXPECTED' 5 PBRM220 EQU * 5 P CM
0x000ca0…120cc0 [0x430]: Pad {f00=0x000e, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x431]: Pad {f00=0x000e, f01=0x0002, f02=»
0x000ca0…120cc0 [0x432]: Pad {f00=0x000e, f01=0x0190, f02=» 0 P IDENT DVTGP REL 8.2 78-09-15 870105040820 P* 8 , P* DEVICE WORK TABLE FOR GENERAL PRINTER B P* r P ENTRY DVTGP TABLE ENTRY | P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK P* P* PDVTGP EQU * TABLE ENTRY
0x000ca0…120cc0 [0x433]: Pad {f00=0x000e, f01=0x0190, f02=»R AND ECB-ADDRESS j ( P DATA GPAD POINTER TO ADDRESS-BLOCK P DATA 'GP' TTAB-ADDRESS F $ P DATA 0 WAIT/ACTIVATE INDICATOR f P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4
0x000ca0…120cc0 [0x434]: Pad {f00=0x000e, f01=0x4032, f02=» EQU * P* P* P END "@ .DRESS-BLOCK P DATA 'GP' TTAB-ADDRESS F $ P DATA 0 WAIT/ACTIVATE INDICATOR f P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4
0x000ca0…120cc0 [0x435]: Pad {f00=0x000e, f01=0x2008, f02=» ESS-BLOCK ~ P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 6 P DATA 0 TERMINAL QUEUE ^ P DATA 0 OUTPUT QUEUE LINK | P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-S
0x000ca0…120cc0 [0x436]: Pad {f00=0x000e, f01=0x0190, f02=»RY DWFD01 DWT-ADDRESS P* P************* ( P* * > P* EXTERNALS * T P* * j P************* P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO P EXTRN DISIOE REQUEST ERROR P EXTRN DWT
0x000ca0…120cc0 [0x437]: Pad {f00=0x000e, f01=0x0190, f02=»ETIMP TIMER & P EXTRN INIFLG INITIALIZATION FLAG & P EXTRN INTSAV INTERRUPT SAVE AREA > & P EXTRN TASCII EBCDIC TO ASCII TAB h & P EXTRN TEBCDIC ASCII TO EBCDIC TAB $ P EXTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH
0x000ca0…120cc0 [0x438]: Pad {f00=0x000e, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x439]: Pad {f00=0x000e, f01=0x0002, f02=»
0x000ca0…120cc0 [0x43a]: Pad {f00=0x000e, f01=0x018e, f02=» 0 P IDENT DVTDN REL 8.2 78-09-15 870105040820 P* 8 , P* DEVICE WORK TABLE FOR NUMERIC DISPLAY B P* r P ENTRY DVTDN TABLE ENTRY | P* ( P EXTRN DNAD POINTER TO ADDRESS-BLOCK P* PDVTDN EQU * TABLE ENTRY " P DATA /1111 CH
0x000ca0…120cc0 [0x43b]: Pad {f00=0x000e, f01=0x4162, f02=» V ( P DATA DNAD POINTER TO ADDRESS-BLOCK P DATA 'DN' TTAB-ADDRESS 4 $ P DATA 0 WAIT/ACTIVATE INDICATOR T P DATA 0 TERMINAL QUEUE | P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE A
0x000ca0…120cc0 [0x43c]: Pad {f00=0x000e, f01=0x2008, f02=» DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR $ P DATA 0 TERMINAL QUEUE L P DATA 0 OUTPUT QUEUE LINK j P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK P*
0x000ca0…120cc0 [0x43d]: Pad {f00=0x000e, f01=0x0190, f02=»TR A3,A4 TRACK INTO BUF " P CF A5,SETINH INHIBIT # P* # > P* WRITE DATA SET LABEL # H P* # h P CF A5,DSLIO PREPARE FOR I/O # r P ORK A2,5 PHYSICAL WRITE # ( P CF A5,FD:WRITE WRITE DATA SET LEBEL # $ P CF A5,UNL:RC CHECK RETURN CODE # P
0x000ca0…120cc0 [0x43e]: Pad {f00=0x000e, f01=0x018e, f02=»2,/C UNLOCK # P CF A5,FD:REA $ P ORS A3,DWTRCW,A6 $ * P ANK A3,1 $ D , P RF(NZ) UNL:80 NOT OPERABLE,STILL LOCKED $ V P LD A2,DWTA3,A6 INDEX MASK $ , P XRS A2,DWTLC,A6 INDICATE UNLOCK IN DWT $ PUNL:80 EQU * $ P RB LOA:75 END:IO $ P IFF
0x000ca0…120cc0 [0x43f]: Pad {f00=0x000e, f01=0x0190, f02=» $ v P RB(NZ) UNL:80 ENDIO % P RTN A5 % $ P XIF % 4 P IFT IBM=1 % @ P EJECT % R P* % ` P******************* % j P* SEQUENTIAL READ * % P******************* % P* % PSQREAD EQU * % * P CF A5,DSOPCH GET EOD AND EOD ADDRESS % P
0x000ca0…120cc0 [0x440]: Pad {f00=0x000f, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x441]: Pad {f00=0x000f, f01=0x0002, f02=»
0x000ca0…120cc0 [0x442]: Pad {f00=0x000f, f01=0x0190, f02=» 0 P IDENT DVTDI REL 8.2 78-09-15 870105040820 P* 8 P* B . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR L P* ~ P* & P ENTRY DVTDI DISPLAY INDICATOR 03 P* P* ( P EXTRN DIAD POINTER TO ADDRESS-BLOCK P* P*
0x000ca0…120cc0 [0x443]: Pad {f00=0x000f, f01=0x4188, f02=»0,DWTEND-DVTDI ECB-ADDRESS AND ORDER ( P DATA DIAD POINTER TO ADDRESS-BLOCK , 6 P DATA 'DI',0 TERM.NUMBER AND PROGRAM START ADDRESS X $ P DATA 0 ECB QUEUE ANCHOR ADDRESS P DATA 0 OUTPUT QUEUE P DATA /2010 P DATA /3F4F,/5F6F * P DATA
0x000ca0…120cc0 [0x444]: Pad {f00=0x000f, f01=0x2008, f02=» A DIAD POINTER TO ADDRESS-BLOCK 4 P DATA 0,0 TERM.NUMBER AND PROGRAM START ADDRESS 0 $ P DATA 0 ECB QUEUE ANCHOR ADDRESS h P DATA 0 OUTPUT QUEUE P DATA /2010 P DATA /3F4F,/5F6F P* P* P END @ BLE ENTRY
0x000ca0…120cc0 [0x445]: Pad {f00=0x000f, f01=0x0190, f02=»DRESS x P LDR* A2,A4 KEY AREA LENGTH P LDR A1,A2 2 " P ABL(NP) END:10 ILLEGAL LENGTH D P SUK A1,128 j " P ABL(P) END:10 ILLEGAL LENGTH ~ P LDR A3,A2 P* * P* IF ODD CHANGE TO EVEN NO OF BYTES P* P ADK A3,1 P
0x000ca0…120cc0 [0x446]: Pad {f00=0x000f, f01=0x018e, f02=» CF A5,FD:WRI SEARCH KEY P LDR A3,A3 RETURN CODE P RB(NZ) FD:048 > P* T $ P* READ RECORD WITH KEY COMMAND ^ P* PFD:060 EQU * P LDKL A2,/8004 BIO P LD A3,4,A8 REQUESTED LENGTH P CWK A3,130 " P ABL(NE) END:10 ILLE
0x000ca0…120cc0 [0x447]: Pad {f00=0x000f, f01=0x018e, f02=» ~ P* TEST STATUS * P* * P*************** 8 P* P PFD:070 EQU * Z P LDKL A2,/FFF9 BIO DUMMY n P CF A5,FD:WRI " P ANKL A3,/0201 WRITE PROTECT? P LDR A1,A3 P IFF DAMA+IBM=0 * P CF A5,VOLADR GET VOL
0x000ca0…120cc0 [0x448]: Pad {f00=0x000f, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x449]: Pad {f00=0x000f, f01=0x0002, f02=»
0x000ca0…120cc0 [0x44a]: Pad {f00=0x000f, f01=0x0190, f02=» 0 P IDENT DVTDY REL 8.2 78-09-15 870105040820 P* 8 * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVTDY TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK P* P* PDVTDY EQU * TABLE ENTRY
0x000ca0…120cc0 [0x44b]: Pad {f00=0x000f, f01=0x0190, f02=»AND ECB-ADDRESS h ( P DATA DYAD POINTER TO ADDRESS-BLOCK P DATA 'DY' TTAB-ADDRESS D $ P DATA 0 WAIT/ACTIVATE INDICATOR d P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4
0x000ca0…120cc0 [0x44c]: Pad {f00=0x000f, f01=0x407e, f02=»EFT BYTE=NUMBER OF LINES " P RIGHT BYTE=CHARACTERS/LINE PDWTEND EQU * F P* Z P* d P END n@ zCATOR d P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4
0x000ca0…120cc0 [0x44d]: Pad {f00=0x000f, f01=0x2008, f02=» S-BLOCK | P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 4 P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK z P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STA
0x000ca0…120cc0 [0x44e]: Pad {f00=0x000f, f01=0x0190, f02=» P ANR A1,A2 4 P RF(Z) FDON30 NOT LOCKED 4 P ST A2,DWTA3,A6 SAVE 4 6 P* 4 R P* PUT DRIVE NO IN CIO INSTR 4 P* 4 P SRN A2,A3 DRIVE NO IN A3 4 * P CF A5,SETCIO PUT DRVE NO IN CIO-INSTR 4 P LDK A2,/14 LOCK 4 P CF A5,FD:REA 4 P L
0x000ca0…120cc0 [0x44f]: Pad {f00=0x000f, f01=0x0190, f02=» SLL A2,1 4 P CWK A2,/0010 5 P RB(NE) FDON25 5 ( P* 5 > P* ANY REQUEST? 5 H P* 5 ` P* 5 j . P* RESTORE STATUS SAVED IN DWST2 TO DWTST. 5 t P* SET DWTST2 TO -1 5 " P LD A2,DWTST2,A6 SAVED STATUS 5 * P ST A2,DWTST,A6 PUT IN CUURENT STA
0x000ca0…120cc0 [0x450]: Pad {f00=0x0010, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x451]: Pad {f00=0x0010, f01=0x0002, f02=»
0x000ca0…120cc0 [0x452]: Pad {f00=0x0010, f01=0x0190, f02=» 0 P IDENT DVTCG REL 8.2 78-09-15 870105040820 P* 8 $ P* DEVICE WORK TABLE COT GENERAL B P* j P ENTRY DVTCG TABLE ENTRY t P*** ( P EXTRN CGAD POINTER TO ADDRESSBLOCK P EXTRN ECH P* P* PDVTCG EQU * TABLE ENTRY
0x000ca0…120cc0 [0x453]: Pad {f00=0x0010, f01=0x0190, f02=»DER AND ECB-ADDRESS l ( P DATA CGAD POINTER TO ADDRESS BLOCK P DATA 'CG' TTAB-ADDRESS H $ P DATA 0 WAIT/INDICATE INDICATOR h P DATA 0 TERMINAL QUEUE * P DATA 0 CODE CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE A
0x000ca0…120cc0 [0x454]: Pad {f00=0x0010, f01=0x407c, f02=» DATA /BCA BACKSPACE AND CANCEL " P DATA /ED0 EOR AND DOUBLE ZERO ( PDWTEND EQU * N P* b P END l@ xE INDICATOR h P DATA 0 TERMINAL QUEUE * P DATA 0 CODE CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE A
0x000ca0…120cc0 [0x455]: Pad {f00=0x0010, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES
0x000ca0…120cc0 [0x456]: Pad {f00=0x0010, f01=0x0190, f02=»WAIT 4 TEXIT F EXITN TACTOTK L FNDTID LKMRQE ACTOT TPAUSE 0 r NATTACX ATTACH DETACH TIOERRK ATT:CH DRIC01 ITADI ITADO ECBCW FNDTID DWTTABN TTB:TD DWTADR DWTST
0x000ca0…120cc0 [0x457]: Pad {f00=0x0010, f01=0x0190, f02=» ITADI ITADO IHRTN ITABRT ATTACH " ATTACH TTB:ST DWTST DWTTAB TIODM DWTADR FREBLK TIOERRV GETBLKK SETIMPK TIOQ20B DETACH DWTTQ TDISP TTB:SAK TPQUE ATT:CH IHRTN FDBADF QTJ
0x000ca0…120cc0 [0x458]: Pad {f00=0x0010, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x459]: Pad {f00=0x0010, f01=0x0002, f02=»
0x000ca0…120cc0 [0x45a]: Pad {f00=0x0010, f01=0x0190, f02=» 0 P IDENT DVTCD REL 8.2 78-09-15 870105040820 P* 8 P* B . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR L P* ~ P* & P ENTRY DVTCD DISPLAY INDICATOR 03 P* P* ( P EXTRN CDAD POINTER TO ADDRESS-BLOCK P* P*
0x000ca0…120cc0 [0x45b]: Pad {f00=0x0010, f01=0x4140, f02=»0,DWTEND-DVTCD ECB-ADDRESS AND ORDER ( P DATA CDAD POINTER TO ADDRESS-BLOCK , 6 P DATA 'CD',0 TERM.NUMBER AND PROGRAM START ADDRESS X $ P DATA 0 ECB QUEUE ANCHOR ADDRESS P DATA 0 OUTPUT QUEUE P DATA 0,0,0 P RES 4 P DATA 0 PDW
0x000ca0…120cc0 [0x45c]: Pad {f00=0x0010, f01=0x2008, f02=» A DIAD POINTER TO ADDRESS-BLOCK 4 P DATA 0,0 TERM.NUMBER AND PROGRAM START ADDRESS 0 $ P DATA 0 ECB QUEUE ANCHOR ADDRESS h P DATA 0 OUTPUT QUEUE P DATA /2010 P DATA /3F4F,/5F6F P* P* P END @ BLE ENTRY
0x000ca0…120cc0 [0x45d]: Pad {f00=0x0010, f01=0x2008, f02=» NT CDTAB P* P* " P* COMMON DEVICE TABLE , P* L 0 P* THIS TABLE HOLDS DEVICES THAT ARE COMMON V P* TO ALL TASKS P* P ENTRY CDTAB P* P* P* P* P* P* P* P*
0x000ca0…120cc0 [0x45e]: Pad {f00=0x0010, f01=0x0190, f02=» l P LD A2,CRCSAV+2 SAVE IT P SLL A2,8 ( P XRR A2,A8 : P ADK A5,4 L . P CWR A2,A6 COMPARE RECEIVED WITH COMPUTED ^ P ABR* A5 P XIF P IFT CODE=0 P* & P* RDLRC READ LRC CHARACTER " P* CR=0 IF
0x000ca0…120cc0 [0x45f]: Pad {f00=0x0010, f01=0x0190, f02=» EQU * P CM SYNSW P ABR* A5 P 0 P XIF 8 P EJECT D P* R P* " P* DEVICE WORK TABLE FOR DCTASK f P* P* PDW1500 EQU * TABLE ENTRY P DATA 0 CU LINE ADDRESS P DATA /8000 STATUS P DATA 0 ECB ADDR
0x000ca0…120cc0 [0x460]: Pad {f00=0x0011, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x461]: Pad {f00=0x0011, f01=0x0002, f02=» (
0x000ca0…120cc0 [0x462]: Pad {f00=0x0011, f01=0x0190, f02=» 0 P IDENT DVTMS REL 8.2 78-09-15 870105040820 P* 8 0 P* DEVICE WORK TABLE FOR MAGNETIC STRIPE UNIT B P* v P ENTRY DVTMS TABLE ENTRY P* ( P EXTRN MSAD POINTER TO ADDRESSBLOCK P* P* PDVTMS EQU * TABLE ENTRY " P
0x000ca0…120cc0 [0x463]: Pad {f00=0x0011, f01=0x0190, f02=»T AND ORDER CODE ~ ( P DATA MSAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS D & P DATA 0 WAIT/ACTIVATION INDICATOR ` P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P
0x000ca0…120cc0 [0x464]: Pad {f00=0x0011, f01=0x4028, f02=»LATOR ~ P* P END @ $ER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS D & P DATA 0 WAIT/ACTIVATION INDICATOR ` P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P
0x000ca0…120cc0 [0x465]: Pad {f00=0x0011, f01=0x2008, f02=» ER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS ( & P DATA 0 WAIT/ACTIVATION INDICATOR D P DATA 0 TERMINAL QUEUE n P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5
0x000ca0…120cc0 [0x466]: Pad {f00=0x0011, f01=0x0190, f02=» W P W , ( s@@ X R ! Y # ! , TDISP , ( : R _ 4 ! l * & ! " T ! ! , ( 4 X # 4 Y # ! " " P ,$
0x000ca0…120cc0 [0x467]: Pad {f00=0x0011, f01=0x40fe, f02=» Q V W ` T V T l H D ! p T W Q T + 1P 3Q 9W K x W ] sT P P W ( H D ! V P RN Q PH P R: T2 U W4 T )R /U =W QRD t $ UP [P cW2 wR R T P @ P ,$
0x000ca0…120cc0 [0x468]: Pad {f00=0x0011, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x469]: Pad {f00=0x0011, f01=0x0002, f02=» 8
0x000ca0…120cc0 [0x46a]: Pad {f00=0x0011, f01=0x0190, f02=» 0 P IDENT DVTOD REL 8.2 78-09-15 870105040820 P* 8 0 P* OPTICAL DOCUMENT READER DEVICE WORK TABLE B P* v P ENTRY DVTOD TABLE ENTRY P*** ( P EXTRN ODAD POINTER TO ADDRESSBLOCK P***** P* P* PDVTOD EQU * TABL
0x000ca0…120cc0 [0x46b]: Pad {f00=0x0011, f01=0x0190, f02=»TPUT, ORDER AND ECB-ADDRESS t ( P DATA ODAD POINTER TO ADDRESS BLOCK $ P DATA 'OD' TTAB-ADDRESS P $ P DATA 0 WAIT/INDICATE INDICATOR p P DATA 0 TERMINAL QUEUE * P DATA 0 CODE CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3 P DATA
0x000ca0…120cc0 [0x46c]: Pad {f00=0x0011, f01=0x40fc, f02=» P DATA 0 P DATA 0 LRC-ACKUMULATOR 6 P DATA DWTSQ+DVTOD POINTER TO FIRST PLACE IN QUEUE 4 4 P DATA DWTSQ+DVTOD POINTER TO LAST PLACE IN QUEUE n PDWTSQ EQU *-DVTOD P RES 0 PDWTEND EQU * P* P END @ P DATA
0x000ca0…120cc0 [0x46d]: Pad {f00=0x0011, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES
0x000ca0…120cc0 [0x46e]: Pad {f00=0x0011, f01=0x0190, f02=» ADK A7,1 P RF(3) CASSPE PARG2PS SRC A7,1 > P RF(6) NOVER1 P ADR A1,A6 | PNOVER1 SRA A2,1 P SRC A1,1 P RF(6) NOVER2 P ORK.L
0x000ca0…120cc0 [0x46f]: Pad {f00=0x0011, f01=0x0190, f02=» *END* RESTORE SI=N z P RF(0) END1 " P C1R A1,A1 @ P C1R A2,A2 ` P ADK A2,1 D P*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR < P* WHEN THE ADK A2,1 SET AN OVERFLOW
0x000ca0…120cc0 [0x470]: Pad {f00=0x0012, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x471]: Pad {f00=0x0012, f01=0x0002, f02=» H
0x000ca0…120cc0 [0x472]: Pad {f00=0x0012, f01=0x0190, f02=» 0 P IDENT DVTT1 REL 8.2 78-09-15 870105040820 P* 8 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER B P* z P ENTRY DVTT1 TABLE ENTRY P* P* * P EXTRN TPAD3 POINTER TO ADDRESS-BLOCK P* P* PDVTT1 EQU * TABL
0x000ca0…120cc0 [0x473]: Pad {f00=0x0012, f01=0x0190, f02=» DATA DWTEND-DVTT1 LAST OUTPUT CHR,ORDER ( P DATA TPAD3 POINTER TO ADDRESS BLOCK 0 P DATA 'TP' TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR | P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,
0x000ca0…120cc0 [0x474]: Pad {f00=0x0012, f01=0x40bc, f02=»AL PRINT POSITION z " P DATA 0,0 PRINTING PARAMETERS & P DATA 0 DOC. PARAMETER ADR. TABLE @ P DATA 0 SAVE AREA j PDWTEND EQU * P* P* P END @ P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,
0x000ca0…120cc0 [0x475]: Pad {f00=0x0012, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0 TI
0x000ca0…120cc0 [0x476]: Pad {f00=0x0012, f01=0x0190, f02=» A6 : DWT-ADDRESS P* A7 : ORDER " P* A8 : ECB-ADDRESS @ P* f P* p P* z P* SYSTEM ADAPTATION P* 8 P* CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, 8 P* MULTIPLE ZERO AND STANDARD EO
0x000ca0…120cc0 [0x477]: Pad {f00=0x0012, f01=0x0190, f02=» P* , P* IF TIMING IS WANTED, TIMER POINTER , P* IN DWT MUST BE SET UNEQUAL TO ZERO. > 2 P* STANDARD VALUE FOR TIME-OUT IS 30 SECONDS n 4 P* SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE * P* IS WANTED FOR A SYSTEM, INDICATOR $ P
0x000ca0…120cc0 [0x478]: Pad {f00=0x0012, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x479]: Pad {f00=0x0012, f01=0x0002, f02=» X
0x000ca0…120cc0 [0x47a]: Pad {f00=0x0012, f01=0x0190, f02=» 2 P IDENT DWII01 REL 8.2 78-09-15 870105040820 P* : ( P* INTERTASK COMMUNICATION INPUT DWT D P* p P ENTRY DWII01 TABLE ENTRY z P P EXTRN ITADI DRIVER ENTRY P PDWII01 EQU * & P DATA 0 QUEUE ANCHOR OUTPUT DWT'S
0x000ca0…120cc0 [0x47b]: Pad {f00=0x0012, f01=0x40c0, f02=» | $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE 0 P DATA 0 TIMER POINTER N P DATA 0 TIME OUT l P DATA 0 P DATA 0,0 SAVE AREA P END @ P PDWII01 EQU * & P DATA 0 QUEUE ANCHOR OUTPUT DWT'S
0x000ca0…120cc0 [0x47c]: Pad {f00=0x0012, f01=0x2008, f02=» DATA 0 TTAB ADDRESS $ DATA 0 WAIT/ACTIVATE INDICATOR $ DATA 0 TERMINAL QUEUE L DATA 0 TIMER POINTER j DATA 0 TIME OUT DATA 0 DATA 0,0 SAVE AREA END @ & ! DATA 0 QUEUE ANCHOR OUTPUT DWT'S
0x000ca0…120cc0 [0x47d]: Pad {f00=0x0012, f01=0x0190, f02=» v P EXTRN DWTST DWT STATUS P EXTRN SETIMP TIMER ( , P EXTRN FNDTID FIND TTAB ADDRESS FROM TID D P EXTRN TTB:TD t P EXTRN TTB:ST TTAB STATUS " P EXTRN DWTTAB DWT TTAB ADDRESS $ P EXTRN DWTADR ACTIVATION ADDRESS * P EXTRN IHRTN RTN
0x000ca0…120cc0 [0x47e]: Pad {f00=0x0012, f01=0x0190, f02=»LENGTH z P EXTRN ECBRC ECB RETURN CODE " P EXTRN ECBCW ECB CONTROL WORD 2 P* X P* C O N S T A N T S b P* PDWTTP EQU /10 TIMER POINTER " PDWSTB EQU /18 STACK BASE USED * PDWSTB2 EQU /1E STACK BASE 2 (NOT USED) PDWTIM EQ
0x000ca0…120cc0 [0x47f]: Pad {f00=0x0012, f01=0x0190, f02=»D PITADO DATA ICAD P " PICAD EQU * * P SUK A7,2 < P RF(Z) READ READ ORDER N P SUK A7,9 l P RF(Z) WRITE WRITE ORDER ~ P SUK A7,/2E P RF(NZ) DIS:OE REQUEST ERROR P* P* S E T T I M E O U T P*
0x000ca0…120cc0 [0x480]: Pad {f00=0x0013, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x481]: Pad {f00=0x0013, f01=0x0002, f02=» h
0x000ca0…120cc0 [0x482]: Pad {f00=0x0013, f01=0x0190, f02=» 2 P IDENT DWIO01 REL 8.2 78-09-15 870105040820 P* : ( P* INTERTASK COMMUNICATION INPUT DWT D P* p P ENTRY DWIO01 TABLE ENTRY z P P EXTRN ITADO DRIVER ENTRY P PDWIO01 EQU * P DATA 0 QUEUE LINK P DATA /8000 ST
0x000ca0…120cc0 [0x483]: Pad {f00=0x0013, f01=0x40c8, f02=»WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER > P DATA 0 TIME OUT $ P DATA 0 ADDRESS TO QUEUE ANCHOR t P DATA 0,0 SAVE AREA P END @ PDWIO01 EQU * P DATA 0 QUEUE LINK P DATA /8000 ST
0x000ca0…120cc0 [0x484]: Pad {f00=0x0013, f01=0x2008, f02=» DATA 0 TTAB ADDRESS $ DATA 0 WAIT/ACTIVATE INDICATOR $ DATA 0 TERMINAL QUEUE L DATA 0 TIMER POINTER j DATA 0 TIME OUT DATA 0 DATA 0,0 SAVE AREA END @ & ! DATA 0 QUEUE ANCHOR OUTPUT DWT'S
0x000ca0…120cc0 [0x485]: Pad {f00=0x0013, f01=0x0190, f02=»H BOT P P P LDK A1,/C P CFR A8,A6 SEARCH TAPE MARK 0 P T P PSOP:IL LDKL A1,/0400 d & P OTR A1,0,SOP ILLUMINATE SOP-LAMP P EJECT MONCON P P** . P***************************************** P**
0x000ca0…120cc0 [0x486]: Pad {f00=0x0013, f01=0x018e, f02=»******************** ~ P** P & P LDKL A6,CL:ADR-PART:3 . " P ADR A6,A12 SUBROUTINE ADDRESS L P r P z P LDKL A4,CL:TAB-PART:3 * P ADR A4,A12 CLASS TABLE ADDRESS TABLE P P PCLA:10 LDR* A5,A4 * P RF(Z) CLA:20 CLAS
0x000ca0…120cc0 [0x487]: Pad {f00=0x0013, f01=0x0190, f02=» PCLA:20 ADK A4,2 " P RB CLA:10 GET NEXT CLASS TYPE PCLA:30 EQU * B P EJECT MONCON V P n P** v $ P******************************** P** P* SET WORDS IN FREE MEMORY P* AREA = /0000 P** $ P****************
0x000ca0…120cc0 [0x488]: Pad {f00=0x0013, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x489]: Pad {f00=0x0013, f01=0x0002, f02=» x
0x000ca0…120cc0 [0x48a]: Pad {f00=0x0013, f01=0x0190, f02=» 2 P IDENT DW0701 REL 8.2 78-09-15 870105040820 P* : P ENTRY DW0701 D P* Z ( P EXTRN DC07AD ACTIVATION ********:** d P* PDW0701 EQU * TABLE ENTRY P DATA 0 CU LINE ADDRESS P DATA /8000 STATUS P DATA 0 ECB ADDRESS
0x000ca0…120cc0 [0x48b]: Pad {f00=0x0013, f01=0x40f0, f02=»IVE INDICATOR P DATA 0 TASK QUEUR P DATA 0 TIMER POINTER 0 ( P DATA 0 WRITE QUEUE OR BUFFER QUEUE N P DATA 0 BUFFER QUEUE ANCHOR z * P DATA 0 TIMER POINTER FOR BUFFER QUEUE PDWTEND EQU * P END @ P DATA 0 ECB ADDRESS
0x000ca0…120cc0 [0x48c]: Pad {f00=0x0013, f01=0x2008, f02=» R POINTER ( # DATA 0 WRITE QUEUE OR BUFFER QUEUE DATA 0 BUFFER QUEUE ANCHOR F * & DATA 0 TIMER POINTER FOR BUFFER QUEUE j END @ ADDRESS DATA 8000 STATUS DATA 0 ECB ADDRESS DATA 0 ORDER ( # DATA
0x000ca0…120cc0 [0x48d]: Pad {f00=0x0013, f01=0x0190, f02=» P CF A5,SETCIO A3,A4 AFFECTED ( P CM DWTRCW,A6 SAVE RETURN CODE WORD , P* X P* CHECK IF LOCKED b P* | $ P LD A1,DWTLC,A6 LOCK INDICATOR " P CF A5,FDIX GET BIT MASK IN A3 * P ST A3,DWTA3,A6 SAVE DRIVE INDEX MASK P ANR A1,
0x000ca0…120cc0 [0x48e]: Pad {f00=0x0013, f01=0x0190, f02=» LOAD LOAD ORDER P LDKL A1,/8001 RETURN CODE P RF FD:090 ENDIO : P EJECT R P* ` P* ORDER? j P* | PFD:ORD EQU * P* P LDR A1,A7 P RF(Z) FD:070 TEST STATUS P SUK A1,1 P RF(Z) FD:040 PHYSICAL READ
0x000ca0…120cc0 [0x48f]: Pad {f00=0x0013, f01=0x0190, f02=» FD:020 PHYSICAL WRITE P SUK A1,15 $ P RF(Z) FD:030 WRITE DELETED DATA 0 P SUK A1,/14 X P ABL(Z) UNLOAD UNLOAD ORDER l P IFT IBM=1 P ADK A1,/36 " P ABL(Z) SQREAD SEQUENTIAL READ P SUK A1,4 $ P ABL(Z) SQWRIT SEQUENTIAL WR
0x000ca0…120cc0 [0x490]: Pad {f00=0x0014, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x491]: Pad {f00=0x0014, f01=0x0002, f02=»
0x000ca0…120cc0 [0x492]: Pad {f00=0x0014, f01=0x0190, f02=» 2 P IDENT DW1501 REL 8.2 78-09-15 870105040820 P* : : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 D P* P ENTRY DW1501 TABLE ENTRY * P EXTRN DC15AD POINTER TO ADDRESS-BLOCK P* PDW1501 EQU * TABLE ENTRY P DAT
0x000ca0…120cc0 [0x493]: Pad {f00=0x0014, f01=0x4188, f02=» P RIGHT BYTE=ORDER * P DATA DC15AD POINTER TO ADDRESS-BLOCK P DATA 'DC' TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 STATUS QUEUE P
0x000ca0…120cc0 [0x494]: Pad {f00=0x0014, f01=0x2008, f02=» R ( P DATA DCAD POINTER TO ADDRESS-BLOCK P DATA 0 TTAB-ADDRESS > $ P DATA 0 WAIT/ACTIVATE INDICATOR Z P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 STATUS QUEUE P DATA 0,0 SAVE AREA
0x000ca0…120cc0 [0x495]: Pad {f00=0x0014, f01=0x2008, f02=» ESS-BLOCK ~ P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 6 P DATA 0 TERMINAL QUEUE ^ P DATA 0 OUTPUT QUEUE LINK | P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-S
0x000ca0…120cc0 [0x496]: Pad {f00=0x0014, f01=0x0190, f02=» (DMSUBR Z CHKIND^ IHRET2 REQEND . FDBADFF DWTTQ QTJOB DWTTDM DWTST IHRTN EATEST x FDBEAL FDBTNR EASETB GETBLKR EARELB FREQUER CRNGETK FDBCRL CRNTIDC CRNQUEC HALTN CRBUFL CALSNO V
0x000ca0…120cc0 [0x497]: Pad {f00=0x0014, f01=0x4146, f02=»DBDBR0 ECBBA BUFDMIR DMTIOZ GTBKBUK EXTDMI ECBFC ECBCW SECTLE ECBRL DMTGBUC BUFSTA DWTOR GTLGRN Z EXTELEF MPYMODF rDMFDB a CRBUFL QFDBFL ` FDBSTA FDBEND CRNQUEK CRNENDK Z MXIND
0x000ca0…120cc0 [0x498]: Pad {f00=0x0014, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x499]: Pad {f00=0x0014, f01=0x0002, f02=»
0x000ca0…120cc0 [0x49a]: Pad {f00=0x0014, f01=0x0190, f02=» 2 P IDENT DW2201 REL 8.2 78-09-15 870105040820 P* : : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 D P* P ENTRY DW2201 TABLE ENTRY * P EXTRN DC22AD POINTER TO ADDRESS-BLOCK P* PDW2201 EQU * TABLE ENTRY P DAT
0x000ca0…120cc0 [0x49b]: Pad {f00=0x0014, f01=0x0190, f02=» RIGHT BYTE=ORDER * P DATA DC22AD POINTER TO ADDRESS-BLOCK P DATA 0 TTAB-ADDRESS H $ P DATA 0 WAIT/ACTIVATE INDICATOR d P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 BUFFER QUEUE ANCHOR " P D
0x000ca0…120cc0 [0x49c]: Pad {f00=0x0014, f01=0x402a, f02=»0 DEVICE LIST (<8) | P END @ &NTER TO ADDRESS-BLOCK P DATA 0 TTAB-ADDRESS H $ P DATA 0 WAIT/ACTIVATE INDICATOR d P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 BUFFER QUEUE ANCHOR " P D
0x000ca0…120cc0 [0x49d]: Pad {f00=0x0014, f01=0x2008, f02=» R ( P DATA DCAD POINTER TO ADDRESS-BLOCK P DATA 0 TTAB-ADDRESS > $ P DATA 0 WAIT/ACTIVATE INDICATOR Z P DATA 0 TERMINAL QUEUE P DATA 0 TIMER POINTER P DATA 0 WRITE QUEUE P DATA 0 STATUS QUEUE P DATA 0,0 SAVE AREA
0x000ca0…120cc0 [0x49e]: Pad {f00=0x0014, f01=0x0190, f02=»C I/O K x P LDR A1,A1 L P RF(NZ) DMTERR L P LDKL A1,/C0FF L 6 $ P ANS A1,FDBDBR,A6 RELEASE BUFFER L L PDMT400 EQU * L t " P LDR A1,A6 FDB ADDR DATA FILE L P LD A2,ECBCW+2,A9 L P ANK A2,/FF L P LD A3,ECBCW,A9 LOG REC NR L P LC A11,ECBF
0x000ca0…120cc0 [0x49f]: Pad {f00=0x0014, f01=0x0190, f02=»WRITE L ~ P LDK A4,QRD M P CWR A7,A4 M " P RF(E) DMT420 RAND DEL M 4 P LDK A4,QRDD M R P CWR A7,A4 M f ( P RF(E) DMT420 DELAYED RANDEOM DELETE M x P IFT INDXAC=1 M P LDK A4,QDEL M P CWR A7,A4 M P RF(E) DMT420 INDEXED DELETE M P XIF M
0x000ca0…120cc0 [0x4a0]: Pad {f00=0x0015, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x4a1]: Pad {f00=0x0015, f01=0x0002, f02=»
0x000ca0…120cc0 [0x4a2]: Pad {f00=0x0015, f01=0x0190, f02=» 0 P IDENT CTABX REL 8.2 78-09-15 870105040820 P* 8 P* B P* CODE CONVERSION TABLE L P* n P* x P ENTRY CTABX P* P* * PC0 EQU 0 CODE CONVERSION COLUMN NO. 0 ( PC1 EQU 0 1 ( PC2 EQU
0x000ca0…120cc0 [0x4a3]: Pad {f00=0x0015, f01=0x4144, f02=» 5 ( PC6 EQU 0 6 $ ( PC7 EQU 0 7 P P* | P* P* PCTABX DATA C0 P DATA C1 P DATA C2 P DATA C3 P DATA C4 P DATA C5 P DATA C6
0x000ca0…120cc0 [0x4a4]: Pad {f00=0x0015, f01=0x2008, f02=» C7 EQU 0 7 * 4 * > * H CTABX DATA C1 R DATA C2 h DATA C2 x DATA C3 DATA C4 DATA C5 DATA C6 DATA C7 * * END @ 3
0x000ca0…120cc0 [0x4a5]: Pad {f00=0x0015, f01=0x2008, f02=» P EXTRN IN:LT2 P EXTRN IN:RT1 " P EXTRN IN:RT2 8 P* N P* X P* b P* l PMONTAB EQU * v PTCTAB DATA TC:TAB PCDTAB DATA CD:TAB PBLOCKS DATA BLOK:S PDCTAB DATA DC:TAB PINTLT1 DATA IN:LT1
0x000ca0…120cc0 [0x4a6]: Pad {f00=0x0015, f01=0x0190, f02=» PX:F EQU 3 $ P* X:F = RETRY LIMIT FOR RECOVERY P* B P* L PBDA EQU 0 V B P* IF BDA = 1, TC ADDRESSES ARE ADAPTED FOR THE BANKDATA CASE: h " P* INPUT = /41 -/4F (A - O) L P* OUTPUT = ADDRESSES ACCORDING TO IBM REMOTE CONTRO
0x000ca0…120cc0 [0x4a7]: Pad {f00=0x0015, f01=0x0190, f02=» SAVING d H P* LINE NUMBER, ORDER, RETURN CODE AND TID FOR THE 100 LAST REQUESTS. P* P* f P EJECT p P* ~ < P******************************************************* P* P* SYSTEM PARAMETERS P* < P******************
0x000ca0…120cc0 [0x4a8]: Pad {f00=0x0017, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x4a9]: Pad {f00=0x0017, f01=0x0002, f02=»
0x000ca0…120cc0 [0x4aa]: Pad {f00=0x0017, f01=0x0190, f02=» 2 P IDENT BLOK:S REL 8.2 78-09-15 870105040820 P* : P* D P* MONITOR BLOCKS N P* h P* r & P ENTRY BLOK:S START OF BLOCK POOL | $ P ENTRY BLOCKE BLOCK POOL LENGTH P* P* P* PBLOK:S EQU * P* P
0x000ca0…120cc0 [0x4ab]: Pad {f00=0x0017, f01=0x0190, f02=» P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 4 P DATA *+6,0,0 J P DATA *+6,0,0 ` P DATA *+6,0,0 v P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0
0x000ca0…120cc0 [0x4ac]: Pad {f00=0x0017, f01=0x0190, f02=» P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 0 P DATA *+6,0,0 F P DATA *+6,0,0 P DATA *+6,0,0 r P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0
0x000ca0…120cc0 [0x4ad]: Pad {f00=0x0017, f01=0x4080, f02=» DATA *+6,0,0 P DATA 0,0,0 LAST BLOCK PBLOCKE EQU *-BLOK:S 4 P* P P* Z P END d P*EOF p@ | r P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0
0x000ca0…120cc0 [0x4ae]: Pad {f00=0x0017, f01=0x2008, f02=» P DATA *+6,0,0 P DATA *+6,0,0 ( P DATA *+6,0,0 > P DATA *+6,0,0 T P DATA *+6,0,0 j P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DATA *+6,0,0 P DATA
0x000ca0…120cc0 [0x4af]: Pad {f00=0x0017, f01=0x018e, f02=»D A1,ECBCW,A8 KEY TABLE ADDRESS P RF(Z) AOD340 NO KEYTABLE ( " P LCR A4,A1 TABLE LENGTH IN A4 J P ANK A4,/FF p & P ADR A1,A4 LAST PLACE IN KEY TABLE P ADK A1,1 PAOD335 EQU * P SUK A4,1 P RF(N) AOD340 KEY NOT FOUND P
0x000ca0…120cc0 [0x4b0]: Pad {f00=0x0055, f01=0x018e, f02=» e p ( P* (SHORT KEY NOT ALLOWED IN FILE) f P* f 4 P LC A4,ECBFC,A5 FILE CODE f > P CC A4,FDBECB+1,A6 f ` * P RF(NE) INS049 NOT REQUESTED FILE CODE f z P LDKL A4,/200 BIT 6 f " P ORS A4,ECBRC,A5 NEXT KEY SAME f PINS049 EQU * f P IFT INSLAS=
0x000ca0…120cc0 [0x4b1]: Pad {f00=0x0055, f01=0x0002, f02=»
0x000ca0…120cc0 [0x4b2]: Pad {f00=0x0055, f01=0x018e, f02=» 2 P IDENT CD:TAB REL 8.2 78-09-15 870105040820 P* : P* COMMON DEVICE TABLE D P* d 0 P* THIS TABLE HOLDS DEVICES THAT ARE COMMON n P* TO ALL TASKS P* P ENTRY CD:TAB P ENTRY CDTABF P EXTRN DWDU01 P
0x000ca0…120cc0 [0x4b3]: Pad {f00=0x0055, f01=0x0190, f02=» P** P** P* P* " P* , P* 6 P* @ P* J P* T P* ^ P* h PCD:TAB DATA CDTABE-* r P DATA /0012 P DATA DWTC01 P DATA /0010 P DATA DWSI01
0x000ca0…120cc0 [0x4b4]: Pad {f00=0x0055, f01=0x40e0, f02=»00 P DATA /00F0 P DATA DWDU01 P DATA /01F1 2 P DATA DWDU01 F PCDTABF EQU * Z P DATA 0,0,0,0,0,0,0,0 n P DATA 0,0 P* PCDTABE EQU * P* P* P END @ /0010 P DATA DWSI01
0x000ca0…120cc0 [0x4b5]: Pad {f00=0x0055, f01=0x2008, f02=» NT CDTAB P* P* " P* COMMON DEVICE TABLE , P* L 0 P* THIS TABLE HOLDS DEVICES THAT ARE COMMON V P* TO ALL TASKS P* P ENTRY CDTAB P* P* P* P* P* P* P* P*
0x000ca0…120cc0 [0x4b6]: Pad {f00=0x0055, f01=0x0190, f02=» DWTTDM ECBFC , ( % 0 ( T X 2 F " , ( ? 4 T P R TCTAB , ( ] ` 6 U @ 6 , D Z D , ( y ] 0 X W , ( B ` U @
0x000ca0…120cc0 [0x4b7]: Pad {f00=0x0055, f01=0x0190, f02=»T , ( @ P 0 @ < 1 A <(@_ EXTELE : , ( > @ (@ / O L DWTTQ | QTJOB , ( @ B $P % 4 D F , ( 4 (@ B * P , ( 9
0x000ca0…120cc0 [0x4b8]: Pad {f00=0x0021, f01=0x0190, f02=» EXTLEN * & + H . D Y P P 0 Y R P EXTBAS D , ( ? 0 Y T U ! T ! X6 V TASTBE , ( [ _R _V @ V P I @ MXIND , ( w P @ X V W H X I , (
0x000ca0…120cc0 [0x4b9]: Pad {f00=0x0021, f01=0x0002, f02=» (
0x000ca0…120cc0 [0x4ba]: Pad {f00=0x0021, f01=0x0190, f02=» 2 P IDENT TC:TAB REL 8.2 78-09-15 870105040820 P* : P* D P* N P* TERMINAL CONTROL TABLE X P* z P* P ENTRY TC:TAB TABLE ENTRY P ENTRY TCTABT P EXTRN TTABTC P EXTRN TTABTD P
0x000ca0…120cc0 [0x4bb]: Pad {f00=0x0021, f01=0x4126, f02=» $ PTC:TAB DATA TTABE-* TABLE LENGTH & P DATA TTMJOB,TTABD0 MONITOR TABLE 0 PTCTABT EQU * Z P DATA TTABTC n P DATA TTABTD P DATA TTABTE P DATA TTABDC PTTABE EQU * P*
0x000ca0…120cc0 [0x4bc]: Pad {f00=0x0021, f01=0x2008, f02=» NT TCTAB P* P* " P* , P* TERMINAL CONTROL TABLE 6 P* X P* b P ENTRY TCTAB TABLE ENTRY l P* P* P EXTRN TTMJOB MONITOR TABLE P* P* P* P* $ PTCTAB DATA TTABE-* TABLE LENGT
0x000ca0…120cc0 [0x4bd]: Pad {f00=0x0021, f01=0x0190, f02=» J l P LKM K P DATA -1 I/O AND ACTIVATION K " P DATA DMTAR2 DMTASK RESTART #2 K 8 P LKM K ^ P DATA 3 EXIT K j P EJECT K ~ P* K P************** K P* DMTAR2 * K P************** K P* K P* K , PDMTAR2 EQU * DMTASK RESTART AF
0x000ca0…120cc0 [0x4be]: Pad {f00=0x0021, f01=0x0190, f02=»C I/O K x P LDR A1,A1 L P RF(NZ) DMTERR L P LDKL A1,/C0FF L 6 $ P ANS A1,FDBDBR,A6 RELEASE BUFFER L L PDMT400 EQU * L t " P LDR A1,A6 FDB ADDR DATA FILE L P LD A2,ECBCW+2,A9 L P ANK A2,/FF L P LD A3,ECBCW,A9 LOG REC NR L P LC A11,ECBF
0x000ca0…120cc0 [0x4bf]: Pad {f00=0x0021, f01=0x0190, f02=»WRITE L ~ P LDK A4,QRD M P CWR A7,A4 M " P RF(E) DMT420 RAND DEL M 4 P LDK A4,QRDD M R P CWR A7,A4 M f ( P RF(E) DMT420 DELAYED RANDEOM DELETE M x P IFT INDXAC=1 M P LDK A4,QDEL M P CWR A7,A4 M P RF(E) DMT420 INDEXED DELETE M P XIF M
0x000ca0…120cc0 [0x4c0]: Pad {f00=0x0017, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x4c1]: Pad {f00=0x0017, f01=0x0002, f02=»
0x000ca0…120cc0 [0x4c2]: Pad {f00=0x0017, f01=0x0190, f02=» 0 P IDENT TTABX REL 8.2 78-09-15 870105040820 P* 8 P* B P* T A S K T A B L E L P* l P* v P ENTRY TTABX TABLE ENTRY P* P* P* P* P* PTTABX DATA 0 P DATA /3C TASK LEVEL & P DATA /E
0x000ca0…120cc0 [0x4c3]: Pad {f00=0x0017, f01=0x4098, f02=» x P DATA 0 TERMINAL SAVE AREA P RES 14 * P* : " P DATA TTABE-* TERMINAL DEVICES D PTTABE EQU * j P* ~ P END @ P* P* P* P* P* PTTABX DATA 0 P DATA /3C TASK LEVEL & P DATA /E
0x000ca0…120cc0 [0x4c4]: Pad {f00=0x0017, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIFIC
0x000ca0…120cc0 [0x4c5]: Pad {f00=0x0017, f01=0x0190, f02=» B P* P R B U F : GET CHARACTERS FROM ECB-BUFFER AND SEND THEM P* J 6 P* B C D T B Y : CONVERT TO BINARY FROM DECIMAL T P* D P* B U F C H R : SEND THE NUMBER OF CHARACTERS GIVEN IN FIRST $ P* CHARACTER IN OUTPUT BUFFER P*
0x000ca0…120cc0 [0x4c6]: Pad {f00=0x0017, f01=0x0190, f02=» P* * P* THE FOLLOWING ORDERS ARE TREATED: P* < $ P* ORDER 00 : TEST STATUS F P* ORDER 06 : WRITE n 0 P* ORDER 0B : POSITION LIFT AND WRITE $ P* ORDER 22 : CUT JOURNAL * P* ORDER 26 : PERFORATE
0x000ca0…120cc0 [0x4c7]: Pad {f00=0x0017, f01=0x018e, f02=»E FOLLOWING RETURN CODES ARE USED: P* * & P* BIT 0 : REQUEST ERROR 4 4 P* BIT 8 : RECOVERY EXECUTED ON REQUEST ^ 8 P* BIT 10 : END OF JOURNAL TAPE, VOUCHER OUT ( P* BIT 13 : CODE CHECK ERROR $ P* BIT 15 :
0x000ca0…120cc0 [0x4c8]: Pad {f00=0x0016, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x4c9]: Pad {f00=0x0016, f01=0x0002, f02=»
0x000ca0…120cc0 [0x4ca]: Pad {f00=0x0016, f01=0x4178, f02=» 2 P IDENT DC:TAB REL 8.2 78-09-15 870105040820 P* : P* D P* DC CONFIGURATION TABLE N P* n P* x P ENTRY DC:TAB,DCTAB P* P* P* P* P* P* P* P* PDCTAB DATA DC:TAB & PDC
0x000ca0…120cc0 [0x4cb]: Pad {f00=0x0016, f01=0x2008, f02=» DWDC08 P DATA DWDC09 P DATA DWDC10 6 PDCTABE EQU * END OF TABLE V P* x P* P END @ TH ~ P DATA DWDC01 P DATA DWDC02 P DATA DWDC03 P
0x000ca0…120cc0 [0x4cc]: Pad {f00=0x0016, f01=0x2008, f02=» NT TCTAB P* P* " P* , P* TERMINAL CONTROL TABLE 6 P* X P* b P ENTRY TCTAB TABLE ENTRY l P* P* P EXTRN TTMJOB MONITOR TABLE P* P* P* P* $ PTCTAB DATA TTABE-* TABLE LENGT
0x000ca0…120cc0 [0x4cd]: Pad {f00=0x0016, f01=0x401e, f02=» EQU * 2 P END 3 @ 3 ANKL A3,/8FFF 2 P SRC A2,4 2 4 P ORR A3,A2 2 F P STR A3,A6 RESTORE 2 X P RTN A5 2 r P EJECT 2 P* 2 P* 2 * P* STINTA = STATUS INFORMATION TABLE 2 P* 2 PSTINTA EQU * 2 & P DATA STARP1,STOPP1,STARP2
0x000ca0…120cc0 [0x4ce]: Pad {f00=0x0016, f01=0x2008, f02=» 4 END I/O % h P EJECT & P* & & P* & 0 * P* STINTA = STATUS INFORMATION TABLE & : P* & h PSTINTA EQU * & r & P DATA STARP1,STOPP1,STARP2,STOPP2 & & P DATA STARP3,STOPP3,STARP4,STOPP4 & & P DATA TISWCA,TIANTC,TIPILO,TIBUZZ & P DATA
0x000ca0…120cc0 [0x4cf]: Pad {f00=0x0016, f01=0x0190, f02=»1 D P SUK A2,1 E P RB FDIX10 E PFDIX20 RTN A5 E . P EJECT E D P IFF DAMA+IBM=0 E R P****************** E j P* * E P* VOLADR * E P* * E P****************** E P* E P* INPUT: A6 DWT A
0x000ca0…120cc0 [0x4d0]: Pad {f00=0x0029, f01=0x0190, f02=» * P* READ SECTOR N * P* * : P********************** X P* v 0 PREAD:N CF A5,WER:R EXECUTE WER INSTRUCTIONS P CF A5,READ READ SECTOR N P ANK A1,/F $ P RF(Z) READ10 OK. NO RETURN CODE
0x000ca0…120cc0 [0x4d1]: Pad {f00=0x0029, f01=0x0002, f02=» 8
0x000ca0…120cc0 [0x4d2]: Pad {f00=0x0029, f01=0x0190, f02=» 2 P IDENT INTLT1 REL 8.2 78-09-15 870105040820 P* : @ P* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 D P* FOR LOCAL TERMINALS D P* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEVICES CONNECTED TO
0x000ca0…120cc0 [0x4d3]: Pad {f00=0x0029, f01=0x0190, f02=»TABLE ENTRY P EXTRN DWKB01 P EXTRN DWTP01 4 P EXTRN DWDY01 T P EXTRN DWKB02 t P EXTRN DWTP02 P EXTRN DWDY02 P* P* TERMINAL PARAMETERS P* P*
0x000ca0…120cc0 [0x4d4]: Pad {f00=0x0029, f01=0x018e, f02=»/006 ~ P* PINTLT1 EQU * TABLE ENTRY P DATA TN1 6 P DATA TN2 T P DATA 0 r P DATA 0 P DATA 0 P DATA 0 P DATA 0 P DAT
0x000ca0…120cc0 [0x4d5]: Pad {f00=0x0029, f01=0x40ea, f02=» P DATA DWDY01 PTN2 EQU * $ P DATA T2 @ P DATA DWKB02 P DATA DWTP02 | P DATA DWDY02 P* P* P* P END @ DATA 0 P DAT
0x000ca0…120cc0 [0x4d6]: Pad {f00=0x0029, f01=0x2008, f02=» NAL PARAMETERS 0 P* LEFT BYTE = 2 * NUMBER OF INPUT DEVICES 4 P* AND DEVICES WITH DATA REQUESTS R , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* 4 P* NOTE: PRINTERS ARE TREATED AS INPUT DEVICES P* P*
0x000ca0…120cc0 [0x4d7]: Pad {f00=0x0029, f01=0x2008, f02=» PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * 2 P END F@ R OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED J P* P ENTRY FDBLEN P ENTRY FDBSTA P ENTRY FDBEND P ENTRY QFDBFL P* P* ,
0x000ca0…120cc0 [0x4d8]: Pad {f00=0x0018, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x4d9]: Pad {f00=0x0018, f01=0x0002, f02=»
0x000ca0…120cc0 [0x4da]: Pad {f00=0x0018, f01=0x0190, f02=» 2 P IDENT INTLT2 REL 8.2 78-09-15 870105040820 P* : @ P* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 D P* FOR LOCAL TERMINALS D P* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEVICES CONNECTED TO
0x000ca0…120cc0 [0x4db]: Pad {f00=0x0018, f01=0x40f8, f02=»TABLE ENTRY P* P* TERMINAL PARAMETERS P* > P* H , P* RIGHT BYTE = 2 * NUMBER OF DEVICES R P* P* P* P* PINTLT2 EQU * TABLE ENTRY P* P* P* P END @ ICES CONNECTED TO
0x000ca0…120cc0 [0x4dc]: Pad {f00=0x0018, f01=0x2008, f02=» NAL PARAMETERS 0 P* LEFT BYTE = 2 * NUMBER OF INPUT DEVICES 4 P* AND DEVICES WITH DATA REQUESTS R , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* 4 P* NOTE: PRINTERS ARE TREATED AS INPUT DEVICES P* P*
0x000ca0…120cc0 [0x4dd]: Pad {f00=0x0018, f01=0x4124, f02=» 2 PDWTCYL EQU *-DWDU01 3 P DATA /FFFF CYLINDER NUMBER 3 $ P IFT TYPE1=0 3 H PDWTCMX EQU *-DWDU01 3 $ P DATA MAXCY5 MAX CYLINDER X/1215 3 x P XIF 3 P IFT TYPE1=1 3 PDWTCMX EQU *-DWDU01 3 ( P DATA MAXCY6 MAX CYLINDER NO X/1216 3 P X
0x000ca0…120cc0 [0x4de]: Pad {f00=0x0018, f01=0x2008, f02=» 4 -DWDU01 2:ND WER INSTRUCTION - P WER A3,WER1+1 . , PDWTNAM EQU *-DWDU01 . B PDWTVOL EQU *-DWDU01 . ^ & P DATA 0,0,0 VOLUME NAME FIXED DISC . z * P DATA 0,0,0 VOLUME NAME CARTRIDGE DISC . PDWTSAV EQU *-DWDU01 . P DATA -1 . P END . @
0x000ca0…120cc0 [0x4df]: Pad {f00=0x0018, f01=0x0190, f02=» A4,A6 ADD DWT-ADDRESS P LDR A1,A6 P CF A15,SETIMP SET TIME 0 0 P DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME P . P ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT P* P XIF P* & PAKB210 LD A2,4,A8 REQUESTED LENGTH , PAKB220 RF(
0x000ca0…120cc0 [0x4e0]: Pad {f00=0x0019, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x4e1]: Pad {f00=0x0019, f01=0x0002, f02=» (
0x000ca0…120cc0 [0x4e2]: Pad {f00=0x0019, f01=0x0190, f02=» 2 P IDENT INTLT3 REL 8.2 78-09-15 870105040820 P* : @ P* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 D P* FOR LOCAL TERMINALS D P* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEVICES CONNECTED TO
0x000ca0…120cc0 [0x4e3]: Pad {f00=0x0019, f01=0x40f8, f02=»TABLE ENTRY P* P* TERMINAL PARAMETERS P* > P* H , P* RIGHT BYTE = 2 * NUMBER OF DEVICES R P* P* P* P* PINTLT3 EQU * TABLE ENTRY P* P* P* P END @ ICES CONNECTED TO
0x000ca0…120cc0 [0x4e4]: Pad {f00=0x0019, f01=0x2008, f02=» NAL PARAMETERS 0 P* LEFT BYTE = 2 * NUMBER OF INPUT DEVICES 4 P* AND DEVICES WITH DATA REQUESTS R , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* 4 P* NOTE: PRINTERS ARE TREATED AS INPUT DEVICES P* P*
0x000ca0…120cc0 [0x4e5]: Pad {f00=0x0019, f01=0x4010, f02=» END @ = DEVICE DEPENDENT ECHO SUBROUTINE P* : PECHOCD EQU * D P LDR A7,A7 EOR ? X P RF(N) ECHO10 p P CF A5,OUTPUT SEND CHARACTER PECHO10 ABL ECHRTN P EJECT P* P* R C C D P* P* PRCCD E
0x000ca0…120cc0 [0x4e6]: Pad {f00=0x0019, f01=0x2008, f02=» A15,SAVE8 LD A7,DWTST,A6 RB(N) EXIT 2 LDK A1,2 F RB ENDIO X * j * t END ~@ LD A4,DWTST,A6 STATUS RF(N) EXIT LDR A1,A1 RETURN CODE RF(NE) ENDIO YES END I/O ABL LDREG
0x000ca0…120cc0 [0x4e7]: Pad {f00=0x0019, f01=0x0190, f02=» SUK A4,1 DECREMENT RETRY COUNTER $ P ABL(Z) END:IO ALL RETRIES DONE * P RB WRIT:N TRY AGAIN R P n P IFT RAW=1 v PWRIT20 CWK A7,5 P ABL(E) END:IO BASIC WRITE & P LDKL A3,BUF DRIVER BUFFER ADDRESS P XIF P IFF RAW=1 $ P
0x000ca0…120cc0 [0x4e8]: Pad {f00=0x0019, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x4e9]: Pad {f00=0x0019, f01=0x0002, f02=» 8
0x000ca0…120cc0 [0x4ea]: Pad {f00=0x0019, f01=0x0190, f02=» 2 P IDENT INTLT4 REL 8.2 78-09-15 870105040820 P* : @ P* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 D P* FOR LOCAL TERMINALS D P* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEVICES CONNECTED TO
0x000ca0…120cc0 [0x4eb]: Pad {f00=0x0019, f01=0x40f8, f02=»TABLE ENTRY P* P* TERMINAL PARAMETERS P* > P* H , P* RIGHT BYTE = 2 * NUMBER OF DEVICES R P* P* P* P* PINTLT4 EQU * TABLE ENTRY P* P* P* P END @ ICES CONNECTED TO
0x000ca0…120cc0 [0x4ec]: Pad {f00=0x0019, f01=0x2008, f02=» NAL PARAMETERS 0 P* LEFT BYTE = 2 * NUMBER OF INPUT DEVICES 4 P* AND DEVICES WITH DATA REQUESTS R , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* 4 P* NOTE: PRINTERS ARE TREATED AS INPUT DEVICES P* P*
0x000ca0…120cc0 [0x4ed]: Pad {f00=0x0019, f01=0x0190, f02=» P ABL(Z) BRM500 NAK RECEIVED ; P IFT MSV1=0 ; ( P LDR A8,A2 ; < $ P CF A5,READP READ ONE CHARACTER ; N P RF(NZ) BRM150 PARITY ERROR ; v P CWR A2,A8 ; & P RF(NE) BRM150 INVALID ADDRESSING ; P XIF ; P LDK A3,0 ; P CC A2,DW1500+1 ;
0x000ca0…120cc0 [0x4ee]: Pad {f00=0x0019, f01=0x0190, f02=»,READP READ 1:ST STA ; P RF(NZ) BRM150 PARITY ERROR < P LDR A8,A2 < @ P IFT MSV1=0 < R P CF A5,READP READ 2:ND STA < f P RF(NZ) BRM150 PARITY ERROR < P CWR A2,A8 < , P RF(NE) BRM150 INVALID ADDRESS SEQUENCE < P XIF < " P CF A5,READ READ
0x000ca0…120cc0 [0x4ef]: Pad {f00=0x0019, f01=0x0190, f02=»Q SALCUZ < P XIF SALCUZ = P RF(NZ) BRM150 NOT ENQ = ( P IFT P6805=0 SALCUZ = F $ P CF A5,READ READ LAST CHARACTER = b P = " P* TRAILING PAD CAN BE CHECKED = P = P CIO A1,0,LCUIN HALT INPUT = P SST A1,LCUIN = P XIF SALCUZ =
0x000ca0…120cc0 [0x4f0]: Pad {f00=0x0018, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x4f1]: Pad {f00=0x0018, f01=0x0002, f02=»
0x000ca0…120cc0 [0x4f2]: Pad {f00=0x0018, f01=0x0190, f02=» 2 P IDENT INTRT1 REL 8.2 78-09-15 870105040820 P* : @ P* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 D P* FOR REMOTE TERMINALS D P* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEVICES CONNECTED TO
0x000ca0…120cc0 [0x4f3]: Pad {f00=0x0018, f01=0x0190, f02=»BLE ENTRY P EXTRN DWKB41 P EXTRN DWTP41 2 P EXTRN DWDY41 R P* r P* TERMINAL PARAMETERS | P* P* , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* P* P* PT1 EQU
0x000ca0…120cc0 [0x4f4]: Pad {f00=0x0018, f01=0x415e, f02=» 0 P DATA 0 P DATA 0 ( P DATA 0 D P DATA 0 ` P DATA 0 | PTN1 EQU * P DATA T1 P DATA DWKB41 P DATA DWTP41
0x000ca0…120cc0 [0x4f5]: Pad {f00=0x0018, f01=0x2008, f02=» NAL PARAMETERS 0 P* LEFT BYTE = 2 * NUMBER OF INPUT DEVICES 4 P* AND DEVICES WITH DATA REQUESTS R , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* 4 P* NOTE: PRINTERS ARE TREATED AS INPUT DEVICES P* P*
0x000ca0…120cc0 [0x4f6]: Pad {f00=0x0018, f01=0x0190, f02=») DUNA20 GET NEXT WORD + P , P , & P LDR A1,A1 , . P RF(Z) DUNA40 VOLUME MATCH , @ P LC A2,DWTOR,A6 INDEX , b P ANK A2,1 , P ADR A2,A2 , P ADR A2,A6 , & P ST A1,DWTBSY,A2 NEW VOLUME LOADED , PDUNA40 EQU * , P , P , P LD A1
0x000ca0…120cc0 [0x4f7]: Pad {f00=0x0018, f01=0x0190, f02=»,DWTSAV,A6 GET OLD DWT CONTENTS , P ST A1,DWTOR,A6 SAVE IT - ( P LDKL A1,-1 - H P ST A1,DWTSAV,A6 - P LDKL A5,DWTSB1 - t P ADR A5,A6 STACK BASE - ( P LDK A1,1 RETURN CODE. NOT OPERABLE - P RTN A5 - P* - P* - P* TIMER POINTE
0x000ca0…120cc0 [0x4f8]: Pad {f00=0x001a, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x4f9]: Pad {f00=0x001a, f01=0x0002, f02=» X
0x000ca0…120cc0 [0x4fa]: Pad {f00=0x001a, f01=0x0190, f02=» 2 P IDENT INTRT2 REL 8.2 78-09-15 870105040820 P* : @ P* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 D P* FOR REMOTE TERMINALS D P* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEVICES CONNECTED TO
0x000ca0…120cc0 [0x4fb]: Pad {f00=0x001a, f01=0x40f6, f02=»BLE ENTRY P* P* TERMINAL PARAMETERS P* < P* F , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P P* P* P* P* PINTRT2 EQU * TABLE ENTRY P* P* P* P END @ EVICES CONNECTED TO
0x000ca0…120cc0 [0x4fc]: Pad {f00=0x001a, f01=0x2008, f02=» NAL PARAMETERS 0 P* LEFT BYTE = 2 * NUMBER OF INPUT DEVICES 4 P* AND DEVICES WITH DATA REQUESTS R , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* 4 P* NOTE: PRINTERS ARE TREATED AS INPUT DEVICES P* P*
0x000ca0…120cc0 [0x4fd]: Pad {f00=0x001a, f01=0x018e, f02=»EYBOARD | P* ORDER 06: WRITE CARD P* ORDER 0A: READ CARD 0 P* ORDER 0B: PICK NOTES P P* ORDER 11: INSERT CARD p P* ORDER 22: FEED NOTES $ P* ORDER 26: FINISH TRANSACTION P* ORDER 31: RETURN CARD P* ORDER 33:
0x000ca0…120cc0 [0x4fe]: Pad {f00=0x001a, f01=0x0190, f02=» P* P* A1 = RETURN CODE & P* A2 = INPUT OR OUTPUT CHARACTER * P* A3 = BUFFER INDEX T P* A4 = FUNCTION INDEX r P* A5 = STACK BASE P* A6 = DWT-ADDRESS P* A7 = ORDER P* A8 = ECB-ADDRESS P EJECT P
0x000ca0…120cc0 [0x4ff]: Pad {f00=0x001a, f01=0x0190, f02=» MOTOR VOLTAGE ERROR DISPENSER & P* BIT 3: TIMEOUT ERROR DISPENSER & ( P* BIT 4: SOLENOID ERROR DISPENSER P * P* BIT 5: ELECTRONICS ERROR DISPENSER | ( P* BIT 6: DETECTOR ERROR DISPENSER * P* BIT 7: FRONT SHUTTER DOESN'T CLOSE ( P* BI
0x000ca0…120cc0 [0x500]: Pad {f00=0x001b, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x501]: Pad {f00=0x001b, f01=0x0002, f02=» h
0x000ca0…120cc0 [0x502]: Pad {f00=0x001b, f01=0x0190, f02=» 2 P IDENT INTRT3 REL 8.2 78-09-15 870105040820 P* : @ P* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 D P* FOR REMOTE TERMINALS D P* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEVICES CONNECTED TO
0x000ca0…120cc0 [0x503]: Pad {f00=0x001b, f01=0x40f6, f02=»BLE ENTRY P* P* TERMINAL PARAMETERS P* < P* F , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P P* P* P* P* PINTRT3 EQU * TABLE ENTRY P* P* P* P END @ EVICES CONNECTED TO
0x000ca0…120cc0 [0x504]: Pad {f00=0x001b, f01=0x2008, f02=» NAL PARAMETERS 0 P* LEFT BYTE = 2 * NUMBER OF INPUT DEVICES 4 P* AND DEVICES WITH DATA REQUESTS R , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* 4 P* NOTE: PRINTERS ARE TREATED AS INPUT DEVICES P* P*
0x000ca0…120cc0 [0x505]: Pad {f00=0x001b, f01=0x0190, f02=» P RF(E) ENDIO YES P LDK A1,/20 P RF ENDIO 0 P* B 4 P* MODIFY DEVICE ADDRESS DEPENDING ON KEYBOARD, L 2 P* CARD READER/WRITER, OR DISPENSER ORDER AND & P* JUMP TO VALID FUNCTION MODULE. P* PACCG38 EQU * P LDK A2,
0x000ca0…120cc0 [0x506]: Pad {f00=0x001b, f01=0x0190, f02=»40 EQU * ( P CF A5,MODIFY MODIFY DEVICE ADDRESS PACCG50 EQU * < P LDK A3,0 P P SLL A4,1 b 2 P ABI FUNTAB-2,A4 JUMP TO VALID FUNCTION MODULE t P EJECT P* 2 P* CHECK IF CARD-IN-READER MESSAGE HAS COME " P* OR WAIT FOR T
0x000ca0…120cc0 [0x507]: Pad {f00=0x001b, f01=0x0190, f02=»A5,STREG WAIT FOR COT MESSAGE $ P SUK A1,3 DEVICE CODE CORRECT ? & P RF(NE) THRERR NO N PCARD10 EQU * h P SUK A2,/0C CARD IN READER ? | P RF(E) ENDIO 2 PCARD12 SUK A2,/34 FRONT SHUTTER DOESNT CLOSE ? P RF(NE) CARD20 NO PCARD15
0x000ca0…120cc0 [0x508]: Pad {f00=0x001b, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x509]: Pad {f00=0x001b, f01=0x0002, f02=» x
0x000ca0…120cc0 [0x50a]: Pad {f00=0x001b, f01=0x0190, f02=» 2 P IDENT INTRT4 REL 8.2 78-09-15 870105040820 P* : @ P* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 D P* FOR REMOTE TERMINALS D P* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEVICES CONNECTED TO
0x000ca0…120cc0 [0x50b]: Pad {f00=0x001b, f01=0x40f6, f02=»BLE ENTRY P* P* TERMINAL PARAMETERS P* < P* F , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P P* P* P* P* PINTRT4 EQU * TABLE ENTRY P* P* P* P END @ EVICES CONNECTED TO
0x000ca0…120cc0 [0x50c]: Pad {f00=0x001b, f01=0x2008, f02=» NAL PARAMETERS 0 P* LEFT BYTE = 2 * NUMBER OF INPUT DEVICES 4 P* AND DEVICES WITH DATA REQUESTS R , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* 4 P* NOTE: PRINTERS ARE TREATED AS INPUT DEVICES P* P*
0x000ca0…120cc0 [0x50d]: Pad {f00=0x001b, f01=0x018e, f02=»NOTES TAKEN ? " PFEEDER EQU * # P RB(NE) THRERR # * P LDR A3,A3 POWER BREAK ? # @ P RB(N) FEED20 YES # ` P RB PICK60 # z P EJECT # P* # P* # PSCANKE EQU * # ( P LDK A2,SCANK SCAN KEYBOARD COMMAND # P RB MICOUT # PSCAN10 EQU
0x000ca0…120cc0 [0x50e]: Pad {f00=0x001b, f01=0x0190, f02=» # P RB(E) RECA30 $ P SUK A2,2 $ P RB(E) ENDI01 $ 0 P ABL THRERR $ F " PSCAN12 SUK A7,2 PIN REQUEST ? $ Z P RF(E) PIN10 YES $ " P CF A15,STORE STORE CHARACTER $ , PSCAN15 LD A1,10,A8 GET KEY-TABLE ADDRESS $ P RF(E) SCA100 NO KEYTABLE $
0x000ca0…120cc0 [0x50f]: Pad {f00=0x001b, f01=0x0190, f02=» $ , P RF(N) SCA100 KEY NOT FOUND IN KEYTABLE % P SUK A1,1 NEXT KEY % 8 P CCR A2,A1 EOR-CHARACTER % R P RB(NE) SCAN20 % r P LDK A1,0 % P ADR A7,A7 YES, DOUBLE INDEX % , P ST A7,10,A8 STORE INDEX IN CONTROL WORD % P RF SCA200 % , PSCA100 CCK
0x000ca0…120cc0 [0x510]: Pad {f00=0x0005, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f x T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x511]: Pad {f00=0x0005, f01=0x0002, f02=»
0x000ca0…120cc0 [0x512]: Pad {f00=0x0005, f01=0x0190, f02=» 2 P IDENT MONTAB REL 8.2 78-09-15 870105040820 P : P* B 6 P* THIS TABLE CONTAINS ADDRESSES TO CONFIGURATION L P* DEPENDENT MONITOR TABLES P* P* P ENTRY MONTAB P ENTRY TCTAB,CDTAB,BLOCKS P* P ENTRY INT
0x000ca0…120cc0 [0x513]: Pad {f00=0x0005, f01=0x018e, f02=»RN TC:TAB,CD:TAB,BLOK:S P* P* * P* 4 P* > P* H P* R P* P* f P* p P* z P* P* PMONTAB EQU * PTCTAB DATA TC:TAB PCDTAB DATA CD:TAB PBLOCKS DATA BLOK:S P* PINTLT2
0x000ca0…120cc0 [0x514]: Pad {f00=0x0005, f01=0x4032, f02=» P* P* P* P END "@ . P* 4 P* > P* H P* R P* P* f P* p P* z P* P* PMONTAB EQU * PTCTAB DATA TC:TAB PCDTAB DATA CD:TAB PBLOCKS DATA BLOK:S P* PINTLT2
0x000ca0…120cc0 [0x515]: Pad {f00=0x0005, f01=0x2008, f02=» P EXTRN IN:LT2 P EXTRN IN:RT1 " P EXTRN IN:RT2 8 P* N P* X P* b P* l PMONTAB EQU * v PTCTAB DATA TC:TAB PCDTAB DATA CD:TAB PBLOCKS DATA BLOK:S PDCTAB DATA DC:TAB PINTLT1 DATA IN:LT1
0x000ca0…120cc0 [0x516]: Pad {f00=0x0005, f01=0x0190, f02=»ORTED z PCREDIT EQU 0 P EJECT " P 0 P* 8 P* ABORT I/O REQUEST B P* ^ P h PTABORT LDR* A3,A8 p , P RF(N) TABOER REQUEST ALREADY COMPLETED P ( P CF A15,FNDDWT LOOK FOR DWT ADDRESS P LDR A8,A6 P RF(Z) TAB
0x000ca0…120cc0 [0x517]: Pad {f00=0x0005, f01=0x0190, f02=»OER DEVICE NOT BUSY P P SLC A7,2 $ $ P RF(NN) TABO20 NOT ECHO REQUEST 6 " P LD A6,DWTECH,A6 GET ECHO DWT ^ $ P CF A15,TENDIO ABORT ECHO DEVICE P LDR A6,A8 RESTORE DWT PTABO20 EQU * . P CF A15,ITABRT ABORT IF INTERTASK REQUEST
0x000ca0…120cc0 [0x518]: Pad {f00=0x0006, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f x T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x519]: Pad {f00=0x0006, f01=0x000c, f02=» x
0x000ca0…120cc0 [0x51a]: Pad {f00=0x0006, f01=0x0190, f02=» 0 P IDENT TIODM REL 8.2 78-09-15 870105040820 P 8 ( P ORDER SET LRN IMPLEMENTED + EA SR @ P REL 8.1 78-04-21 l P* 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P
0x000ca0…120cc0 [0x51b]: Pad {f00=0x0006, f01=0x0190, f02=»****************************** z P* & B P* THIS MODULE IS ENTERED IN THE SAME WAY AS A DRIVER VIA TIO 0 . P* AND THE DWTADR IN FDB FOR CURRENT FILE v P* H P* THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR $ P* FROM A D
0x000ca0…120cc0 [0x51c]: Pad {f00=0x0006, f01=0x0190, f02=»A6 = FDB ADDRESS P* A7 = ORDER P* A8 = ECB ADDRESS 6 P* Z P* USED REGISTERS A1 - A10 d P* D P* BEFORE EXIT A DMTASK IS ACTIVATED WITH THE FDB ADDRESS IN A1 P* AS THE ONLY PARAMETER P* 4 P*
0x000ca0…120cc0 [0x51d]: Pad {f00=0x0006, f01=0x0190, f02=»FDBTNR TASK NUMBER FOR CALLING TASK . P* FDBCEX CURRENT EXTENT BLOCK POINTER . P* ` P* j D P* IF AN ERROR CONDITION IS DETECTED THE ERROR RETURN WILL BE: t P* LDKL A1,/<RETURN CODE> P* ABL DISEND P* P*
0x000ca0…120cc0 [0x51e]: Pad {f00=0x0006, f01=0x0190, f02=»ADR r P ENTRY FDBLNK P ENTRY FDBECB " P ENTRY FDBSNR 8 P ENTRY FDBRRO N P ENTRY FDBRLE d P ENTRY FDBBLF z P ENTRY FDBTNR P ENTRY FDBVTO P ENTRY FDBCEX P ENTRY FDBEXT P ENTRY EXTDMI P ENTRY EXTFC
0x000ca0…120cc0 [0x51f]: Pad {f00=0x0006, f01=0x0190, f02=»IA,FDBADF j & P ENTRY FDBAI1,CRNTID,CRNCDF,CRNCIF P ENTRY FDBMRN,FDBDBR,FDBMRO < P ENTRY ECBFC ` P ENTRY TCFILE,COFILE t P EJECT P* P***************** P* EXTERNALS * P***************** P* P* P
0x000ca0…120cc0 [0x520]: Pad {f00=0x0006, f01=0x018e, f02=»WTECB P EXTRN DWTOR P EXTRN DWTTDM " " P EXTRN DMTGCA GET CRN ADDRESS 8 , P EXTRN DMTGEA GET EA WORD ADDR AND MASK ^ P EXTRN DMTASK P EXTRN CALSNO P EXTRN ECBBA P EXTRN ECBRL P EXTRN ECBEL P EXTRN ECBRC P
0x000ca0…120cc0 [0x521]: Pad {f00=0x0006, f01=0x0190, f02=» P* P************************ P* CONDITIONAL ASSEMBLY * . P************************ N P* n P* x @ P* A VERSION CONTAINING INDEXED REQUEST ORDERS IS OBTAINED P* BY SETTING INDXAC EQU 1 * P* INDXAC EQU 0 OTHR
0x000ca0…120cc0 [0x522]: Pad {f00=0x0006, f01=0x0190, f02=»ONCON P EJECT P* P************************ & P* DATA DEFINITIONS * F P************************ f P* P* P DATA 0,0 4 WORDS P DATA 0,0 " PTIOD14 EQU *-2 TIODM A14 STACK P* P* & PTIODMF EQU
0x000ca0…120cc0 [0x523]: Pad {f00=0x0006, f01=0x0190, f02=»EXED READ NEXT P DATA IXINS INDEXED INSERT P DATA IXDEL INDEXED DELETE 8 P DATA IXREWR INDEXED REWRITE Z $ P DATA IXRARE INDEXED RANDOM READ ~ P XIF P IFF INDXAC=1 P DATA TIODME P DATA TIODME P DATA TIODME P DATA
0x000ca0…120cc0 [0x524]: Pad {f00=0x0006, f01=0x0190, f02=»OM READ ~ * P DATA RELXAC RELEASE EXCLUSIVE ACCESS $ P DATA SEQWRITE SEQUENTIAL WRITE > " P DATA SEQREAD SEQUENTIAL READ f P DATA GETCUR GET CURRENCY P IFT INDXAC=1 $ P DATA INSIXR INSERT INDEX RECORD $ P DATA DELIXR DELETE INDEX RECO
0x000ca0…120cc0 [0x525]: Pad {f00=0x0006, f01=0x0190, f02=» & P DATA RANWRD DELAYED RANDOM WRITE & P DATA RANDLD DELAYED RANDOM DELETE . $ P DATA RANREB RAND READ REL BUFF X P DATA SETLRN SET LRN P* P* PTIODMO EQU * DM ORDERS $ P DATA /221E CLOSE,IND READ NEXT & P DATA /1D1C IND INSE
0x000ca0…120cc0 [0x526]: Pad {f00=0x0006, f01=0x0190, f02=» REL EXCL ACC z & P DATA /0807 SPEC. WR. , SPEC. WR. & P DATA /0605 SEQ WR. , BASIC WRITE @ $ P DATA /0302 READ VTOC, SEQ READ j ( P DATA /0123 BASIC READ,GET CURRENCY * P DATA /1F20 INS INDEXREC,DEL INDEXREC . P DATA /240D GET CURR INDEX,DEL
0x000ca0…120cc0 [0x527]: Pad {f00=0x0006, f01=0x0190, f02=» TABLE x P DATA /0004 P DATA /0608 " P DATA /0A0C 6 P DATA /0E10 J P DATA /1214 ^ P DATA /1616 r P DATA /1616 P DATA /0218 P DATA /181A P DATA /1C1E P DATA /2022 P DATA /2426 P DATA /281A
0x000ca0…120cc0 [0x528]: Pad {f00=0x0007, f01=0x0190, f02=» DEFINITIONS P* " PFDBLNK EQU 0 LINK TO NEXT FDB PFDBECB EQU 18 ECB START D PFDBSNR EQU 32 SECTOR NUMBER d ( PFDBRRO EQU 34 RELATIVE RECORD OFFSET PFDBRLE EQU 36 RECORD LENGTH " PFDBBLF EQU 38 BLOCKING FACTOR * PFDBTNR EQU 3
0x000ca0…120cc0 [0x529]: Pad {f00=0x0007, f01=0x018e, f02=»FIRST EXTENT BLOCK START PEXTDMI EQU 0 DMTAST IDENT PEXTFC EQU 1 VOLUME FILE CODE B PEXTLEN EQU 2 EXTENT LENGTH f PEXTBAS EQU 4 EXTENT BASE " PEXTELE EQU 6 EXT ENTRY LENGTH $ PFDBLRN EQU 69 LAST RECORD NUMBER $ PFDBNIF EQU 68 NO OF
0x000ca0…120cc0 [0x52a]: Pad {f00=0x0007, f01=0x0190, f02=» * PFDBMIA EQU 78 ADDRESS OF MASTER INDEX * PFDBADF EQU 80 ADDRESS OF DATA FILE FDB 2 , PFDBAI1 EQU 82 ADDRESS OF INDEX FILE FDB ` 2 PFDBDBR EQU 90 DELAY,BASIC AND REL BUFFER FLAGS & PFDBMRN EQU 91 LAST REC NR IN FILE PFDBMRO EQU 94 MAX FDBRRO
0x000ca0…120cc0 [0x52b]: Pad {f00=0x0007, f01=0x0190, f02=»CRNCIF EQU 8 CURRENT INDEX FILE P EJECT ( P* 6 P************* @ P* TIODM * V P************* l P* P* & PTIODM DATA *+2 TIODM START ADDRESS P* P* SET UP A14 STACK P* P LDKL A14,TIOD14 P*
0x000ca0…120cc0 [0x52c]: Pad {f00=0x0007, f01=0x0190, f02=» P LD A3,2,A1 P CW A3,DWTTDM,A6 P RF(E) TIOD10 THIS TASK 0 P ADK A2,2 NO P P RB TIOD05 TRY NEXT d PTIOD10 EQU * P LD A1,2,A3 TASK STATUS P RF(N) TIO13 DMTASK CALLING P* P* SET TASK ID FOR ALL FDBS P*
0x000ca0…120cc0 [0x52d]: Pad {f00=0x0007, f01=0x0190, f02=»1 EQU * P SUK A3,2 P RF(N) TIO13 ALL FDB READY " P LDR* A5,A1 FDB ADDR D P RF(E) TIO12 NO FDB ` P SC A2,FDBTNR,A5 TASK ID | " P ORS A4,DWTST,A5 REQ BUSY BIT PTIO12 EQU * P ADK A1,2 NEXT FDB ADDR P RB TIO11 PTI
0x000ca0…120cc0 [0x52e]: Pad {f00=0x0007, f01=0x0190, f02=» RIGHT BYTE t P* P LDKL A1,/8000 REQUEST ERROR & P LDK A2,NOOFOR-1 NO OF ORDERS - 1 B 2 PTIOD15 CC A7,TIODMO,A2 START AT END OF TIODMO l P RF(E) TIOD20 MATCH P SUK A2,1 P RB(NN) TIOD15 >= 0 P ABL TIODME ERROR RETURN
0x000ca0…120cc0 [0x52f]: Pad {f00=0x0007, f01=0x0190, f02=»JECT P* $ PDELIXR EQU * DELETE INDEX RECORD P* > $ PINSIXR EQU * INSERT INDEX RECORD H P* p $ PIXRARE EQU * INDEXED RANDOM READ z P LDKL A4,-1 P RF TIOC10 P* " PREVTOC EQU * READ VTOC RECORD P* PCLOSE EQ
0x000ca0…120cc0 [0x530]: Pad {f00=0x0007, f01=0x0190, f02=»A6 SECTOR #0 VOLUME LABLE P* " ( P* LET FDBCEX POINT TO FIRST EXTENT , P* X P LDR A4,A6 b P ADKL A4,FDBEXT t P ST A4,FDBCEX,A6 P ABL TIOD68 ACTIVATE DMTASK P EJECT P* * PRELXAC EQU * RELEASE EXCLUSIVE ACCESS
0x000ca0…120cc0 [0x531]: Pad {f00=0x0007, f01=0x0190, f02=»0 CORRECT RETURN P ABL TIODME P EJECT , ( PSETLRN EQU * SET LAST RECORD NUMBER : P LC A1,ECBCW+3,A8 f P SC A1,FDBLRN,A6 P LD A1,ECBCW,A8 P ST A1,FDBLRN+1,A6 P RB REL090 P EJECT , PGETCUR LDK A7,CRNCDF+1 GET CURR
0x000ca0…120cc0 [0x532]: Pad {f00=0x0007, f01=0x0190, f02=»ET CRN BUFFER P ADR A7,A2 ADDR CURR REC NO P LDK A2,0 : P LC A3,-1,A7 FILE CODE L P CC A3,ECBFC,A8 j P RF(E) GET020 SAME FILE CODE P SC A2,ECBCW+3,A8 P RF GET030 PGET020 EQU * P LCR A2,A7 P SC A2,ECBCW+3,A8
0x000ca0…120cc0 [0x533]: Pad {f00=0x0007, f01=0x0190, f02=» READ x P* $ P* FIND CRN+1 AND TEST IF > LRN P* @ P LDR A1,A6 FDB ADDR J " P CF A14,CRNGET GET CRN-BUFFER f P LDK A1,0 P LC A1,CRNCDF+1,A2 & P LD A2,CRNCDF+2,A2 CURR LOG REC NO P ADK A2,1 CRN+1 P RF(O) SEQR10 OV
0x000ca0…120cc0 [0x534]: Pad {f00=0x0007, f01=0x018e, f02=» P SC A1,ECBCW+3,A8 REC NO P ST A2,ECBCW,A8 $ P* < $ P* CONTINUE AS FOR RANDOM READ F P* n P EJECT x PRANREAD EQU * RANDOM READ P* $ PRANREB EQU * RAND READ REL BUFF P* P* TEST IF ECBRL <= 0 P*
0x000ca0…120cc0 [0x535]: Pad {f00=0x0007, f01=0x0190, f02=» * P RF(NP) TIODME ERROR RETURN IF RL <= 0 P* 2 * P* EA MUST NOT BE SET FOR OTHER TASK < P* j P LDR A1,A6 FDB ADDR t P CF A14,EATEST P LDR A4,A4 RTN INF P RF(N) TIODPE EA OTHER TASK P RF TIODMA P EJECT PIXINS
0x000ca0…120cc0 [0x536]: Pad {f00=0x0007, f01=0x0190, f02=»CW d P* P* * P* CALCULATE NUMBER DOF SPARE RECORDS P* L P LDR A5,A6 SAVE FDB ADDR V P LDK A1,0 v P LC A1,FDBMRN,A6 LAST REC NR P LD A2,FDBMRN+1,A6 P LDK A6,0 P LC A6,FDBLRN,A5 P LD A7,FDBLRN+1,A5 LRN
0x000ca0…120cc0 [0x537]: Pad {f00=0x0007, f01=0x018e, f02=»A2,ECBEL,A8 NR OF SPARE P LDR A6,A5 FDB ADDRESS P LDK A1,0 > P LC A1,FDBLRN,A6 P P LD A2,FDBLRN+1,A6 LRN h P IFT INDXAC=1 P RF IXR020 STORE LOG REC NO P EJECT $ PIXRDNX EQU * INDEXED EREAD NEXT P* P* GET CR
0x000ca0…120cc0 [0x538]: Pad {f00=0x004b, f01=0x0190, f02=» P LDK A2,0 P* " P* CHECK THAT FILE CODE IS OK P* F P LDR* A5,A8 FILE CODE P P CC A5,CRNCIF,A4 n . P RF(NE) IXR020 OTHER INDEX FILE IS CURRENT P LC A1,CRNCIF+1,A4 " P LD A2,CRNCIF+2,A4 LOG REC NO PIXR020 EQU *
0x000ca0…120cc0 [0x539]: Pad {f00=0x004b, f01=0x0190, f02=»1,1 ADK CARRY PIXR040 EQU * P SC A1,ECBCW+3,A8 REC NO * P ST A2,ECBCW,A8 J * P RF TIOD25 DO NOT CHECK EOF CONDITION b P EJECT P* PIXREWR EQU * INDEXED REWRITE P* PIXDEL EQU * INDEXED DELETE P* PRANWRITE
0x000ca0…120cc0 [0x53a]: Pad {f00=0x004b, f01=0x0190, f02=» PRANDEL EQU * RANDOM DELETE P* * P* NO SPECIAL PROCESSING 4 P* V P EJECT ` P* n P************************* x P* DMTASK ACTIVATION * P************************* P* PTIODMA EQU * P* P*
0x000ca0…120cc0 [0x53b]: Pad {f00=0x004b, f01=0x0190, f02=» MOST SIGN PART P RF(L) TIOD25 CRN<LRN ! P RF(G) TIOD23 CRN>LRN ! 6 P CW A2,FDBLRN+1,A6 2 PART ! T P RF(NG) TIOD25 CRN <= LRN ! v PTIOD23 EQU * ! P LDKL A3,/1000 END OF FILE ! P ORS A3,ECBRC,A8 ! P ANK A7,/3F ! P SUKL A7,SQR SEQ
0x000ca0…120cc0 [0x53c]: Pad {f00=0x004b, f01=0x0190, f02=»FFSET IN SECTOR ! n P LDR A1,A1 RETURN INF " P RF(NZ) TIODME " 6 P EJECT " L P* " Z . P* ACTIVATE DMTASK WITH FDB ADDRESS IN A1 " d P* " PTIOD68 EQU * " P ENB " P ENB " P INH " P LDR A1,A6 FDB ADDRESS " P LDK A7,0 " $ P L
0x000ca0…120cc0 [0x53d]: Pad {f00=0x004b, f01=0x018e, f02=»FOUND " | " P HLT DMTASK MISSING IN TCTAB # * PTIOD70 LDKL A2,DMTASK DISPATCH ADDRESS # 4 P LDK A3,0 # b " P CF A15,ACTOT ACTIVATE DMTASK # t P* # P* EXIT TO TDISP # P* # P ABL TDISP # P* # P EJECT # P* # P**************
0x000ca0…120cc0 [0x53e]: Pad {f00=0x004b, f01=0x40e0, f02=» # H P* $ PTIODPE EQU * $ P LDKL A1,/2000 PROTECT ERROR $ & PTIODME EQU * $ J P* A1 = ERROR CODE $ ^ P* A6 = FDB ADDRESS $ z , P ABL DISEND CALL TENDIO GOTO DISPATCHER $ P* $ P END $ @ $ P EJECT # P* # P**************
0x000ca0…120cc0 [0x53f]: Pad {f00=0x004b, f01=0x2008, f02=» %
0x000ca0…120cc0 [0x540]: Pad {f00=0x004c, f01=0x2008, f02=» H P X ` h p x
0x000ca0…120cc0 [0x541]: Pad {f00=0x004c, f01=0x0190, f02=» P OTR A2,0,DAMU04 w P SST A2,DAMI04 w P SST A2,DAMU04 w 2 P CIO A2,1,DAMI04 w H P CIO A2,1,DAMU04 w ` P CIO A2,0,DAMI04 w x P CIO A2,0,DAMU04 w P**LOGG w P IFF LOGG=0 w P DATA LGST04 w PLGST04 EQU * w P RES LOGG w P DATA
0x000ca0…120cc0 [0x542]: Pad {f00=0x004c, f01=0x0190, f02=» w PDW1704 EQU * x P IFF NLINE=3 x PDW1703 EQU * x 0 P IFF NLINE=2 x D PDW1702 EQU * x X P XIF x l P DATA 0 DUMMY DWT x x P DATA 0 STATUS BUSY x P EJECT x P* x P* x P* INTERRUPT LOGGING ROUTINE x P* x P* LOG LABELI
0x000ca0…120cc0 [0x543]: Pad {f00=0x004c, f01=0x0190, f02=»TPUT STATUS MARKED /0F - NOT USED x P* y , P IFF LOGG=0 y 6 PLOGSST ST A2,SAVE2,A6 y J P ORKL A2,/1F00 y h P RF LOG10 y ~ PLOGOUT ST A2,SAVE2,A6 y P ORKL A2,/0000 y P RF LOG10 y PLOGIN CWK A2,/FF y P RF(E) LOGE10 y P ST A2
0x000ca0…120cc0 [0x544]: Pad {f00=0x004c, f01=0x4104, f02=»3,A6 y P CWK A3,LOGEND z P RF(L) LOGEXI z " P LDKL A3,LOGSTA z 8 PLOGEXI EQU * z P P ADR A3,A6 z d P ST A3,LOGPNT,A6 z v P LD A2,SAVE2,A6 z P LD A3,SAVE3,A6 z PLOGE10 RTN A5 z P XIF z P* z P* z P END z @ z ST A2
0x000ca0…120cc0 [0x545]: Pad {f00=0x004c, f01=0x2008, f02=» { 0 8 @ x @
0x000ca0…120cc0 [0x546]: Pad {f00=0x004c, f01=0x0190, f02=» LABEL = SSTS00 DATE = 78 10 16 PACK NBR = 000 f E
0x000ca0…120cc0 [0x547]: Pad {f00=0x004c, f01=0x0190, f02=» LABEL = SSTS00 DATE = 78 10 16 PACK NBR = 000 f E
0x000ca0…120cc0 [0x548]: Pad {f00=0x001e, f01=0x0190, f02=» P LDK A2,0 P* " P* CHECK THAT FILE CODE IS OK $ P* J P LDR* A5,A8 FILE CODE T P CC A5,CRNCIF,A4 r . P RF(NE) IXR020 OTHER INDEX FILE IS CURRENT P LC A1,CRNCIF+1,A4 " P LD A2,CRNCIF+2,A4 LOG REC NO PIXR020 EQU *
0x000ca0…120cc0 [0x549]: Pad {f00=0x001e, f01=0x0022, f02=» ( 0 P X ` h p x
0x000ca0…120cc0 [0x54a]: Pad {f00=0x001e, f01=0x0190, f02=» 2 P IDENT DMTASK REL 8.2 78-09-15 870105040820 P : P BUF. HANDL. L. 1614 B " P REQ ERR HANDL L. 1351,1488 ` P REL 8.1 78-04-21 P* 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYS
0x000ca0…120cc0 [0x54b]: Pad {f00=0x001e, f01=0x018e, f02=» 8 P**************************************************** P* @ , P* THIS MODULE IS ACTIVATED FROM TIODM. J P* z P* INPUT PARAMETERS: P* A1 = FDB ADDRESS < P* A2 = TID TASK IDENT OF DMTASK AT PRESENT NOT USED P* H P*
0x000ca0…120cc0 [0x54c]: Pad {f00=0x001e, f01=0x0190, f02=» F P* IS ALREADY PRESENT IN A BUFFER. IF SO THE BUFFER STATUS IS SET D P* TO USED AND ACTIONS ACCORDING TO THE ORDER ARE TAKEN. IF NOT N : P* THE SECTOR MUST FIRST BE READ INTO A FREE BUFFER. P* H P* ALL I/O LKM REQUESTS IN THIS MODULE ARE
0x000ca0…120cc0 [0x54d]: Pad {f00=0x001e, f01=0x0190, f02=» & P* ALL I/O ARE MADE IN WAIT MODE P* . D P* BY MEANS OF CONDITIONAL ASSEMBLY THE EXCLUSIVE ACCESS CHECK 8 6 P* FOR INDEXED DELETE AND FOR INDEXED REWRITE AND < P* FOR RANDOM WRITE AND RANDOM DELETE CAN BE EXCLUDED. P* 2 P* QN
0x000ca0…120cc0 [0x54e]: Pad {f00=0x001e, f01=0x0190, f02=»******* P* ENTRIES * P*************** ( P* @ P* J P ENTRY DMTASK T & P ENTRY SQR EXTERNAL CODE SEQ READ j P ENTRY QSW P ENTRY QIRN,QIRR P ENTRY DMTWM P EJECT P* P***************** P* EX
0x000ca0…120cc0 [0x54f]: Pad {f00=0x001e, f01=0x018e, f02=» P EXTRN TENDIO P EXTRN RTNA15 P EXTRN FDBECB 4 P EXTRN FDBSNR J P EXTRN FDBRRO ` P EXTRN FDBRLE v P EXTRN FDBBLF P EXTRN FDBTNR P EXTRN FDBVTO P EXTRN FDBCEX P EXTRN FDBEXT P EXTRN EXTDMI
0x000ca0…120cc0 [0x550]: Pad {f00=0x001e, f01=0x0190, f02=» P EXTRN FDBEAL P EXTRN FDBADF P EXTRN FDBAI1 0 P EXTRN FDBCRL F P EXTRN FDBDBR,FDBMRN,FDBMRO P EXTRN ECBFC P EXTRN ECBBA P EXTRN ECBRL P EXTRN ECBEL P EXTRN ECBRC P EXTRN ECBCW P EXTRN CLRBUF
0x000ca0…120cc0 [0x551]: Pad {f00=0x001e, f01=0x0190, f02=»XTRN CURBUF P EXTRN DWTECB P EXTRN DWTOR * P EXTRN DWTST,DWTTDM,DWTTQ > ( P EXTRN DMTRBU RELEASE A DISC BUFFER ` P EXTRN VTLRN P EXTRN VLVBA P EXTRN VLVRL P EXTRN DMTIOT,DIVMOD P EXTRN MPYMOD,CHKKEY P EXTRN CAL
0x000ca0…120cc0 [0x552]: Pad {f00=0x001e, f01=0x0190, f02=» EXTRN CRNCIF,CRNCDF,CRNQUE P EXTRN MXIND $ P EXTRN FDBKA,FDBNIF,RDNXTR 8 . P EXTRN BUFAR1,BUFAR2,SECTLE,DMTIOZ,CRNUPD Z P EJECT P* P* P* P************************ P* CONDITIONAL ASSEMBLY * P******************
0x000ca0…120cc0 [0x553]: Pad {f00=0x001e, f01=0x0190, f02=»0. ^ P* P* PX:A EQU 1 PX:B EQU 0 0 PX:C EQU 0 B PX:D EQU 1 T PX:E EQU 0 f P* x PQNOEXA EQU 1 6 P* INDEXED ACCEXSS FUNCTIONS CAN BE OMITTED WITH , P* INDXAC EQU 1 = INDEX ACCESS INCLUDED 6 P* INDXAC
0x000ca0…120cc0 [0x554]: Pad {f00=0x001e, f01=0x0190, f02=» X:D FLEXIBLE DISC INCLUDED WHEN EQU 1 0 PINSLAS EQU X:E INSERT SAME KEY LAST WHEN = 1 . P EJECT b P* p P************************ z P* DATA DEFINITIONS * P************************ P* P* , PEABIT EQU /20 EA-BIT IN DWT
0x000ca0…120cc0 [0x555]: Pad {f00=0x001e, f01=0x0190, f02=»VE & P* POSITION IN TIODM-TABLE TIODMF P* 4 PQCL EQU 0 > PDMTAFU DATA DMCLOSE CLOSE P PQRV EQU 2 r " P DATA DMREVT READ VTOC RECORD PQIRN EQU 4 P IFT INDXAC=1 " P DATA DMIRN INDEXED READ NEXT PQINS EQU 6 P
0x000ca0…120cc0 [0x556]: Pad {f00=0x001e, f01=0x0190, f02=» t $ P DATA DMIRR INDEXED RANDOM RESAD P XIF 0 PQIRR EQU 12 < P IFF INDXAC=1 P , P DATA DMTERR,DMTERR,DMTERR,DMTERR,DMTERR f P XIF PQRD EQU 14 P DATA DMRDDE RANDOM DELETE PQRW EQU 16 P DATA DMRDWR RANDOM WRITE P
0x000ca0…120cc0 [0x557]: Pad {f00=0x001e, f01=0x0190, f02=» DATA DMSQWR SEQUENTIAL WRITE * PSQR EQU 2 EXTERNAL ORDER CODE SEQ READ & PQSR EQU 24 T P DATA DMSQRE SEQUENTIAL READ f PQGCUR EQU 26 P DATA DMTERR GET CURRENCY P IFT INDXAC=1 PQINIX EQU 28 P DATA DMINIX INSERT INDEX
0x000ca0…120cc0 [0x558]: Pad {f00=0x0028, f01=0x0190, f02=»RX EQU 32 " P DATA DMTERR GET CURRENT INDEX PQRWD EQU 34 8 & P DATA DMRDWD DELAYED RANDOM WRITE L PQRDD EQU 36 v & P DATA DMRDDD DELAYED RANDOM DELETE PQRRRB EQU 38 $ P DATA DMRRRB RAND READ REL BUFF P* $ PVTOCRL DATA 0 VT
0x000ca0…120cc0 [0x559]: Pad {f00=0x0028, f01=0x018e, f02=» DMTFRL FIND RECORD LENGTH P* & 4 P* INPUT A1 = RETURN CODE IF INCORRECT LENGTH 0 P* A6 = FDB ADDRESS h & P* A9 = USER ECB ADDRESS P* . P* OUTPUT A2 = RECORD LENGTH TO BE USED < P* A1 IS ORED I
0x000ca0…120cc0 [0x55a]: Pad {f00=0x0028, f01=0x0190, f02=» P CW A2,FDBRLE,A6 $ P RF(E) DMTF20 ECBRL = REC LENGTH $ P RF(L) DMTF10 ECBRL < REC LENGTH D ( P LD A2,FDBRLE,A6 ECBRL > REC LENGTH l P RF DMTF20 * PDMTF10 ORS A1,ECBRC,A9 SET RETURN CODE . PDMTF20 ST A2,ECBEL,A9 SET EFFECTIVE LENGTH P
0x000ca0…120cc0 [0x55b]: Pad {f00=0x0028, f01=0x0190, f02=» MOVE x P* " P* INPUT A1 = FROM ADDRESS , P* A2 = NO OF BYTES TO BE MOVED > P* A3 = TO ADDRESS n P* $ P* A4 WILL BE DESTROYED P* P* PDMTWM EQU * P SUK A2,2 " P RF(N) DMTW1
0x000ca0…120cc0 [0x55c]: Pad {f00=0x0028, f01=0x0190, f02=»1 P RF(E) DMTW20 P LCR A4,A1 MOVE LAST CHAR P SCR A4,A3 B PDMTW20 RTN A14 T P EJECT j P* x P************* P* DMTBM * P************* P* " P* ENTRY DMTBM BYTE MOVE P* " P* INPUT
0x000ca0…120cc0 [0x55d]: Pad {f00=0x0028, f01=0x018e, f02=» WILL BE DESTROYED P* P* OUTPUT A3 = NEXT CHAR $ P* F P* P PDMTBM EQU * Z P SUK A2,1 n " P RF(N) DMTB10 LAST BYTE MOVED P LCR A4,A1 P SCR A4,A3 P ADK A1,1 P ADK A3,1 P RB DMTBM PDMTB10 RTN
0x000ca0…120cc0 [0x55e]: Pad {f00=0x0028, f01=0x0190, f02=» ~ P ADR A3,A2 PDMTB20 SUK A2,1 P RB(N) DMTB10 2 P SUK A1,1 H P SUK A3,1 Z P LCR A4,A1 l P SCR A4,A3 ~ P RB DMTB20 P EJECT 8 P****DESCRIPTION************************************* P* : P* FNDFDB WILL SEAR
0x000ca0…120cc0 [0x55f]: Pad {f00=0x0028, f01=0x0190, f02=»B ADDR $ P* A2 = FILE CODE TO SEARCH FOR 4 P* A5 NOT= 0 WHEN ONLY TTAB SHALL BE SEARCHED 6 P* n 8 P****EXIT PARAMETERS********************************* x P* P* A1 = UNCHANGED 2 P* A2 = FILE CODE. = 0 WHEN NO CODE IS FOUND
0x000ca0…120cc0 [0x560]: Pad {f00=0x0029, f01=0x0190, f02=»EGISTERS********************************** P* 2 P* A1-A5 < P* N : P****************************************************** X P* " P* LOOK FOR FILE CODE IN TTAB P* PFNDFDB EQU * & P LD A3,TTB:TD,A1 LENGTH DEV DESCR
0x000ca0…120cc0 [0x561]: Pad {f00=0x0029, f01=0x0190, f02=» A4,A3 P CCR A2,A4 P RB(NE) FND030 P SUK A4,1 6 P LDK A5,1 H " P RF FND080 CODE FOUND IN TTAB Z P* " P* SEARCH FILE CODE IN CDTAB P* PFND040 EQU * P LDR A5,A5 ( P RF(NZ) FND060 ONLY TTAB IS SEACHED
0x000ca0…120cc0 [0x562]: Pad {f00=0x0029, f01=0x0190, f02=»A4 P CC A2,1,A3 P RB(NE) FND050 P AD A4,CDTAB 4 P RF FND080 CODE FOUND H PFND060 EQU * f P LDK A2,0 NO CODE z PFND080 EQU * P RTN A14 P EJECT P* P************** P* DMTREM * P**************
0x000ca0…120cc0 [0x563]: Pad {f00=0x0029, f01=0x0190, f02=» FDBRRO,A6 n $ P* BUFFER ADDRESS IN A5 * P* USER REC AREA IN ECBBA,A9 : $ P* RECORD LENGTH IN A2 h P* P* P* P* MOVE THE RECORD > P* IF (FROM) AND (TO) ADDRESSES BOTH EVEN THEN WORD MOVE B
0x000ca0…120cc0 [0x564]: Pad {f00=0x0029, f01=0x0190, f02=» : P* ELSE USE BYTE MOVE INSTRUCTIONS FOR THE WHOLE REC P* B PDMTREM EQU * L P LD A1,FDBRRO,A6 ` P ADR A1,A5 FROM ADDRESS x P LDR A4,A1 P LD A3,ECBBA,A9 TO ADDRESS P XRR A4,A3 P ANK A4,/01 ( P RF(Z) DMT210 BOTH ODD O
0x000ca0…120cc0 [0x565]: Pad {f00=0x0029, f01=0x0190, f02=» RF(E) DMT220 BOTH EVEN P SUK A2,1 BOTH ODD P LCR A4,A1 : P SCR A4,A3 L P ADK A1,1 ^ P ADK A3,1 p " PDMT220 CF A14,DMTWM WORD MOVE PDMT225 EQU * P RTN A14 P EJECT P* P* SET UP A14 STACK P* P
0x000ca0…120cc0 [0x566]: Pad {f00=0x0029, f01=0x0190, f02=»CR l P ADKL A14,TTB:TD+32 STACK P ABL RTNA15 RET AND ENB , P EJECT L P* Z P************** d P* DMTASK * z P************** P* P* PDMTASK EQU * P* P* SET UP A14 STACK P* P INH P
0x000ca0…120cc0 [0x567]: Pad {f00=0x0029, f01=0x0190, f02=»ORDERS XR,DX,IX (SEE TIODM) ~ PDMT020 EQU * $ P LD A4,FDBDBR,A1 8 P RF(NN) DMT025 NO DELAY P P ANKL A4,/C0FF p P LD A2,DWTOR,A1 P ANK A2,/3F P CWK A2,QCL P RF(E) DMT024 CLOSE P CWK A2,QRV P RF(E) DMT024 READ V
0x000ca0…120cc0 [0x568]: Pad {f00=0x0029, f01=0x0190, f02=» PDMT025 EQU * P LDR A8,A1 P ADKL A8,FDBECB ECB ADDR . $ P CF A14,GTBKBU GET BLOCK BUFFER N P LDR A2,A2 v $ P RF(NN) DMT080 BUFFER WAS BEFORE P* ( P* READ SECTOR INTO BUFFER AND EXIT P* P SUK A5,QCL P RF(Z)
0x000ca0…120cc0 [0x569]: Pad {f00=0x0029, f01=0x0190, f02=» r P LKM P DATA 3 EXIT P* ( ( PDMT030 EQU * I/O WITH WAIT FOR CLOSE 2 P LDK A7,/91 ^ P LKM r P DATA 1 ~ " P RF DMT050 CHECK RETURN CODES P EJECT P************** P* DMTAR1 * P************** P* RE
0x000ca0…120cc0 [0x56a]: Pad {f00=0x0029, f01=0x018e, f02=» PDMT050 EQU * 4 P CF A14,DMTIOT CHECK RETURN CODES FROM DISC I/O P LDR A1,A1 T P ABL(NE) DMTERR f P LD A5,ECBBA,A8 ~ P RF DMT090 0 PDMT080 EQU * ENTRY IF SECT ALREADY IN BUFFER P LDR A5,A3 P ADK A5,8 SKIP BUFFER HEADER
0x000ca0…120cc0 [0x56b]: Pad {f00=0x0029, f01=0x0190, f02=» ^ P* ! P ADK A5,2 SKIP CYLID WORD ! P LD A7,DWTOR,A6 ! 4 P* A7 = INTERNAL ORDER CODE ! L P ANK A7,/3F ! p ( P ABI DMTAFU,A7 DMTASK FUNCTION TABLE ! P EJECT ! $ PDMRRRB EQU * RAND READ REL BUFF ! P* ! PDMSQRE EQU * SEQUENTIAL RE
0x000ca0…120cc0 [0x56c]: Pad {f00=0x0029, f01=0x0190, f02=»,FDBRRO,A6 ! P AD A2,FDBRLE,A6 " P ADR A2,A5 " * P LDK A1,0 " < P CCR A1,A2 STATUS BYTE IN A1 " N P RF(NE) DMT200 USED " r P LDKL A1,/800 NO DATA " P ABL DMTERR " & PDMT200 LDK A1,/8 INCORRECT LENGTH " & P CF A14,DMTFRL A2 := RECORD LENG
0x000ca0…120cc0 [0x56d]: Pad {f00=0x0029, f01=0x0190, f02=» " d P* # PDMT230 EQU * # P ABL DMT400 PUT CRN AND EA # & P EJECT # H " PDMREVT EQU * READ VTOC RECORD # V P* # | PDMCLOSE EQU * CLOSE A FILE # P* # P LD A2,FDBSNR,A6 # ( P RF(NZ) DMT270 VTOC SECTOR IN BUFFER # P* # P* VOLUME
0x000ca0…120cc0 [0x56e]: Pad {f00=0x0029, f01=0x0190, f02=»SECTOR INTO BUFFER # n P* $ P LDR A10,A6 SAVE FDB ADDR $ $ P LDR A9,A8 SAVE ECB ADDR $ F P LD A3,VLVRL-2,A5 $ f P ST A3,VTOCRL $ ( P LDK A6,VTOBLK VTOC BLOCKING FACTIOR $ ( P LD A2,FDBVTO,A10 VTOC RECORD NUMBER $ P LDK A1,0 $ , P CF A14,DI
0x000ca0…120cc0 [0x56f]: Pad {f00=0x0029, f01=0x018e, f02=»ST = 0 $ $ P ADK A3,1 RECORD IN NEXT SECTOR % P RF DMT250 % 6 . PDMT240 LDK A2,VTOBLK LAST RECORD IN SECTOR % H & PDMT250 AD A3,VLVBA-2,A5 VTOC BASE % z P ST A3,FDBSNR,A6 % P LDK A3,0 % PDMT255 SUK A2,1 % P RF(Z) DMT260 % P AD A3,VLVRL-2
0x000ca0…120cc0 [0x570]: Pad {f00=0x0029, f01=0x0190, f02=» % P LD A3,ECBBA,A9 & P SUK A3,8 & " P CF A14,DMTRBU RELEASE BUFFER & 2 & P CF A14,CLRBUF CLEAR FREE BUFFERS & X P ENB ENB & P LDR A1,A6 FDB ADDR & P ABL DMT020 READ VTOC SECTOR & P EJECT & PDMT270 EQU * & P SUK A7,QRV & $ P
0x000ca0…120cc0 [0x571]: Pad {f00=0x0029, f01=0x0190, f02=»ISC & r P AD A5,FDBRRO,A6 ' P LDK A2,0 ' $ P LC A2,FDBLRN,A6 ' 6 P SC A2,VTLRN,A5 ' N P LD A2,FDBLRN+1,A6 ' f P ST A2,VTLRN+1,A5 ' P* CLOSE FILE. WRITE VTOC ' P* ' P LDK A7,/95 ' P LKM ' P DATA 1 ' P* ' P LDR A1,A6
0x000ca0…120cc0 [0x572]: Pad {f00=0x0029, f01=0x0190, f02=» LD A1,DWTTDM,A6 TTAB ADDR ' P LDK A2,0 ( " P LC A2,ECBFC,A9 FILE CODE ( 4 " P LDK A5,0 TRY LOCAL AND GLOBAL ( V . P CF A14,FNDFDB GET ENTRY IN TTAB CDTADTAB ( | & P LDR A13,A5 LOCAL/GLOBAL INDICATOR ( P LDR A2,A2 ( P RF(NZ) DMT725 FC FOUND ( P
0x000ca0…120cc0 [0x573]: Pad {f00=0x0029, f01=0x0190, f02=»RY ADDR ( v P LDR A12,A1 SAVE TTEAB ADDR ) 4 P LDKL A10,0 MARK THAT FDB NOT SHALL BE RELEASED ) 4 P EJECT ) l 0 P* CHECK IF THIS FDB ADDR IS USED ELEWHERE ) z P* ) P* SEARCH ALL TTABS ) P* ) P LD* A2,TCTAB ) PDMT730 EQU * ) P S
0x000ca0…120cc0 [0x574]: Pad {f00=0x0029, f01=0x0190, f02=» ID ) P RB(N) DMT730 MONOITOR TASK * P LD A3,TTB:TD,A1 * 0 ( P ADKL A1,TTB:TD+2 DEV DESCR TABLE +2 * H PDMT770 EQU * * t P SUK A3,4 * $ P RB(NP) DMT730 NOT IN THIS TTAB * P LDR A4,A1 * P ADR A4,A3 * P CWR* A5,A4 * P RB(NE) DMT770 *
0x000ca0…120cc0 [0x575]: Pad {f00=0x0029, f01=0x0190, f02=»S ON THIS FDB * | P* + P* NOW SEARCH CDTAB + P* + < PDMT780 EQU * + F P LD* A4,CDTAB + Z PDMT790 EQU * + p P SUK A4,4 + . P RF(NP) DMT800 THIS FDB HAS NO OTHER USER + P LD A2,CDTAB + P ADR A2,A4 + P CW A5,2,A2 + P RB(NE)
0x000ca0…120cc0 [0x576]: Pad {f00=0x0029, f01=0x0190, f02=»SERS + r P EJECT , P* , P* NOW RELEASE THIS FDB , $ P* , D PDMT800 EQU * , N P* , b P* RELEASE EA-BUFFERS , l P* , . P LDKL A2,/8000 ALL EA-BUFFERS ARE RELEASED , P LDR A1,A6 FDB ADDR , P CF A14,EARELB , P* , P* RELE
0x000ca0…120cc0 [0x577]: Pad {f00=0x0029, f01=0x0190, f02=»F DMT830 , PDMT820 EQU * - P LDR A4,A5 BUFFER ADDRESS - $ PDMT830 EQU * - F & P RF(Z) DMT840 ALL BUFFER S REMOVED - Z $ P LDR* A5,A4 NEXT BUFFER ADDRESS - P* - P* RETIURN BUFFER TO POOL - P* - P INH - P LD A3,CRNQUE - P STR A
0x000ca0…120cc0 [0x578]: Pad {f00=0x0052, f01=0x0190, f02=»CE CODES. WHEN LAST FILE IS CLOSED ON - ~ > P* A FLEXIBLE DISC UNIT, AN UNLOC IS MADE FOR THIS VOLUME . . P* . p P LDK A1,4 EXTENT COUNTER . z P LDR A5,A6 FDB ADDR . . P ADKL A5,FDBEXT+1 ZADDR OF FIRST VOL CODE . & P SUKL A5,EXTELE EXT LENGTH IN FDB
0x000ca0…120cc0 [0x579]: Pad {f00=0x0052, f01=0x0190, f02=»THIS EXTENT . z P XIF / P IFT INDXAC=1 / P EJECT / 6 P* / D P* ALL EXTENTS CHECKED / N P* RELEASE MASRTER INDEX / n P* / P INH / & P LD A1,FDBMIA,A6 MASTER INDEX ADDR / P RF(Z) DMT894 NO MATER IX / P LD A5,MXIND LENTH /
0x000ca0…120cc0 [0x57a]: Pad {f00=0x0052, f01=0x0190, f02=»XIND+2,A5 / P RB(NE) DMT885 0 P LD A4,MXIND,A5 0 ( & P RF(N) DMT890 PREVIOUS ENTRY USED 0 @ " P LD A4,MXIND+4,A5 NO OF WORDS 0 j P ANKL A4,/7FFF REMOV USE BIT 0 P ADS A4,MXIND,A5 NR OF WORDS 0 P* 0 P* MOVE UP REST OF MXIND 0 P* 0
0x000ca0…120cc0 [0x57b]: Pad {f00=0x0052, f01=0x0190, f02=» P SUK A2,2 NO OF CHAR 1 P CF A14,DMTWM MOVE UOP 1 P RF DMT894 1 > PDMT890 EQU * 1 P P LDKL A4,/7FFF 1 d & P ANS A4,MXIND+4,A5 REMOVE USE BIT 1 z P XIF 1 P EJECT 1 PDMT894 EQU * 1 0 P LDKL A10,1 MARK THAT FDB SHALL BE RELEASED 1 PDMT8
0x000ca0…120cc0 [0x57c]: Pad {f00=0x0052, f01=0x0190, f02=» 1 ~ P* 2 * P* RELEASE DWT-QUEUQ IN THIS FDB-DWT 2 P* 2 @ P LDR A1,A6 FDBADDR 2 J $ P ADKL A1,DWTTQ ADDR QUEUE START 2 d P LDR* A5,A1 NEXT TTAB ADDR 2 P RF(Z) DMTA20 NO Q 2 P CMR A1 KILL ROOT 2 $ PDMTA10 LDR* A1,A5 NEXT IN QUEUE 2 P
0x000ca0…120cc0 [0x57d]: Pad {f00=0x0052, f01=0x0190, f02=»AB/CDATAB 2 | P* 3 P LDR A1,A12 TTAB ADDR 3 P LDK A2,0 3 : ( P LC A2,ECBFC,A9 FILE CODE USERT ECB 3 L & P LDR A5,A13 LOCAL/GLOBAL INDICATOR 3 x $ P CF A14,FNDFDB SEARCH TTAB CDTAB 3 P LDK A7,0 INDICATES A2 = 0 3 P IFT INDXAC=1 3 P LDR A2,
0x000ca0…120cc0 [0x57e]: Pad {f00=0x0052, f01=0x0190, f02=»D A7,2,A4 NEXT FDB ADDR TO CLOSE 3 P LDK A1,2 4 ( P ADR A1,A6 FROM ADDR 4 : P LDK A3,2 4 V P ADR A3,A7 TO ADDR 4 h P LDK A2,12 NO OF BYTES 4 P CF A14,DMTWM MOVE DWT 4 P LD A3,DWTTDM,A6 4 P ST A3,DWTTDM,A7 MOVE 4 P CM FDBSNR,A7 SECTOR N
0x000ca0…120cc0 [0x57f]: Pad {f00=0x0052, f01=0x0190, f02=» 4 x PDMTA30 EQU * 5 P XIF 5 P ENB ENB 5 ( P* 5 : P* RELEASE BUFFER 5 D P* 5 ^ P LD A3,ECBBA,A8 5 h P SUK A3,8 5 P CF A14,DMTRBU 5 P* 5 P* RELEASE FDB 5 P* 5 P LDR A10,A10 5 P RF(Z) DMTA40 NO RELEASE 5 P I
0x000ca0…120cc0 [0x580]: Pad {f00=0x0052, f01=0x0190, f02=» SUK A1,2 5 " P RF(N) DMTA70 ALL FDBS CHECKED 6 P LDR A2,A6 6 8 P ADR A2,A1 6 J $ P LD A3,FDBADF,A2 OTHER FDB ADDR 6 P RB(Z) DMTA50 6 P LDK A4,10 2*MAX NR OF FDBS 6 PDMTA60 SUK A4,2 6 0 P RB(N) DMTA50 ALL ADDR CHECKED IN OTHER FDB 6 P
0x000ca0…120cc0 [0x581]: Pad {f00=0x0052, f01=0x0190, f02=»SHALL BE RELEASED 6 f P* 7 P CM FDBADF,A5 7 $ P RB DMTA50 7 : P XIF 7 L P EJECT 7 X PDMTA70 EQU * 7 f P LDKL A3,/FFFE 7 z P INH INH 7 P ANRS A3,A6 SET FDB FREE 7 PDMTA40 EQU * 7 * P CF A14,CLRBUF REMOVE ALL FREE BUFFERS 7 P LDR A
0x000ca0…120cc0 [0x582]: Pad {f00=0x0052, f01=0x0190, f02=»IS NEXT AND ACTIVATE THAT 7 z P* 8 " P LDK A7,0 8 , " P LC A7,FDBEXT,A1 TASK 1ST EXT 8 > P ADKL A7,'D0' TASK ID 8 d P LKM 8 P DATA -4 8 P DATA DMTASK 8 P LKM 8 P DATA 3 EXIT 8 P XIF 8 P IFT FLXDSC=1 8 P EJECT 8 PDMT900 E
0x000ca0…120cc0 [0x583]: Pad {f00=0x0052, f01=0x0190, f02=»CODE FLEXDOISC A5 = EXT ADDR 8 ~ P* A6 = FDB ADDR 9 ( 0 P* A8 = ECB ADDR A9 = DM ECB ADDR 9 B P* A10-A12 USED 9 v P* 9 & P ADKL A5,EXTELE EXT LENGTH IN FDB 9 P LCR A7,A5 VOLUME CODE 9 P ANK A7,/FF 9 P ABL(Z) DMT880 NO CODE
0x000ca0…120cc0 [0x584]: Pad {f00=0x0052, f01=0x0190, f02=»ISC 9 x P* : 6 P* IF SAME FLEXDISC AS LAST, DO NOT SCHECK AGAIN : P* : P P CCR A4,A5 : Z P ABL(E) DMT880 SAME : l P* : < P* NOW SEARCH ALL FDBS FOR THOIS FLEXIBLE DISC VOL CODE : P* : PDMT910 EQU * : P LCR A4,A5 SAVE VOL CODE :
0x000ca0…120cc0 [0x585]: Pad {f00=0x0052, f01=0x0190, f02=» EQU * : P ANKL A3,/FFFE FDB ADDR ; " P RF(Z) DMT980 ALL FDBS CHECKED ; 0 P LDR* A7,A3 ; V P ANK A7,1 ; j P RB(Z) DMT920 FREE ; | P CWR A6,A3 ; P RB(E) DMT920 CURRENT FDB ; P LDK A7,4 EXTENT COUNTER ; P LDR A2,A3 FDB ADDR ; P ADK
0x000ca0…120cc0 [0x586]: Pad {f00=0x0052, f01=0x0190, f02=» RB(N) DMT920 ALL EXTENTS CHECKED ; P ADKL A2,EXTELE < * P CCR A4,A2 VOLUME CODE < B ( P ABL(E) DMT880 CODE USED. NO UNLOCK < ` P RB DMT930 NEXT EXTENT < P* < & P* ALL FSDBS CHECKED. MAKE UNLOAD < P* < PDMT980 EQU * < P ENB ENB <
0x000ca0…120cc0 [0x587]: Pad {f00=0x0052, f01=0x0190, f02=»DE < z P LDK A7,/B8 UNLOAD WAIT = P LKM = * P DATA 1 = 6 P LD A1,ECBRC,A8 = F P ANK A1,1 INOPER = ^ P ABL(NZ) DMTERR = v P ABL DMT880 CHECK NEXT EXT = P XIF = P EJECT = " PDMT500 EQU * READ VTOC RECORD = P* = " P LD A2,VTOCRL VT
0x000ca0…120cc0 [0x588]: Pad {f00=0x0053, f01=0x018e, f02=»1,ECBRC,A9 SET RC BUT CONTINUE = , P LD A2,ECBRL,A9 MOVE WHAT USER TOLD YOU > & PDMT510 EQU * > V P ST A2,ECBEL,A9 > j P CF A14,DMTREM MOVE RECORD > PDMAEX EQU * > P ABL DMTAEX EXIT > P EJECT > " PDMSQWR EQU * SEQUENTIAL WRITE > P* >
0x000ca0…120cc0 [0x589]: Pad {f00=0x0053, f01=0x0190, f02=» PDMDEL EQU * INDEXED DELETE ? P* ? & PDMIRW EQU * INDEXED REWRITE ? 0 P* ? T & PDMRDWD EQU * DELAYED RANDOM WRITE ? ^ P* ? & PDMRDDD EQU * DELAYED RANDOM DELETE ? P* ? P* TEST STATUS ? P LD A10,FDBRRO,A6 ? P AD A10,FDBRLE,A6
0x000ca0…120cc0 [0x58a]: Pad {f00=0x0053, f01=0x0190, f02=» ANK A2,/FF ? P LD A3,ECBCW,A9 LOG REC NR @ P LDK A4,0 @ 6 P CCR A4,A10 @ H P RF(E) DMS010 FREE @ P IFT INDXAC=1 @ v P LDR A4,A7 @ P SUK A4,QINS @ P RF(E) DMEAER INDEXED INSERT @ P XIF @ P LDR A4,A7 @ P SUK A4,QSW @ P R
0x000ca0…120cc0 [0x58b]: Pad {f00=0x0053, f01=0x0190, f02=»BIT @ " P RF(NZ) DMS020 EA=1, NO CHECK A P* EA MUST BE SET A 2 P* A L P CF A14,EATEST A V P LDR A4,A4 RTN CODE A l " P RF(NP) DMEAER NO EA THIS TASK A P XIF A P RF DMS100 A PDMS010 EQU * A P IFT INDXAC=1 A P LDR A4,A7 A P S
0x000ca0…120cc0 [0x58c]: Pad {f00=0x0053, f01=0x0190, f02=» A PDMS020 EQU * B P CF A14,EATEST B P LDR A4,A4 RTN CODE B 2 P RF(N) DMEAER EA OTHER TASK B N PDMS100 EQU * B r P LDK A1,0 SET STATUS FREE B P IFT INDXAC=1 B P LDR A2,A7 B P SUK A2,QIRW B " P RF(E) CHK010 INDEXED REWRITE B P
0x000ca0…120cc0 [0x58d]: Pad {f00=0x0053, f01=0x0190, f02=»DELETE B z P XIF C P LDR A2,A7 C P SUK A2,QRD C , P RF(E) DMT350 RANDOM DELETE C @ P LDR A2,A7 C d P SUK A2,QRDD C v ( P RF(E) DMT350 DELAYED RANDOM DELETE C P RF DMT310 RW,RWD,SW C P IFT INDXAC=1 C P EJECT C PCHK010 EQU * C F P
0x000ca0…120cc0 [0x58e]: Pad {f00=0x0053, f01=0x0190, f02=»YS IN FILE AND USER BUFFER C P* D " P LDR A1,A6 FDB ADDR D , P LDK A5,8 MAX 4 INDEX D H P SUR A12,A12 INDEX COUNTER D f PCHK040 EQU * D P SUK A5,2 D $ P RF(N) CHK100 ALL INDEX CHECKED D P LDR A2,A1 FDB ADD D P ADR A2,A5 D ( P LD A6,F
0x000ca0…120cc0 [0x58f]: Pad {f00=0x0053, f01=0x0190, f02=»2,/3F ORDER INDEX D P SUK A2,QIRW E & P RB(NE) CHK040 NOT INDEXED REWRITE E . " P LD A2,FDBKA,A6 KEY START ADDR E X P LDR A3,A2 E ~ " P AD A2,ECBBA,A9 KEY IN BUFFER E P AD A3,FDBRRO,A1 E P ADR A3,A11 KEY IN FILE E P LDK A7,0 E " P LD A6,FDB
0x000ca0…120cc0 [0x590]: Pad {f00=0x0053, f01=0x0190, f02=»GED CHECK NEXT E x P LDR A6,A1 FDB ADDR F P LDKL A1,/4000 KEY NOT FOUND F 2 P RF DMERR F V PCHK100 EQU * F h P LDR A6,A1 FDB ADDR F | P LD A7,DWTOR,A6 F P ANK A7,/3F ORDER INDEX F P LDK A2,0 F P LC A2,FDBNIF,A6 F P CWR A2,A12 F
0x000ca0…120cc0 [0x591]: Pad {f00=0x0053, f01=0x0190, f02=»F DMERR F P XIF G $ PDMEAER LDKL A1,/2000 EA PROTECT G PDMERR ABL DMTERR G D P EJECT G P* G j P* MOVE RECORD G t P* G PDMT310 EQU * G P IFT INDXAC=1 G P LDR A2,A7 G P SUK A2,QDEL G " P ABL(E) DMXDEL INDEXED DELETE G
0x000ca0…120cc0 [0x592]: Pad {f00=0x0053, f01=0x0190, f02=»BA,A9 FROM ADDRESS G P XRR A4,A1 H P ANK A4,/01 H , ( P RF(E) DMT320 BOTH ODD OR BOTH EVEN H @ & P CF A14,DMTBM ONE ODD AND ONE EVEN H l P RF DMT340 H P* H PDMT320 LDR A4,A3 H P ANK A4,/01 H P RF(E) DMT330 BOTH EVEN H P SUK A2,1 BO
0x000ca0…120cc0 [0x593]: Pad {f00=0x0053, f01=0x0190, f02=»DMT340 EQU * H P* I P* SET STATUS USED I P* I : P LDK A1,/FF I D PDMT350 SCR A1,A10 I X P LD A3,FDBDBR,A6 I r P RF(NN) DMT394 NO DELAY I P LDR A2,A7 I P SUK A2,QSW I " P RF(E) DMT360 SEQUENTIAL WRITE I P LDR A2,A7 I P S
0x000ca0…120cc0 [0x594]: Pad {f00=0x0053, f01=0x0190, f02=» I $ P* WRITE IF LAST REC IN SECTOR J P* J 0 PDMT360 LD A4,FDBRRO,A6 J : P CW A4,FDBMRO,A6 J X " P RF(NE) DMT400 NOT LAST RECORD J p " PDMT390 LDK A7,/05 BASIC WRITE J P SLL A3,1 J P RF(N) DMT395 BASIC WANTED J $ PDMT394 LDK A7,/15 PHYSICAL
0x000ca0…120cc0 [0x595]: Pad {f00=0x0053, f01=0x0190, f02=» J l P LKM K P DATA -1 I/O AND ACTIVATION K " P DATA DMTAR2 DMTASK RESTART #2 K 8 P LKM K ^ P DATA 3 EXIT K j P EJECT K ~ P* K P************** K P* DMTAR2 * K P************** K P* K P* K , PDMTAR2 EQU * DMTASK RESTART AF
0x000ca0…120cc0 [0x596]: Pad {f00=0x0053, f01=0x0190, f02=»C I/O K x P LDR A1,A1 L P RF(NZ) DMTERR L P LDKL A1,/C0FF L 6 $ P ANS A1,FDBDBR,A6 RELEASE BUFFER L L PDMT400 EQU * L t " P LDR A1,A6 FDB ADDR DATA FILE L P LD A2,ECBCW+2,A9 L P ANK A2,/FF L P LD A3,ECBCW,A9 LOG REC NR L P LC A11,ECBF
0x000ca0…120cc0 [0x597]: Pad {f00=0x0053, f01=0x0190, f02=»WRITE L ~ P LDK A4,QRD M P CWR A7,A4 M " P RF(E) DMT420 RAND DEL M 4 P LDK A4,QRDD M R P CWR A7,A4 M f ( P RF(E) DMT420 DELAYED RANDEOM DELETE M x P IFT INDXAC=1 M P LDK A4,QDEL M P CWR A7,A4 M P RF(E) DMT420 INDEXED DELETE M P XIF M
0x000ca0…120cc0 [0x598]: Pad {f00=0x0053, f01=0x0190, f02=» M r P LDR A10,A2 BUFFER ADDR N P CM CRNCIF,A2 N ( P* CLEAR INDEX CRN N > P CM CRNCIF+2,A2 N Z P LDR A2,A5 N r P LDR A3,A9 N P ST A2,CRNCDF,A10 N & P ST A3,CRNCDF+2,A10 CRN DATA FILE N & P SC A11,CRNCDF,A10 CRN FIL E CODE N P IFT I
0x000ca0…120cc0 [0x599]: Pad {f00=0x0053, f01=0x018e, f02=» N P CWR A7,A4 O P RF(E) DMT450 SEQ READ O P LDK A4,QRR O 8 P CWR A7,A4 O L P RF(E) DMT450 RANDOM READ O ^ P LDK A4,QRRRB O P CWR A7,A4 O & P RF(E) DMT450 RAND READ REL BUFFER O PDMT440 EQU * O P* O P* RELEASE EA O P* O
0x000ca0…120cc0 [0x59a]: Pad {f00=0x0053, f01=0x0190, f02=» & P RF(NZ) DMTAEX EA=1. NO EA WANTED P P* P . " P* CHECK IF EA IS SET ALREADY P 8 P* P ^ P CF A14,EATEST CHECK EA P h P LDR A4,A4 P " P RF(NZ) DMTAEX EA ALREADY SET P P* P P* SET EA P P* P P CF A14,EASETB P P RF DMTAEX P
0x000ca0…120cc0 [0x59b]: Pad {f00=0x0053, f01=0x0190, f02=» P LDK A4,QINS Q P CWR A7,A4 Q " P ABL(E) DMINS2 INDEXED INSERT Q * P XIF Q P P EJECT Q " PDMTAEX LDK A1,0 CORRECT RETURN Q j P* Q PDMTERR LD A3,FDBDBR,A6 Q P RF(NN) DMTEX1 NOT DELAY Q P ANKL A3,/3F00 Q ( P RF(NZ) DMTERX NO RELEASE OF
0x000ca0…120cc0 [0x59c]: Pad {f00=0x0053, f01=0x0190, f02=» EQU * Q P INH R P* A1 = RET CODE R P* A6 = DWT ADDR R 4 P CF A15,TENDIO R N P ENB R d PEXIT EQU * R p P LKM R P DATA 3 R P IFT INDXAC=1 R P EJECT R PDMIRR EQU * R P* INDEXED RANDOM READ R 2 P********************
0x000ca0…120cc0 [0x59d]: Pad {f00=0x0053, f01=0x0190, f02=»1,ECBCW+3,A9 NO OF CHAR R P LD A2,FDBRLE,A1 S P SUK A2,6 MAX KEY LENGTH S 8 P CWR A11,A2 S X , P RF(NP) DMR005 NOT TOO LARGE KEY WANTED S l P LDR A11,A2 MAX KEY S PDMR005 EQU * S P LDR A13,A1 S P ADKL A13,FDBECB ECB ADDR S $ P CF A14,
0x000ca0…120cc0 [0x59e]: Pad {f00=0x0053, f01=0x0190, f02=»,FDBECB S P ADR A8,A6 ECB ADDRESS T P LDR A2,A2 RETURN CODE T . P RF(NZ) DMI030 KEY NOT FOUND T L P* T p P* KEY RECORD FOUN T z . P* CHECK IF NEXT RECORD HAS THE SAME KEY T P* T " P LD A2,FDBRRO,A1 RECORD OFFSET T P ADK A2,10 BUFFER
0x000ca0…120cc0 [0x59f]: Pad {f00=0x0053, f01=0x018e, f02=»2 DUPLICATE KEY CHAR T $ P RF(NE) DMR020 NEXT KEY NOT SAME U P LDKL A5,/200 BIT 6 U D " P ORS A5,ECBRC,A9 NEXT KEY SAME U ` PDMR020 EQU * U P* U P* MOVE LOG REC NO TO ECB U P* U P LDK A5,0 U P LC A5,3,A2 U P SC A5,ECBCW+3,A8 U
0x000ca0…120cc0 [0x5a0]: Pad {f00=0x0053, f01=0x0190, f02=» U P CF A14,DMTRBU V P EJECT V P* V , 0 P* PERFORM RANDOM READ ON THOIS DATA RECORD V 6 P* V j P LDR A6,A1 FDB ADDR V t " P LC A2,DWTST,A6 USER REQUESRT V P ANK A2,EABIT GET EA BIT V P SLL A2,1 V " P LDK A7,/A RANDOM READ NO WAIT V
0x000ca0…120cc0 [0x5a1]: Pad {f00=0x0053, f01=0x0190, f02=» P LDK A2,6 NO OF CHAR W P CF A14,DMTWM MOVE ECB W P LDR A1,A6 FDB ADDR W > P LKM W Z P DATA -1 W f P DATA DMTAR4 W v P LD A7,ECBRC,A8 W P RF(N) DMTAR4 REQ ERR W P LKM W P DATA 3 EXIT W PDMTAR4 EQU * W P* W P* SET UP A
0x000ca0…120cc0 [0x5a2]: Pad {f00=0x0053, f01=0x0190, f02=»,DWTECB,A6 USER ECB W P LD A1,ECBRC,A8 X & P ORS A1,ECBRC,A9 RET CODE TO USER X 4 2 P ANKL A1,/EEF7 BIT 3,7 AND 12 NOT GRAVE ERROR X ^ P RB(NZ) DMTERX NOT OK X P* X P* SET CRN FOR INDEX FILE X P* X ( P LD A1,FDBADF,A6 FDB ADDR DATA FIL
0x000ca0…120cc0 [0x5a3]: Pad {f00=0x0053, f01=0x0190, f02=»GTLGRN GET INDE X LOG REC NO X P SC A2,CRNCIF+1,A10 Y $ & P ST A3,CRNCIF+2,A10 CRN INDEX FILE Y @ P LC A2,ECBFC,A9 Y j P SC A2,CRNCIF,A10 Y P* THAT WAS FILE CODE CRN Y P* Y P* SET RERTURN CODEXS Y P* Y $ P LD A2,ECBEL,A8 EFFECTIVE
0x000ca0…120cc0 [0x5a4]: Pad {f00=0x0053, f01=0x018e, f02=»EXT Y v 2 P********************************************* Z P LDR A1,A6 FDB INDEX Z B " P LD A2,FDBRRO,A1 RECORD OFFSET Z ^ P LDR A3,A5 Z P SUK A3,10 BUFFER ADDR Z PDMI100 EQU * Z P ADR A2,A3 BUFFADR Z P ADK A2,10 RECORD ADDR Z ( P AD A2,FDB
0x000ca0…120cc0 [0x5a5]: Pad {f00=0x0053, f01=0x018e, f02=» Z ~ & P ST A4,FDBRRO,A1 LAST REC IN SECT [ P* [ 2 P* CHECK IF END OF FILE [ < P* [ P LDR A9,A3 SAVE [ f P CF A14,GTLGRN GET REC NR [ ~ P CC A2,FDBLRN,A1 [ P RF(L) DMI106 NOT EOF [ P RF(G) DMI105 EOF [ P CW A3,FDBLRN+1,A1 [ P
0x000ca0…120cc0 [0x5a6]: Pad {f00=0x0053, f01=0x0190, f02=» PDMI120 EQU * P* INDEX RECORD IS FOUND P* < P LDK A2,0 MARK FOUND F . P ABL DMR006 CONT AS FOR INDEXED RAND READ b PDMI010 EQU * ( P CF A14,RDNXTR GET NEXT INDEX RECORD P RB DMI100 RECORD FOUND P LDR A6,A1 FDB ADDR
0x000ca0…120cc0 [0x5a7]: Pad {f00=0x0053, f01=0x0190, f02=» DMTERR ERROR AND BUFFER P EJECT ] P* ] . & PDMINS2 EQU * INDEXED INSERT PART 2 ] 8 P* ] b 2 P********************************************* ] l P ENB ENB ] P LD A3,ECBBA,A8 ] P SUK A3,8 BUFSTA ] " P CF A14,DMTRBU RELEASE BUFFER ] P
0x000ca0…120cc0 [0x5a8]: Pad {f00=0x0054, f01=0x0190, f02=»8 PHYS ECB ADDR ] P LDK A5,0 ^ . P SC A5,FDBDBR,A1 ZEROE INDEX FILE COUNTER ^ * P LDK A5,8 NR OF INDEX * 2 ^ P LDR A10,A1 FDB DATA ^ ~ PDXI020 SUK A5,2 ^ P RF(N) DXI100 ALL INDEXES ^ P LDR A6,A10 ^ P ADR A6,A5 ^ ( P LD A1,FDBAI1,A6
0x000ca0…120cc0 [0x5a9]: Pad {f00=0x0054, f01=0x0190, f02=»B ^ PDXI030 SUK A6,4 _ P LD A7,CDTAB _ " P ADR A7,A6 _ 6 P CW A1,2,A7 _ H P RB(NE) DXI030 SEARCH NEXT _ P LDR A8,A1 FDB INDEX _ ~ P ADKL A8,FDBECB ECB ADDR _ P LC A6,1,A7 _ P SC A6,ECBFC,A8 INDEX FILE _ P LDR A6,A11 _ P SUK A
0x000ca0…120cc0 [0x5aa]: Pad {f00=0x0054, f01=0x018e, f02=»ADDR _ x P ADK A6,2 CYLID ` $ P AD A6,FDBRRO,A10 ADDR DATA REC ` $ $ P LDK A7,/20 DELETE INDEX NOWAIT ` L P RF DXI090 ` t PDXI080 EQU * ` $ P LD A9,DWTECB,A10 USER ECB ADDR ` $ P LD A6,ECBBA,A9 USER BUFFER ADDR ` $ P LDK A7,/1F INSERT INDEX NOWAIT
0x000ca0…120cc0 [0x5ab]: Pad {f00=0x0054, f01=0x0190, f02=» ` P LD A7,ECBRC,A8 a P RF(N) DMTAR5 REQ ERR a P RB DXI020 NEXT INDEX DIRECT a > PDXI100 LKM a b P DATA 3 EXIT a t PDMTAR5 EQU * a " P LD A6,FDBADF,A1 FDB DATA FILE a P LD A9,DWTECB,A6 USER ECB a P LDKL A8,FDBECB a P ADR A1,A8 ECB
0x000ca0…120cc0 [0x5ac]: Pad {f00=0x0054, f01=0x0190, f02=»R a v P LDK A1,0 RETURN CODE b & P LC A2,FDBDBR,A6 NR OF READY INDEX b ( P ADK A2,1 COUNT INDEXES b R $ P CC A2,FDBNIF,A6 TOT NR OF INDEX b r P RF(NE) DXI200 b P LD A7,DWTOR,A6 b P ANK A7,/3F ORDER CODE b P SUK A7,QINS INDEXED INSERT b P
0x000ca0…120cc0 [0x5ad]: Pad {f00=0x0054, f01=0x0190, f02=»0,2 CYLID b P AD A10,FDBRRO,A6 c & P AD A10,FDBRLE,A6 ADDR STATUS CHAR c , P LDK A1,0 STATUS FREE c V . P ABL DMT350 CONTINUE AS FOR RANDOM DELETE c t PDXI200 EQU * c P SC A2,FDBDBR,A6 c P LKM c " P DATA 3 EXIT. MORE INDEX LEFT c P EJECT
0x000ca0…120cc0 [0x5ae]: Pad {f00=0x0054, f01=0x0190, f02=»*** c f " P LD A9,DWTECB,A1 USER ECB ADDR d $ P LD A8,ECBBA,A9 BUFFER ADDR USER d 2 P AD A8,FDBKA,A1 KEY ADDR d Z P LDR A12,A8 d z $ P LD A11,FDBRLE,A1 RECORD LENGTH d P SUKL A11,6 KEY LENGTH d P LDR A13,A14 d 0 P ADKL A13,2 ECB ADDR TO RECORD BUF
0x000ca0…120cc0 [0x5af]: Pad {f00=0x0054, f01=0x0190, f02=»B(Z) DMI035 NO SECTOR FOUND d P LDR A13,A3 BUFFER ADDR e $ " P LD A4,FDBADF,A6 FDB DATA FILE e D P LD A5,DWTECB,A4 USER ECB e j P LD A1,DWTOR,A6 e P ANK A1,/3F e P SUK A1,QDELX e & P ABL(E) DEL000 DELETE INDEX RECORD e P* e ( P* SET
0x000ca0…120cc0 [0x5b0]: Pad {f00=0x0054, f01=0x018e, f02=» e p ( P* (SHORT KEY NOT ALLOWED IN FILE) f P* f 4 P LC A4,ECBFC,A5 FILE CODE f > P CC A4,FDBECB+1,A6 f ` * P RF(NE) INS049 NOT REQUESTED FILE CODE f z P LDKL A4,/200 BIT 6 f " P ORS A4,ECBRC,A5 NEXT KEY SAME f PINS049 EQU * f P IFT INSLAS=
0x000ca0…120cc0 [0x5b1]: Pad {f00=0x0054, f01=0x0190, f02=» PINS080 EQU * g P CF A14,RDNXTR GET NEXT REC g P RF INS100 OK g < P ABL DEL045 ERROR g R PINS100 EQU * g l P ADR A2,A3 g P ADK A2,10 REC ADDR g P AD A2,FDBRLE,A1 ADDR STATUS g P LDK A5,/FF g P CCR A5,A2 g P RF(E) INS150 USED
0x000ca0…120cc0 [0x5b2]: Pad {f00=0x0054, f01=0x0190, f02=» DUPL KEY CHAR g P CWR A5,A11 KEY LENGTH h $ P RB(E) INS080 NEXT SAME GET NEXT h 4 P* h P* UPDATE LAST SAME RECORD h f P* h P SC A11,-4,A2 NEXT SAME h P LD A7,FDBRRO,A1 h P CW A7,FDBMRO,A1 h & P RF(NE) INS160 SECT WRITTEN LATER h
0x000ca0…120cc0 [0x5b3]: Pad {f00=0x0054, f01=0x0190, f02=» P LDR A1,A1 i P ABL(NZ) DMTERR i P* i . P* GET NEXT RECORD i 8 P* i T PINS160 EQU * i ^ " P LDR A7,A5 NR OF SAME IN NEXT i r P LDR A1,A6 FDB i P CF A14,RDNXTR GET NEXT RC i P RF INS170 OK i P ABL DEL045 ERROR i PINS170 EQU
0x000ca0…120cc0 [0x5b4]: Pad {f00=0x0054, f01=0x0190, f02=» PINS050 EQU * j P* j ( P* CREATE AN INDE XRECORD IN AREA 1 j " P* j N P LDR A1,A12 FROM ADDR j X P LDR A3,A14 j v P ADK A3,2 TO ADDR j P LDR A2,A11 KEY LENGTH j P CF A14,DMTBM MOVE KEY j P LDK A2,0 j P SCR A2,A3 DUMMY j P
0x000ca0…120cc0 [0x5b5]: Pad {f00=0x0054, f01=0x0190, f02=» REC NR j z P LD A2,ECBCW+2,A5 k ( P LD A3,ECBCW,A5 REC NR DATA FILE REC k * P SCR A2,A7 k V P ADK A7,2 k h P SCR A3,A7 k z P ECR A3,A3 k P SUK A7,1 k P SCR A3,A7 LOG REC NR k P ADK A7,2 k P LDK A1,/FF USED k P SCR A1,A7 STATUS
0x000ca0…120cc0 [0x5b6]: Pad {f00=0x0054, f01=0x018e, f02=» P* l P ST A2,-28,A14 l P ST A3,-26,A14 l $ P EJECT l : P* l H : P* BELOW IS A NEW INDEX RECORD INSERTED AND FOLLOWING l R $ P* USED RECORDS ROLLED FORWARD l $ P* A6,A11,A13 IS USED AT ENTRY l $ P ADKL A11,7 RECORD LENGTH TOTAL l P*
0x000ca0…120cc0 [0x5b7]: Pad {f00=0x0054, f01=0x0190, f02=» , P* A12 = AREA INDEX 0=BUFAR1,1=BUFAR2 m $ P* A13 = BUFFER ADDRESS SECTOR m 4 P* m PINS190 EQU * m f P LDKL A12,1 BUFADR2 m z PINS200 EQU * m P LDK A1,0 m P LDR A12,A12 m P RF(Z) INS210 BUFAR1 m ( P LDKL A1,RECBFZ RECORD BUUFFER
0x000ca0…120cc0 [0x5b8]: Pad {f00=0x0054, f01=0x0190, f02=»* SAVE LAST RECORD m P* n P LDR A1,A13 n & P ADK A1,10 BUFSTA+2 n : . P AD A1,FDBMRO,A6 ADDR OF LAST REC IN SECT n V P LDR A2,A11 n P LDR A3,A10 n " P CF A14,DMTBM SAVE LAST RECORD n P* MOVE REST OF SECTOR n P* n P LDR A1,A1
0x000ca0…120cc0 [0x5b9]: Pad {f00=0x0054, f01=0x0190, f02=»OF CHAR n | P LDR A3,A1 o P ADR A3,A11 TO ADDR o " P CF A14,DMTBMR MOVE o > P* INSERT NEW RECORD o Z P* o x P LDKL A1,RECBFZ BUFFER SIZE o P SLL A1,1 BYTE NO o P LDR A12,A12 o P RF(Z) INS250 BUFAR1 o " P LDK A1,0 SELECT OTHER BUF
0x000ca0…120cc0 [0x5ba]: Pad {f00=0x0054, f01=0x0190, f02=»ADDR o P CF A14,DMTBM MOVE p P* WRITE BUFFER p & P* p > P LDR A8,A14 USE STACK AS ECB p H P SUKL A8,24 p l $ P LC A2,FDBEXT+1,A6 VOL DEV CODE p P STR A2,A8 p P LDR A2,A13 p P ADK A2,8 BUFSTA p P ST A2,ECBBA,A8 SECTOR ADDR p
0x000ca0…120cc0 [0x5bb]: Pad {f00=0x0054, f01=0x018e, f02=» A7,/95 WRITE , WAIT p P LKM q P DATA 1 q ( P LDR A1,A6 FDB INDEX q 8 P CF A14,DMTIOZ IO CHECK q T P LDR A1,A1 q t P ABL(NZ) DMTERR q P* q 6 P* IF SPILLED RECORD IS FREE, OPERATION IS READY q P* q P LDR A2,A10 RECORD AREA ADDR q
0x000ca0…120cc0 [0x5bc]: Pad {f00=0x0054, f01=0x0190, f02=» q j P CCR A1,A2 r P RF(Z) INS400 FREE RECORD r P* r < P* GET NEXT SECTOR r F P* r b P LDR A1,A6 FDB ADDR r l P LDR A3,A13 BUFFER ADDR r 2 P CF A14,RDNXTR GET FIRST RECORD IN NEXT SECTOR r P RF INS260 OK r P LDR A1,A5 r P ABL
0x000ca0…120cc0 [0x5bd]: Pad {f00=0x0054, f01=0x0190, f02=» r l P SUR A12,A12 s P RB INS200 s P EJECT s . PINS400 EQU * s < P* s P ( P* UPDATE LRN IF EOF IS ENCOUNTERED s Z P* s P LDR A1,A6 FDB INDEX s P CF A14,GTLGRN s P CC A2,FDBLRN,A1 s P RF(L) INS430 NO EOF s P RF(G) INS410 EOF
0x000ca0…120cc0 [0x5be]: Pad {f00=0x0054, f01=0x0190, f02=»N+1,A6 s P LDKL A1,/1000 EOF t P ORS A1,ECBRC,A9 EOF TO USER t * PINS430 EQU * t N P* t b 0 P* UPDATE CRN-LINK FOR MOVED INDEX RECORDS t l P* t P LDKL A12,1 ADD ON E TO CRN t P LDR A8,A2 t P LDR A9,A3 LAST REC NR MOVED t P LD A1
0x000ca0…120cc0 [0x5bf]: Pad {f00=0x0054, f01=0x0190, f02=»SAME FILE CODE t ~ P* u P LD A1,FDBADF,A5 FDB DATA F u " P CF A14,CRNGET GET CRN BUFFER u D " P LC A4,ECBFC,A9 USER FILE CODE u j P CC A4,FDBECB+1,A5 u P RF(NE) INS440 OTHRER FILE u P ST A10,CRNCIF,A2 u P ST A11,CRNCIF+2,A2 REC NR u P S
0x000ca0…120cc0 [0x5c0]: Pad {f00=0x0054, f01=0x0190, f02=» u x P ABL DMTEX2 v P EJECT v * PDEL000 EQU * DELETE INDEX RECORD CONT v * P LDR A12,A5 USER ECB ADDR v X P LDR A2,A2 v z PDEL010 EQU * v " P ABL(NZ) DMI030 KEY NOT FOUND v P* v P* CHECK RECORD NR DATA REC v P* v PDEL020 EQU *
0x000ca0…120cc0 [0x5c1]: Pad {f00=0x0054, f01=0x0190, f02=»C A2,ECBCW+3,A12 REC NR v P RF(NE) DEL030 WRONG RECORD w P LC A2,1,A1 w D P ECR A2,A2 w X P LC A2,2,A1 REC NR w j P CW A2,ECBCW,A12 w P RF(E) DEL200 RECORD FOUND w PDEL030 EQU * w P* w P* CHECK IF NEXT KEY SAME w P* w P C
0x000ca0…120cc0 [0x5c2]: Pad {f00=0x0054, f01=0x0190, f02=»ET NEXT INDEX RECORD w P RF DEL050 OK x PDEL045 LDR A1,A5 ERROR CODE x 2 P ABL DMI035 ERROR x V PDEL050 EQU * x p P* x P* CHECK IF RECORD IS USED x P* x P LDR A13,A3 NEW BUFFER ADDR x P ADR A2,A3 x P ADK A2,10 BUFSTA + 2 x
0x000ca0…120cc0 [0x5c3]: Pad {f00=0x0054, f01=0x0190, f02=» ST A4,FDBRRO,A1 LAST REC IN SECTOR x P RB DEL040 NEXT REC y , P EJECT y H PDEL200 EQU * RECORD FOUND y V P* y x & P* SET RC BIT 6 IF NEXT KEY SAME y P* y $ P LC A2,ECBFC,A12 USER FILE CODE y P LDK A7,0 y P LC A7,-1,A1 NR OF SAME CH
0x000ca0…120cc0 [0x5c4]: Pad {f00=0x0054, f01=0x0190, f02=» P CWR A11,A7 KEY LENGTH z $ P RF(NE) DEL220 NEXT KEY NOT SAME z " P LDKL A4,/200 z J $ P ORS A4,ECBRC,A12 NEXT KEY SAME z ` PDEL220 EQU * z P* z $ P* MOVE UP RECORDS OVER DELETED z P* z $ P ADKL A11,7 TOTAL RECORD LENGTH z P LDR A3,A1
0x000ca0…120cc0 [0x5c5]: Pad {f00=0x0054, f01=0x0190, f02=» z P SU A2,FDBRRO,A6 NR OF CHAR { P CF A14,DMTBM MOVE { , P* { F P* SET LAST RECORD FREE { P P* { p P ADR A3,A11 { z P SUK A3,1 { P LDK A1,0 { P SCR A1,A3 STATUS FREE { P* { $ P* UPDATE CRN FOR MOVED RECORDS { P* {
0x000ca0…120cc0 [0x5c6]: Pad {f00=0x0054, f01=0x0190, f02=»RO,A6 OLD OFFSET { P LD A4,FDBMRO,A6 | P ST A4,FDBRRO,A6 MAX OFFSET | 0 $ P CF A14,GTLGRN LAST REC NR MOVED | T P LDR A8,A2 | | P LDR A9,A3 REC NR | " P ST A12,FDBRRO,A6 RESET OFFSET | P LDKL A12,-1 | & P CF A14,CRNUPD UPDATE CRN BUFFERS | $
0x000ca0…120cc0 [0x5c7]: Pad {f00=0x0054, f01=0x0190, f02=»A5 FDB | P CF A14,GTLGRN GET REC NR } P LDR A1,A2 } 0 P LDR A2,A3 } B P LDK A6,0 } T P LDK A7,1 } f $ P CF A14,DSUMOD A1,A2 = A1,A2 - 1 } x P RF(Z) DEL600 FILE START } P LDR A6,A5 FDB ADDR } P CF A14,CALSNO GET SECTOR NR } P LDR A5,A6
0x000ca0…120cc0 [0x5c8]: Pad {f00=0x0055, f01=0x018e, f02=» $ P RF(Z) DEL245 BUFFER NOT CHANGED ~ P* ~ , P* WRITE SECTOR ~ 6 P* ~ N P LDK A7,/95 WRITE WAIT ~ X P LKM ~ v P DATA 1 ~ P LDR A1,A5 FDB ~ P CF A14,DMTIOZ IO CHECK ~ P LDR A1,A1 ~ P ABL(NZ) DMTERR ~ ( P SUR A12,A12 BUFFER NOT
0x000ca0…120cc0 [0x5c9]: Pad {f00=0x0055, f01=0x0190, f02=» ~ v P* P LDR A1,A5 FDB ADDR P LDK A3,0 . P CF A14,RDNXTR GET SECTOR @ P RF DEL250 OK b P LDR A6,A1 FDB ADDR x P RB DEL045 PDEL250 EQU * P LDR A5,A1 FDB P LDR A13,A3 NEW BUFFER ADDR P LD A4,FDBMRO,A5
0x000ca0…120cc0 [0x5ca]: Pad {f00=0x0055, f01=0x0190, f02=»OFFSET p P ADK A4,10 BUFSTA+2 P ADR A4,A13 RECORD ADDR * & P AD A4,FDBRLE,A5 STATUS CHAR ADDR J P LDK A2,/FF t P CCR A2,A4 P RB(NE) DEL240 FREE . P LC A2,17,A14 NR OF SAME IN DELETED RECORD P CC A2,-4,A4 P RF(NL) DEL600
0x000ca0…120cc0 [0x5cb]: Pad {f00=0x0055, f01=0x4172, f02=»900 BUFFER NOT CHANGED P* P* WRITE SECTOR ( P* @ PDEL700 EQU * J P LDR A8,A14 ^ P ADKL A8,2 ECB ADDR r P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A1,A5 FDB ADDR P CF A14,DMTIOZ IO CHECK P LDR A
0x000ca0…120cc0 [0x5cc]: Pad {f00=0x0055, f01=0x2008, f02=» + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* + P
0x000ca0…120cc0 [0x5cd]: Pad {f00=0x0055, f01=0x0190, f02=»0,2 CYLID b P AD A10,FDBRRO,A6 c & P AD A10,FDBRLE,A6 ADDR STATUS CHAR c , P LDK A1,0 STATUS FREE c V . P ABL DMT350 CONTINUE AS FOR RANDOM DELETE c t PDXI200 EQU * c P SC A2,FDBDBR,A6 c P LKM c " P DATA 3 EXIT. MORE INDEX LEFT c P EJECT
0x000ca0…120cc0 [0x5ce]: Pad {f00=0x0055, f01=0x0190, f02=»*** c f " P LD A9,DWTECB,A1 USER ECB ADDR d $ P LD A8,ECBBA,A9 BUFFER ADDR USER d 2 P AD A8,FDBKA,A1 KEY ADDR d Z P LDR A12,A8 d z $ P LD A11,FDBRLE,A1 RECORD LENGTH d P SUKL A11,6 KEY LENGTH d P LDR A13,A14 d 0 P ADKL A13,2 ECB ADDR TO RECORD BUF
0x000ca0…120cc0 [0x5cf]: Pad {f00=0x0055, f01=0x0190, f02=»B(Z) DMI035 NO SECTOR FOUND d P LDR A13,A3 BUFFER ADDR e $ " P LD A4,FDBADF,A6 FDB DATA FILE e D P LD A5,DWTECB,A4 USER ECB e j P LD A1,DWTOR,A6 e P ANK A1,/3F e P SUK A1,QDELX e & P ABL(E) DEL000 DELETE INDEX RECORD e P* e ( P* SET
0x000ca0…120cc0 [0x5d0]: Pad {f00=0x0023, f01=0x4128, f02=»F P RB(NE) DMIN50 P* 8 P* CLEAR USE BIT AND QUEUE ANCHOR ADDRESS IN TASBLK * P CM TASBLK f P CM TASQUE x P* , P* CLEAR DM FILE CODE ENTRIES IN CD:TAB P* P* P* PDMINEX EQU * P ABL RTNA15 RETURN A
0x000ca0…120cc0 [0x5d1]: Pad {f00=0x0023, f01=0x0004, f02=» x
0x000ca0…120cc0 [0x5d2]: Pad {f00=0x0023, f01=0x0190, f02=» 2 P IDENT DMINIT REL 8.2 78-09-15 870105040820 P : P MONCON B P REL 8.1 78-04-21 T P* p 8 P**************************************************** z P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* DMINIT = DATA MANAGE
0x000ca0…120cc0 [0x5d3]: Pad {f00=0x0023, f01=0x0190, f02=»****** b P* 0 P* ALLOCATE AND LINK FDB:S IN THE FDB AREA > P* CLEAR THE USE BIT AND THE BUFFER HEADER IN DM BUFFERS L 0 P* CLEAR USE BIT AND QUEUE ANCHOR IN TASBLK , P* CLEAR DM FILE CODE ENTRIES IN CD:TAB P* , P* DMINIT IS
0x000ca0…120cc0 [0x5d4]: Pad {f00=0x0023, f01=0x0190, f02=» P EXTRN INIFLG P EXTRN CDTAB P EXTRN QFDBFL . P EXTRN FDBSTA D P EXTRN FDBEND Z P EXTRN CURBUF p P EXTRN BUFDMI P EXTRN BUFSNR P EXTRN BUFOR P EXTRN TASBLK P EXTRN TASQUE P EXTRN CDTABF P E
0x000ca0…120cc0 [0x5d5]: Pad {f00=0x0023, f01=0x0190, f02=» A3= LINK ROOT P* A6= AREA END ADDR PDMIN30 LDR A4,A3 < P ADR A4,A2 T P* f P* DIV W. 2 FOR 16 K LIMIT p P* P LDR A5,A4 P SRL A5,1 P LDR A1,A6 P SRL A1,1 P CWR A5,A1 " P RF(G) DMIN40 END
0x000ca0…120cc0 [0x5d6]: Pad {f00=0x0023, f01=0x018e, f02=»DB CHAIN P ADKL A15,4 P ABR* A15 $ P EJECT 6 P* D PDMINIT EQU * N . P* NO INITIALIZATIONS IF POWER FAIL RESTART b P* P LD A1,INIFLG P RF(Z) DMINEX P LDKL A2,QFDBFL FDB LENGTH P* $ P* CHAIN FDB:S IN T
0x000ca0…120cc0 [0x5d7]: Pad {f00=0x0023, f01=0x0190, f02=» x P* P LDKL A3,CRNQUE+2 P ST A3,CRNQUE , P LDKL A2,CRBUFL B P LDKL A6,CRNEND Z P CF A15,DMIN30 r P* < P* CLEAR USE BIT AND BUFFER HEADER WORDS IN DM BUFFERS P* P LDKL A2,/FFFE P LD A3,CURBUF PDM
0x000ca0…120cc0 [0x5d8]: Pad {f00=0x0024, f01=0x4128, f02=»F P RB(NE) DMIN50 P* 8 P* CLEAR USE BIT AND QUEUE ANCHOR ADDRESS IN TASBLK * P CM TASBLK f P CM TASQUE x P* , P* CLEAR DM FILE CODE ENTRIES IN CD:TAB P* P* P* PDMINEX EQU * P ABL RTNA15 RETURN A
0x000ca0…120cc0 [0x5d9]: Pad {f00=0x0024, f01=0x2008, f02=» PDMINEX EQU * P RTN A15 " P END 2@ >TASBLK P CM TASBLK P P CM TASQUE b P* t , P* CLEAR DM FILE CODE ENTRIES IN CDTAB ~ P* P LD A2,CDTAB PDMIN60 SUK A2,4 P LDR A3,A2 P ADKL A3,CDTAB
0x000ca0…120cc0 [0x5da]: Pad {f00=0x0024, f01=0x018e, f02=» EASETB0 , ( B 8W D J$ T L T V , ( #$@W E . E . X V ? T B F TENDIO v & " = * X(@( H D ! . . . . . . . . . H D ! ! . #
0x000ca0…120cc0 [0x5db]: Pad {f00=0x0024, f01=0x4132, f02=» J H D ! TV P W P 5T KT S . gU, Wf U WF W P J P H D !J 7P I D mW uP& . U , P P* T U W R PB !P< #W T H D ! + . AP GW MP eV" kP qP: uP6 wW T* R T P P( P" , ( P P P W T T #
0x000ca0…120cc0 [0x5dc]: Pad {f00=0x0024, f01=0x2008, f02=» DMTEX2 @ EXITI L ND900 QUL
0x000ca0…120cc0 [0x5dd]: Pad {f00=0x0024, f01=0x0190, f02=» h IHCRY INTSAV * & X Z6 A _B A , , ( @ X (@ 4 W I X Z , ( 3 4 ;DR Q B , ( S ;AY B U Y C T , ( ! s Q P &W -W /W A L
0x000ca0…120cc0 [0x5de]: Pad {f00=0x0024, f01=0x0190, f02=» Q @ N T D W z , ( :#@'=" @ L Q @ N R Q ;A , ( Y T ;AT @ L L @ N , W J , ( 3 [.<(+^!$*);] ,%_>? Y ? z , ( S @ T X 1 PR B T X , ( s 0 :ET P OFT Y .
0x000ca0…120cc0 [0x5df]: Pad {f00=0x0024, f01=0x4106, f02=» P U W -W ;R =Q G R K ` [U e f H D ! q oT yW }W W Q` V8 R W Pn Qf T^ H H D ! W` QJ RB Q> T2 T. % 2 1W 3 8 5 > 7 D U WTD eR, mT {T T @
0x000ca0…120cc0 [0x5e0]: Pad {f00=0x0024, f01=0x0190, f02=»A5 = TTAB ADDRESS " P* A8 = ASBLK ADDRESS 0 P* WHERE ASBLK IS A PARAMETER BLOCK @ P* +----------+----------+ t $ P* ASBLK I NO OF VOL FC I P* +----------+----------+ P* I I P* I
0x000ca0…120cc0 [0x5e1]: Pad {f00=0x0024, f01=0x000c, f02=»
0x000ca0…120cc0 [0x5e2]: Pad {f00=0x0024, f01=0x0190, f02=» 0 P IDENT TASS REL 8.2 78-09-15 870105040820 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* TASS = ASSIGN FILE CODE ACTIVATION PART P* P*
0x000ca0…120cc0 [0x5e3]: Pad {f00=0x0024, f01=0x0190, f02=»ERED VIA z $ P* ASSIGN REQUEST (DATA 15) OR ( P* ASSIGN INDEX REQUEST (DATA 16). 8 P* d P* LDK A7,TC n P* LDKL A8,ASBLK P* LKM P* DATA 15 P* " P* INPUT A5 = TTAB ADDRESS P* A7 = TC
0x000ca0…120cc0 [0x5e4]: Pad {f00=0x0024, f01=0x0190, f02=» ASSIGN IN TTAB IS WANTED j B P* TC = 0 WHEN GLOBAL ASSIGN IN CDTAB IS WANETED " P* h P EJECT r P* +----------+----------+ $ P* ASBLK I NO OF VOL FC I P* +----------+----------+ P* I I
0x000ca0…120cc0 [0x5e5]: Pad {f00=0x0024, f01=0x0190, f02=»-------------+ P* I I P* I VOL NAME I 8 P* I I Z P* +---------------------+ | P* I I P* $ P* MAX 4 VOL NAMES CAN BE GIVEN P* P* @ P*
0x000ca0…120cc0 [0x5e6]: Pad {f00=0x0024, f01=0x018e, f02=»ED WITH INFORMATION FROM THE VTOC:S OF THE x $ P* VOLUMES MENTIONED IN ASBLK. 2 P* Z J P* UPON COMPLETION OF THE ASSIGN REQUEST REG A7 WILL HAVE ONE OF THE d P* FOLLOWING RETURN CODES: P* 0 P* 0 = CORRECT RETURN ASSIGNMENT PERFORME
0x000ca0…120cc0 [0x5e7]: Pad {f00=0x0024, f01=0x0190, f02=» v ( P* 4 = ONE OR MORE VOLUMES UNKNOWN " P* 5 = FILE CODE ALREADY USED 4 P* 6 = FILE NAME UNKNOWN Z 0 P* 7 = FILE SECTION MISSING OR FOUND TWICE | P* 8 = FAULTY DISC FORMAT & P* 9 = MORE THAN 4 EXTENTS EXIST P* P EJE
0x000ca0…120cc0 [0x5e8]: Pad {f00=0x0024, f01=0x0190, f02=»A5 = TTAB ADDRESS " P* A8 = ASBLK ADDRESS 0 P* WHERE ASBLK IS A PARAMETER BLOCK @ P* +----------+----------+ t $ P* ASBLK I NO OF VOL FC I P* +----------+----------+ P* I I P* I
0x000ca0…120cc0 [0x5e9]: Pad {f00=0x0024, f01=0x0190, f02=» VOL NAME I P* I I P* +---------------------+ > $ P* I MASTER INDEX ` " P* I FILE NAME P* D P* UPON COMPLETION OF THIS REQUEST REG A7 WILL HAVE ONE OF THE P* FOLLOW
0x000ca0…120cc0 [0x5ea]: Pad {f00=0x0024, f01=0x0190, f02=» " P* 2 = NO FREE ENTRY IN TABLE 8 P* 3 = NO FDB AVAILABLE OR MASTER INDEX CORE AVAIL * ( P* 4 = ONE OR MORE VOLUMES UNKNOWN f " P* 5 = FILE CODE ALREADY USED P* 6 = FILE NAME UNKNOWN 0 P* 7 = FILE SECTION MISSING OR FOUND TWICE
0x000ca0…120cc0 [0x5eb]: Pad {f00=0x0024, f01=0x0190, f02=»FILES ALREADY ASSIGNED 0 P* 12= SIZE OF DISC BUFFERS NOT SUFFICIENT 0 P* 13= REQUEST BUSY. REPEAT ASSIGN REQUEST R P EJECT P* P*************** P* ENTRIES * P*************** P* P ENTRY TASS P ENTRY
0x000ca0…120cc0 [0x5ec]: Pad {f00=0x0024, f01=0x0190, f02=»NTRY TASVOL P ENTRY TASCXO P ENTRY TASSEX * P ENTRY TASXLB @ P ENTRY TASFDB V P ENTRY TASVRL l P ENTRY TASVLE P ENTRY TASVRN P ENTRY TASECB & P ENTRY TASFIL,TASTID,TASMXA,TASSPW P ENTRY TASFDD,TASTBE $ P
0x000ca0…120cc0 [0x5ed]: Pad {f00=0x0024, f01=0x0190, f02=» ~ P* P EXTRN DFTAB P EXTRN DFTABE & P EXTRN CDTAB < P EXTRN DWTVOL P P EXTRN FNDTID f P EXTRN DMTASS | P EXTRN ACTOT P EXTRN TDISP P EXTRN QTJOB P EXTRN LKMQDI P EXTRN TTB:SA P EXTRN TTB:TD,DM
0x000ca0…120cc0 [0x5ee]: Pad {f00=0x0024, f01=0x0190, f02=»*** P* PTASBLK DATA 0 USE INDICATOR $ PTASQUE DATA 0 ASSIGN QUEUE ANCOR : * PTASTTA DATA 0 REQUESTING TTAB ADDRESS b PTASASB DATA 0 ASBLK ADDRESS * PTASCVO DATA 0 CURRENT OFFSET IN TASVOL 0 PTASVOL DATA 0 VOLUME IDENTIFICATION (DMI
0x000ca0…120cc0 [0x5ef]: Pad {f00=0x0024, f01=0x0190, f02=»ER, EXTENT NUMBER v * P DATA 0 OFFSET IN TASVOL FOR THIS EXT ( P DATA 0,0,0,0,0,0 THREE MORE ENTRIES H PTASXLB DATA 0 EXTENT LENGTH t P DATA 0 EXTENT BASE ( P DATA 0,0,0,0,0,0 THREE MORE ENTRIES PTASFDB DATA 0 FDB ADDRESS $ PTASVRL D
0x000ca0…120cc0 [0x5f0]: Pad {f00=0x0024, f01=0x018e, f02=» P DATA 410 ECBRL P DATA 0,0,0 ECBEL,-RC,-CW P DATA 0 CW2 > 0 PTASFIL DATA 0 0=DATA,1=INDEX,2=MASTER INDEX R * PTASTID DATA 0 DMTSASK IDENT AT ASSIGN $ PTASMXA DATA 0 MASTER INDEX ADDR & PTASSPW DATA 0 TTAB ADDRESS DMTASK $ PTASF
0x000ca0…120cc0 [0x5f1]: Pad {f00=0x0024, f01=0x0190, f02=» P EJECT P************** P* TASCAQ * ( P************** > P* T , P* ENTRY TASCAQ CHECK ASSIGN QUEUE ^ P* P* A7= RETURN CODE P* * P* SET OFF USE BIT IN TASBLK H P* IF TASQUE = 0
0x000ca0…120cc0 [0x5f2]: Pad {f00=0x0024, f01=0x0190, f02=»5,A7 | P* PTASCAQ EQU * P LD A5,TASQUE * P RF(Z) TASCEX EMPTY QUEUE @ " P LDR* A1,A5 GET NEXT IN CHAIN b , P ST A1,TASQUE AND PUT IT FIRST IN QUEUE P LDKL A1,-4 ( P ADS A1,TTB:SA,A5 UPD DISPATCH ADDR P CF A15,QTJOB NEXT
0x000ca0…120cc0 [0x5f3]: Pad {f00=0x0024, f01=0x0190, f02=» LD A5,TASTTA 4 P ST A7,TTB:SA+14,A5 SET RETURN CODE IN SAVED A7 P RTN A14 N P EJECT ^ 8 P****DESCRIPTION************************************* l P* : P* VOLCHE WILL COMPARE EACH VOLUME NAME IN ASBLK WITH & P* VOLUME NAMES IN DWT FO
0x000ca0…120cc0 [0x5f4]: Pad {f00=0x0024, f01=0x018e, f02=» A8 = ASBLK ADDR ( P* A11 = 0 WHEN NO LOCK IS WANTED. : P* 1 LOCK WANTED. ONLY FROM DMTASS FOR FLEXDISC F P* 8 P****EXIT PARAMETERS********************************* P* P* A1 = 0 OK P* 1 VOLUME UNKNOWN
0x000ca0…120cc0 [0x5f5]: Pad {f00=0x0024, f01=0x0190, f02=» P* : P****************************************************** PVOLCHE EQU * L P SLL A2,1 ` P SUK A2,2 r P ST A2,TASCVO INIT. TASCVO P LDR A4,A8 2 P ADK A4,10 POINTER TO FIRST VOL NAME IN ASBLK PTAS110 EQU * 2 P LDKL A3
0x000ca0…120cc0 [0x5f6]: Pad {f00=0x0024, f01=0x0190, f02=» IN CD:TAB AND COMPARE DWTVOL | P* & P LD* A6,CDTAB 0 PTAS130 SUK A6,4 F 2 P RF(N) TASHLT FC NOT FOUND? SHOULD NOT OCCUR. ^ P LD A5,CDTAB P ADR A5,A6 P CC A1,1,A5 P RB(NE) TAS130 NOT THIS FC P LDR A11,A11 P RF(Z)
0x000ca0…120cc0 [0x5f7]: Pad {f00=0x0024, f01=0x0190, f02=»CK FLEXDISC P* P LDKL A8,TASECB " P ST A1,ECBFC,A8 FLEX FILE CODE 6 & P LDKL A12,0 LFLAG=UNLOCKED BEFORE P LDK A7,/A6 LOCK,WAIT P LKM P DATA 1 P LD A7,ECBRC,A8 P RF(Z) TAS131 P ANKL A7,/7FFF " P RF(NZ
0x000ca0…120cc0 [0x5f8]: Pad {f00=0x0025, f01=0x018e, f02=» x P RF(NZ) TAS150 GRAVE ERR PTAS131 EQU * ( P ST A1,TASVOL,A2 SAVE FC < P P AD A6,CDTAB d P LDR* A5,A6 INDEX x $ P LDK A1,0 DISC NAME DISPLACEMENT P SRL A5,8 P RF(Z) TAS135 , P* DECIDE DISC DISPL FOR THIS FILE CODE
0x000ca0…120cc0 [0x5f9]: Pad {f00=0x0025, f01=0x0190, f02=» P RB(P) TAS132 PTAS135 EQU * P LD A6,2,A6 DWT ADDR . & P RF(Z) TASHLT NO DWT ADDRESS FOUND J & P ADR A6,A1 POINTER TO VOLUME NAME t P LDK A1,3 VOL NAMES 3 WORDS & P LDR A5,A4 POINTER ASBLK VOL NAME P* , P* CHECK VOLUME NAM
0x000ca0…120cc0 [0x5fa]: Pad {f00=0x0025, f01=0x0190, f02=» P ADK A6,2 P SUK A1,1 . P RB(P) TAS140 CHECK NEXT WORD IN VOL NAME ( P* Z P* VOL NAME MATCH d P* STORE DMI , FC IN TASVOL ~ P* P LD A1,TASVOL,A2 P ANK A1,/0F P CWK A1,/8 $ P RF(L) TAS143 NOT FLEXIBLE DISC
0x000ca0…120cc0 [0x5fb]: Pad {f00=0x0025, f01=0x0190, f02=» FOR DRIVE 1 P* 1 FOR DRIVE 2 " P* 2 FOR FLEXDISC 8 P* ^ P SC A1,TASVOL,A2 h P* P* CHECK NEXT VOL IN ASBLK P* P LDK A1,0 RET CODE P ADK A4,6 P SUK A2,2 ( P RB(NN) TAS110 MORE
0x000ca0…120cc0 [0x5fc]: Pad {f00=0x0025, f01=0x0190, f02=»RFORMED x P LCR A1,A3 DISC CODE P ANK A1,/F8 , P SUK A1,/F8 @ P RF(NZ) TAS150 NO FLEXDISC T P LDR A12,A12 LFLAG v P RF(NZ) TAS150 LOCKED BEFORE P* P* UNLOCK P* P LDK A7,/B8 UNLOAD,WAIT P LKM P DAT
0x000ca0…120cc0 [0x5fd]: Pad {f00=0x0025, f01=0x0190, f02=» RB(NE) TAS120 MORE FC IN DFTAB P LDK A1,1 ( PTAS155 EQU * : P RTN A14 N PTASHLT HLT ^ P EJECT p P* ~ P************ P* TASS * P************ P* PIXTASS EQU * P LDKL A14,/81 * P SCR A14,A8 BIT 0+
0x000ca0…120cc0 [0x5fe]: Pad {f00=0x0025, f01=0x0190, f02=»R d P LDR A10,A7 SAVE TC P* & . P* CHECK IF PREVIOS ASSIGN NOT COMPLETED 0 4 P* AND IF SO QUEUE THIS REQUEST VIA THE TASQUE b P* P LD A1,TASBLK & P RF(Z) TAS050 NO CONCURRENT ASSIGN * P LDKL A1,TASQUE START OF ASSIGN QUEUE
0x000ca0…120cc0 [0x5ff]: Pad {f00=0x0025, f01=0x0190, f02=» A5,A2 P CMR A5 P ABL TDISP DISPATCH P* : PTAS050 EQU * D & P IM TASBLK INDICATE ASSIGN STARTED X " P CM TASFDD FDB ADDR DATA FILE P* 6 P ST A5,TASTTA SAVE TTAB ADDRESS OF REQUESTING TASK P* $ P ST A8,TASASB SAVE A
0x000ca0…120cc0 [0x600]: Pad {f00=0x0025, f01=0x0190, f02=»ITIALIZE RETURN CODE IN A7 P* " . P* CHECK MAX NUMBER OF VOLUMES ( 1 - 4 ) , P* ^ P LDK A2,0 h P LCR A2,A8 NO OF VOLUMES z . P ANK A2,/1F REMOVE INDEX BIT +DELAY+BASIC P RF(Z) TAS090 NO VOL P CWK A2,4 P RF(NG) TAS100 <
0x000ca0…120cc0 [0x601]: Pad {f00=0x0025, f01=0x018e, f02=»L A11,0 NO FLEXLOCK P CF A14,VOLCHE P LD A8,TASASB ASBLK ADDR 2 P LDKL A7,-1 RET CODE R P LDR A1,A1 n $ P RF(Z) TAS160 ALL VOLUMES FOUND P* , P* ALL VOL NOT FOUND. ACT FLEXDISCTASK P* P LD A1,TASCVO P LDK A2,
0x000ca0…120cc0 [0x602]: Pad {f00=0x0025, f01=0x018e, f02=» P* PTAS160 EQU * P LDR* A3,A8 " P ANK A3,/FF 6 , P RF(E) TASSEM FILE CODE = 0 NOT ALLOWED J P LDR A10,A10 TC z P RF(Z) TAS165 GLOBAL ASSIGN P LD A2,TASTTA TTAB ADDR P LDR A4,A2 P LD A2,TTB:TD,A4 P ADKL A4,T
0x000ca0…120cc0 [0x603]: Pad {f00=0x0025, f01=0x0190, f02=» P RF(L) TAS180 END OF TABLE ! P LDR A1,A4 ! & P ADR A1,A2 ! 8 P CCR A3,A1 FILE CODE ! J P RB(NE) TAS170 NO MATCH ! f P* ! P* FILE CODE USED ! . P* OK WHEN REQ = ASS INDEX AND INDEX = 1 ! P* ! P LDR* A2,A8 ASBLK 1ST WORD ! P R
0x000ca0…120cc0 [0x604]: Pad {f00=0x0025, f01=0x018e, f02=»* DATA FILE FDB IS FOUND ! P* " " P LD A1,1,A1 FDB ADDR " , P ST A1,TASFDD " H P RB TAS170 " ^ P* " p P* " z > P* FIND A FREE ENTRY IN TTAB/CD:TAB (FC AND DWTADR = 0 ) " P* " PTAS180 EQU * " P LDK A1,0 " P LDR A10,A10 TC "
0x000ca0…120cc0 [0x605]: Pad {f00=0x0025, f01=0x0190, f02=» " | P RF TAS190 # PTAS185 EQU * # P LD A4,CDTAB # . P LDR* A2,A4 # B P ADK A4,1 # V PTAS190 SUK A2,4 # h ( P RF(L) TASSE2 NO FREE ENTRY IN TABLE # P LDR A9,A4 # P ADR A9,A2 # P CCR A1,A9 FILE CODE # " P RB(NE) TAS190 FC NOT EQUAL 0
0x000ca0…120cc0 [0x606]: Pad {f00=0x0025, f01=0x0190, f02=» * P ORKL A3,/100 INDEX = 1 FOR DATA FILE $ PTAS195 EQU * $ 2 0 P ST A3,-1,A9 SET INDEX AND FC IN FREE ENTRY $ F P ST A9,TASTBE SAVE ENTRY $ z P* $ 0 P* GET FIRST VOLUME AND ACTIVATE ITS DMTASK $ P* $ P LD A1,TASCVO $ P LDK A7,0 $ P
0x000ca0…120cc0 [0x607]: Pad {f00=0x0025, f01=0x0190, f02=»B FOUND $ ~ P EJECT % P* % & P* FLEXDISC DMTASK DOES NOT EXIST % ( P* % R P CM -1,A9 REMOVE ENTRY % P LDK A7,4 VOL UNKNOWN % z P RF TASSEM % PTAS200 EQU * % P LDK A2,2 % 4 P ST A2,TASFIL MASTER INDEX LOOP IDENT IN DMTSAK % & P L
0x000ca0…120cc0 [0x608]: Pad {f00=0x0025, f01=0x018e, f02=»M TASFDB =0 INDICATES EXT #0 NOT FOUND % P LDK A3,0 & . * P* A1=PAR,A2=ADR,A3=SEGM,A5=TTAB ADDR & @ " P CF A15,ACTOT ACTIVATE DMTASK & n P ABL TDISP GO TO DISPATCHER & P EJECT & P* & P* ERROR RETURNS & P* & PTASSE5 ADK A7,1 &
0x000ca0…120cc0 [0x609]: Pad {f00=0x0025, f01=0x4064, f02=» & P CF A14,TASCAQ CHECK ASSIGN QUEUE ' " P ABL LKMQDI QUEUE AND DISPATCH ' . P END ' T@ ' `DR & @ " P CF A15,ACTOT ACTIVATE DMTASK & n P ABL TDISP GO TO DISPATCHER & P EJECT & P* & P* ERROR RETURNS & P* & PTASSE5 ADK A7,1 &
0x000ca0…120cc0 [0x60a]: Pad {f00=0x0025, f01=0x2008, f02=» (
0x000ca0…120cc0 [0x60b]: Pad {f00=0x0025, f01=0x0190, f02=» , ( ' " ! P ! _ ! , ( G _ ! * R X " P 4 , ( g V C :AP Z P ! * ! d , ( @R _* ! Y y Y , ( @ ! f ! X ( X $ , ( _" _* 9D !
0x000ca0…120cc0 [0x60c]: Pad {f00=0x0025, f01=0x0190, f02=» V 5 9 F A R K * QW c gTR wT P f H D ! f P P T R 1 3Q 5R ePZ uP yT* P > H D ! V. $ X ' +P /P 3P 7P EW M OQ H D !M QW W YP ]W R, T: W4
0x000ca0…120cc0 [0x60d]: Pad {f00=0x0025, f01=0x0190, f02=» eTB oT8 s uRH wT0 P P * n H D !& R P R P * Vr P4 R V. * H D ! ? IQ U e i $ u $ R T v H D ! VD M * Q WP i P6 P, P P
0x000ca0…120cc0 [0x60e]: Pad {f00=0x0025, f01=0x4124, f02=» X Z H D ! ! - 9T =W C U aT cWD s w < T H D !z W * Z * R ! < #R Y p T P PH P P P P b H D !2 'P -P W T N ;P ? QRn cP iV qP yP R: P
0x000ca0…120cc0 [0x60f]: Pad {f00=0x0025, f01=0x0190, f02=» F IDENT DEBUG dBUG |BUG . , ( A @ ~ A > , ( ! A ~ @ A A @ A n , ( A A @ A A @ A a A W o , (
0x000ca0…120cc0 [0x610]: Pad {f00=0x001f, f01=0x018e, f02=»UFSTA P EXTRN BUFSNR P EXTRN BUFDMI $ P* : P EXTRN QFDBFL D P EXTRN FDBSTA Z P EXTRN FDBEND p P EXTRN FDBECB P EXTRN FDBEXT P EXTRN EXTDMI P EXTRN EXTLEN P EXTRN EXTBAS P EXTRN FDBRLE P
0x000ca0…120cc0 [0x611]: Pad {f00=0x001f, f01=0x0010, f02=»
0x000ca0…120cc0 [0x612]: Pad {f00=0x001f, f01=0x0190, f02=» 2 P IDENT DMTASS REL 8.2 78-09-15 870105040820 P : P MX REL. L. 176,565 B P REL 8.1 78-04-21 ` P* | 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 4 P* DMTASS =
0x000ca0…120cc0 [0x613]: Pad {f00=0x001f, f01=0x0190, f02=»********************** r P* * P* THIS MODULE IS ACTIVATED FROM TASS ( P* V B P* INPUT A2 = TID TASK IDENT OF DMTASK AT PRESENT NOT USED ` ( P* TASBLK PARAMETER BLOCK P* J P* IN TASVOL IN TASBLK ALL VOLUMES WHERE THE
0x000ca0…120cc0 [0x614]: Pad {f00=0x001f, f01=0x0190, f02=»E FILE TO BE ASSIGNED. FOR EACH EXTENT ITS z > P* FILE-SECTION-NO, FILE-EXTENT-NO,FILE-EXTENT-LENGTH AND 2 . P* FILE-EXTENT-BASE ARE SAVED IN TASBLK. t L P* FOR THE FIRST EXTENT (I.E. FILE-SECTION-NO =0 AND FILE-EXTENT-NO =0) J P* THE LAST-RECORD-
0x000ca0…120cc0 [0x615]: Pad {f00=0x001f, f01=0x018e, f02=»FDB:S CAN BE SEARCHED ^ L P* TO CHECK IF THE FILE TO BE ASSIGNED HAS PREVIOUSLY BEEN ASSIGNED TO L P* ANOTHER FILE CODE. IF SO THE FDB ADDRESS IS PUT INTO THE CD:TAB AND n L P* THE ASSIGNMENT IS COMPLETED. IF NO FDB DESCRIBING THE FILE IS FOUND
0x000ca0…120cc0 [0x616]: Pad {f00=0x001f, f01=0x0190, f02=» 2 P* FOR INDEX ASIGN THE PRODGRAM IS RUN TWICE. 4 P* DURING THE FIRST LOOP A MASTERINDEX IS READ. : . P* FC 13 IN TTAB FOR DMTASK IS THEN USED r P EJECT P* P*************** P* ENTRIES * P*************** P*
0x000ca0…120cc0 [0x617]: Pad {f00=0x001f, f01=0x0190, f02=»*************** P* EXTERNALS * P***************** 2 P* L P EXTRN QTJOB V P EXTRN FNDTID,TTB:TD j P* P EXTRN DWTST P EXTRN DWTADR P* P EXTRN ECBFC P EXTRN ECBBA P EXTRN ECBRL P EXTRN ECB
0x000ca0…120cc0 [0x618]: Pad {f00=0x001f, f01=0x018e, f02=»UFSTA P EXTRN BUFSNR P EXTRN BUFDMI $ P* : P EXTRN QFDBFL D P EXTRN FDBSTA Z P EXTRN FDBEND p P EXTRN FDBECB P EXTRN FDBEXT P EXTRN EXTDMI P EXTRN EXTLEN P EXTRN EXTBAS P EXTRN FDBRLE P
0x000ca0…120cc0 [0x619]: Pad {f00=0x001f, f01=0x0190, f02=» . P EXTRN FDBSNR,FDBMRN,GTLGRN,EXTELE,FDBCEX P EXTRN FDBDBR,FDBMRO 6 $ P EXTRN MXIND,CRNQUE,DMTWM,MPYMOD R P EXTRN TASASB z P EXTRN TASCVO P EXTRN TASVOL P EXTRN TASCXO P EXTRN TASSEX P EXTRN TASXLB P EXTRN TASFD
0x000ca0…120cc0 [0x61a]: Pad {f00=0x001f, f01=0x0190, f02=» EXTRN TASSPW,TASFDD,TASTBE P EXTRN TASCAQ $ P EXTRN VOLCHE : P EJECT P PX:A EQU 0 ^ , PRECBFZ EQU X:A INDEX RECORD BUFFER SIZE p PX:B EQU 0 0 PINDXAC EQU 0 INDEX ACCESS FUNCTIONS WHEN = 1 P EJECT P* P************
0x000ca0…120cc0 [0x61b]: Pad {f00=0x001f, f01=0x0190, f02=» PVLVRL EQU 14 PVLVER EQU 34 P* 0 PVTFSNO EQU 8 : PVTFXNO EQU 10 N PVTFXLE EQU 14 d PVTFXBA EQU 18 z PVTLRN EQU 21 PVTRLE EQU 24 PVTBLF EQU 26 PVTFIOR EQU 27 PVTNIF EQU 37 PVTKA EQU 38 P
0x000ca0…120cc0 [0x61c]: Pad {f00=0x001f, f01=0x0190, f02=»4 WORDS P DATA 0,0 STACK PDMTA14 EQU *-2 ( P EJECT > P* L P************** V P* DMTIOC * l P************** P* : P* ENTRY DMTIOC CHECK RETURN CODES AFTER DISC I/O > P* RETURN TO DMTASX WITH
0x000ca0…120cc0 [0x61d]: Pad {f00=0x001f, f01=0x0190, f02=»,/FEFF BIT 7 ONLY RETRIES P RF(Z) DMTIOX " P ADKL A14,4 8 P ANK A1,/80 L $ P RF(NZ) DMT060 NEW VOLUME LOADED ` P SUKL A3,BUFSTA , P CM BUFDMI,A3 CLEAR VOL IDENT IN BUFFER P LDK A7,1 P ABL DMTASX DISC I/O ERROR PDMTIOX
0x000ca0…120cc0 [0x61e]: Pad {f00=0x001f, f01=0x018e, f02=»SS EQU * 8 P LDKL A14,DMTA14 INITIALIZE DMTASK A14 STACK POINTER P ST A2,TASTID TASK IDENT L P CM TASMXA MASTER INDEX ADDR l P ANK A2,/2 P RF(Z) DMT010 NOT FLEXTASC P* & P* PERFORM VOLUME CHECK WITH LOCK P* P LD A8,T
0x000ca0…120cc0 [0x61f]: Pad {f00=0x001f, f01=0x0190, f02=» P LDR A1,A1 P RF(Z) DMT010 OK P LDK A7,4 VOL UNKNOWN . P ABL DMTASX L PDMT010 EQU * ` P* t P LDKL A8,TASECB ~ P* 6 P LD A1,TASCVO OFFSET INTO TASVOL FOR FIRST VOLUME PDMT050 EQU * , P CF A14,CLRBUF RELEASE ALL F
0x000ca0…120cc0 [0x620]: Pad {f00=0x001f, f01=0x0190, f02=»T A2,ECBRL,A8 SECTOR LENGTH P LDK A2,0 $ 0 P ST A2,ECBCW,A8 SECTOR #0 VL (VOLUME LABEL) 6 P* j P* t 2 P CF A14,DMTGBU GET A DM BUFFER ADDRESS IN A3 ~ P DATA /5700 NOP. READ ALWAYS P ADKL A3,BUFSTA & P ST A3,ECBBA,A8 DATA BUFFE
0x000ca0…120cc0 [0x621]: Pad {f00=0x001f, f01=0x0190, f02=» * P DATA DMTAR3 RESTART ADDRESS AFTER I/O P LKM 6 P DATA 3 EXIT B P EJECT V 4 PDMTAR3 EQU * RESTART AFTER VOLUME LABEL IS READ d . P LDKL A14,DMTA14 SET UP A14 STACK POINTER P CF A14,DMTIOC I/O CHECK P LD A2,VLVER,A3 VERSION
0x000ca0…120cc0 [0x622]: Pad {f00=0x001f, f01=0x0190, f02=»DMT100 EQU * P CM TASVRN P LD A6,VLVLE,A3 VTOC LENGTH & P ST A6,TASVLE J P LD A2,VLVBA,A3 VTOC BASE ` . P ST A2,ECBCW,A8 1:ST VTOC SECTOR NO = FSAT & P LD A9,VLVRL,A3 VTOC RECORD LENGTH P ST A9,TASVRL P EJECT P*
0x000ca0…120cc0 [0x623]: Pad {f00=0x001f, f01=0x0190, f02=» $ P RF(P) DMT115 MORE VTOC SECTORS P EJECT , P* : " P* ALL VTOC SECTORS ARE READ D P* j P LD A1,TASCVO t P SUK A1,2 & P ABL(N) DMT300 ALL VOLUMES CHECKED P ST A1,TASCVO UPDATE TASCVO $ P LDK A7,7 TOO MANY FILE SECTIONS
0x000ca0…120cc0 [0x624]: Pad {f00=0x001f, f01=0x0190, f02=»EASE BUFFER ~ P LC A7,TASVOL,A1 P CC A7,TASVOL+2,A1 , P RB(E) DMT050 SAME DM TASK F P* h P* ACTIVATE NEXT DM TASK r P* P ADKL A7,'D0' P LKM P DATA -4 P DATA DMTASS P LKM P DATA 3 EXIT P EJECT
0x000ca0…120cc0 [0x625]: Pad {f00=0x001f, f01=0x018e, f02=» P CF A14,DMTRBU P LD A2,ECBCW,A8 P ADK A2,1 NEXT VTOC SECTOR 2 P LD A1,TASCVO T P LD A1,TASVOL,A1 j P CF A14,DMTGBU GET BUFFER P DATA /5700 NOP. READ ALWAYS P ADKL A3,BUFSTA P ST A3,ECBBA,A8 P ST A2,ECBCW,A8
0x000ca0…120cc0 [0x626]: Pad {f00=0x001f, f01=0x0190, f02=» PDMTAR4 EQU * P LDKL A14,DMTA14 P CF A14,DMTIOC 0 P LD A9,TASVRL F P LD A11,TASASB , P ADKL A11,2 POINTER TO FILENAME IN ASBLK r P LDK A4,2 P CW A4,TASFIL $ P RF(NE) DMT135 NOT MASTER INDEX " P ADKL A11,14 MX FILE NAM
0x000ca0…120cc0 [0x627]: Pad {f00=0x001f, f01=0x0190, f02=»A3 " P ADR A4,A9 ADDRESS STATUS BYTE P LCR A2,A4 0 P ANK A2,/FF B P ABL(Z) DMT250 NOT USED V ( P SUR A4,A9 BACK TO START OF VTOC REC v P LDR A7,A11 $ P LDK A2,4 FILE NAME MAX 4 WORDS PDMT150 EQU * P LDR* A10,A4 P CWR
0x000ca0…120cc0 [0x628]: Pad {f00=0x001f, f01=0x018e, f02=» ADK A7,2 P RB DMT150 CHECK NEXT WORD P* 4 ( P* ONLY STANDARD FILES ARE HANDLED > P* j PDMT160 EQU * t P LC A2,VTFIOR,A3 P CCK A2,'SS' STANDARD FILE ? P RF(E) DMT165 YES P CCK A2,'LL' LIBRARY FILE ? P ABL(NZ)
0x000ca0…120cc0 [0x629]: Pad {f00=0x001f, f01=0x0190, f02=» PDMT167 EQU * P* . P* GET INFO FROM VTOC AND SAVE IN TASBLK " P* T $ P LDR A4,A3 START OF VTOC RECORD ^ 8 P LD A1,TASCXO CURRENT OFFSET INTO TASSEX AND TASXLB P SUK A1,4 P ST A1,TASCXO P RF(NN) DMT170 <= 4 EXTENTS
0x000ca0…120cc0 [0x62a]: Pad {f00=0x001f, f01=0x0190, f02=»TFXNO+1,A4 EXT NO INTO RIGHT HALF OF A2 P ST A2,TASSEX,A1 0 P LD A6,TASCVO H , P ST A6,TASSEX+2,A1 REMEMBER WHICH VOLUME ^ " P LD A2,VTFXLE,A4 EXTENT-LENGTH P ST A2,TASXLB,A1 P LD A2,VTFXBA,A4 EXTENT BASE P ST A2,TASXLB+2,A1 P
0x000ca0…120cc0 [0x62b]: Pad {f00=0x001f, f01=0x0190, f02=»BING THE FILE ALREADY EXISTS. v P* & P LD A12,TASFDB 0 * P RF(Z) DMT190 FIRST TIME EXT #0 FOUND F P LDK A7,7 t $ P ABL DMTASX EXT #0 ALREADY FOUND PDMT190 EQU * P LDKL A12,FDBSTA PDMT200 EQU * P LDR* A5,A12 P ANK A5,
0x000ca0…120cc0 [0x62c]: Pad {f00=0x001f, f01=0x018e, f02=»DBVTO,A12 P CW A2,TASVRN $ P RF(NE) DMT210 NOT SAME VTOC REC ( P LD A2,FDBMIA,A12 P " P RF(NZ) DMT205 INDEX ASS BEFOR j P LD A2,TASFIL . P ABL(E) DMT400 SAME VTOC RECORD FDB FOUND PDMT205 EQU * P LDK A7,5 FILE CODE USED
0x000ca0…120cc0 [0x62d]: Pad {f00=0x001f, f01=0x0190, f02=» j P* 0 P* NO MATCHING FDB EXIST FIND A FREE FDB P* F P LDKL A12,FDBSTA P PDMT220 LDR* A5,A12 h P ANK A5,/01 P RF(Z) DMT230 FREE P LDR* A12,A12 GET NEXT FDB P ANKL A12,/FFFE & P RB(NE) DMT220 MORE FDB:S TO CHE
0x000ca0…120cc0 [0x62e]: Pad {f00=0x001f, f01=0x018e, f02=» P ST A12,TASFDB P LDR A10,A12 P ADKL A10,QFDBFL . P LDK A2,0 F P LDR A1,A12 X PDMT233 ADK A1,2 l P CWR A1,A10 P RF(E) DMT237 END OF FDB P STR A2,A1 P RB DMT233 PDMT237 EQU * P LDKL A2,/8000 P*
0x000ca0…120cc0 [0x62f]: Pad {f00=0x001f, f01=0x0190, f02=» P ADKL A1,FDBECB P ST A2,ECBRL,A1 P LDK A2,/01 4 P ORRS A2,A12 SET USE BIT H P LC A2,VTLRN,A4 h P SC A2,FDBLRN,A12 P LD A2,VTLRN+1,A4 P ST A2,FDBLRN+1,A12 P LD A2,VTRLE,A4 P ST A2,FDBRLE,A12 P LC A2,V
0x000ca0…120cc0 [0x630]: Pad {f00=0x0020, f01=0x0190, f02=» P LD A2,TASVRN P ST A2,FDBVTO,A12 P EJECT 4 P* B P* CHECK NEXT VTOC RECORD L P* n PDMT250 EQU * x P* A3 = ADR 1ST REC P* A9 = VTOC REC LGTH P ADR A3,A9 P ADK A3,1 SKIP STATUS BYTE P LDR A2,A3
0x000ca0…120cc0 [0x631]: Pad {f00=0x0020, f01=0x0190, f02=»* < P* ALL VTOCS IN ALL VOLUMES ARE SEARCHED AT THIS POINT P* J PDMT300 EQU * T P LDK A3,16 h P SU A3,TASCXO z P RF(NZ) DMT310 P LDK A7,6 P RF DMTASX FILE NAME UNKNOWN PDMT310 EQU * P LD A12,TASFDB P RF(
0x000ca0…120cc0 [0x632]: Pad {f00=0x0020, f01=0x0190, f02=»FDB IN ASCENDING ORDER p 8 P* ACCORDING TO INCREASING SECTOR NO AND EXTENT NO P* Z PDMT320 EQU * d P* x @ P* CHECK IF RECORD BUFFERS ARE LARGE ENOUGH FOR INDEX FILE P* P LD A6,TASFIL P RF(Z) DMT330 DATA FILE ASS $ P
0x000ca0…120cc0 [0x633]: Pad {f00=0x0020, f01=0x0190, f02=»NG) DMT330 OK P LDK A7,12 ! * P RF DMTASX RECORD BUFFER IS TOO SMALL ! ( PDMT330 EQU * ! V P LDR A6,A12 ! j P* FDB ADDR ! ~ P ADKL A6,FDBEXT ! P LDK A2,0 ! P LDR A5,A3 ! P SRL A5,2 NUMBER OF EXTENTS ! PDMT340 EQU * ! P LDK
0x000ca0…120cc0 [0x634]: Pad {f00=0x0020, f01=0x0190, f02=»DMT350 MORE EXTENTS TO CHECK ! P* " $ , P* THE EXTENT SEARCHED FOR IS NOT FOUND " . 2 P* CHECK IF RIGHT HALF OF A2 = 0 (EXT-NO = 0) " ^ P* " P LDR A1,A2 " P ANK A1,/FF " $ P RF(NZ) DMT370 TRY NEXT SECTION " P* " PDMT355 EQU * " P
0x000ca0…120cc0 [0x635]: Pad {f00=0x0020, f01=0x018e, f02=»* " P LD A1,TASSEX+2,A4 # P LD A1,TASVOL,A1 # $ P ST A1,EXTDMI,A6 # < P LD A1,TASXLB,A4 # T P ST A1,EXTLEN,A6 # l P LD A1,TASXLB+2,A4 # P ST A1,EXTBAS,A6 # P ADK A6,6 # P SUK A5,1 # & P RF(NP) DMT500 ALL EXTENTS HANDLED # P* #
0x000ca0…120cc0 [0x636]: Pad {f00=0x0020, f01=0x0190, f02=» # P SUK A1,3 $ " P RF(NE) DMT380 NOT EXT-NO = 3 $ PDMT370 EQU * $ @ P ECR A1,A2 $ T P ANK A1,/FF $ f P SUK A1,3 $ z P RB(E) DMT355 SECTION-NO = 3 $ " P ADK A1,4 INCREMENT SECTION-NO $ P ECR A2,A1 EXT-NO = 0 $ P RB DMT340 $ $ PDMT3
0x000ca0…120cc0 [0x637]: Pad {f00=0x0020, f01=0x0190, f02=»T400 EQU * $ P LDK A7,0 % PDMTASX EQU * % $ , P LD A2,TASTBE TTAB/CDTAB FILE CODE ADDR % 8 P LDR A7,A7 % h P RF(Z) DMT420 CORRECT RETURN % z P CM -1,A2 ZERO FILE CODE % P* % $ P* REMOVE FDB WITH MASTER INDEX % P* % $ P LD A4,TASMXA MA
0x000ca0…120cc0 [0x638]: Pad {f00=0x0020, f01=0x0190, f02=» % PDMT405 EQU * & P SUK A2,4 NEXT OFFSET & P RF(NN) DMT407 OK & : * P RF DMT408 MASTER INDEX MUST BE FOUND & T PDMT407 CW A4,MXIND+2,A2 & P RB(NE) DMT405 NEXT ENTRY & P LDKL A4,/7FFF & & P ANS A4,MXIND+4,A2 SET ENTRY FREE & PDMT408
0x000ca0…120cc0 [0x639]: Pad {f00=0x0020, f01=0x018e, f02=»FDB USE BIT & ~ P RF DMT430 ' PDMT420 EQU * ' & P ST A12,1,A2 FDB ADDR ' : PDMT430 EQU * ' X P LDR A8,A8 ' l P RF(Z) DMT440 NO BUFFER ' ~ P LD A3,ECBBA,A8 ' P SUKL A3,BUFSTA ' " P CF A14,DMTRBU RELEASE BUFFER ' PDMT440 EQU * ' , P C
0x000ca0…120cc0 [0x63a]: Pad {f00=0x0020, f01=0x0190, f02=» ' P LKM ( P DATA 3 ( P EJECT ( $ PDMT500 EQU * ( 2 P LD A6,TASFIL ( F P ABL(Z) DMT700 DATA FILE ( P IFF INDXAC=1 ( | P LDKL A7,-1 REQ ERR ( P RB DMTASX ( P XIF ( P IFT INDXAC=1 ( P SUK A6,1 ( P ABL(Z) DMT600 INDEX F
0x000ca0…120cc0 [0x63b]: Pad {f00=0x0020, f01=0x018e, f02=»* MASTER INDEX WITH SEQUENTIAL READ ON THIS FILE CODE ( P* ) @ P LD A7,TASTID DMTASK ID ) J P INH ) j " P CF A15,FNDTID TTAB ADDR TO A2 ) v P ENB ) P ST A2,TASSPW ) " P LDKL A3,/0100 INDEX DATA FILE ) P LD A1,TASASB ) P LC A3,1,A1 FILE
0x000ca0…120cc0 [0x63c]: Pad {f00=0x0020, f01=0x0190, f02=» P SUKL A3,BUFSTA * " P CF A14,DMTRBU RELEASE BUFFER * P* * B 0 P* CALC NO OF WORDS NEEDED IN MASTRE INDEX * L P* * P LD A6,FDBRLE,A12 REC LGTH * " P LD A7,FDBLRN+1,A12 NO OF RECS * , P CF A14,MPYMOD A1,A2=NO OF BYTES NEEDED * P SRC A1,
0x000ca0…120cc0 [0x63d]: Pad {f00=0x0020, f01=0x0190, f02=»NH * P LD A4,MXIND LENGTH MXIND + P SUK A4,4 MAX A5 VALUE + , P LDKL A5,-2 OFFSET + J PDMT540 EQU * + d P ADK A5,4 GET ENTRY + x P CWR A5,A4 + P RF(G) DMT570 NO ENTRY FOUND + P LD A3,MXIND,A5 + P RB(Z) DMT540 ZERO ENTRY + P LD A6,M
0x000ca0…120cc0 [0x63e]: Pad {f00=0x0020, f01=0x0190, f02=» P* SUFFICIENT SPACE FOUND , P* , & P LDKL A1,/8000 USED BIT , 0 & P ORS A1,MXIND+2,A5 MARK ENTRY USED , P $ P ST A3,TASMXA MASTER INDEX ADDR , z P ST A3,FDBMIA,A12 , P LD A7,FDBLRN+1,A12 , P STR A7,A3 NO OF ENTRIES , P LD A1,FDBRLE,A12
0x000ca0…120cc0 [0x63f]: Pad {f00=0x0020, f01=0x0190, f02=» , x . P LDR A1,A5 MXIND ENTRY PAR TO REACTIVATION - P CWR A1,A4 MXIND ENTRY - : P RF(NL) DMT590 LAST ENTRY - X P LD A3,MXIND+6,A1 - z " P RF(N) DMT590 NEXT ENTRY USED - P* - & P* MOVE SPARE WORDS TO NEXT ENTRY - P* - P LD A2,MXIND+2,A1
0x000ca0…120cc0 [0x640]: Pad {f00=0x0020, f01=0x0190, f02=»6,A1 MAKE NEXT ENTRY LARGER - $ P LD A7,MXIND,A1 PREVIOUS POINTER . $ P SLL A2,1 NO OF BYTES . L P ADR A7,A2 . j P ST A7,MXIND+4,A1 . | P EJECT . PDMT590 EQU * . P ENB . P* . 2 P* NOW READ MASTER INDEX WITH SEQUENTIAL READ . P* A8
0x000ca0…120cc0 [0x641]: Pad {f00=0x0020, f01=0x0190, f02=» . X P* / PDMT550 EQU * / & P LDK A7,/42 SEQ READ,NOWAIT,NO EA / & P LKM / P P DATA -1 / P DATA DMTAR5 / l P LKM / P DATA 3 EXIT / PDMTAR5 EQU * / " P LDKL A14,DMTA14 RESTORE STACK / P LDKL A8,TASECB ECB ADDR / P LD A2,ECBRC,A8
0x000ca0…120cc0 [0x642]: Pad {f00=0x0020, f01=0x0190, f02=» P LD A4,TASFDB FDB ADDR 0 P LD A5,FDBCRL,A4 CRN BUF ADR 0 " P RF(Z) DMT553 NO CRN 0 F P CM FDBCRL,A4 0 b P INH 0 x P LD A6,CRNQUE 0 P STR A6,A5 0 P ST A5,CRNQUE 0 P ENB 0 PDMT553 EQU * 0 P ANKL A2,/1000 BIT 3 = EOF 0 0 P RF(NZ
0x000ca0…120cc0 [0x643]: Pad {f00=0x0020, f01=0x018e, f02=»60 EQU * 0 P* 1 P* RECORD READ,READ NEXRT 1 P* 1 < P LD A2,ECBRL,A8 1 F P ADS A2,ECBBA,A8 REC LENGTH 1 ^ P RB DMT550 READ NEXT RECORD 1 PDMT570 EQU * 1 P ENB 1 P LDK A7,3 NOT SUFF SPACE 1 P RB DMT555 1 P EJECT 1 PDMT5
0x000ca0…120cc0 [0x644]: Pad {f00=0x0020, f01=0x0190, f02=» 1 v " P LD A3,TASSPW TTAB ADR DMTASK 2 P CM TTB:TD+2,A3 DELETE ENTRY 2 . P CM TTB:TD+4,A3 2 R P LD A3,TASFDB FDB ADDR 2 j P LDKL A2,/FFFE 2 " P ANRS A2,A3 CLEAR FDB USE BIT 2 ( P CM TASFDB EXT 0 NOT FOUND FOR INDEX 2 P LDK A1,16 2 & P ST A1,T
0x000ca0…120cc0 [0x645]: Pad {f00=0x0020, f01=0x0190, f02=» P EJECT 3 PDMT600 EQU * 3 P* 3 & P* INDEX FILE ASSIGN 3 0 P* 3 N P LDK A7,10 RET CODE 3 X & P LD A10,TASFDD FDB ADDR DATA FILEP 3 t P RF(Z) DMT650 NO DATA FILE 3 P* 3 * P* STORE INDEX ADDR IN FDB DATA FILE 3 P* 3 P INH I
0x000ca0…120cc0 [0x646]: Pad {f00=0x0020, f01=0x018e, f02=»20 EQU * 3 P SUK A3,2 4 $ P RF(N) DMT640 MORE THAN 4 INDEX 4 " P LDR A6,A10 4 J P ADR A6,A3 4 ^ P LD A2,FDBAI1,A6 4 p P RB(NZ) DMT620 USED 4 * P ST A12,FDBAI1,A6 STORE FDB ADDR INDEX 4 P* 4 < P* MOVE FDB ADDRESSES FROM DATA FILE TO ALL I
0x000ca0…120cc0 [0x647]: Pad {f00=0x0020, f01=0x018e, f02=» P LDR A1,A10 FDB DATA 5 P ADR A1,A5 5 $ P LD A3,FDBAI1,A1 FDB ADDR INDEX 5 2 P RB(Z) DMT625 NO INDEX FILE 5 Z P LDKL A1,FDBADF 5 ~ P ADR A3,A1 TO ADDR 5 P ADR A1,A10 FROM ADDR 5 P LDK A2,10 NO OF BYTES 5 P CF A14,DMTWM MOVE 5 WORDS 5
0x000ca0…120cc0 [0x648]: Pad {f00=0x0020, f01=0x0190, f02=» P LD A1,TASMXA 6 ( P ST A1,FDBMIA,A12 MASTER INDEX ADDR 6 P RF DMT720 6 F ( PDMT639 ADK A7,2 A7=13=OTHER REQ BUSY 6 X * PDMT640 ADK A7,1 A7=11=4 INDEX ALREADY 6 $ PDMT650 EQU * A7=10=NO DATA FILE 6 P ABL DMTASX 6 P XIF 6 P EJECT 6 " PDM
0x000ca0…120cc0 [0x649]: Pad {f00=0x0020, f01=0x0190, f02=» SLL A1,1 6 $ P ORS A1,FDBDBR,A12 DELAY + BASIC 7 PDMT720 EQU * 7 : P* 7 N ( P* SET FDBMRN TO MAX REC NO IN FILE 7 X P* 7 P LDR A1,A12 7 P ADKL A1,FDBNIF 7 P ADKL A1,EXTELE-2 7 PDMT750 SUKL A1,EXTELE 7 P LDR* A2,A1 EXT BASE 7
0x000ca0…120cc0 [0x64a]: Pad {f00=0x0020, f01=0x0190, f02=» 7 ~ P LDR A1,A12 8 " P CF A14,GTLGRN GET LOG REC NO 8 P LDK A1,0 8 B " P LC A1,FDBBLF,A12 BLOCK FACTOR 8 T P SUK A1,1 8 z P ADR A3,A1 8 P RF(O) DMT760 8 P RF DMT770 8 PDMT760 ANKL A3,/7FFF 8 P ADK A2,1 CARRY 8 PDMT770 SC A2,FDB
0x000ca0…120cc0 [0x64b]: Pad {f00=0x0020, f01=0x40da, f02=»A12 REC LENGTH 8 P ADK A6,1 9 P LDK A7,0 9 ( P LC A7,FDBBLF,A12 BLOCK FACT 9 : P SUK A7,1 9 ^ P CF A14,MPYMOD A1,A2=A6*A7 9 p P ST A2,FDBMRO,A12 MAX FDBRRO 9 P ABL DMT400 9 P END 9 @ 9 8 P ADK A2,1 CARRY 8 PDMT770 SC A2,FDB
0x000ca0…120cc0 [0x64c]: Pad {f00=0x0020, f01=0x2008, f02=» : EXIT P* P ENB P LKM * P DATA 3 6 P END F@ RA2,/FFFE P " P ANRS A2,A3 CLEAR FDB USE BIT f P RF DMT430 PDMT420 EQU * P ST A12,CDTAB+2,A2 PDMT430 EQU * P LD A3,ECBBA,A8 P SUKL A3,BUFSTA
0x000ca0…120cc0 [0x64d]: Pad {f00=0x0020, f01=0x0190, f02=» EQU * : P ANKL A3,/FFFE FDB ADDR ; " P RF(Z) DMT980 ALL FDBS CHECKED ; 0 P LDR* A7,A3 ; V P ANK A7,1 ; j P RB(Z) DMT920 FREE ; | P CWR A6,A3 ; P RB(E) DMT920 CURRENT FDB ; P LDK A7,4 EXTENT COUNTER ; P LDR A2,A3 FDB ADDR ; P ADK
0x000ca0…120cc0 [0x64e]: Pad {f00=0x0020, f01=0x0190, f02=» RB(N) DMT920 ALL EXTENTS CHECKED ; P ADKL A2,EXTELE < * P CCR A4,A2 VOLUME CODE < B ( P ABL(E) DMT880 CODE USED. NO UNLOCK < ` P RB DMT930 NEXT EXTENT < P* < & P* ALL FSDBS CHECKED. MAKE UNLOAD < P* < PDMT980 EQU * < P ENB ENB <
0x000ca0…120cc0 [0x64f]: Pad {f00=0x0020, f01=0x0190, f02=»DE < z P LDK A7,/B8 UNLOAD WAIT = P LKM = * P DATA 1 = 6 P LD A1,ECBRC,A8 = F P ANK A1,1 INOPER = ^ P ABL(NZ) DMTERR = v P ABL DMT880 CHECK NEXT EXT = P XIF = P EJECT = " PDMT500 EQU * READ VTOC RECORD = P* = " P LD A2,VTOCRL VT
0x000ca0…120cc0 [0x650]: Pad {f00=0x001d, f01=0x0190, f02=» P* P IFF QNBUF=1 P IFF QNBUF=2 & P IFF QNBUF=3 : P IFF QNBUF=4 N PBUF5 DATA BUF6 b P DATA 0,0,0 x P RES 205 P XIF P* P* P IFT QNBUF=5 PBUF6 EQU BUF1 P XIF P* P* P IFF
0x000ca0…120cc0 [0x651]: Pad {f00=0x001d, f01=0x0008, f02=»
0x000ca0…120cc0 [0x652]: Pad {f00=0x001d, f01=0x0190, f02=» 0 P IDENT DMBUF REL 8.2 78-09-15 870105040820 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* DMBUF = DATA MANAGEMENT BUFFER AREAS P* P* P*
0x000ca0…120cc0 [0x653]: Pad {f00=0x001d, f01=0x018e, f02=»FOR DMTASK v P* . P* A ROUTINE DMTGBU TO GET A DISC BUFFER P* N L P* BY MEANS OF CONDITIONAL ASSEMBLY QNBUF NUMBER OF BUFFERS WILL BE ALL X P* P* MAX VALUE OF QNBUF IS 16 P* > P* AT LEAST TWO BUFFERS PER DISC DRIVE MU
0x000ca0…120cc0 [0x654]: Pad {f00=0x001d, f01=0x018e, f02=» ( P ENTRY CURBUF CURRENT BUFFER POINTER P ENTRY BUFLNK BUFFER LINK 4 P ENTRY BUFDMI DMTASK IDENT V P ENTRY BUFFC FILE CODE x P ENTRY BUFSNR SECTOR NO P ENTRY BUFOR ORDER * P ENTRY BUFSTA DATA AREA START ADDRESS P ENTRY DMTGB
0x000ca0…120cc0 [0x655]: Pad {f00=0x001d, f01=0x0190, f02=» P EJECT $ PX:A EQU 8 NUMBER OF DISC BUFFERS PQNBUF EQU 02 : P* N P* X PCURBUF DATA BUF1 b PNEWBUF DATA 0 z P* P* PBUFLNK EQU 0 2 PBUF1 DATA BUF2 BUFFER LINK STATUS IN BIT 15 PBUFDMI EQU *-BUF1 DMI
0x000ca0…120cc0 [0x656]: Pad {f00=0x001d, f01=0x0190, f02=»-WORD | " P DATA 0 BUFFER STATUS,DM ORDER ( PBUFSTA EQU *-BUF1 DATA BUFFER START 4 P RES 205 ` P* p P* z P IFT QNBUF=1 PBUF2 EQU BUF1 P XIF P* P* P IFF QNBUF=1 PBUF2 DATA BUF3 P DATA 0,0,0
0x000ca0…120cc0 [0x657]: Pad {f00=0x001d, f01=0x0190, f02=»=1 P IFF QNBUF=2 PBUF3 DATA BUF4 P DATA 0,0,0 4 P RES 205 H P XIF X P* d P* n P IFT QNBUF=3 x PBUF4 EQU BUF1 P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 PBUF4 DATA BU
0x000ca0…120cc0 [0x658]: Pad {f00=0x001d, f01=0x0190, f02=» P* P IFF QNBUF=1 P IFF QNBUF=2 & P IFF QNBUF=3 : P IFF QNBUF=4 N PBUF5 DATA BUF6 b P DATA 0,0,0 x P RES 205 P XIF P* P* P IFT QNBUF=5 PBUF6 EQU BUF1 P XIF P* P* P IFF
0x000ca0…120cc0 [0x659]: Pad {f00=0x001d, f01=0x0190, f02=» P RES 205 P XIF P* P* * P IFT QNBUF=6 4 PBUF7 EQU BUF1 H P XIF ^ P* j P* t P IFF QNBUF=1 ~ P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 PBUF7 DATA BUF8
0x000ca0…120cc0 [0x65a]: Pad {f00=0x001d, f01=0x0190, f02=»* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 2 P IFF QNBUF=4 F P IFF QNBUF=5 Z P IFF QNBUF=6 n P IFF QNBUF=7 PBUF8 DATA BUF9 P DATA 0,0,0 P RES 205 P XIF P* P* P IFT QNBUF=8 PBUF9 E
0x000ca0…120cc0 [0x65b]: Pad {f00=0x001d, f01=0x0190, f02=»NBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 " P IFF QNBUF=8 6 PBUF9 DATA BUF10 J P DATA 0,0,0 b P RES 205 v P XIF P* P* P IFT QNBUF=9 PBUF10 EQU BUF1 P XIF P* P* P IFF QNBUF=1 P IFF Q
0x000ca0…120cc0 [0x65c]: Pad {f00=0x001d, f01=0x0190, f02=» IFF QNBUF=9 PBUF10 DATA BUF11 P DATA 0,0,0 , P RES 205 @ P XIF P P IFT QNBUF=10 PBUF11 EQU BUF1 r P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5
0x000ca0…120cc0 [0x65d]: Pad {f00=0x001d, f01=0x018e, f02=»0,0,0 P RES 205 P XIF P IFT QNBUF=11 * PBUF12 EQU BUF1 @ P XIF V P* b P* l P IFF QNBUF=1 v P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNB
0x000ca0…120cc0 [0x65e]: Pad {f00=0x001d, f01=0x0190, f02=» P XIF P IFT QNBUF=12 PBUF13 EQU BUF1 & P XIF < P* H P* R P IFF QNBUF=1 P IFF QNBUF=2 p P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 P IFF QNBUF=9
0x000ca0…120cc0 [0x65f]: Pad {f00=0x001d, f01=0x0190, f02=»IF P IFT QNBUF=13 PBUF14 EQU BUF1 P XIF 6 P* B P* L P IFF QNBUF=1 V P IFF QNBUF=2 j P IFF QNBUF=3 ~ P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 P IFF QNBUF=9 P
0x000ca0…120cc0 [0x660]: Pad {f00=0x001d, f01=0x0190, f02=»ES 205 P XIF P IFT QNBUF=14 PBUF15 EQU BUF1 0 P XIF F P* R P* P IFF QNBUF=1 f P IFF QNBUF=2 z P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 P IFF
0x000ca0…120cc0 [0x661]: Pad {f00=0x001d, f01=0x0190, f02=»TA BUF16 P DATA 0,0,0 P RES 205 $ P XIF 4 P IFT QNBUF=15 @ PBUF16 EQU BUF1 V P XIF l P* x P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF Q
0x000ca0…120cc0 [0x662]: Pad {f00=0x001d, f01=0x0190, f02=» P IFF QNBUF=14 P IFF QNBUF=15 PBUF16 DATA BUF1 4 P DATA 0,0,0 L P RES 205 ` P XIF p P EJECT | P* P************** P* DMTGBU * P************** P* * P* ENTRY DMTGBU GET A DISC BUFFER
0x000ca0…120cc0 [0x663]: Pad {f00=0x001d, f01=0x0190, f02=» $ P* OUTPUT A3 = BUFFER ADDRESS J P* SKIP RETURN (+2) IF SECTOR MUST BE READ INTO BUFFER AT A3 0 , P* A5 AND A7 WILL BE DESTROYED ~ P* 8 P* CURBUF, BUFDMI, -FC AND -SNR WILL BE SET < P* STATUS USE
0x000ca0…120cc0 [0x664]: Pad {f00=0x001d, f01=0x0190, f02=» FOR IS ALREADY PRESENT IN ANY FREE BUFFER. F P* IF THIS SECTOR IS NOT FOUND A FREE SECTOR MUS BE FOUND AND IN 4 P* ~ P* P* PDMTGBU EQU * P INH INH P* 4 P* CHECK IF THIS SECTOR IS FOUND IN ANY BUFFER P*
0x000ca0…120cc0 [0x665]: Pad {f00=0x001d, f01=0x0190, f02=»NG VOLUME ~ P CW A2,BUFSNR,A3 P RF(E) DMT050 SAME SECTOR NO * PDMT020 EQU * N P LDK A7,/01 b & P AN A7,BUFLNK,A3 STATUS IN BIT 15 v P RF(NZ) DMT041 USED P IM BUFOR,A3 MAKE OLDER P RF(P) DMT030 P LDK A7,/FF P ST
0x000ca0…120cc0 [0x666]: Pad {f00=0x001d, f01=0x0190, f02=» PDMT041 EQU * P CW A3,CURBUF * P RB(NE) DMT010 MORE BUFFERS TO SERARCH 2 P LDR A5,A5 ` P RF(NZ) DMT043 BUFFER FOUND r P LDK A1,3 LAMP 10 AND 11 P CF A15,HALT NO MORE BUFFERS PDMT043 LD A3,NEWBUF P* * P* SET CU
0x000ca0…120cc0 [0x667]: Pad {f00=0x001d, f01=0x0190, f02=»A2,BUFSNR,A3 SECTOR NUMBER PDMT050 EQU * " " P CM BUFOR,A3 RESET OLD-COUNTER 6 P ST A3,CURBUF P LDK A7,/01 r ( P ORRS A7,A3 SET STATUS USED BIT 15 P ENB ENB P RTN A14 P EJECT P* P************** P* DMTR
0x000ca0…120cc0 [0x668]: Pad {f00=0x001d, f01=0x0190, f02=»ESS t P* A2 IS DESTROYED P* 0 P* : PDMTRBU EQU * D P LDKL A2,/FFFE X P ANRS A2,A3 SET OFF BIT 15 n P RTN A14 P* P* ( PCLRBUF EQU * CLEAR ALL FREE BUFFERS @ P******************************************
0x000ca0…120cc0 [0x669]: Pad {f00=0x001d, f01=0x40a8, f02=»UFLNK,A3 P RF(NZ) DMT750 USED P CM BUFDMI,A3 REMOVE , PDMT750 CW A3,CURBUF H P RB(NE) DMT700 MORE BUFFERS d P RTN A14 P END @ P* ( PCLRBUF EQU * CLEAR ALL FREE BUFFERS @ P******************************************
0x000ca0…120cc0 [0x66a]: Pad {f00=0x001d, f01=0x2008, f02=» P* DMTRBU * P************** " P* 8 . P* ENTRY DMTRBU RELEASE A DISC BUFFER B P* t $ P* INPUT A3 = BUFFER ADDRESS ~ P* A2 IS DESTROYED P* P* PDMTRBU EQU * P LDKL A2,/FFFE P A
0x000ca0…120cc0 [0x66b]: Pad {f00=0x001d, f01=0x0190, f02=»ENTIAL READ ~ P* $ P* FIND CRN+1 AND TEST IF > LRN P* F P LDR A1,A6 FDB ADDR P " P CF A14,CRNGET GET CRN-BUFFER l P LDK A1,0 P LC A1,CRNCDF+1,A2 & P LD A2,CRNCDF+2,A2 CURR LOG REC NO P ADK A2,1 CRN+1 P RF(O) SEQ
0x000ca0…120cc0 [0x66c]: Pad {f00=0x001d, f01=0x0190, f02=» * P SC A1,ECBCW+3,A8 REC NO P ST A2,ECBCW,A8 * P* B $ P* CONTINUE AS FOR RANDOM READ L P* t P EJECT ~ PRANREAD EQU * RANDOM READ P* $ PRANREB EQU * RAND READ REL BUFF P* P* TEST IF ECBRL <= 0 P*
0x000ca0…120cc0 [0x66d]: Pad {f00=0x001d, f01=0x0190, f02=» * P RF(NP) TIODME ERROR RETURN IF RL <= 0 P* 6 * P* EA MUST NOT BE SET FOR OTHER TASK @ P* n P LDR A1,A6 FDB ADDR x P CF A14,EATEST P LDR A4,A4 RTN INF P RF(N) TIODPE EA OTHER TASK P RF TIODMA P EJECT PIX
0x000ca0…120cc0 [0x66e]: Pad {f00=0x001d, f01=0x0190, f02=» ECBCW h P* P* * P* CALCULATE NUMBER DOF SPARE RECORDS " P* P P LDR A5,A6 SAVE FDB ADDR Z P LDK A1,0 z P LC A1,FDBMRN,A6 LAST REC NR P LD A2,FDBMRN+1,A6 P LDK A6,0 P LC A6,FDBLRN,A5 P LD A7,FDBLRN+1,A5 LRN
0x000ca0…120cc0 [0x66f]: Pad {f00=0x001d, f01=0x018e, f02=» ST A2,ECBEL,A8 NR OF SPARE P LDR A6,A5 FDB ADDRESS $ P LDK A1,0 B P LC A1,FDBLRN,A6 T P LD A2,FDBLRN+1,A6 LRN l P IFT INDXAC=1 P RF IXR020 STORE LOG REC NO P EJECT $ PIXRDNX EQU * INDEXED EREAD NEXT P* P* GE
0x000ca0…120cc0 [0x670]: Pad {f00=0x0015, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x671]: Pad {f00=0x0015, f01=0x0004, f02=»
0x000ca0…120cc0 [0x672]: Pad {f00=0x0015, f01=0x018e, f02=» 0 P IDENT DMFDB REL 8.2 78-09-15 870105040820 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* , P* DMFDB = FILE DESCRIPTOR BLOCKS FDB P* P* P*
0x000ca0…120cc0 [0x673]: Pad {f00=0x0015, f01=0x0190, f02=» H P* BY MEANS OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED P* P P ENTRY FDBSTA Z P ENTRY FDBEND p P ENTRY QFDBFL P ENTRY CRNQUE,CRBUFL P ENTRY CRNEND P ENTRY MXIND P EJECT P* 6 P* MXSIZ IS THE
0x000ca0…120cc0 [0x674]: Pad {f00=0x0015, f01=0x0190, f02=» EQU 12 SIZE CRN BUFFER P* < P* CRNBAR IS THE SIZE OF THE CRN BUFFER ARERA IN WORDS * 4 P* WHERE CRBUFL BYTES ARE USED FOR EACH BUFFER j P* PX:B EQU 50 " PCRNBAR EQU 00180 CURRENCY AREA P* P* PX:A EQU 250
0x000ca0…120cc0 [0x675]: Pad {f00=0x0015, f01=0x0190, f02=»AR EQU 00245 P* & PQFDBFL EQU 96 FDB FIX PART LENGTH P* H P EJECT R P* ` PFDBSTA EQU * j P RES QFDBAR ~ PFDBEND EQU * PCRNQUE DATA 0 CRN LINK ROOT P RES CRNBAR PCRNEND EQU * * PMXIND DATA MXINDE-* LENG
0x000ca0…120cc0 [0x676]: Pad {f00=0x0015, f01=0x40e4, f02=»0,0,0,0,0,0,0,0,0,0 ~ * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 P XIF J PMXINDE EQU * END INDEX INDEX V 2 P DATA 0,0 SIGNIFICANT ZEROES AFTER INDEXINDEX z PMXAR EQU * P RES MXSIZ P END @ EQU * * PMXIND DATA MXINDE-* LENG
0x000ca0…120cc0 [0x677]: Pad {f00=0x0015, f01=0x2008, f02=» PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * 2 P END F@ R OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED J P* P ENTRY FDBLEN P ENTRY FDBSTA P ENTRY FDBEND P ENTRY QFDBFL P* P* ,
0x000ca0…120cc0 [0x678]: Pad {f00=0x0055, f01=0x0190, f02=» u x P ABL DMTEX2 v P EJECT v * PDEL000 EQU * DELETE INDEX RECORD CONT v * P LDR A12,A5 USER ECB ADDR v X P LDR A2,A2 v z PDEL010 EQU * v " P ABL(NZ) DMI030 KEY NOT FOUND v P* v P* CHECK RECORD NR DATA REC v P* v PDEL020 EQU *
0x000ca0…120cc0 [0x679]: Pad {f00=0x0055, f01=0x0002, f02=»
0x000ca0…120cc0 [0x67a]: Pad {f00=0x0055, f01=0x0190, f02=» J F IDENT BLOK:S REL 8.2 78-09-15 870105040820 BLOK:SK BLOCKE R BLOK:SK l , ( I $ , ( $ ! * 0 6 < B , ( I$ A H N T Z `
0x000ca0…120cc0 [0x67b]: Pad {f00=0x0055, f01=0x40b2, f02=» p , ( I , ( $ @ BLOCKE p @ $ ! * 0 6 < B , ( I$ A H N T Z `
0x000ca0…120cc0 [0x67c]: Pad {f00=0x0055, f01=0x2008, f02=»
0x000ca0…120cc0 [0x67d]: Pad {f00=0x0055, f01=0x0190, f02=» z P SU A2,FDBRRO,A6 NR OF CHAR { P CF A14,DMTBM MOVE { , P* { F P* SET LAST RECORD FREE { P P* { p P ADR A3,A11 { z P SUK A3,1 { P LDK A1,0 { P SCR A1,A3 STATUS FREE { P* { $ P* UPDATE CRN FOR MOVED RECORDS { P* {
0x000ca0…120cc0 [0x67e]: Pad {f00=0x0055, f01=0x0190, f02=»RO,A6 OLD OFFSET { P LD A4,FDBMRO,A6 | P ST A4,FDBRRO,A6 MAX OFFSET | 0 $ P CF A14,GTLGRN LAST REC NR MOVED | T P LDR A8,A2 | | P LDR A9,A3 REC NR | " P ST A12,FDBRRO,A6 RESET OFFSET | P LDKL A12,-1 | & P CF A14,CRNUPD UPDATE CRN BUFFERS | $
0x000ca0…120cc0 [0x67f]: Pad {f00=0x0055, f01=0x0190, f02=»A5 FDB | P CF A14,GTLGRN GET REC NR } P LDR A1,A2 } 0 P LDR A2,A3 } B P LDK A6,0 } T P LDK A7,1 } f $ P CF A14,DSUMOD A1,A2 = A1,A2 - 1 } x P RF(Z) DEL600 FILE START } P LDR A6,A5 FDB ADDR } P CF A14,CALSNO GET SECTOR NR } P LDR A5,A6
0x000ca0…120cc0 [0x680]: Pad {f00=0x0021, f01=0x018e, f02=»1,ECBRC,A9 SET RC BUT CONTINUE = , P LD A2,ECBRL,A9 MOVE WHAT USER TOLD YOU > & PDMT510 EQU * > V P ST A2,ECBEL,A9 > j P CF A14,DMTREM MOVE RECORD > PDMAEX EQU * > P ABL DMTAEX EXIT > P EJECT > " PDMSQWR EQU * SEQUENTIAL WRITE > P* >
0x000ca0…120cc0 [0x681]: Pad {f00=0x0021, f01=0x0002, f02=»
0x000ca0…120cc0 [0x682]: Pad {f00=0x0021, f01=0x0190, f02=» 0 P IDENT DFTAB REL 8.2 78-09-15 870105040820 P UPDATE #0 76.10.07 8 P* V 8 P**************************************************** ` P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P*
0x000ca0…120cc0 [0x683]: Pad {f00=0x0021, f01=0x40de, f02=»************************ t P* P* DISC FILE CODE TABLE * P* J P ENTRY DFTAB T P ENTRY DFTABE h P* ~ P* PDFTAB EQU * P DATA /F0F1 PDFTABE EQU * P END @ TAB = DISC FILE CODE TABLE P*
0x000ca0…120cc0 [0x684]: Pad {f00=0x0021, f01=0x2008, f02=» NT DFTAB P* P* DISC FILE CODE TABLE " P* B P ENTRY DFTAB L P ENTRY DFTABE ` P* v P* PDFTAB EQU * P DATA /F0F1 PDFTABE EQU * P END @ END P ENTRY QFDBFL P* P* ,
0x000ca0…120cc0 [0x685]: Pad {f00=0x0021, f01=0x0190, f02=» j , ( I ( & , ( e@ @ (T A " 0" : , ( U _ L !SS j TASCXOL * & P !LL W L @ , A TASSEX , ( $ ,V P E
0x000ca0…120cc0 [0x686]: Pad {f00=0x0021, f01=0x0190, f02=» , ( @ 2P 4 2% P R 6 FDBVTO 4 FDBMIA F , ( D X T R 8 @ "T R :T @ X , ( ! ( 6 4 2% QFDBFLR , ( = DP 2 < DWTST
0x000ca0…120cc0 [0x687]: Pad {f00=0x0021, f01=0x0190, f02=» D E 3 P S ~ FDBRLE FDBBLF 0 * & F P S F P S H P S B FDBNIFL p FDBKA , ( $ J P % S L P & S N @ " S , ( 8 B | p @ , ( ,T W 2
0x000ca0…120cc0 [0x688]: Pad {f00=0x002b, f01=0x0190, f02=»=(I-1)*EL | P SRC A1,1 P ORR A2,A1 GET MOST SIGN BIT $ PFND025 EQU * H " P ADR A2,A5 ADD MI BASE ADR - 2 P ADK A2,2 ENTRY KEY ADR P LDR A1,A2 SAVE ENTRY ADR P LDR A3,A8 SEARCH KEY ADR P LDR A6,A11 MAX KEY LENGTH P L
0x000ca0…120cc0 [0x689]: Pad {f00=0x002b, f01=0x000c, f02=» ` h p x
0x000ca0…120cc0 [0x68a]: Pad {f00=0x002b, f01=0x0190, f02=» 2 P IDENT DMSUBX REL 8.2 78-09-15 870105040820 P : * P BUF HANDL + SEQ L. 230-250,317-325 B P REL 8.1 78-04-21 p P* 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P*
0x000ca0…120cc0 [0x68b]: Pad {f00=0x002b, f01=0x018e, f02=»************************************ 8 P****THIS MODULE IS ACTIVATED FROM :***************** , P* h P* DMTASK r P* P*************** P* ENTRIES * P*************** P* P ENTRY FNDKMX,CHKKEY P ENTRY RDNXTR
0x000ca0…120cc0 [0x68c]: Pad {f00=0x002b, f01=0x0190, f02=» | P* P EXTRN MPYMOD : P EXTRN EXTLEN,FDBECB,FDBMIA,BUFSTA,FDBRLE,FDBSNR,ECBCW ( . P EXTRN FDBRRO,FDBCEX,FDBBLF,EXTBAS,BUFSNR f . P EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF,CRNCIF 4 P EXTRN DMTIOT,GTLGRN,GTBKBU,ADDMOD,CALSNO,DMTRBU P EXTRN D
0x000ca0…120cc0 [0x68d]: Pad {f00=0x002b, f01=0x0190, f02=»Y IN A MASTER INDEX. l > P* A BINARY SEARCH IS USED. REF : KNUTH PAGE 411 ALG. U. 4 P* THE SEARCH KEY MAY BE TERMINATED WITH A /EE. ^ 0 P* THE FIRST TWO WORDS IN MASTER INDEX IS : P* - NO OF ENTRIES N $ P* - NO OF CHARACTERS PER ENTRY
0x000ca0…120cc0 [0x68e]: Pad {f00=0x002b, f01=0x0190, f02=»ESS OF SEARCH KEy P* A11 = NR OF CHAR IN KEY P* > P* CF A14,FNDKMX H P* d 8 P****EXIT PARAMETERS********************************* n P* 0 P* A1,A2 = LODGICAL RECORD NO IN INDEX FILE P* A8,A11= UNCHANGED P*
0x000ca0…120cc0 [0x68f]: Pad {f00=0x002b, f01=0x0190, f02=»* A2,A5 NO OF ENTRIES N " P RF(NP) FND045 NO MASTER INDEX P LDR A9,A2 F P ANKL A9,/1 GET BIT 15 X P SRA A2,1 v P LDR A10,A2 M=N/2 FLOOR P ADR A9,A2 I=N/2 CEILING P ADK A5,2 TABLE BASE - 2 PFND020 EQU * P LDK A2,0
0x000ca0…120cc0 [0x690]: Pad {f00=0x002b, f01=0x0190, f02=»=(I-1)*EL | P SRC A1,1 P ORR A2,A1 GET MOST SIGN BIT $ PFND025 EQU * H " P ADR A2,A5 ADD MI BASE ADR - 2 P ADK A2,2 ENTRY KEY ADR P LDR A1,A2 SAVE ENTRY ADR P LDR A3,A8 SEARCH KEY ADR P LDR A6,A11 MAX KEY LENGTH P L
0x000ca0…120cc0 [0x691]: Pad {f00=0x002b, f01=0x0190, f02=»1 M/2 FLOOR P ADR A6,A7 M/2 CEILING P LDR A3,A3 CHKKEY RTN INF 2 . P RF(NG) FND040 SEARCHED KEY LESS OR EQUAL T P* P* SEARCHED KEY GREATER P* P LDR A10,A10 M P RF(Z) FND050 SEARCH READY P ADR A9,A6 I=I+(M/2 CEIL
0x000ca0…120cc0 [0x692]: Pad {f00=0x002b, f01=0x0190, f02=»0 SEARCH READY P SUR A9,A6 I=I-(M/2 CEIL) P RB FND030 8 PFND045 EQU * NO MASTER INDEX J P LDK A1,0 n P LDK A2,1 REC NR 1 P RF FND070 PFND050 EQU * P ADR* A1,A5 ARDR NEXT ENTRY PFND060 EQU * P LDR A3,A1 ENTRY A
0x000ca0…120cc0 [0x693]: Pad {f00=0x002b, f01=0x018e, f02=»CR A1,A3 P ADK A3,1 P LCR A2,A3 " P ADK A3,1 4 P ECR A2,A2 F P LCR A2,A3 X PFND070 EQU * j P RTN A14 ~ P EJECT 8 P****DESCRIPTION************************************* P* D P* CHKKEY COMPARE TWO CHARACTER STRINGS
0x000ca0…120cc0 [0x694]: Pad {f00=0x002b, f01=0x0190, f02=» P* P* A2 = ADR OF ENTRY KEY P* A3 = ADR OF SEARCH KEY 0 * P* A6 = MAX NO OF CAHARACTERS IN KEY R 2 P* A7 = REL NO OF FIRST CHAR TO CHECK IN KEY P* P* CF A14,CHKKEY P* 8 P****EXIT PARAMETERS*****************
0x000ca0…120cc0 [0x695]: Pad {f00=0x002b, f01=0x0190, f02=»ER j ( P* = -1 WHEN SEARCH KEY IS LESS N P* A7 = REL NO OF NEXT CHAR TO CHECK = NO OF SAME CHARACTERS IN WHOLE KEY 6 " P* A6 = MAX NO OF CHAR IN KEY P* 8 P****USED REGISTERS********************************** P* P* A2-A4,A6
0x000ca0…120cc0 [0x696]: Pad {f00=0x002b, f01=0x018e, f02=» TO TEST x $ P ADR A2,A7 FIRST EC CHAR TO TEST PCHK020 EQU * 8 P LCR A4,A3 SEARCED KEY CHAR L P CCK A4,/EE00 p " P RF(E) CHK060 END OF KEY CHAR P CCR A4,A2 SC=EC? P RF(G) CHK100 SC GT TH EC " P RF(L) CHK120 SC LESS THAN EC
0x000ca0…120cc0 [0x697]: Pad {f00=0x002b, f01=0x0190, f02=» v P ADK A2,1 NXT EC TO TEST P RB CHK020 ( PCHK060 EQU * < P LDK A3,0 FOUND P P RF CHK140 h PCHK120 EQU * z $ P LDKL A3,-1 SEARCHED KEY SMALLER P RF CHK140 PCHK100 EQU * $ P LDK A3,1 SEARCHED KEY SGREATER PCHK140
0x000ca0…120cc0 [0x698]: Pad {f00=0x002b, f01=0x0190, f02=»E NEXT RECORD IN AN INDEX FILE AVAILABLE | P* IN A CORE BUFFER 0 D P* WHEN NO RECORD IS READ BEFORE, THE FIRST RECORD IN SPECIFIED L & P* SECTOR WILL BE MADE AVAILABLE P* 8 P****ENTRY PARAMETERS******************************** P*
0x000ca0…120cc0 [0x699]: Pad {f00=0x002b, f01=0x0190, f02=»FER, WHEN = -1 THE FIRST j 8 P* RECORD IN CURRENT SECTOR IS WANTED : P* A3 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN > P* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED P* A8 = ECB ADDRESS P* 8 P****EXIT
0x000ca0…120cc0 [0x69a]: Pad {f00=0x002b, f01=0x0190, f02=»+ 2 WHEN ERROR ~ P* A1 = FDB ADDRESS N P* A5 = ERROR CODE (RETURN CODE FOM PHYS I/O) WHEN NO BUFFER IS ALLOCATED 2 $ P* A2 = FDBRRO = RECORD OFFSET P* A3 = BUFFER ADDRESS * P* = 0 WHEN NO BUFFER IS ALLOCATED P* A8 = ECB ADD
0x000ca0…120cc0 [0x69b]: Pad {f00=0x002b, f01=0x0190, f02=»STACK f P* : P****************************************************** P EJECT V PRDNXTR EQU * d P LDR A10,A3 SAVE BUFFER ADDR x P RF(NZ) RDN200 BUFFER EXIST P STR A7,A14 P SUKL A14,4 P ST A6,2,A14 P* P*
0x000ca0…120cc0 [0x69c]: Pad {f00=0x002b, f01=0x018e, f02=»READY IN CORE z P* P* READ SECTOR FROM DISC P* B P LDR A10,A3 BUFFER ADDR L $ P LDK A7,/91 PHYS READ WITH WAIT l P LKM P DATA 1 & P CF A14,DMTIOZ CHECK RETURN CODES P LDR A1,A1 P RF(NZ) RDN900 ERROR P L
0x000ca0…120cc0 [0x69d]: Pad {f00=0x002b, f01=0x0190, f02=» P RF RDN940 RETURN P* P* BUFFER WAS BEFORE ( P* F PRDN200 EQU * P $ P LD A2,FDBRRO,A1 REC ORD OFFSET d P RF(NN) RDN220 NOT FIRST REC P STR A7,A14 P SUKL A14,4 P ST A6,2,A14 P RB RDN080 FIRST REC WANTED
0x000ca0…120cc0 [0x69e]: Pad {f00=0x002b, f01=0x0190, f02=»T v * P RF(NL) RDN300 THIS REC LAST IN BUFFER P* 8 , P* GET NEXT REC IN CURRENT BLOCKBUFFER B P* r $ P AD A2,FDBRLE,A1 RECOR D LENGTH | P ADK A2,1 STATUS CHAR P ST A2,FDBRRO,A1 NEW OFFSET P RF RDN950 RETURN P* 4 P
0x000ca0…120cc0 [0x69f]: Pad {f00=0x002b, f01=0x018e, f02=»,A14 P LD A3,FDBCEX,A1 EXT ADDR P LD A5,EXTBAS,A3 EXT BASE . " P AD A5,EXTLEN,A3 EXTENT LENGTH P P SUK A5,1 v $ P CW A5,FDBSNR,A1 SECT NO CURRENT , P RF(NG) RDN400 IT WAS LAST REC IN EXTENT P* P* NEW SECTOR P* P
0x000ca0…120cc0 [0x6a0]: Pad {f00=0x002b, f01=0x0190, f02=» PRDN400 EQU * P LDR A13,A8 ECB ADDR " P CF A14,GTLGRN GET LOG REC NO 8 P LDR A1,A2 ^ P LDR A2,A3 p P LDK A6,0 P LDK A7,1 P CF A14,ADDMOD NEXT REC NO P LDR A6,A5 RESTORE FDB ADDR * P CF A14,CALSNO GET NEXT REC AD
0x000ca0…120cc0 [0x6a1]: Pad {f00=0x002b, f01=0x0190, f02=»* GET NEXT SECTOR P* PRDN500 EQU * & P LDR A3,A10 BUFFER ADDR : " P CF A14,DMTRBU RELEASE BUFFER Z P LDR A1,A6 FDB ADDR P RB RDN040 NEXT SECTOR P* P* EXIT P* PRDN900 EQU * P LDR A5,A1 RET CODE
0x000ca0…120cc0 [0x6a2]: Pad {f00=0x002b, f01=0x0190, f02=»RDN960 EQU * P LDK A3,2 P ADS A3,8,A14 RET ADDR & P LDK A3,0 BUFFER ADDR D PRDN940 EQU * b P LD A6,2,A14 v P ADKL A14,4 P LDR* A7,A14 PRDN950 EQU * P RTN A14 P EJECT 8 P****DESCRIPTION***********************
0x000ca0…120cc0 [0x6a3]: Pad {f00=0x002b, f01=0x0190, f02=»Y l 6 P* IF END OF FILE, THE FIRST FREE RECORD IS FOUND P* D 8 P****ENTRY PARAMETERS******************************** N P* P* A1 = FDB ADDRESS P* A8 = SEARCH KEY ADDR & P* A11 = NO OF CHARACTERS IN KEY " P* A13= PHYSICA
0x000ca0…120cc0 [0x6a4]: Pad {f00=0x002b, f01=0x0190, f02=» FDBSNR,FDBRRO = FOUND INDEX RECORD " P* A2 = 0 WHEN KEY ISS FOUND 0 2 P* = /4000 WHEN NEXT HIGHER KEY IS FOUND V . P* = RETURN CODE WHEN KEY IS NOT FOUND 4 P* BIT 1 CAN NEVBER BE SET BY DISC DRIVER P* A3 = BUFFER ADDR
0x000ca0…120cc0 [0x6a5]: Pad {f00=0x002b, f01=0x018e, f02=»A11 = UNCHANGED P* 8 P****USED REGISTERS********************************** " P* ^ , P* A1 - A11,A13 + 4 WORDS ON A14 STACK h P* : P****************************************************** P EJECT PFNDKEY EQU * P* &
0x000ca0…120cc0 [0x6a6]: Pad {f00=0x002b, f01=0x0190, f02=» n P SUKL A14,8 & P ST A8,6,A14 SAVE SEARCH KEY ADDR 0 P CF A14,FNDKMX GET KEY ENTRY IN MASTER INDEX F P LD A6,8,A14 FDB ADDR z P CF A14,CALSNO GET PHYS ADDR P LDR A1,A1 P RF(NZ) FKY900 ERROR P LDR A1,A6 FDBADDR " P LDR A
0x000ca0…120cc0 [0x6a7]: Pad {f00=0x002b, f01=0x0190, f02=» | PFKY100 EQU * P LDR A3,A9 BUFFER ADDR $ P CF A14,RDNXTR GET INDEX RECORD : P RF FKY150 b P LDR A1,A5 RET CODE t P RF FKY900 ERROR EXIT P* " P* BUFFER AND ADATA IS FOUND P* PFKY150 EQU * P LDR A9,A3 BUF
0x000ca0…120cc0 [0x6a8]: Pad {f00=0x002c, f01=0x0190, f02=»STATUS CHAR v P LDK A5,/FF USED CHAR MARK P CCR A5,A10 STATUS CHAR 6 P RF(E) FKY200 USED RECORD V P* x & P* NO MORE RECORDS IN THIS SECTOR P* * P LD A13,FDBRRO,A1 SAVE CURRENT OFFSET P LD A4,FDBMRO,A1 & P ST A4,FDBRR
0x000ca0…120cc0 [0x6a9]: Pad {f00=0x002c, f01=0x0190, f02=»R t P LDR A6,A11 NR OF CHAR P LDR A7,A10 CHAR ADDR ( P CC A2,FDBLRN,A1 F P RB(L) FKY100 NOT EOF ^ P RF(G) FKY180 EOF | P CW A3,FDBLRN+1,A1 P RB(L) FKY100 NOT EOF PFKY180 EQU * P* P* EOF IS IN THIS SECTOR
0x000ca0…120cc0 [0x6aa]: Pad {f00=0x002c, f01=0x0190, f02=»Y950 P* " P* CHECK KEY IN THIS RECODRD P* < PFKY200 EQU * F P LD A3,6,A14 SEARCH KEY ADDR Z P CF A14,CHKKEY COMPARE KEYS ~ P LDR A3,A3 & P RF(P) FKY840 SEARCHED KEY GREATER " P RF(N) FKY850 SEARCH KEY LESS P RF FK
0x000ca0…120cc0 [0x6ab]: Pad {f00=0x002c, f01=0x0190, f02=» AT LEAST THE SAME NO OF LEADING CHARACTERS : P* THAT HAS BEEN CHECKED FOR THIS KEY ! D . P LC A7,-4,A10 REDUCE NO OF SAME CHARACTERS ! P RB FKY100 NEXT KEY ! PFKY850 EQU * ! P LDKL A2,/4000 KEY NOT FOUND ! P R
0x000ca0…120cc0 [0x6ac]: Pad {f00=0x002c, f01=0x0190, f02=»DR A2,A1 ERR CODE ! $ P LDK A7,0 NO OF SAME LEAD CHARS " PFKY950 EQU * " B P ADKL A14,8 RESTORE STACK " V P LDR* A1,A14 FDB ADDR " x P LDR A3,A9 BUFFER ADDR " P RTN A14 " P EJECT " P* " J P* CRNUPD UPDATES CRN-BUFFERS SO THAT RECORD
0x000ca0…120cc0 [0x6ad]: Pad {f00=0x002c, f01=0x0190, f02=» A10,A11= FIRST RECORD NR MOVED " P* A5 = FDB ADDR INDEX # ( & P* A12 = ADD PARAMETER +1, -1 # L P* # v P* USED REGISTERS: # P* A1 -A12 # P* # P* OUT: # P* A5 = FDB ADDR INDEX # P* A10,A11 = UNCHANGED # P
0x000ca0…120cc0 [0x6ae]: Pad {f00=0x002c, f01=0x0190, f02=»RL,A12 CRN LINK ROOT # P RF CRU120 $ PCRU100 LDR* A12,A12 $ . $ PCRU120 RF(Z) CRU900 END OF LINK $ J P LC A7,FDBECB+1,A5 FILE CODE $ r P CC A7,CRNCIF,A12 $ P RB(NE) CRU100 WRONG FC $ P CC A10,CRNCIF+1,A12 $ P RB(G) CRU100 $ P RF(L) C
0x000ca0…120cc0 [0x6af]: Pad {f00=0x002c, f01=0x0190, f02=» RB(L) CRU100 $ P CW A9,CRNCIF+2,A12 % P RB(L) CRU100 % 2 PCRU300 EQU * % H P* % P* UPDATE CRN % f P* % | P LD A7,2,A14 ADD PARAM % P LDR A6,A7 % P RF(N) CRU230 -1 % P LDK A6,0 % PCRU230 EQU * % P ANKL A7,/7FFF % P
0x000ca0…120cc0 [0x6b0]: Pad {f00=0x002c, f01=0x4078, f02=»CIF+2,A12 % P RB CRU100 & PCRU900 EQU * & $ P ADKL A14,2 & 8 P ENB & L P RTN A14 & X P END & h@ & t
0x000ca0…120cc0 [0x6b1]: Pad {f00=0x002c, f01=0x2008, f02=» ' + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* + P
0x000ca0…120cc0 [0x6b2]: Pad {f00=0x002c, f01=0x0190, f02=» * P IDENT INTLT4 REL=8.1 DATE=78-04-01 P* 2 @ P* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 < P* FOR LOCAL TERMINALS D P* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEVICES CONNECTED TO A SPECIF
0x000ca0…120cc0 [0x6b3]: Pad {f00=0x002c, f01=0x40f0, f02=»TRY z P* P* TERMINAL PARAMETERS P* 6 P* @ , P* RIGHT BYTE = 2 * NUMBER OF DEVICES J P* z P* P* P* PINTLT4 EQU * TABLE ENTRY P* P* P* P END @ ICES CONNECTED TO A SPECIF
0x000ca0…120cc0 [0x6b4]: Pad {f00=0x002c, f01=0x2008, f02=» NAL PARAMETERS 0 P* LEFT BYTE = 2 * NUMBER OF INPUT DEVICES 4 P* AND DEVICES WITH DATA REQUESTS R , P* RIGHT BYTE = 2 * NUMBER OF DEVICES P* 4 P* NOTE: PRINTERS ARE TREATED AS INPUT DEVICES P* P*
0x000ca0…120cc0 [0x6b5]: Pad {f00=0x002c, f01=0x0190, f02=»: DWT-ADDRESS P* A7: ORDER " P* A8: ECB-ADDRESS 6 P* P* f P* SYSTEM ADAPTATION p P* P EJECT P* P* P*********************** P* ENTRIES * P****************
0x000ca0…120cc0 [0x6b6]: Pad {f00=0x002c, f01=0x0190, f02=» * p * P************************************* P EXTRN SAVE8 SAVE REGS : P EXTRN TENDIO END I/O X . P EXTRN DISEND PERFORM END I/O AND DISPATCH v " P EXTRN TDISP DISPATCHER ENTRY P EXTRN OUTPUT OUTPUT CHAR. * P EXTRN LDREG LOAD REGISTER
0x000ca0…120cc0 [0x6b7]: Pad {f00=0x002c, f01=0x0190, f02=»OR ORDER * P EXTRN ECHRTN RETURN FROM ECHO ROUTINE P* > P* H $ P******************************* R $ P* CONSTANTS * z $ P******************************* P* PDWTBC EQU /3 P* P************************
0x000ca0…120cc0 [0x6b8]: Pad {f00=0x002c, f01=0x0190, f02=» LABEL = RL 8.1:1 DATE = 78-03-03 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x6b9]: Pad {f00=0x002c, f01=0x0004, f02=»
0x000ca0…120cc0 [0x6ba]: Pad {f00=0x002c, f01=0x0190, f02=» 2 P IDENT ADDMOD REL 8.2 78-09-15 870105040820 P* LREK 78-02-20 : P* T 8 P**************************************************** ^ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* P
0x000ca0…120cc0 [0x6bb]: Pad {f00=0x002c, f01=0x0190, f02=»THIS ROUTINE EXECUTES THE DOUBLE ADDITION INSTRUCTION ON THE ALPHA P* COMPUTER J P*CALLING SEQUENCE: $ P* A1-A2 = ARG1 v $ P* AG-A7 = ARG2 P* CF A14,ADDMOD & P*RETURN : RESULT IN A1-A
0x000ca0…120cc0 [0x6bc]: Pad {f00=0x002c, f01=0x0190, f02=» ANK.L A7,/7FFF P ANK.L A2,/7FFF P ADR A2,A7 > P RF(3) OVER1 ^ 0 PNOVER ADR A1,A6 * NO OVERFLOW ~ P RF(1) END1 P RF(2) END2 P RF(3) END3
0x000ca0…120cc0 [0x6bd]: Pad {f00=0x002c, f01=0x0190, f02=» ADK A1,1 P RF(3) OVER3 P RB(7) NOVER 6 POVER3 ADR A1,A6 V P RF(2) END3 v P ADK A1,0 P RF(1) END1 P RB(7) NOVER1 PEND3 ADK A3,/80
0x000ca0…120cc0 [0x6be]: Pad {f00=0x002c, f01=0x40ee, f02=»**** V P ANK.L A3,/0300 P LDK.L A4,/FCFF . P AN.S A4,2,A14 P B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM r P RTN A14 P END @ PEND3 ADK A3,/80
0x000ca0…120cc0 [0x6bf]: Pad {f00=0x002c, f01=0x2008, f02=» ANK.L A3,/0300 P LDK.L A4,/FCFF * P AN.S A4,2,A14 L B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM n P RTN A14 P END @ D1 P RB(7) NOVE
0x000ca0…120cc0 [0x6c0]: Pad {f00=0x002d, f01=0x0190, f02=» LABEL = RL 8.1:1 DATE = 78-03-03 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x6c1]: Pad {f00=0x002d, f01=0x0002, f02=»
0x000ca0…120cc0 [0x6c2]: Pad {f00=0x002d, f01=0x0190, f02=» 0 P IDENT DFTAB REL 8.1 78-04-21 870105040810 P UPDATE #0 76.10.07 8 P* V 8 P**************************************************** ` P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P*
0x000ca0…120cc0 [0x6c3]: Pad {f00=0x002d, f01=0x40fe, f02=»************************ t P* P* DISC FILE CODE TABLE * P* J P ENTRY DFTAB T P ENTRY DFTABE h P* ~ P* PDFTAB EQU * P DATA /F0F1,/F2F3 P DATA /F8F9,/FAFB PDFTABE EQU * P END @ P*
0x000ca0…120cc0 [0x6c4]: Pad {f00=0x002d, f01=0x2008, f02=» NT DFTAB P* P* DISC FILE CODE TABLE " P* B P ENTRY DFTAB L P ENTRY DFTABE ` P* v P* PDFTAB EQU * P DATA /F0F1 PDFTABE EQU * P END @ END P ENTRY QFDBFL P* P* ,
0x000ca0…120cc0 [0x6c5]: Pad {f00=0x002d, f01=0x2008, f02=» TMJOB TERMINAL STATUS P DATA 48 * 0 PTTABID EQU *-TTMJOB TERMINAL IDENTIFICATION : P DATA /8000 n PTTABPP EQU *-TTMJOB P DATA 0 * PTTABSA EQU *-TTMJOB TERMINAL SAVE AREA P DATA 0 & P DATA 0,0,0,0,0,0,0,0,0,0,0,0,
0x000ca0…120cc0 [0x6c6]: Pad {f00=0x002d, f01=0x0190, f02=» " P* MOVE CHARACTER BY CHARACTER " P***************************** . P* T PMVC EQU * ^ P LDK A3,0 LOAD HEX ZERO p PMVC020 EQU * P LDR* A5,A5 GET PACKING FORM P RF(N) MVC050 JUMP IF ASCII P LDK A3,/FF LOAD BLANKS &
0x000ca0…120cc0 [0x6c7]: Pad {f00=0x002d, f01=0x0190, f02=» A1,A7 GET BYTE FROM OP2 & PMVC100 SCR A1,A6 STORE BYTE IN OP1 $ P SUK A7,1 DECREMENT POINTER OP2 J $ P SUK A6,1 DECREMENT POINTER OP1 r P ADK A4,1 STEP UP INDEX & P RB(N) MVC050 JUMP IF NOT FINISHED PRETUR RB RETMMM P EJECT P
0x000ca0…120cc0 [0x6c8]: Pad {f00=0x002d, f01=0x2008, f02=» ,0 P RB(7) NOVER2 PEND3 ADK A3,/80 6 PEND2 ADK A3,/80 X PEND1 ADK A3,/80 z PEND0 SLL1 A3 P ANK.L A3,/0300 P LDK.L A4,/FCFF P AN.
0x000ca0…120cc0 [0x6c9]: Pad {f00=0x002d, f01=0x0004, f02=»
0x000ca0…120cc0 [0x6ca]: Pad {f00=0x002d, f01=0x0190, f02=» 2 P IDENT DSUMOD REL 8.2 78-09-15 870105040820 P* LREK 78-02-20 : P* T 8 P**************************************************** ^ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* P
0x000ca0…120cc0 [0x6cb]: Pad {f00=0x002d, f01=0x0190, f02=»THIS ROUTINE EXECUTES THE DOUBLE SUBSTRACTION INSTRUCTION ON THE ALPHA P*COMPUTER N P*CALLING SEQUENCE ` $ P* A1-A2 = ARG1 z $ P* A6-A7 = ARG2 P* CF A14,DSUMOD & P*RETURN: RESULT IN
0x000ca0…120cc0 [0x6cc]: Pad {f00=0x002d, f01=0x0190, f02=» C1R A6,A6 P C1R A7,A7 P ANK.L A7,X'7FFF' > P ANK.L A2,/7FFF b P ADK A7,1 P RF(1) NOVER1 P ADK A6,1 P RF(3) OVER4 P R
0x000ca0…120cc0 [0x6cd]: Pad {f00=0x002d, f01=0x0190, f02=» END1 P RF(2) END2 P RF(3) END3 , P ADK A2,0 J P RF(0) END0 h P RF(7) END1 POVER1 ANK.L A2,X'7FFF' P ADK A1,1 P RF(3) OVER4 P
0x000ca0…120cc0 [0x6ce]: Pad {f00=0x002d, f01=0x0190, f02=» NOVER2 PEND3 ADK A3,/80 PEND2 ADK A3,/80 4 PEND1 ADK A3,/80 V F PEND0 SLL A3,1 ************************************* x P ANK.L A3,/0300 P LDK.L A4,/FCFF P
0x000ca0…120cc0 [0x6cf]: Pad {f00=0x002d, f01=0x4014, f02=» END @ D3 ADK A3,/80 PEND2 ADK A3,/80 4 PEND1 ADK A3,/80 V F PEND0 SLL A3,1 ************************************* x P ANK.L A3,/0300 P LDK.L A4,/FCFF P
0x000ca0…120cc0 [0x6d0]: Pad {f00=0x002d, f01=0x2008, f02=» ,0 P RB(7) NOVER2 PEND3 ADK A3,/80 6 PEND2 ADK A3,/80 X PEND1 ADK A3,/80 z PEND0 SLL1 A3 P ANK.L A3,/0300 P LDK.L A4,/FCFF P AN.
0x000ca0…120cc0 [0x6d1]: Pad {f00=0x002d, f01=0x0190, f02=» b 0 P******************************************** P* < P EJECT F P* T P* A C C P ^ P* r 2 P* ACTIVATION PART: CHECH VALIDITY OF ORDERS | 4 P* AND STARTS THE PROCESSING P* PACCP EQU * P LDK
0x000ca0…120cc0 [0x6d2]: Pad {f00=0x002d, f01=0x0190, f02=»NO, SET DEV. ADR. TO RECEIPT PRINTER PACP05 EQU * , P SUK A7,/22 CUT ? @ P RF(E) ACCP30 Z P ADK A7,/1C WRITE ? p " P ABL(NE) DISIOE REQUEST ERROR P LDK A3,0 START BUFFER INDEX P LDK A4,0 PACCP10 EQU * $ P CF A15,GETCHR
0x000ca0…120cc0 [0x6d3]: Pad {f00=0x002d, f01=0x0190, f02=»QU * P LDK A2,/03 PACCP25 CF A5,OUTPUT PACCP27 CF A5,STREG < P ANK A2,/7F V P SUK A2,2 j P RF(Z) ACCP65 END OF PAPER | P SUK A7,6 P RF(NE) ACCP70 P SUK A2,2 P RF(NZ) ENDIO P LDK A2,/20 P ORS A2,
0x000ca0…120cc0 [0x6d4]: Pad {f00=0x002d, f01=0x0190, f02=» P LDK A2,/20 P ADK A3,1 P RB ACCP35 . PACCP50 LDK A2,/13 @ P ST A3,6,A8 Z P RB ACCP25 n & PACCP65 LDKL A1,/4000 RECEIPT STUCK P RF ENDIO PACCP70 SUK A2,4 P RB(E) ACCP27 PENDIO ABL DISEND P EJECT
0x000ca0…120cc0 [0x6d5]: Pad {f00=0x002d, f01=0x416e, f02=»WTST,A6 STATUS P RF(N) EXIT P LDR A1,A1 RETURN CODE * P RB(NE) ENDIO YES END I/O H P ABL LDREG j PEXIT ABL TDISP | P EJECT P* P* R C C P P* P* PRCCP EQU * P CF A15,SAVE8 P LD A7,DWTST,A6
0x000ca0…120cc0 [0x6d6]: Pad {f00=0x002d, f01=0x2008, f02=» A15,SAVE8 LD A7,DWTST,A6 RB(N) EXIT 2 LDK A1,2 F RB ENDIO X * j * t END ~@ LD A4,DWTST,A6 STATUS RF(N) EXIT LDR A1,A1 RETURN CODE RF(NE) ENDIO YES END I/O ABL LDREG
0x000ca0…120cc0 [0x6d7]: Pad {f00=0x002d, f01=0x0190, f02=»SAV INTERRUPT SAVE AREA & P EXTRN TASCII EBCDIC TO ASCII TAB & P EXTRN TEBCDIC ASCII TO EBCDIC TAB J P* t P************************ ~ P* * P* CONDITIONAL ASSEMBLY * P* * P************
0x000ca0…120cc0 [0x6d8]: Pad {f00=0x002e, f01=0x0190, f02=» A2,/7FFF P RF(7) END2 PEND3 ADK A3,/81 2 PEND2 ADK A3,/81 R PEND1 ADK A3,/81 r PEND0 SLL A3,1 P ANK.L A3,/0300 P LDK.L A4,/FCFF P AN.S A4,2
0x000ca0…120cc0 [0x6d9]: Pad {f00=0x002e, f01=0x0004, f02=»
0x000ca0…120cc0 [0x6da]: Pad {f00=0x002e, f01=0x0190, f02=» 2 P IDENT MPYMOD REL 8.2 78-09-15 870105040820 P* LREK 78-02-20 : P* T 8 P**************************************************** ^ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* P
0x000ca0…120cc0 [0x6db]: Pad {f00=0x002e, f01=0x0190, f02=»THIS ROUTINE EXECUTES THE MULTIPLY INSTRUCTION ON THE ALPLA COMPUTER P* CALLING SEQUENCE: L ( P* LD A6,ARG1 h ( P* LD A7,ARG1 P* CF A14,MPYMOD ( P* RETURN : RESULT IN A1,A2
0x000ca0…120cc0 [0x6dc]: Pad {f00=0x002e, f01=0x0190, f02=» RETURN IN ERROR EXIT d P CWR A3,A6 P RF(4) SUITE > P CWR A3,A7 ^ P RF(0) END3 ~ < P LDR A6,A7 * A6= X'8000' A7# X'8000' 4 P LDR A7,A3 * EXCHANGE A6-A
0x000ca0…120cc0 [0x6dd]: Pad {f00=0x002e, f01=0x0190, f02=» A4,15 P ADK A6,0 P RF(0) END0 0 P RF(6) ARG1PS N 0 P ADK A3,1 *ARG1 NEGATIVE n P C1R A6,A6 P ADK A6,1 PARG1PS ADK A7,0 P RF(
0x000ca0…120cc0 [0x6de]: Pad {f00=0x002e, f01=0x0190, f02=» ADK A7,1 P RF(3) CASSPE PARG2PS SRC A7,1 > P RF(6) NOVER1 P ADR A1,A6 | PNOVER1 SRA A2,1 P SRC A1,1 P RF(6) NOVER2 P ORK.L
0x000ca0…120cc0 [0x6df]: Pad {f00=0x002e, f01=0x0190, f02=» *END* RESTORE SI=N z P RF(0) END1 " P C1R A1,A1 @ P C1R A2,A2 ` P ADK A2,1 D P*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR < P* WHEN THE ADK A2,1 SET AN OVERFLOW
0x000ca0…120cc0 [0x6e0]: Pad {f00=0x002e, f01=0x0190, f02=» A2,/7FFF P RF(7) END2 PEND3 ADK A3,/81 2 PEND2 ADK A3,/81 R PEND1 ADK A3,/81 r PEND0 SLL A3,1 P ANK.L A3,/0300 P LDK.L A4,/FCFF P AN.S A4,2
0x000ca0…120cc0 [0x6e1]: Pad {f00=0x002e, f01=0x4092, f02=»6 *A7=X'8000' THEN A4= 1 z . P* *AND A1= A6 ( P RB(7) NOVER3 Z P END z@ END0 SLL A3,1 P ANK.L A3,/0300 P LDK.L A4,/FCFF P AN.S A4,2
0x000ca0…120cc0 [0x6e2]: Pad {f00=0x002e, f01=0x2008, f02=» 4 : PCASSPE LDR A1,A6 *A7=X'8000' THEN A4= 1 . P* *AND A1= A6 P P RB(7) NOVER3 P END @
0x000ca0…120cc0 [0x6e3]: Pad {f00=0x002e, f01=0x0190, f02=»FF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 & P IFF QNBUF=8 : PBUF9 DATA BUF10 N P DATA 0,0,0 f P RES 205 z P XIF P* P* P IFT QNBUF=9 PBUF10 EQU BUF1 P XIF P* P* P IFF QNBUF=1 P I
0x000ca0…120cc0 [0x6e4]: Pad {f00=0x002e, f01=0x0190, f02=» P IFF QNBUF=9 PBUF10 DATA BUF11 P DATA 0,0,0 0 P RES 205 D P XIF T P IFT QNBUF=10 ` PBUF11 EQU BUF1 v P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5
0x000ca0…120cc0 [0x6e5]: Pad {f00=0x002e, f01=0x018e, f02=»ATA 0,0,0 P RES 205 P XIF " P IFT QNBUF=11 . PBUF12 EQU BUF1 D P XIF Z P* f P* p P IFF QNBUF=1 z P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF
0x000ca0…120cc0 [0x6e6]: Pad {f00=0x002e, f01=0x018e, f02=» P XIF P IFT QNBUF=12 PBUF13 EQU BUF1 * P XIF @ P* L P* V P IFF QNBUF=1 ` P IFF QNBUF=2 t P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 P IFF QNBUF
0x000ca0…120cc0 [0x6e7]: Pad {f00=0x002e, f01=0x0190, f02=» P XIF P IFT QNBUF=13 PBUF14 EQU BUF1 & P XIF < P* H P* R P IFF QNBUF=1 P IFF QNBUF=2 p P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 P IFF QNBUF=9
0x000ca0…120cc0 [0x6e8]: Pad {f00=0x002f, f01=0x018e, f02=» P ADK A7,1 P RB(7) SHIFT " 4 P*THIS SEQUENCE RESTORES THE SIGN OF THE RESULTS B PEND LDR A2,A7 z P ADK A3,0 P RF(0) NOSIGN 8 P RF(2) AA DIVIDEND +. DIVISOR
0x000ca0…120cc0 [0x6e9]: Pad {f00=0x002f, f01=0x0004, f02=»
0x000ca0…120cc0 [0x6ea]: Pad {f00=0x002f, f01=0x0190, f02=» 2 P IDENT DIVMOD REL 8.2 78-09-15 870105040820 P* LREK 78-02-20 : P* T 8 P**************************************************** ^ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* P
0x000ca0…120cc0 [0x6eb]: Pad {f00=0x002f, f01=0x0190, f02=»THIS ROUTINE EXECUTES THE DIVIDE INSTRUCTION ON THE ALPHA COMPUTER P* CALLING SEQUENCE J & P* A1-A2= DIVIDEND d $ P* A6 = DIVISOR P* CF A14,DIVMOD B P*RETURN* RESUT IN A1-A2 ; A1= REMAINDE
0x000ca0…120cc0 [0x6ec]: Pad {f00=0x002f, f01=0x0190, f02=»1 SAVE DIVIDEND SIGN z P LDK A3,0 " P ADK A6,0 @ @ P RF(0) END3 * IF DIVISOR IS NULL, OVREFLOW ^ P ADK A1,0 P RF(4) SIGNE P ANK.L A2,/7FFF @ P
0x000ca0…120cc0 [0x6ed]: Pad {f00=0x002f, f01=0x0190, f02=» A7,0 P LDK A4,16 4 P ADK A1,0 *SIGN OF DIVIDEND 0 P RF(6) DIVENP h 8 P ADK A3,1 * DIVIDEND IS NEGATIVE P C1R A1,A1 P C1R A2,A2 P
0x000ca0…120cc0 [0x6ee]: Pad {f00=0x002f, f01=0x0190, f02=»5) END3 2 PDIVENP ADK A6,0 *SIGN OF DIVISOR P RF(6) DIVORP H 4 P SUK A3,1 *NEGATIVE DIVISOR h P C1R A6,A6 P ADK A6,1 < P ADK A6,0 RESET
0x000ca0…120cc0 [0x6ef]: Pad {f00=0x002f, f01=0x0190, f02=»SSP1 | 2 PSHIFT SUK A4,1 *A1 LESS THAN A6 P RF(0) END B P SLL A1,1 ` P SLL A7,1 ~ P SLL A2,1 P RF(6) *+4 P ADK A1,1 P ADK A1
0x000ca0…120cc0 [0x6f0]: Pad {f00=0x002f, f01=0x018e, f02=» P ADK A7,1 P RB(7) SHIFT " 4 P*THIS SEQUENCE RESTORES THE SIGN OF THE RESULTS B PEND LDR A2,A7 z P ADK A3,0 P RF(0) NOSIGN 8 P RF(2) AA DIVIDEND +. DIVISOR
0x000ca0…120cc0 [0x6f1]: Pad {f00=0x002f, f01=0x0190, f02=» P ADK A2,1 D P*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR " > P* WHEN THE ADK A2,1 SET AN OVERFLOW CR EX (QUOTIENT=8000) j P ADK A2,0 P RF(2) END2 P RF(0) END0 PEND3
0x000ca0…120cc0 [0x6f2]: Pad {f00=0x002f, f01=0x0190, f02=»******************** f P ANK.L A3,/0300 P LDK.L A4,/FCFF > P AN.S A4,2,A14 ` B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM P RTN A14 8 PNOSIGN ADK.L A8,0 TEST O
0x000ca0…120cc0 [0x6f3]: Pad {f00=0x002f, f01=0x4162, f02=» REMAINDER - x PBB ADK A2,0 P RB(0) END0 8 P RB(2) END2 V P RB(7) END1 t PCASSPE LDR A7,A1 P LDR A1,A2 P CWK A1,/8000 P RB(4) END
0x000ca0…120cc0 [0x6f4]: Pad {f00=0x002f, f01=0x2008, f02=» A2,0 P RB(0) END0 P RB(2) END2 2 P RB(7) END1 P PCASSPE LDR A7,A1 n P LDR A1,A2 P CWK A1,/8000 P RB(4) END P LDK A1,0 P
0x000ca0…120cc0 [0x6f5]: Pad {f00=0x002f, f01=0x416a, f02=»,A6 STATUS P RF(N) EXIT P LDR A1,A1 RETURN CODE & P RB(NE) ENDIO YES END I/O D P ABL LDREG f PEXIT ABL TDISP x P EJECT P* P* R C C P P* P* PRCCP EQU * P CF A15,SAVE8 P LD A7,DWTST,A6
0x000ca0…120cc0 [0x6f6]: Pad {f00=0x002f, f01=0x2008, f02=» A15,SAVE8 LD A7,DWTST,A6 RB(N) EXIT 2 LDK A1,2 F RB ENDIO X * j * t END ~@ LD A4,DWTST,A6 STATUS RF(N) EXIT LDR A1,A1 RETURN CODE RF(NE) ENDIO YES END I/O ABL LDREG
0x000ca0…120cc0 [0x6f7]: Pad {f00=0x002f, f01=0x0190, f02=»EWIND P XIF P IFT DAMA+IBM=0 P ADK A1,30 2 P RF(Z) FD:050 SEARCH KEY D P XIF d P p PFD:DIS EQU * x P ABL DISIOE REQUEST ERROR P EJECT P* P*************** P* * P* BASIC WRITE *
0x000ca0…120cc0 [0x6f8]: Pad {f00=0x002f, f01=0x0190, f02=» EQU * P LDKL A2,/8000 " P AN A2,2,A5 TASK STATUS BIT 0 $ " P RF(NZ) TEN115 DMTASK CALLING J P* p , P* RESET REQUEST BUSY BIT FOR ALL FILES z P* $ P LDKL A2,10 MAX NO OF FILES * 2 PTEN112 EQU * P SUK A2,2 P RF(N) T
0x000ca0…120cc0 [0x6f9]: Pad {f00=0x002f, f01=0x000e, f02=» (
0x000ca0…120cc0 [0x6fa]: Pad {f00=0x002f, f01=0x0190, f02=» 2 P IDENT DMSUBR REL 8.2 78-09-15 870105040820 P : $ P BUF HANDL + RC L. 496,543,551 B P REL 8.1 78-04-21 j P* 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P*
0x000ca0…120cc0 [0x6fb]: Pad {f00=0x002f, f01=0x018e, f02=»**************** l 8 P****THIS MODULE IS ACTIVATED FROM :***************** P* T P* DMTASK,TIODM,DMTASS ^ P* ~ P*************** P* ENTRIES * P*************** P* P* & P ENTRY EATEST,EASETB,EARELB,CRNGET
0x000ca0…120cc0 [0x6fc]: Pad {f00=0x002f, f01=0x0190, f02=» P***************** P* EXTERNALS * P***************** 8 P* R P* 4 P EXTRN FDBEAL,FDBTNR,FDBCRL,FDBRLE,FDBSNR,FDBRRO f P EXTRN FDBCEX,FDBBLF,FDBEXT : P EXTRN FDBECB,DWTECB,DWTOR,EXTDMI,BUFSTA,BUFDMI,BUFOR " P EXTRN ECB
0x000ca0…120cc0 [0x6fd]: Pad {f00=0x002f, f01=0x0190, f02=»XTRN EXTELE P EXTRN CRNTID P EXTRN DMTGBU * P EXTRN EXTLEN,EXTBAS @ P EXTRN CRNQUE,GETBLK,FREQUE P EXTRN HALT P EXTRN CRBUFL $ P EXTRN IHRET2,IHRTN,FDBADF,DWTST P EXTRN FDBDBR P EXTRN QIRN,QIRR P EJECT
0x000ca0…120cc0 [0x6fe]: Pad {f00=0x002f, f01=0x0190, f02=»XR,XN, DATA FILE OTHERWISE P* " PCHKIND EQU * , P STR A1,A15 @ P STR A2,A15 T " P LDK A2,1 INDEX FOR DATA FILE h P LDR A1,A7 ORDER P ANK A1,/3F P CWK A1,/20 P RF(E) FND320 DELETE INDEX P CWK A1,/1A P RF(E)
0x000ca0…120cc0 [0x6ff]: Pad {f00=0x002f, f01=0x0190, f02=» P RF FND340 ( PFND320 LDK A2,0 INDEX FOR INDEX FILE PFND340 EQU * B P CCR A2,A6 INDEX V P RF(E) FND390 ENTRY FOUND n P LDK A1,2 * P ADS A1,8,A15 RETURN+2 WHEN NOT FOUND PFND390 ABL IHRET2 P EJECT P* : P* REQE
0x000ca0…120cc0 [0x700]: Pad {f00=0x0030, f01=0x0190, f02=» EQU * P LDKL A2,/8000 " P AN A2,2,A5 TASK STATUS BIT 0 $ " P RF(NZ) TEN115 DMTASK CALLING J P* p , P* RESET REQUEST BUSY BIT FOR ALL FILES z P* $ P LDKL A2,10 MAX NO OF FILES * 2 PTEN112 EQU * P SUK A2,2 P RF(N) T
0x000ca0…120cc0 [0x701]: Pad {f00=0x0030, f01=0x0190, f02=» ADDR P RF(E) TEN114 MASTER DWT P LD A5,DWTTQ,A3 . P RF(Z) TEN113 NO QUEUE F P LDR* A4,A5 d P ST A4,DWTTQ,A3 NEW ANCHOR x P CF A15,QTJOB REPEAT REQUEST " PTEN113 LD A5,DWTTDM,A6 RESTORE PTEN114 EQU * $ P LDKL A4,/BFFF REQ
0x000ca0…120cc0 [0x702]: Pad {f00=0x0030, f01=0x0190, f02=»TEN115 EQU * P ABL IHRTN P EJECT & 8 P****DESCRIPTION************************************* 4 P* p < P* EATEST WILL SEARCH THE EA-LINK FOR A LOG RECORD NO. z P* 8 P****ENTRY PARAMETERS******************************** P* P
0x000ca0…120cc0 [0x703]: Pad {f00=0x0030, f01=0x0190, f02=»**************************** x P* $ P* A1-A3 = UNCHANGED . P* A4 = 0 NO EA AT ALL L * P* = +1 EA FOUND FOR ACTUAL TASK n * P* = -1 EA FOUND FO R OTHER TASK P* 8 P****USED REGISTERS**********************************
0x000ca0…120cc0 [0x704]: Pad {f00=0x0030, f01=0x0190, f02=»QU * P LDR* A4,A4 NEXT BUFFER ADR PEAT030 EQU * 0 $ P RF(Z) EAT100 EMPTY QUEUE,NO EA D P* l P* SEARCH LOG REC NO v P* P CC A2,3,A4 FIRST CHAR P RB(NE) EAT020 P CW A3,4,A4 2 AND 3 CHAR P RB(NE) EAT020 P*
0x000ca0…120cc0 [0x705]: Pad {f00=0x0030, f01=0x0190, f02=» OTHER TASK P RF EAT100 PEAT060 EQU * & P LDK A4,1 EA SAME ATASK : PEAT100 EQU * Z P RTN A14 n P EJECT ~ 8 P****DESCRIPTION************************************* P* B P* EASETB WILL UNCONDITIONALLY PUT A NEW EA BUFFER IN E
0x000ca0…120cc0 [0x706]: Pad {f00=0x0030, f01=0x0190, f02=»********************** r P* P* A6 = FDB ADDR ( " P* A2,A3 = LOGICAL RECORD NO B P* h P* CF A14,EASETB r P* 8 P****EXIT PARAMETERS********************************* P* P* A6 = FDB ADDR P* 8 P****USED
0x000ca0…120cc0 [0x707]: Pad {f00=0x0030, f01=0x0190, f02=»************* f P EJECT PEASETB EQU * $ P ECR A2,A2 8 P LC A2,FDBTNR,A6 TASK ID J P ECR A2,A2 j P LDR A1,A3 LOG REC NO | P INH , P CF A15,GETBLK GET BUFF AND STORE A1,A2 P* P* LINK BUFFER TO FDB P* P L
0x000ca0…120cc0 [0x708]: Pad {f00=0x0030, f01=0x0190, f02=»ION************************************* P* 0 8 P* EARELB WILL RELEASE EA BUFFERS AND CONNRECT THEM : P* TIO THE FREE LINK. v P* 8 P****ENTRY PARAMETERS******************************** P* P* A1 = FDB-ADDRESS " P* A2,A3
0x000ca0…120cc0 [0x709]: Pad {f00=0x0030, f01=0x0190, f02=» l < P* BIT 0=1,BIT 1=0 ALL BUFFERS ON FDB IS REMOVED. J P* BIT 0=0 THE FIRST BUFFER WITH TASK ID AND LOG REC NO H 0 P* AS SPEC IS REMOVED. P* 8 P****EXIT PARAMETERS*********************************
0x000ca0…120cc0 [0x70a]: Pad {f00=0x0030, f01=0x0190, f02=» P EJECT PEARELB EQU * P LDR A5,A1 * P ADKL A5,FDBEAL ROOT ADR < P LDR* A4,A5 EA ROOT P RF EAR030 x PEAR020 EQU * P LDR A5,A4 SAVE OLD ROOT P LDR* A4,A4 NEXT BUFFER ADR PEAR030 EQU * P RF(Z) EAR100 EA LIN
0x000ca0…120cc0 [0x70b]: Pad {f00=0x0030, f01=0x0190, f02=»C A2,3,A4 P RB(NE) EAR020 P CW A3,4,A4 ( P RB(NE) EAR020 < P RF EAR060 R PEAR050 EQU * d P CWK A2,/A000 CHECK BIT 1 x 0 P RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED PEAR060 EQU * P* P* SEARCH TASK IDENT P
0x000ca0…120cc0 [0x70c]: Pad {f00=0x0030, f01=0x0190, f02=»R080 EQU * P LDR* A3,A4 NEXT BUFADR & P STR A3,A5 REMOVE BUFFER FROM LINK 2 P* P* RETURN BUFFER TO POOL f P* P INH P LD A3,FREQUE P STR A3,A4 NEXT FREE P ST A4,FREQUE NEW ROOT P LDR A4,A5 BUFFER ROOT
0x000ca0…120cc0 [0x70d]: Pad {f00=0x0030, f01=0x0190, f02=»********************** r P* D P* CRNGET WILL SEARCH THE CRN-LINK FOR TASK ID. IF NO BUFFER IS ( D P* FOUND A NEW IS FETCHED FROM THE FREE LINK AND B FILLED WITH p H P* ZEROES AND PUT ON THE CRN LINK. IF NO FREE BUFFERS ARE AVAILABLE 0 P* TH
0x000ca0…120cc0 [0x70e]: Pad {f00=0x0030, f01=0x0190, f02=»****************** n P* " P* A1 = FDB ADDRESS DATA FILE $ P* J 8 P****EXIT PARAMETERS********************************* T P* P* A1 = UNCHANGED ( P* A2 = ADDRESS OF FOUND CRN-BUFFER P* 8 P****USED REGISTERS**************
0x000ca0…120cc0 [0x70f]: Pad {f00=0x0030, f01=0x0190, f02=»30 PCRN020 EQU * P LDR* A2,A2 NEXT BUFFER PCRN030 EQU * > P RF(Z) CRN100 LINK END R P* p P* CHECK ATASK IDENT z P* P LC A3,FDBTNR,A1 TASK ID P CC A3,CRNTID,A2 P RB(NE) CRN020 OTHER TASK P RF CRN200 BUF
0x000ca0…120cc0 [0x710]: Pad {f00=0x0030, f01=0x0190, f02=»F(NZ) CRN120 P LDK A1,3 LAMP 10 AND 11 P CF A15,HALT NO MORE BUFFERS 4 PCRN120 EQU * X P LDR* A3,A2 NEXT FREE l P ST A3,CRNQUE UPD ROOT P* P* FILL BUFFER WITH ZEROES P* * P LDKL A3,CRBUFL BUFFER LENGTH IN BYTES
0x000ca0…120cc0 [0x711]: Pad {f00=0x0030, f01=0x0190, f02=»A3 OFFSET IN BUFFER P CMR A4 P RB CRN140 MORE WORDS , P* J " P* CONNECT NEW BUFFER TO LINK T P* z PCRN160 EQU * P LC A3,FDBTNR,A1 P SC A3,CRNTID,A2 TASK ID P LD A3,FDBCRL,A1 LINK ROOT P STR A3,A2 THREAD
0x000ca0…120cc0 [0x712]: Pad {f00=0x0030, f01=0x0190, f02=»**** ` P* 2 P* CALSNO WILL CONVERT A LOGICAL RECORD NO TO P* SECTOR AND OFFSET L P* j 8 P****ENTRY PARAMETERS******************************** t P* " P* A1,A2 = LOGICAL RECORD NO P* A6 = FDB ADDR P* P* CF
0x000ca0…120cc0 [0x713]: Pad {f00=0x0030, f01=0x0190, f02=» , ERROR =/20=END OF MEDIUM P* A4 = EXTENT ADDRESS $ P* A6 = UNCHANGED D $ P* IN FDB : FDBSNR = SECTOR NR ^ , P* FDBRRO = OFFSET IN SECTOR * P* FDBCEX = CURRENT EXTENT P* 8 P****USED REGISTERS**********
0x000ca0…120cc0 [0x714]: Pad {f00=0x0030, f01=0x0190, f02=»LE t P* P LDR A5,A6 SAVE FDB ADDR P LDK A6,0 4 $ P LC A6,FDBBLF,A5 BLOCKING FACTOR F , P CF A14,DIVMOD A2=A1,A2//A6,A1=REMAINDER n P RF(O) TIOD99 OVERFLOW P LDR A3,A2 QUOTIENT P LDR A6,A5 FDB ADDR P LDR A2,A1 REMAINDER
0x000ca0…120cc0 [0x715]: Pad {f00=0x0030, f01=0x0190, f02=»R h P* P* FIND FILE EXTENT P* 0 PTIOD40 EQU * : P LDR A4,A6 N & P ADKL A4,FDBEXT FIRST FILE EXTENT ` , P LD A9,EXTLEN,A4 LENGTH OF FIRST EXTENT P LDK A5,4 NUMBER OF EXTENTS PTIOD45 CWR A3,A9 ( P RF(NG) TIOD55 SECTO
0x000ca0…120cc0 [0x716]: Pad {f00=0x0030, f01=0x0190, f02=»N,A4 ADD LENGTH OF NEXT EXTENT P RB TIOD45 & P* 8 * P* SAVE CURRENT EXTENT BLOCK POINTER B P* p PTIOD55 ST A4,FDBCEX,A6 z P* * P* FIND LOGICAL SECTOR NUMBER ON DISC P* 6 P SU A9,EXTLEN,A4 NO OF SECTORS IN PREVIOUS EXTEN
0x000ca0…120cc0 [0x717]: Pad {f00=0x0030, f01=0x0190, f02=»A4 SECTOR NO ON DISC 0 P ST A3,FDBSNR,A6 SAVE LOGICAL SECTOR NUMBER 2 P* FIND RELATIVE RECORD OFFSET WITHIN SECTOR P P* P LDK A3,0 & PTIOD60 SUK A2,1 A2=RELATIVE REC NO ( P RF(Z) TIOD65 REL REC OFFS IN A3 NOW * P AD A3,FDBRLE,A6 N
0x000ca0…120cc0 [0x718]: Pad {f00=0x0030, f01=0x0190, f02=»EDIUM v P RF TIODMF P* , P* STORE RELATIVE REC OFFSET IN FBDRRO * P* Z PTIOD65 EQU * d P LDK A1,0 OK x P ST A3,FDBRRO,A6 PTIODMF EQU * P RTN A14 P EJECT P* P************** P* DMTIOT P**
0x000ca0…120cc0 [0x719]: Pad {f00=0x0030, f01=0x018e, f02=» t P* P* OUTPUT A6 = FDB ADDRESS P* A1 = 0 WHEN OK 6 $ P* = ERROR CODE ELSE X $ P* A9 = DM ECB ADDRESS * P* A8 = PHYS I/O ECB ADDRESS $ P* A2 WILL BE DESTROYED P* ( P*
0x000ca0…120cc0 [0x71a]: Pad {f00=0x0030, f01=0x0190, f02=» P ADR A8,A6 $ P LD A9,DWTECB,A6 DM ECB ADDRESS PDMTIT0 EQU * > P LD A1,ECBRC,A8 R P RF(Z) DMTIOX DISC I/O OK j P ANKL A1,/FEFF $ P RF(NZ) DMTIT1 NOT ONLY RETRIES P LDKL A2,/100 P ORS A2,ECBRC,A9 USER RC P RF DMTIOX
0x000ca0…120cc0 [0x71b]: Pad {f00=0x0030, f01=0x0190, f02=» P* GET BUFFER ADDR ! P SUK A2,8 BUFSTA ! ( , P CM BUFDMI,A2 CLEAR VOL IDENT IN BUFFER ! @ P LDK A1,/02 DISC IO ERROR ! p " P LDKL A2,/FF7E NOT BIT 8 OR 15 ! P AN A2,ECBRC,A8 ! P ABL(NZ) DMTIOX ! P LD A1,ECBRC,A8 BIT 8 OR 15 !
0x000ca0…120cc0 [0x71c]: Pad {f00=0x0030, f01=0x0190, f02=»RAM ! x P* " P* IN: A1 = FDB ADDR " P* A8 = ECB ADDR " 2 P* OUT: " L P* A1 = RET CODE " P* A2 = DESTROYED " v P* A6 = FDB ADDR " P* A8 = ECB ADDR " P* A9 == USER ECB " P* " PDMTIOZ LDR A6,A1 " P LD A2,DWT
0x000ca0…120cc0 [0x71d]: Pad {f00=0x0030, f01=0x018e, f02=»INDEXED RANDOM READ " " P LD A1,FDBADF,A6 FDB DATA FILE # PDMTIZ1 EQU * # B P LD A9,DWTECB,A1 USER ECB # V P RB DMTIT0 # x P EJECT # 8 P****DESCRIPTION************************************* # P* # 8 P* GTBKBU WILL GET A BLOCK BUFFER FOR DISC
0x000ca0…120cc0 [0x71e]: Pad {f00=0x0030, f01=0x0190, f02=» # Z P* $ P* A1 = FDB ADDRESS $ , P* FDB-CEX,ECB,SNR,RRO $ . 8 P* ECB-FC,CW,BA,DWT-OR,ECB,EXTDMI $ ^ P* A8 = ECB ADDR $ P* $ 8 P****EXIT PARAMETERS********************************* $ P* $ P* A1
0x000ca0…120cc0 [0x71f]: Pad {f00=0x0030, f01=0x0190, f02=» IN $ V < P* THE FOUND CORE BUFFER % P* A3 = BUFFER ADDRESS % L P* A5 = ORDE R CODE % l P* A8 = ECB ADDR % P* A9 = DM ECB ADDR % P* % 8 P****USED REGISTERS********************************** % P* %
0x000ca0…120cc0 [0x720]: Pad {f00=0x0031, f01=0x0190, f02=»B ADDRESS % ~ 2 P LD A4,FDBCEX,A6 CURRENT EXTENT BLOCK POINTER & P LD A1,EXTDMI,A4 DMIDENT, FC & H " P LD A2,FDBSNR,A6 SECTOR NUMBER & l P LD A9,DWTECB,A6 DM ECB & , P SC A1,ECBFC,A8 FILE CODE OF DISC VOLUME & P LDR A4,A2 SAVE & P LDKL A5,SECTLE
0x000ca0…120cc0 [0x721]: Pad {f00=0x0031, f01=0x018e, f02=» & d 0 P* RETURN IF SECTOR MUST BE READ FROM DISC ' P LDKL A2,-1 RET CODE ' < PGTB040 EQU * ' X P ST A4,ECBCW,A8 SECTOR NR ' l P LDR A5,A3 ' 2 P ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS ' P ST A5,ECBBA,A8 ' P LD A5,DWTOR,A6 ' P ANK
0x000ca0…120cc0 [0x722]: Pad {f00=0x0031, f01=0x0190, f02=» ' j P RB GTB040 STORE ORDER CODE ( P EJECT ( , 8 P****DESCRIPTION************************************* ( : P* ( v D P* GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO A LOGICAL RECORD NO ( P* ( 8 P****ENTRY PARAMETERS******************************** (
0x000ca0…120cc0 [0x723]: Pad {f00=0x0031, f01=0x0190, f02=»************ ( h P* ) P* A1=A5=A6= FDB ADDRESS ) P* A2,A3 = LOG RECORD NO ) @ P* ) b 8 P****USED REGISTERS********************************** ) l P* ) P* A1 - A7 ) P* ) : P****************************************************** )
0x000ca0…120cc0 [0x724]: Pad {f00=0x0031, f01=0x0190, f02=»TH ) r P LD A7,FDBCEX,A1 EXT ADDR * ( P ADKL A7,EXTLEN ADDR TO LAST LENGTH * , PGTL050 EQU * * X P CWR A3,A7 * l . P RF(E) GTL100 ALL PREVIOUS EXTENTS COUNTED * ~ ( P* NOTE THAT ONLY (E) CAN BE TESTED * $ P ADR* A6,A3 NO OF SECT IN EXTENT * $ P ADKL
0x000ca0…120cc0 [0x725]: Pad {f00=0x0031, f01=0x018e, f02=» TOTAL NO OF SECTORS * ( P AD A6,FDBSNR,A1 TOTAL NR OF SECTORS + P* + H ( P* CONVERT FDBRRO TO NO OF RECORDS + R P* + ~ P LDK A7,0 + " P LC A7,FDBBLF,A1 BLOCK FACTOR + P LDR A5,A1 SAVE FDB ADDR + P CF A14,MPYMOD A1,A2=A6*A7 + P LD A4,F
0x000ca0…120cc0 [0x726]: Pad {f00=0x0031, f01=0x0190, f02=» + PGTL150 EQU * , P ADK A7,1 RECORD COUNTER , P SUR A6,A4 , < * P RB(NN) GTL150 COUNT RECORDS IN SECTOR , N P* , | , P* ADD SECT*BLOCFACT AND RECINCURRSECT , P* , P ADR A2,A7 , P RF(O) GTL160 OVERFLOW , P RF GTL170 , PGTL160 E
0x000ca0…120cc0 [0x727]: Pad {f00=0x0031, f01=0x4052, f02=» P LDR A1,A5 FDB ADDR - P LDR A6,A5 - P RTN A14 - 2 P END - B@ - NNN) GTL150 COUNT RECORDS IN SECTOR , N P* , | , P* ADD SECT*BLOCFACT AND RECINCURRSECT , P* , P ADR A2,A7 , P RF(O) GTL160 OVERFLOW , P RF GTL170 , PGTL160 E
0x000ca0…120cc0 [0x728]: Pad {f00=0x0031, f01=0x2008, f02=» . + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* + P
0x000ca0…120cc0 [0x729]: Pad {f00=0x0031, f01=0x0190, f02=»ST LDREG SAVE8 ECHODY B ECHRTN DRTC01 t DISIOE TCDRON SAVE8 DWTECB DWTST TENDIO TDISP IHTCY INTSAV DWTC02 . DWTC01 . B DRRT01 z LOCHAN0 RECHAN REMFC CWTLT18
0x000ca0…120cc0 [0x72a]: Pad {f00=0x0031, f01=0x0190, f02=»END CHLT1 ( INTSAV SAVE8 CHLT2 4 CHRT1 8 CHRT2 D DWTST DWTADR SETIMPW DWTOR DWTECB RTNA15 OUTPUT STREG LDREG LDREGF LDREGED GETCHR 4 OUTLIN R IHRET8H CHLTONK ( ECHENDP ECHOY DWTWAT ECHRTNA
0x000ca0…120cc0 [0x72b]: Pad {f00=0x0031, f01=0x0190, f02=» INTRT1 ,INTRT2 INTRT2 8BLOK:S BLOK:S BLOCKE x x *CTABX CTABX ,DCTBUF DCTBUF ,DCRBUF DCRBUF ,TC
0x000ca0…120cc0 [0x72c]: Pad {f00=0x0031, f01=0x0190, f02=» INIMOM INIMON TCTAB TTB:ST TTB:PP TTB:SA TTB:SP TTB:SS TTB:TDD CDTAB ITADI DWTADR ITADO DWTST DWTECB DWTTQ TIMQUE BLOCKL0 BLOCKSF FREQUE GBQUE ATT:CH2 LDPENDN LRUQUE$ CVTLSB0 NUMPAR C
0x000ca0…120cc0 [0x72d]: Pad {f00=0x0031, f01=0x0190, f02=» IHINPT PRUN SRUNN CVTINP CVTLSBK TTB:SA TTB:SP TTB:SS UPDLRI RETUR8 CVTAPA LKMDIS LD150 L LOADER LOADER TTB:SP TTB:SS TTB:SA QTJOB LD150 P GETBLK LDTASK TTABLD ACT
0x000ca0…120cc0 [0x72e]: Pad {f00=0x0031, f01=0x0190, f02=»AD TTB:SS TTB:SP QTJOB CVTINP 4INIMOD INIMON tBUG TTMJOB TTMJOB TTB:ST TTB:ID TTB:PPK TTB:SSK TTB:SP TTB:SA TTB:TDK * , VCD:TAB CD:TA
0x000ca0…120cc0 [0x72f]: Pad {f00=0x0031, f01=0x0190, f02=» bTIO TWAIT TEXIT TACTOTK TPAUSE TIMER GETBUF RELBUF LOADERD TABORT GETTIM SETTIM TASSN IXTASS0 DMINIT DMINIT INIFLG QFDBFL FDBSTA FDBEND CRNQUE CRBUFL CRNEND CURBUF BUFDMI B
0x000ca0…120cc0 [0x730]: Pad {f00=0x0032, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f : 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x731]: Pad {f00=0x0032, f01=0x0002, f02=» @
0x000ca0…120cc0 [0x732]: Pad {f00=0x0032, f01=0x0190, f02=» 2 P IDENT TTABD0 REL 8.2 78-09-15 870105040820 P* LREK 78-02-20 : P* T 8 P**************************************************** ^ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* P
0x000ca0…120cc0 [0x733]: Pad {f00=0x0032, f01=0x0190, f02=» $ P* TERMINAL 01: TELLER TERMINAL P* 0 P ENTRY TTABD0 TABLE ENTRY : PX:A EQU 0 4 PRECBFZ EQU X:A INDEX RECORD BUFFER SIZE IN WORDS n P* P* PTTABD0 DATA 0 P DATA /8031 TASK LEVEL & P DATA 'D0' TERMINAL IDENTIFI
0x000ca0…120cc0 [0x734]: Pad {f00=0x0032, f01=0x4132, f02=»INAL SAVE AREA P RES 14 P* & " P DATA TTABE-* TERMINAL DEVICES 0 P DATA 0,0 MASTER INDEX ENTRY V PTTABE EQU * z P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P DATA 0 TASK STACK P RES RECBFZ BUFAR1 P RES RECBFZ
0x000ca0…120cc0 [0x735]: Pad {f00=0x0032, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIFIC
0x000ca0…120cc0 [0x736]: Pad {f00=0x0032, f01=0x0190, f02=»TP220 EQU * P LDK A1,0 6 PTP230 LDKL A2,/FDFF VOUCHER STATUS CHANGE ALLOWED & P ANS A2,DWTST,A6 ` P EJECT x P* P* P* ECB-BUFFER IS WRITTEN P* * P* SEND LINE FEED IF JOURNAL OR TALLY P* P* PTP
0x000ca0…120cc0 [0x737]: Pad {f00=0x0032, f01=0x018e, f02=» * P LDKL A1,MESS INDICATE MESSAGE PRINTED P ORS A1,DWTST,A6 6 P XIF N PTPLF10 EQU * Z P SUK A7,8 n ( P RF(NN) TPL010 NOT JOURNAL AND TALLY P ADK A7,2 GET INDEX TABLE $ P LC A2,LFTAB,A7 GET LF CHARACTER P CF A5,OUTPUT SEND L
0x000ca0…120cc0 [0x738]: Pad {f00=0x0032, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f : 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x739]: Pad {f00=0x0032, f01=0x0002, f02=» H
0x000ca0…120cc0 [0x73a]: Pad {f00=0x0032, f01=0x0190, f02=» 2 P IDENT TTABD1 REL 8.2 78-09-15 870105040820 P* LREK 78-02-20 : P* T 8 P**************************************************** ^ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* P
0x000ca0…120cc0 [0x73b]: Pad {f00=0x0032, f01=0x0190, f02=» $ P* TERMINAL 01: TELLER TERMINAL P* 0 P ENTRY TTABD1 TABLE ENTRY : PX:A EQU 0 4 PRECBFZ EQU X:A INDEX RECORD BUFFER SIZE IN WORDS n P* P* PTTABD1 DATA 0 P DATA /8031 TASK LEVEL & P DATA 'D1' TERMINAL IDENTIFI
0x000ca0…120cc0 [0x73c]: Pad {f00=0x0032, f01=0x4132, f02=»INAL SAVE AREA P RES 14 P* & " P DATA TTABE-* TERMINAL DEVICES 0 P DATA 0,0 MASTER INDEX ENTRY V PTTABE EQU * z P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P DATA 0 TASK STACK P RES RECBFZ BUFAR1 P RES RECBFZ
0x000ca0…120cc0 [0x73d]: Pad {f00=0x0032, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIFIC
0x000ca0…120cc0 [0x73e]: Pad {f00=0x0032, f01=0x0190, f02=»A3,1922 REQUESTED LENGTH K " P IM XRB SET READ BUFFER SWITCH L P CM FDWTUT L F P LDK A1,1 L X & P XRS A1,CACK INCREMENT ACK COUNTER L j P ABL POL127 L P XIF L P* L P* L P* ENQ HAS BEEN RECEIVED L P* L P* L PBRM400 EQU * L
0x000ca0…120cc0 [0x73f]: Pad {f00=0x0032, f01=0x0190, f02=»RREP REPEAT LAST CONTROL SEQUENCE L PBRM410 EQU * M * P ABL BRM M > P EJECT M N P* M P* M f P* NAK HAS BEEN RECEIVED M p P* M P* M PBRM500 EQU * M & P CF A5,HPTIM STOP PROCEDURE TIMER M P LD A1,XACK M P RF(NZ) BRM510 ACK E
0x000ca0…120cc0 [0x740]: Pad {f00=0x0032, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f : 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x741]: Pad {f00=0x0032, f01=0x0002, f02=» X
0x000ca0…120cc0 [0x742]: Pad {f00=0x0032, f01=0x0190, f02=» 2 P IDENT TTABD2 REL 8.2 78-09-15 870105040820 P* LREK 78-02-20 : P* T 8 P**************************************************** ^ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* P
0x000ca0…120cc0 [0x743]: Pad {f00=0x0032, f01=0x0190, f02=» $ P* TERMINAL 01: TELLER TERMINAL P* 0 P ENTRY TTABD2 TABLE ENTRY : PX:A EQU 0 4 PRECBFZ EQU X:A INDEX RECORD BUFFER SIZE IN WORDS n P* P* PTTABD2 DATA 0 P DATA /8031 TASK LEVEL & P DATA 'D2' TERMINAL IDENTIFI
0x000ca0…120cc0 [0x744]: Pad {f00=0x0032, f01=0x4132, f02=»INAL SAVE AREA P RES 14 P* & " P DATA TTABE-* TERMINAL DEVICES 0 P DATA 0,0 MASTER INDEX ENTRY V PTTABE EQU * z P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P DATA 0 TASK STACK P RES RECBFZ BUFAR1 P RES RECBFZ
0x000ca0…120cc0 [0x745]: Pad {f00=0x0032, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIFIC
0x000ca0…120cc0 [0x746]: Pad {f00=0x0032, f01=0x0190, f02=»,DWTST,A6 [ P RF(N) CWR900 NO REQUEST P LD A2,DWTOR,A6 GET ORDER 2 P SUK A2,6 T P RF(Z) CWR100 WRITE REQUEST f P SUK A2,2 ( P RF(NZ) CWR900 NOT EXCHANGE REQUEST P LDR A1,A1 2 P RF(NZ) CWR100 TRANSMISSION ERROR, RC NOT ZERO
0x000ca0…120cc0 [0x747]: Pad {f00=0x0032, f01=0x0190, f02=» n P CF A15,CTIME STOP TIMING ] P LDR A8,A8 ] * P RF(Z) CWR150 ] < P ST A2,ECBCW,A8 ] R $ P CF A15,TENDIO COMPLETE REQUEST ] j PCWR150 EQU * ] * P CF A15,REMOVW REMOVE FROM WRITE QUEUE ] PCWR200 EQU * ] P IFF TBUFL=0 ] $ P LD A4,FECBBA
0x000ca0…120cc0 [0x748]: Pad {f00=0x0033, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f : 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x749]: Pad {f00=0x0033, f01=0x0002, f02=» h
0x000ca0…120cc0 [0x74a]: Pad {f00=0x0033, f01=0x0190, f02=» 2 P IDENT DRIC0X REL 8.2 78-09-15 870105040820 P : P* B P*************************** L P* p $ P* PHILIPS TERMINAL SYSTEM PTS z P* $ P* DRIC0X = DRIC01 DUMMY MODULE P* P* P* P* P* P*
0x000ca0…120cc0 [0x74b]: Pad {f00=0x0033, f01=0x4060, f02=»RN IHRTN PITADI EQU * PITADO EQU * $ PITABRT ABL IHRTN 8 END P@ ******* L P* p $ P* PHILIPS TERMINAL SYSTEM PTS z P* $ P* DRIC0X = DRIC01 DUMMY MODULE P* P* P* P* P* P*
0x000ca0…120cc0 [0x74c]: Pad {f00=0x0033, f01=0x2008, f02=» NT DRIC0X REL=8.1 DATE=78-03-03 A-TEST END :@ F
0x000ca0…120cc0 [0x74d]: Pad {f00=0x0033, f01=0x0190, f02=»******************** " ( P* S (LEADING ZERO REPLACED BY SIGN)* # ( P************************************ # H PLS EQU *-BASE # t & PEDP850 IM EDSUPP MARK SUPPRESSION # ( P CF A14,EDGETN GET CHR FROM ELEMENT # & P LD A1,EDNOTZ LOAD ZERO INDICATOR # ( P
0x000ca0…120cc0 [0x74e]: Pad {f00=0x0033, f01=0x018e, f02=» AND STORE CHR # | P EJECT $ P************************* $ $ P* C:CONDITIONAL PICTURE * $ F P************************* $ h PLC EQU *-BASE $ " PEDP900 LD A4,EDSIGN LOAD SIGN $ ( P RB(NZ) EDP725 JUMP BACK IF POSITIVE $ & P LD A4,EDPPOI LOAD PICTU
0x000ca0…120cc0 [0x74f]: Pad {f00=0x0033, f01=0x0190, f02=» $ P* % P************************ % P* PRINT SPACE IF BLANK * % 2 P************************ % R PLD EQU *-BASE % r ( P IM EDSUPP INDICATE SUPPRESSION CODE % , P CF A14,EDGETA GET DIGIT IN ASCII TO A6 % P CWK A6,/20 % P RB(E) EDP670 JUMP
0x000ca0…120cc0 [0x750]: Pad {f00=0x006f, f01=0x018e, f02=» IFF LOGG=0 } ( P CF A5,LOGIN LOG RECEIVED CHARACTER ~ P XIF ~ @ P IFF CODE=1 ~ L P C2 SYNSW ~ ` P RF(NZ) IHLCI2 ~ r P CWK A2,SYN SKIP SYNS ~ P RF(E) READ ~ " PIHLCI2 XRR A7,A2 CALCULATE LRC ~ P XIF ~ P IFT CODE=1 ~ P C2 SYNSW
0x000ca0…120cc0 [0x751]: Pad {f00=0x006f, f01=0x0010, f02=» ( 0
0x000ca0…120cc0 [0x752]: Pad {f00=0x006f, f01=0x0190, f02=» 2 P IDENT DRKB01 REL 9.1 78-09-15 870105640912 P : P* B 0 P******************************************* L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* DRKB01 = DRIVER KEYBOARD P* P* P* P* P*
0x000ca0…120cc0 [0x753]: Pad {f00=0x006f, f01=0x0190, f02=» d . P* AND ALPHANUMERIC KEYBOARDS PTS 6231, ( P* 6232, 6233, 6234, 6331,AND 6342 : , P* CONNECTED TO CPU VIA CHLT OR CHRT. f P* , P* ONLY INPUT DATA FROM DEPRESSED KEYS $ P* ARE HANDLED BY THE DRIVER. P* 0 P* AN
0x000ca0…120cc0 [0x754]: Pad {f00=0x006f, f01=0x0190, f02=» DRIVER CONSISTS OF FOLLOWING PARTS: P* , " P* A C K B : ACTIVATION PART 6 P* $ P* I H K B : INTERRUPT HANDLER f P* P* E C H O : ECHO HANDLER P* $ P* R C K B : RECOVERY ROUTINE P* P EJECT P*
0x000ca0…120cc0 [0x755]: Pad {f00=0x006f, f01=0x0190, f02=»AD v P* ORDER 03: NUMERIC READ & P* ORDER 04: RESET INPUT BUFFER . P* X P* b P* NORMAL REGISTER USAGE : l P* " P* REGISTER A1 : RETURN CODE & P* A2 : INPUT CHARACTER $ P* A3 : BUFFER INDEX
0x000ca0…120cc0 [0x756]: Pad {f00=0x006f, f01=0x0190, f02=» A7 : ORDER " P* A8 : ECB-ADDRESS P* < P EJECT F P* T P* ^ P* SYSTEM ADAPTATION h P* 4 P* KEYBOARD TYPE MUST BE DEFINED IN FIRST WORD : P* IN DWT. BIT 10 IS RELEVANT FOR ALPHANUMERIC READ & P*
0x000ca0…120cc0 [0x757]: Pad {f00=0x006f, f01=0x0190, f02=» 6342 j < P* BIT 11 = 0 FOR ALL KEYBOARDS BUT PTS 6342 AND 6234 & P* BIT 11 = 1 FOR PTS 6234,6342 N P* x 8 P* CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, 8 P* MULTIPLE ZERO AND STANDARD EOR MUST BE DEFINED P* IN DWT.
0x000ca0…120cc0 [0x758]: Pad {f00=0x0070, f01=0x0190, f02=»MER POINTER t , P* IN DWT MUST BE SET UNEQUAL TO ZERO. 2 P* STANDARD VALUE FOR TIME-OUT IS 30 SECONDS D 4 P* SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE z * P* IS WANTED FOR A SYSTEM, INDICATOR $ P* IN DRIVER MUST BE CHANGED. P*
0x000ca0…120cc0 [0x759]: Pad {f00=0x0070, f01=0x0190, f02=»!!! THAT LENGTH MUST BE THE SAME FOR ALL P* DWT:S IN SYSTEM 2 P EJECT N P* 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE f 8 P* TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS: P* P* -----ECHO-FUNCTION P*
0x000ca0…120cc0 [0x75a]: Pad {f00=0x0070, f01=0x0190, f02=»CONVERSION TABLES 4 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS ALSO 4 P* POSSIBLE TO GIVE A KEY THE MEANING OF TWO, R P* THREE OR MORE ZEROES. P* 6 P* THE DRIVER IS PREPARED TO HANDLE THE SPECIAL 0 P* NORWAY-PROBLEM, WITH
0x000ca0…120cc0 [0x75b]: Pad {f00=0x0070, f01=0x0190, f02=»VER CONDITIONALLY THIS v P* FUNCTION IS INCLUDED. P EJECT @ P* N P* X P************** b P* ENTRIES * x P************** P* P ENTRY KBAD ADDRESS-BLOCK ( P ENTRY EOQUEU QUEUE POINTER ROUTINE ( P ENTRY DWTINQ,
0x000ca0…120cc0 [0x75c]: Pad {f00=0x0070, f01=0x0190, f02=»ODULE ENTRIES * | 2 P********************************************** " P* X $ P EXTRN DISIOE I/0 REQUEST ERROR b . P EXTRN DISEND END I/O AND GO TO DISPATCHER P EXTRN TENDIO END I/O " P EXTRN TDISP DISPATCHER ENTRY : P EXTRN LDR
0x000ca0…120cc0 [0x75d]: Pad {f00=0x0070, f01=0x0190, f02=»M ECHO HANDLING x P EXTRN LDREGF P EXTRN SETIME SET TIME . P EXTRN SETIMP SET TIME L " P EXTRN SAVE8 SAVE 8 REGISTERS j " P EXTRN ECHRTN RETURN FROM ECHO P EXTRN ECHO ECHO ROUTINE P EXTRN ECHEND END OF ECHO $ P EXTRN RTNA15 RETU
0x000ca0…120cc0 [0x75e]: Pad {f00=0x0070, f01=0x018e, f02=»*************** P* P EXTRN DWTST STATUS " * P EXTRN DWTADR ADDRESS TO ADDRESS-BLOCK > P EXTRN DWTWAT SAVE INPUT DWT l P* P*************** P* CONSTANTS * P*************** P* * POVMASK EQU /2 OVERFLOW IN INPU
0x000ca0…120cc0 [0x75f]: Pad {f00=0x0070, f01=0x0190, f02=» P* TIME BEFORE TIME-OUT P* * $ PTIME EQU 1200 TIME OUT CONSTANT 4 P* P*************************** f P* DWT-DISPLACEMENT * P*************************** P* PDWTBC EQU /3 $ PDWTCON EQU /10 CONVERSION
0x000ca0…120cc0 [0x760]: Pad {f00=0x0070, f01=0x0190, f02=» EQU /1E STACK BASE PDWTTP EQU /20 TIMER POINTER 2 PDWTINQ EQU /28 POINTER TO FIRST PLACE IN QUEUE @ 2 PDWTUTQ EQU /2A POINTER TO LAST PLACE IN QUEUE v PDWTSQ EQU /2C START OF QUEUE ( PDWTEQ EQU DWTSQ+DWTLNG END OF QUEUE P* . P****
0x000ca0…120cc0 [0x761]: Pad {f00=0x0070, f01=0x0190, f02=»*** j P* & PKBBSP EQU /24 BACK-SPACE CHARACTER " PKBCLR EQU /25 CLEAR CHARACTER @ PKBEOF EQU /26 EOR-CHARACTER f & PKBMZ EQU /27 DOUBLE ZERO CHARACTER P* P EJECT P* P* , P****************************************
0x000ca0…120cc0 [0x762]: Pad {f00=0x0070, f01=0x0190, f02=» MAY BE EXCLUDED BY z P* SETTING X:A = 0. P* : PX:A EQU 0 D PCTIMUT EQU 1 V P* j * P* ECHO FUNCTION MAY BE EXCLUDED BY t P* SETTING X:B = 0. P* PX:B EQU 1 PCECHO EQU 1 P* * P* STANDARD RE
0x000ca0…120cc0 [0x763]: Pad {f00=0x0070, f01=0x0190, f02=» MAY BE INCLUDED IN SYSTEM ( P* BY SETTING X:D = 2. SETTING X:D " , P* = 3 GIVES A THREE ZERO FUNCTION AND N 4 P* X:D = 4 GIVES FOUR-ZERO FUNCTION AND SO ON ~ 4 P* X:D = 0 EXCLUDES THE MULTIPLE ZERO FUNCTION P* PX:D EQU 2 P
0x000ca0…120cc0 [0x764]: Pad {f00=0x0070, f01=0x018e, f02=» IN THE DRIVER. | > P* IF THERE IS A READ REQUEST, THIS IS COMPLETED WITH -2 @ P* SET IN THE CONTROL WORD OF ECB. IF NOT A POWER OFF FLAG Z B P* IS SET, CAUSING THE FIRST READ REQUEST AFTER POWER ON TO 2 P* BE COMPLETED WITH CONTROL WORD SE
0x000ca0…120cc0 [0x765]: Pad {f00=0x0070, f01=0x0190, f02=» ^ 2 P* "8-BIT" SETTING AND CONVERSION TABLES IS P* INCLUDED IN THE DRIVER. > P** b PX:G EQU 0 l PCONVER EQU 1 ~ P P* P* 8 P* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS P* BY SETTING CREDIT = 1 0
0x000ca0…120cc0 [0x766]: Pad {f00=0x0070, f01=0x0190, f02=»OWING WAY: THE FIRST KEY IN THE EOR-KEY-TABLE @ P* IS GIVEN INDEX =1, THE SECOND EOR-KEY IS GIVEN INDEX=1 6 , P* AND SO ON. (INDEX= 1,2,3,4,... ) z 8 P* CONTROL WORD OF ECB IS SET TO ZERO INSTED OF -2 P* P* P PCREDIT E
0x000ca0…120cc0 [0x767]: Pad {f00=0x0070, f01=0x0190, f02=» THEMSELVES DEPENDENT KEYBOARDS ON THE P* SAME SELECTOR UNIT. . P* N PNOLJE EQU 0 X P EJECT l P* z P* P************** P* TABLES * P************** P* PKBAD EQU * P DATA ACKB ACTIVATION DRIVER
0x000ca0…120cc0 [0x768]: Pad {f00=0x0070, f01=0x0190, f02=»* P* P IFT POWOFF=1 P* * P DATA RCKB RECOVERY ROUTINE 4 P EJECT X P* f P* p P* R C K B z P* 2 P* THIS IS THE RECOVERY ROUTINE FOR KEYBOARD & P* ENTERED FROM CHLT/CHRT DRIVER P* PRCKB EQU
0x000ca0…120cc0 [0x769]: Pad {f00=0x0070, f01=0x0190, f02=»WER OFF OCCURED t P ABL TDISP & PRCKB10 CF A5,LDREGE LOAD REGISTERS * P RF AKB202 T P* f P XIF p P* | P EJECT P* P* P* A C K B P* P* ACTIVATION PART: P* 0 P* CHECKS VALIDITY OF ORDE
0x000ca0…120cc0 [0x76a]: Pad {f00=0x0070, f01=0x018e, f02=» LDKL A1,/FEFF 2 P ANS A1,DWTST,A6 RESET INTERRUPTS ALLOWED FLAG P LDK A1,0 L P LDK A3,0 START BUFFER INDEX ^ P LDR A4,A7 " P RF(NG) AKB100 ILLEGEAL ORDER P IFT NOLJE=1 P CWK A7,/37 SELECT KEYBOARD P RF(E) AKBSEL P X
0x000ca0…120cc0 [0x76b]: Pad {f00=0x0070, f01=0x0190, f02=» P SUK A4,4 P P IFT CREDIT=1 P SUK A4,/2D 4 $ P RF(Z) CRE:10 SKIP INPUT BUFFER H P ADK A4,/2D p PCRE:10 EQU * P XIF P RF(Z) AKB110 ORDER 4 P RF(N) AKB200 ORDER 1,2 OR 3 * PAKB100 ORKL A1,/8000 I/O REQUEST ERR
0x000ca0…120cc0 [0x76c]: Pad {f00=0x0070, f01=0x0190, f02=»A6 ORDER 4 | ( P SCR A1,A2 RESET OVERFLOW IF OCCURED ( P ST A2,DWTUTQ,A6 RESET OUTPUT QUEUE > P ABL ENDI05 END I/O j P IFT NOLJE=1 P* P* " P* ORDER 37 SELECT KEYBOARD P* PAKBSEL LDKL A2,/FF7F * P ANRS A2,A6 RESE
0x000ca0…120cc0 [0x76d]: Pad {f00=0x0070, f01=0x0190, f02=»* PAKB200 EQU * P* P IFT POWOFF=1 ( P* > P LD A2,DWTST,A6 H P ANKL A2,/200 POWER OFF ? ` P RF(E) AKB205 P XRS A2,DWTST,A6 RESET BIT P XIF PAKB202 EQU * P IFT CREDIT-POWOFF=-1 " P LDKL A1,-2 INDICA
0x000ca0…120cc0 [0x76e]: Pad {f00=0x0070, f01=0x0190, f02=»OWOFF=1 P ABL AKB380 P* $ P XIF . P* : PAKB205 EQU * D P* X P IFT CTIMUT=1 b P* x P LDR* A1,A6 P ANK A1,/40 TIMING ? , P RF(E) AKB210 NO TIMING FOR THIS DEVICE P LD A4,DWTTP,A6 P RF(E) AKBTIM
0x000ca0…120cc0 [0x76f]: Pad {f00=0x0070, f01=0x0190, f02=»A6 ADD DWT-ADDRESS P LDR A1,A6 P CF A15,SETIMP SET TIME , 0 P DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME L . P ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT P* P XIF P* & PAKB210 LD A2,4,A8 REQUESTED LENGTH , PAKB220 RF(E) A
0x000ca0…120cc0 [0x770]: Pad {f00=0x0070, f01=0x0190, f02=»1 P ADR A1,A2 ADDRESS IN BUFFER $ PAKB230 SCR A3,A1 STORE CHARACTER . " P SUK A1,1 NEXT CHAR. POSITION V P SUK A2,1 LAST ? | P RB(NE) AKB230 NO P EJECT P* , P* READ CHARACTER FROM INPUT BUFFER OR & P* WAIT FOR KEY-BO
0x000ca0…120cc0 [0x771]: Pad {f00=0x0070, f01=0x0190, f02=»F OVERFLOW ? P RF(NE) AKB250 " P SCR A4,A1 RESET OVERFLOW MARK * P LDK A1,OVMASK OVERFLOW SET P P RF ENDIO t . PAKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE? P RF(NE) AKB260 " P CF A5,STREG NOTHING IN QUEUE P IFT CTIMUT=1 * P
0x000ca0…120cc0 [0x772]: Pad {f00=0x0070, f01=0x0190, f02=» CTIMUT=0 P RF AKB270 P XIF $ 0 PAKB260 CF A15,EOQUEU NEXT OUT QUEUE POINTER 0 & P ST A1,DWTUTQ,A6 STORE NEW POINTER d PAKB270 LDR A4,A7 P SUK A4,2 P RF(NN) AKB310 ORDER 2 OR 3 P EJECT P* P* P* ORDER 1
0x000ca0…120cc0 [0x773]: Pad {f00=0x0070, f01=0x018e, f02=»TER p P XIF ! 0 P CW A3,4,A8 EFFECTIVE LENGTH = REQ. LENGTH? ! P RB AKB220 ! L P EJECT ! ^ P* ! l P* ! v 2 P* ORDER 2 OR 3 STANDARD AND NUMERIC READ ! P* ! 6 P* CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE ! P* ! P* !
0x000ca0…120cc0 [0x774]: Pad {f00=0x0070, f01=0x0190, f02=» ! & P ADR A1,A4 LAST PLACE IN KEY-TABLE " P ADK A1,1 " 2 PAKB355 SUK A4,1 " D , P RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE " P SUK A1,1 NEXT KEY " P CCR A2,A1 EOR-CHARACTER? " P RB(NE) AKB355 NO " P IFT CREDIT=0 " P ADR A4,A4 YES DOU
0x000ca0…120cc0 [0x775]: Pad {f00=0x0070, f01=0x0190, f02=»N CONTROLWORD " v ( PAKB358 CF A15,STORE STORE CHARACTER # P RF AKB370 # B P* # T P* # ^ 4 PAKB359 CC A2,KBEOF,A6 STANDARD END OF RECORD KEY # h P RB(E) AKB358 YES # P EJECT # P* # * P* CHARACTER NOT FOUND IN KEY-TABLE. # P* CHECK
0x000ca0…120cc0 [0x776]: Pad {f00=0x0070, f01=0x0190, f02=»NK A4,/20 SHIFT BIT 9 ? # P RF(E) AKB361 YES $ P LDR A4,A2 CHARACTER $ : P RF AKB363 $ V PAKB361 EQU * $ h P LDR* A4,A6 $ | P ANK A4,/10 PTS 6234 ? $ P RF(E) AKB362 $ P LDR A4,A2 $ P ANK A4,/80 $ P RF(NE) AKB362 $ P LDR A4,A2
0x000ca0…120cc0 [0x777]: Pad {f00=0x0070, f01=0x0190, f02=»LTZ=0 $ " P CC A4,KBMZ,A6 MULTIPLE ZERO ? % P RF(E) KBMZ10 YES! % 4 P XIF % N P CC A4,KBCLR,A6 CLEAR? % Z P RF(E) KBCL10 % x P CC A4,KBBSP,A6 BACKSPACE? % P RF(E) KBSP10 % P LDR A1,A1 RETURN CODE? % ( P RF(NE) AKB369 YES,STORE AND END I/O
0x000ca0…120cc0 [0x778]: Pad {f00=0x0071, f01=0x0190, f02=» OVERFLOW? % ~ P RB(L) AKB210 NO & $ PAKB368 LDK A1,8 SET RETURN CODE & * P RF ENDIO AND END I/O & R 6 PAKB369 CF A15,STORE STORE CHARACTER IN ECB BUFFER & p P RF ENDIO END I/O REQUEST & P EJECT & P* & P* & ( P* CHECK CODE OF END OF RE
0x000ca0…120cc0 [0x779]: Pad {f00=0x0071, f01=0x018e, f02=»ND OF RECORD & z P LDR A1,A1 RETURN CODE? ' P RF(NE) AKB380 ' 4 P CF A5,ECHO ECHO CHARACTER ' J P* ' l P XIF ' v P* ' PAKB380 LDK A1,0 RETURN CODE ' P EJECT ' P* ' P* ' , P* THIS IS A COMMON END OF THE DRIVER ' P* ' 2
0x000ca0…120cc0 [0x77a]: Pad {f00=0x0071, f01=0x0190, f02=» P* ( P IFT CTIMUT=1 ( P INH ( $ P LD A4,DWTTP,A6 ( 0 * P RF(E) ENDI05 NO TIMING ON THIS DEVICE ( H P CM* DWTTP,A6 RESET TIMER ( v P CM DWTTP,A6 ( P XIF ( P* ( , PENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH ( PENDI10 EQU * ( P* (
0x000ca0…120cc0 [0x77b]: Pad {f00=0x0071, f01=0x0190, f02=» P* ) 0 P ABL DISEND END I/O ON KEYBOARD AND DISPATCH ) P EJECT ) B P* ) P P* MULTIPLE ZERO ) Z P* ) t P IFF CMULTZ=0 ) ~ PKBMZ10 EQU * ) ( P LDK A4,CMULTZ LOAD NUMBER OF ZEROES ) , PKBMZ20 LDK A2,/30 ZERO TO STORE AND ECHO ) P SUK A
0x000ca0…120cc0 [0x77c]: Pad {f00=0x0071, f01=0x0190, f02=» A4 ) ~ P* * P IFT CECHO=1 * P* * * P CF A5,ECHO ECHO ZERO * 4 P XIF * R P* * ^ P* * h P IFF CMULTZ=0 * r P* * " P CW A3,4,A8 LENGTH OVERFLOW ? * P RB(L) KBMZ20 NO * . PKBMZ25 SUK A4,1 ANY MORE ZEROES TO STORE ? * P RB(L) A
0x000ca0…120cc0 [0x77d]: Pad {f00=0x0071, f01=0x018e, f02=»NE) KBMZ30 NO * , P LDK A1,DWTEQ GET LAST POSITION IN QUEUE + P ADR A1,A6 + F P SUK A1,1 + X P RF KBMZ40 + j 2 PKBMZ30 ADR A1,A6 GET PREIOUS POINTER POSITION + | P SUK A1,1 + , PKBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? + P RF(E) KBMZ90 NO NOT R
0x000ca0…120cc0 [0x77e]: Pad {f00=0x0071, f01=0x0190, f02=» + v P RB KBMZ25 ONCE MORE TIME !! , PKBMZ90 EQU * , , ( P LDK A4,/FF INDICATE BUFFER OWERFLOW , @ P SCR A4,A1 , l $ P ST A1,DWTUTQ,A6 UPPDATE POINTER , ~ ( P LDK A1,/A SET RETURN CODE FOR BOTH , * P RB ENDIO LENGTH AND THRUGHPUT ERRORS , P XIF ,
0x000ca0…120cc0 [0x77f]: Pad {f00=0x0071, f01=0x0190, f02=» , P* - P* BACKSPACE - P* - ( & PKBSP10 LDR A3,A3 FIRST CHARACTER? - 2 P RF(Z) KBSP15 - $ P SUK A3,1 DECREMENT BUFFER INDEX - r P LDK A2,/00 CLEAR ECB-BUFFER - P CF A15,STORE - P SUK A3,1 DECREMENT INDEX - * PKBSP15 LDK A2,/8 CHA
0x000ca0…120cc0 [0x780]: Pad {f00=0x0071, f01=0x0190, f02=»NPUT CHARACTER - v P* . P* ON ENTRY: . P* . 6 P* A2 = CHARACTER . @ P* A3 = BUFFER INDEX . P* A6 = DWT-ADDRESS . z P* A7 = ORDER . P* . P* . P* ON EXIT: . P* . P* A1 = RETURN CODE . P* .
0x000ca0…120cc0 [0x781]: Pad {f00=0x0071, f01=0x0190, f02=»D=1 . P* / P CWK A7,2 ORDER 2? / P RF(NE) CHEK05 NO / 0 P ANK A1,/20 / J ( P ORK A1,/5F 5F OR 7F AS UPPER LIMIT / ^ P LDK A4,/20 LOWER LIMIT / P RF CHEK08 / P* / P XIF / P* / PCHEK05 ANK A1,/10 / P RF(NE) CHEK06 /
0x000ca0…120cc0 [0x782]: Pad {f00=0x0071, f01=0x0190, f02=» CHERRO CODE CHECK ERROR / P SUR A4,A2 0 " P RF(P) CHERRO CODE CHECK ERROR 0 2 P LDR* A1,A15 0 X PCHEK10 LDK A1,0 RETURN CODE 0 l PCHEK20 RTN A5 0 P* 0 P* 0 P* CODE CHECK ERROR 0 P* 0 . PCHERRO LDK A1,4 SET RETURN CODE AND RETU
0x000ca0…120cc0 [0x783]: Pad {f00=0x0071, f01=0x0190, f02=» THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER 0 P* 1 D P* 1 N PIHKB EQU * 1 X P IFT NOLJE=1 1 j P LDR* A3,A6 GET ALLOW BITS 1 ~ P ANK A3,/C0 1 4 P RF(E) IHNOL3 INPUT ALLOWED FROM BOTH KEYBOARDS 1 P LDK A4,1 1 P ANK A3,/80
0x000ca0…120cc0 [0x784]: Pad {f00=0x0071, f01=0x0190, f02=» EQU * 1 P XIF 2 P* 2 P IFT CONVER=1 2 $ P* 2 : P LDR A4,A2 INPUT WORD 2 D " P SRL A4,11 DEVICE ADDRESS * 2 2 b P ANK A4,/E 2 $ P CC A4,DWTBC,A6 8-BIT SETTING ? 2 P RF(NE) IHKB03 2 P LDR A3,A2 2 P ANK A3,/3F 2 P SUK A3,/30
0x000ca0…120cc0 [0x785]: Pad {f00=0x0071, f01=0x018e, f02=» 2 | P RF IHKB04 3 4 PIHKB03 LD A3,DWTCON,A6 CONVERSION TABLE ADDRESS 3 P RF(E) IHKB04 3 R P LDR A4,A2 3 h P ANK A4,/FF 3 z P SRL A4,3 LINE INDEX 3 P ADR A3,A4 3 $ P LDR* A3,A3 COLUMN TABLE ADDRESS 3 P RF(E) IHKB04 3 P LDR A4,A2 3
0x000ca0…120cc0 [0x786]: Pad {f00=0x0071, f01=0x0190, f02=» P* 4 P IFT NOLJE=1 4 P* 4 " P LDR A3,A2 4 , P ANK A3,/3F 4 > P SUK A3,/22 4 R P RF(Z) IHNOL6 4 f P SUK A3,1 4 | P RF(NZ) IHNOL8 4 P RF IHNOL7 4 PIHNOL6 ADK A2,7 4 PIHNOL7 ANKL A2,/FF3F 4 PIHNOL8 EQU * 4 P* 4 P X
0x000ca0…120cc0 [0x787]: Pad {f00=0x0071, f01=0x0190, f02=»STORE CHARACTER IN DWT-BUFFER 4 ~ P* 5 & P IFT CTIMUT=1 5 0 P* 5 F P LD A3,DWTTP,A6 5 P * P RF(E) IHKB05 NO TIMING ON THIS DEVICE 5 h P LDKL A3,-TIME RESTART TIME 5 P ST* A3,DWTTP,A6 5 P* 5 P XIF 5 P* 5 , PIHKB05 ABL LDREG RETURN
0x000ca0…120cc0 [0x788]: Pad {f00=0x0071, f01=0x0190, f02=» LDR A3,A1 5 2 P CF A15,EOQUEU GET NEXT QUEUE POINTER ADDRESS 6 P CW A1,DWTUTQ,A6 OVERFLOW? 6 H P RF(NE) IHKB20 NO! 6 j 0 P ORK A2,/FF SET OVERFLOW BIT IN INPUT BUFFER 6 P RF IHKB30 6 0 PIHKB20 ST A1,DWTINQ,A6 STORE INQUEUE POINTER 6 4 PIHKB30 SCR A
0x000ca0…120cc0 [0x789]: Pad {f00=0x0071, f01=0x0190, f02=»4,/40 6 P SUK A3,1 7 P RF(E) IHNOL4 7 P LDK A4,/80 7 6 P SUK A3,4 7 J P RB(NE) IHNOL2 7 $ PIHNOL4 ORRS A4,A6 SET ALLOW BIT 7 r P RB IHNOL2 7 P XIF 7 P EJECT 7 P* 7 P* 7 P* A K B T U T 7 P* 7 & P* THIS IS T
0x000ca0…120cc0 [0x78a]: Pad {f00=0x0071, f01=0x0190, f02=» CM DWTTP,A6 7 P LD A1,DWTST,A6 8 P RB(N) EXIT 8 , P LDK A1,/40 SET RETURN CODE 8 @ , P RB IHKB05 RESTORE REGISTERS AND END I/O 8 d P* 8 P XIF 8 P EJECT 8 P* 8 4 P* STORE = SUBROUTINE TO STORE A CHARACTER IN 8 6 P* ECB
0x000ca0…120cc0 [0x78b]: Pad {f00=0x0071, f01=0x0190, f02=»ER INDEX 8 P* 9 P* 9 PSTORE EQU * 9 $ P LD A4,2,A8 BUFFER ADDRESS 9 8 P ADR A4,A3 ADD BUFFER INDEX 9 Z ( P SCR A2,A4 STORE CHARACTER IN BUFFER 9 ~ $ P ADK A3,1 INCREMENT BUFFER INDEX 9 P ANK A2,/7F 9 P RF EOQU20 RTN A15 AND ENB 9 P E
0x000ca0…120cc0 [0x78c]: Pad {f00=0x0071, f01=0x018c, f02=» A1 = QUEUE POINTER 9 P* A6 = DWT-ADDRESS : P* : < P* ON EXIT: : F P* : P* A1 = NEW QUEUE POINTER : f PEOQUEU EQU * : P INH : P ADK A1,1 : P SUR A1,A6 : P CWK A1,DWTEQ END OF QUEUE? : P RF(NE) EOQU10 : * P L
0x000ca0…120cc0 [0x78d]: Pad {f00=0x0071, f01=0x4008, f02=»@ ; QUEUE POINTER 9 P* A6 = DWT-ADDRESS : P* : < P* ON EXIT: : F P* : P* A1 = NEW QUEUE POINTER : f PEOQUEU EQU * : P INH : P ADK A1,1 : P SUR A1,A6 : P CWK A1,DWTEQ END OF QUEUE? : P RF(NE) EOQU10 : * P L
0x000ca0…120cc0 [0x78e]: Pad {f00=0x0071, f01=0x2008, f02=» < O 0 ( P CF A15,TENDIO END I/O OUTPUT DEVICE 1 > PERETUR LD A6,DWTWAT,A6 RELOAD DWT-ADDRESS OF INPUT DEVICE 1 > 4 PRETUR ABL LDREGE RELOAD A3-A5 AND RETURN VIA A5 1 P* 1 P XIF 1 P* 1 P END 1 @ 1 RESS TO ADDRESS-BLOCK 0 2 P ABI
0x000ca0…120cc0 [0x78f]: Pad {f00=0x0071, f01=0x0190, f02=» LABEL = FIX1 DATE = 790313 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x790]: Pad {f00=0x0004, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f x T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x791]: Pad {f00=0x0004, f01=0x0010, f02=» x
0x000ca0…120cc0 [0x792]: Pad {f00=0x0004, f01=0x0190, f02=» 2 P IDENT DRTP02 REL 8.2 78-09-15 870105040820 P : P* B < P******************************************************* L < P* * < P* PHILIPS TERMINAL SYSTEM PTS * <
0x000ca0…120cc0 [0x793]: Pad {f00=0x0004, f01=0x0190, f02=» * < P* * < P* | P* P* < P* * < P************************************************
0x000ca0…120cc0 [0x794]: Pad {f00=0x0004, f01=0x018e, f02=» OR CHRT f P* P* 4 P* THIS DRIVER CONSISTS OF THE FOLLOWING PARTS: $ P* $ P* A C T P : ACTIVATION PART f P* & P* I H T P : INTERRUPT HANDLER P* $ P* R C T P : RECOVERY ROUTINE P* P* 6 P*
0x000ca0…120cc0 [0x795]: Pad {f00=0x0004, f01=0x0190, f02=» P* 6 P* B C D T B Y : CONVERT TO BINARY FROM DECIMAL P* H D P* B U F C H R : SEND THE NUMBER OF CHARACTERS GIVEN IN FIRST R $ P* CHARACTER IN OUTPUT BUFFER P* . P* G R A S P : SEND GRASP TO VOUCHER P* 4 P*
0x000ca0…120cc0 [0x796]: Pad {f00=0x0004, f01=0x0190, f02=»* ORDER 00 : TEST STATUS P* ORDER 06 : WRITE ( 0 P* ORDER 0B : POSITION LIFT AND WRITE J $ P* ORDER 22 : CUT JOURNAL ~ * P* ORDER 26 : PERFORATE JOURNAL . P* ORDER 37 : GRASP VOUCHER/PASSBOOK 0 P*
0x000ca0…120cc0 [0x797]: Pad {f00=0x0004, f01=0x0190, f02=» REQUEST ERROR ~ 4 P* BIT 8 : RECOVERY EXECUTED ON REQUEST 8 P* BIT 10 : END OF JOURNAL TAPE, VOUCHER OUT P ( P* BIT 13 : CODE CHECK ERROR $ P* BIT 15 : NOT OPERABLE P* P* P* P* NORMAL R
0x000ca0…120cc0 [0x798]: Pad {f00=0x0033, f01=0x0190, f02=»INTER v $ P* A4: OUTPUT COUNTER " P* A5: STACK POINTER 6 P* A6: DWT-ADDRESS P* A7: ORDER P* A8: ECB-ADDRESS P* P* P* P* P* SYSTEM ADAPTATION: P*
0x000ca0…120cc0 [0x799]: Pad {f00=0x0033, f01=0x0190, f02=»ET IF RECOVERY IS EXECUTED ON REQUEST | 4 P* CUT/PERFORATE JOURNAL TAPE (PTS 6221,6222) . 0 P* ACCAPTANCE OF SPECIAL CHARACTER /13,/14 f H P* COMPLETION OF REQUEST AT 'VOUCHER OUT' BEFORE MESSAGE IS WRITTEN P* P* @ P* THE CHARACTE
0x000ca0…120cc0 [0x79a]: Pad {f00=0x0033, f01=0x0190, f02=» P EJECT P* P*********** P* ENTRIES * 0 P*********** D P* X P* b P ENTRY TPAD ADDRESS BLOCK l P* P* P* P************* P* EXTERNALS * P************* P* P* , P EXTRN T
0x000ca0…120cc0 [0x79b]: Pad {f00=0x0033, f01=0x0190, f02=»O END I/O & P EXTRN OUTPUT OUTPUT ONE CHARACTER " P EXTRN LDREG RESTORE REGISTERS < 8 P EXTRN STREG STORE REGISTERS AND WAIT FOR INTERRUPT b P EXTRN SAVE8 SAVE REG. A1-A8 P* P* P* . P* DISPLACMENT IN DEVICE WORK TABLE DWT
0x000ca0…120cc0 [0x79c]: Pad {f00=0x0033, f01=0x018e, f02=»************** P* CONDITIONAL ASSEMBLY * P************************ 6 P* V P* ` < P* WHEN RECOVERY EXECUTED ON REQUEST RETURN CODE IS SET j P* BY SETTING X:A = 1 P* P* PX:A EQU 0 PRECOV EQU 0 P*
0x000ca0…120cc0 [0x79d]: Pad {f00=0x0033, f01=0x018e, f02=» PCUTPER EQU 0 P* P* & B P* SPECIAL CHARACTER /13, /14 IS ACCEPTED BY SETTING X:C = 1 0 P* AND X:D = 1 RESPECTIVLY v P* P* PX:C EQU 0 PCHR13 EQU 0 P* P* PX:D EQU 0 PCHR14 EQU 0
0x000ca0…120cc0 [0x79e]: Pad {f00=0x0033, f01=0x0190, f02=» X P* P* PX:E EQU 0 PCOMPL EQU 0 . P EJECT B P* P P* Z > P* IN SITUATIONS WHERE PRINTER HARDWARE OR SELECTOR UNIT d < P* IS INACTIVE,END OF REQUEST MAY BE CHOSEN BY SETTING > P* THE CONSTANT RELEND=1. RETURN CO
0x000ca0…120cc0 [0x79f]: Pad {f00=0x0033, f01=0x0190, f02=»N THE SHB-PROJECT FOR l < P* LOCAL PRINTERS THE CONSTANT SHBDUM CAN BE SET TO 1. ( P* NOT ALLOWED FOR REMOTE PRINTERS. ^ P* PX:H EQU 0 PSHBDUM EQU X:H P EJECT P* P* P************* P* CONSTANTS * P
0x000ca0…120cc0 [0x7a0]: Pad {f00=0x0034, f01=0x0190, f02=»TAPE f P* P* 0 PVOIN EQU /8 'VOUCHER IN' BIT IN DATA-REQUEST 2 PEOJT EQU /4 'END OF JOURNAL' BIT IN DATA-REQ. T @ PVOCHA EQU /200 BIT #6 DWTTST;VOUCHER STATUS CH. NOT ALLOWED 4 PMESS EQU /400 BIT #5 DWTTST;TEST MESSAGE WRITTEN P*
0x000ca0…120cc0 [0x7a1]: Pad {f00=0x0034, f01=0x0190, f02=»PRINT BUFFER REMOTE | * PTAB EQU /11 TABULATION CHAR IN BUFFER PCR1 EQU /0D CR JOURNAL TAPE J PLF1 EQU /18 LF JOURNAL TAPE n . PCR2 EQU /09 CR TALLY ROLL,VOUCHER/PASSBOOK PLF2 EQU /19 LF TALLY ROLL $ PLDO EQU /0B LIFT DOWN 1 POSITION
0x000ca0…120cc0 [0x7a2]: Pad {f00=0x0034, f01=0x0190, f02=» ^ ( PREL EQU /1B RELEASE VOUCHER/PASSBOOK " PAPH EQU /1D ATTACH PRINT HEAD 4 " PRPH EQU /1E RETURN PRINT HEAD Z 4 PTETX EQU /83 LAST DUMMY AFTER GRASP AND RELEASE P* P* P********************* P* DWT-DISPLACEMENTS * P**
0x000ca0…120cc0 [0x7a3]: Pad {f00=0x0034, f01=0x0190, f02=»E NUMBER t & PDWTALN EQU /23 ACTUAL LINE NUMBER P* : P* D P********************* N P* ECB-DISPLACEMENTS * l P********************* P* & PECBBA EQU 2 BUFFER ADDRESS IN ECB ( PECBRL EQU 4 REQUESTED LENGTH IN ECB ( PEC
0x000ca0…120cc0 [0x7a4]: Pad {f00=0x0034, f01=0x018e, f02=»* P*********** P* BUFFERS * P*********** 2 P* F P* P & PBUF1 DATA /0382,/0D1D STX,CR1,APH Z P IFT CUTPER=0 PBUF2 DATA /0382 STX P XIF P IFT CUTPER=1 PBUF2 DATA /0482 STX P XIF $ P DATA /091
0x000ca0…120cc0 [0x7a5]: Pad {f00=0x0034, f01=0x0190, f02=» P********** P* TABLES * P********** , P* > P* H PTPAD EQU * ADDRESS BLOCK R P DATA ACTP ACTIVATIONDRIVER r P DATA IHTP INTERRUPTHANDLER P DATA RCTP RECOVERY ROUTINE P* $ P* TABLE TO GET ROOMLESS POINT
0x000ca0…120cc0 [0x7a6]: Pad {f00=0x0034, f01=0x018e, f02=»* P* PLFTAB EQU * , P DATA /1819 LINE FEED JOURNAL/TALLY ROLL ( P* X P* b P IFT CUTPER=1 l : PCPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE P XIF PTPTAB EQU * ORDER TABLE P DATA /0002,/0607,/080D
0x000ca0…120cc0 [0x7a7]: Pad {f00=0x0034, f01=0x018e, f02=» P* A C T P P* 2 P* THIS IS THE ACTIVATION PART OF THE DRIVER " > P* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR X P* P* P* PACTP EQU * ACTIVATION ENTRY P* P* < P* GET DWT INDEX: 0=JOURN
0x000ca0…120cc0 [0x7a8]: Pad {f00=0x0034, f01=0x018e, f02=» l , P SC A7,DWTOR+1,A6 SAVE NEW ORDER IN DWT P LDK A4,0 ACTIVATION 8 PACT005 LDK A3,TPLEN-1 T 2 PACT010 CC A7,TPTAB,A3 FIND OUT IF LEGAL ORDER r P RF(E) ACT020 VALID ORDER P SUK A3,1 P RB(NN) ACT010 TRY NEXT P* P ABL
0x000ca0…120cc0 [0x7a9]: Pad {f00=0x0034, f01=0x0190, f02=» z P ABI TPFUC,A3 EXECUTE ORDER 6 PTPFUC DATA TPDUMY,TPDUMY,TP200,TP405,ACT055,ACT050 , P IFT CUTPER=1 f P DATA TP700,TP750 | P XIF P DATA TP800,TP900 P EJECT P* P* , P* ORDER 06,0B: WRITE VOUCHER/PASSBOOK
0x000ca0…120cc0 [0x7aa]: Pad {f00=0x0034, f01=0x0190, f02=»BER FROM CONTROL WORD IN ECB n P RF ACT085 $ P* 6 , PACT055 LD A3,ECBBA,A8 GET BUFFER ADDRESS @ & P LC A3,1,A3 GET CONTROL CHARACTER p $ P ANK A3,/FF REQUESTED LINE STEPS P SUK A3,/39 P RF(G) ACT070 > /39 = ONE LF P ADK A3,/9
0x000ca0…120cc0 [0x7ab]: Pad {f00=0x0034, f01=0x018e, f02=» RF(Z) TP605 /2B = NO LF PACT070 LDK A3,1 ONE LF 4 PACT080 LC A1,DWTRLN,A6 GET LINE NUMBER FROM DWT > * P SUR A1,A3 GET REQUESTED LINE POSITION v 2 PACT085 RF(NN) ACT090 LINE POSITION LESS ZERO ? * P LDK A1,0 YES; SET LINE POSITION ZERO P*
0x000ca0…120cc0 [0x7ac]: Pad {f00=0x0034, f01=0x0190, f02=» P EJECT P* P* P* * P* ORDER 06 : PRINT JOURNAL 4 P* X P* b P* l * PTP200 LDKL A3,BUF1 SEND CR1 AND ATTACH v PTP210 EQU * 0 P LC A1,DWTST,A6 GET LEFT BYTE IN STATUS WORD $ P ANK A1,4 TEXT MESSAGE WRITTEN
0x000ca0…120cc0 [0x7ad]: Pad {f00=0x0034, f01=0x0190, f02=» & P RF(N) TP230 YES; COMPLETE REQUEST P RF(P) TP215 . P LD A1,2,A8 BUFFER ADDRESS B P LC A2,2,A1 THIRD CHARACTER d $ P CCK A2,/2020 CONTROL CHARACTER P RF(NL) TP215 P CF A5,OUTPUT P RF TP220 PTP215 EQU * P CF A5,B
0x000ca0…120cc0 [0x7ae]: Pad {f00=0x0034, f01=0x0190, f02=»US CHANGE ALLOWED p P ANS A2,DWTST,A6 P EJECT 2 P* @ P* J P* ECB-BUFFER IS WRITTEN T P* v * P* SEND LINE FEED IF JOURNAL OR TALLY P* P* PTPLF EQU * P LDR A1,A1 P RF(NE) TPLF10 " P LDK A2,RPH DE
0x000ca0…120cc0 [0x7af]: Pad {f00=0x0034, f01=0x0190, f02=» P XIF PTPLF10 EQU * P SUK A7,8 ( ( P RF(NN) TPL010 NOT JOURNAL AND TALLY : P ADK A7,2 GET INDEX TABLE f $ P LC A2,LFTAB,A7 GET LF CHARACTER P CF A5,OUTPUT SEND LF CHAR. . PTPL010 LD A1,ECBRL,A8 GET REQUESTED LENGTH * P ST
0x000ca0…120cc0 [0x7b0]: Pad {f00=0x0034, f01=0x0190, f02=»ND LAST DUMMY CHARACTER P* PTPDUMY EQU * * P LDK A2,ETX > P CF A5,OUTPUT R P EJECT h P* v P* 0 P* CHECK STATUS AFTER LAST DUMMY CHARACTER P* PTPTST EQU * . P SUK A7,2 TEST STATUS : VOUCHER/PASSBOOK ?
0x000ca0…120cc0 [0x7b1]: Pad {f00=0x0034, f01=0x0190, f02=»UK A7,4 P IFT CUTPER=0 * P RF(G) ENDIO NOT TEST STATUS, JOURNAL & P XIF T P IFT CUTPER=1 ` * P RF(G) TST020 NOT TEST STATUS, JOURNAL v PTST012 EQU * P XIF & P ANK A2,EOJT END OF JOURNAL TAPE? $ P RF(NZ) ENDIO NO: PERFORM EN
0x000ca0…120cc0 [0x7b2]: Pad {f00=0x0034, f01=0x0190, f02=»D I/O AND GO TO DISPATCHER P* " PENDIO EQU * , 4 P ABL DISEND PERFORM END I/O AND GO TO DISPATCHER @ P* x P* P* P* P IFT CUTPER=1 PTST020 SUK A7,16 " P RB(L) ENDIO VOUCHER/PASSBOOK P SUK A7,4 P RB(
0x000ca0…120cc0 [0x7b3]: Pad {f00=0x0034, f01=0x0190, f02=»RINT TALLY ROLL P* ! P* ! " P* ! , ( PTP405 CF A5,RELEAS ERROR. VOUCHER IN ! 6 P* ! b * PTP407 LDKL A3,BUF3 SEND CR2 AND ATTACH ! l PTP410 EQU * ! P LDKL A1,VOCHA ! @ P ORS A1,DWTST,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED ! P R
0x000ca0…120cc0 [0x7b4]: Pad {f00=0x0034, f01=0x0190, f02=»ITION LIFT AND WRITE ! ~ P* " P* " & $ PTP605 CF A5,GRASP GRASP VOUCHER " 0 P EJECT " X P* " f P* " p * P* SEND ELEVATOR UP/DOWN UNTIL ACTUAL " z & P* LINE NUMBER IS EQUAL REQUESTED " P* " P* " . PTP610 CC A3,DWTRLN,A6 COMPARE LINE N
0x000ca0…120cc0 [0x7b5]: Pad {f00=0x0034, f01=0x0190, f02=»T ACTUAL LINE NUMBER " ~ P RF TP640 # & PTP630 LDK A2,LUP SEND ELEVATOR UP # . * P SUK A3,1 DECREMENT ACTUAL LINE NUMBER # X P* # & PTP640 CF A5,OUTPUT SEND LIFT CHAR # P* # , P SC A3,DWTALN,A6 SAVE ACTUAL LINE NUMBER # P ANK A2,VOIN VOUCHER I
0x000ca0…120cc0 [0x7b6]: Pad {f00=0x0034, f01=0x018e, f02=» IFT COMPL=1 # 2 P RB(NZ) TP610 YES: CHECK IF LIFT IS POSITIONED $ $ PTP645 LDK A1,PROUT 'VOUCHER OUT' $ J , P ORS A1,ECBRC,A8 INDICATE IN RETURN CODE $ r P RB TPDUMY $ P XIF $ P EJECT $ P* $ P* $ , P* ORDER 06 AND 0B: LIFT IS POSITIONED
0x000ca0…120cc0 [0x7b7]: Pad {f00=0x0034, f01=0x018e, f02=» P RB TP410 PRINT ECB-BUFFER % P EJECT % & P IFT CUTPER=1 % 4 P* % J 4 P* ORDER 22 AND 26 CUT AND PERFORATE JOURNAL % T P* % PTP700 EQU * % P LDK A1,1 SET INDEX % P RF TP760 % PTP750 EQU * % P LDK A1,0 SET INDEX % " PTP
0x000ca0…120cc0 [0x7b8]: Pad {f00=0x0034, f01=0x0190, f02=» P XIF & P* & < P* ORDER 37 AND 38 GRASP AND RELEASE VOUCHER/PASSBOOK & P* & Z PTP800 EQU * & d P CF A5,GRASPA & x P RB TPDUMY & PTP900 EQU * & P CF A5,RELEAS & P RB TPDUMY & P & P EJECT & P* & P* P R B U F
0x000ca0…120cc0 [0x7b9]: Pad {f00=0x0034, f01=0x0190, f02=»BUF LD A4,ECBRL,A8 GET REQUESTED LENGTH & & P SUK A4,2 ADJUST REQUESTED LENGTH ' 0 " P LD A3,ECBBA,A8 BUFFER ADDRESS ' Z ( P* SKIP PRECEDING SPACES IN BUFFER ' P ADK A3,2 ' " PPRB010 LCR A1,A3 GET CHARACTER ' P CCK A1,/2020 ' P RF(NE) PRB050 N
0x000ca0…120cc0 [0x7ba]: Pad {f00=0x0034, f01=0x0190, f02=»/0D) LAST IN BUFFER ' j $ PPRB050 LDR A1,A3 GET ADDRESS TO ( ( P ADR A1,A4 LAST CHARACTER IN BUFFER ( D P LC A1,-1,A1 GET CHAR ( p * P CCK A1,/0909 CARRIAGE RETURN - CR2 ? ( P RF(E) PRB060 YES ( * P CCK A1,/0D0D CARRIAGE RETURN - CR1 ? ( P RF(E)
0x000ca0…120cc0 [0x7bb]: Pad {f00=0x0034, f01=0x0190, f02=»,ECBEL,A8 SAVE CHAR. IN ECB ( P* ) $ P* ) . . PPRB100 SUK A4,1 DECREMENT REQUESTED LENGTH ) 8 P RF(NN) PRB105 PRINT BUFFER ) j 6 P LD A2,ECBEL,A8 GET CARRIAGE RETURN CHAR (/09,/0D) ) P RF(E) PRB101 ) P CF A5,OUTPUT SEND CHAR ) PPRB101 EQU *
0x000ca0…120cc0 [0x7bc]: Pad {f00=0x0034, f01=0x0190, f02=» WHOLE BUFFER TO BE PRINTED ) z * P LDKL A1,MESS INDICATE MESSAGE PRINTED * $ P ORS A1,DWTST,A6 * R P XIF * j PPRB102 RTN A5 * v P EJECT * P* * P* * P* * P* PRINT BUFFER * P* * P* * PPRB105 EQU * * 2 P ADR A3,A4 ADDRESS
0x000ca0…120cc0 [0x7bd]: Pad {f00=0x0034, f01=0x018e, f02=» P EJECT + P* + P* + P* + & P* PRINT TALLY ROLL + 0 P* + L P* + V P* + ` P ANK A2,VOIN VOUCHER IN ? + j " P RF(Z) PRB200 NO. GO AND PRINT + " P ADK A5,4 RESET STACK POINTER + * P RB TP405 SEND LIFT TO TOP AND RELEAS + P* +
0x000ca0…120cc0 [0x7be]: Pad {f00=0x0034, f01=0x0190, f02=» + ( P RF(Z) RCTP01 ERROR .VOUCHER NOT IN , P XIF , 4 P IFT COMPL=1 , @ P RB(Z) TP645 , T P XIF , h $ P LDR A1,A4 COPY REQUESTED LENGTH , t P SUK A1,2 R.L. < 3? , $ P RF(N) PRB200 YES: NO TABULATION , P LDK A1,TAB , P CC A1,-2,A3 TABULATIO
0x000ca0…120cc0 [0x7bf]: Pad {f00=0x0034, f01=0x0190, f02=» CHARACTERS UNTIL TABULATION POSITION IS REACHED , P* AND ATTACH PRINT HEAD - 8 P* - Z P* - d ( PPRB115 LDK A2,RPH DETACH PRINT HEAD - n P CF A5,OUTPUT SEND DETACH - , PPRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR - $ P LCR A1,A3 GET 2ND TAB POS CHA
0x000ca0…120cc0 [0x7c0]: Pad {f00=0x0035, f01=0x0190, f02=»CDTBY CONVERT TO BINARY - . PPRB120 IM DWTBC,A6 INCREMENT BYTE COUNTER . 2 P CC A1,DWTBC,A6 COMPARE WITH ACTUAL TAB. POS. . R P RF(NG) PRB125 PRINT . P* . P* . P* . P LDK A2,/20 LOAD BLANK . ( P CF A5,OUTPUT SEND BLANKS OR DETACH .
0x000ca0…120cc0 [0x7c1]: Pad {f00=0x0035, f01=0x0190, f02=» . n P LDK A2,APH ATTACH / P RF PRB240 SEND ATTACH / " P EJECT / @ P* / N P* / X P* / b 2 P* GET OUTPUT CHARACTER FROM BUFFER. CHECK IF / l P* - ROOMLESS POINT / P* - ILLEGAL CHARACTER / & P* - SPECIAL CHARACTER (/13,/14) / P*
0x000ca0…120cc0 [0x7c2]: Pad {f00=0x0035, f01=0x0190, f02=» & P SUK A3,1 DECREMENT BUFFER POINTER 0 P SUK A4,1 0 . $ P LCR A7,A3 GET OUTPUT CHARACTER 0 @ P ANK A7,/F MASK 0 h & P LC A7,ROMTAB,A7 GET CODE IN TABLE 0 P* 0 P* 0 P* 0 , PPRB210 CCK A7,/2020 ILLEGAL CHARACTER ? 0 P RF(L) PRB225 YES
0x000ca0…120cc0 [0x7c3]: Pad {f00=0x0035, f01=0x0190, f02=» 0 & P CCK A7,/1313 SPECIAL CHARACTER ? 1 P RF(E) PRB230 YES 1 2 P XIF 1 L P IFT CHR14=1 1 X & P CCK A7,/1414 SPECIAL CHARACTER ? 1 l P RF(E) PRB230 YES 1 P XIF 1 P* 1 " P LDK A1,CCERR CODE CHECK ERROR 1 * P ORS A1,ECBRC,A8 STORE IN RETU
0x000ca0…120cc0 [0x7c4]: Pad {f00=0x0035, f01=0x0190, f02=»A6 INCREMENT BYTE COUNTER 1 $ P LDR A2,A7 GET OUTPUT CHARACTER 2 " & PPRB240 CF A5,OUTPUT SEND CHARACTER 2 J , PPRB245 SUR A3,A4 START OF BUFFER ADDRESS 2 t P RB PRB100 2 P* 2 P* 2 P* 2 P EJECT 2 P* 2 P* I H T P 2 P* 2 0 P
0x000ca0…120cc0 [0x7c5]: Pad {f00=0x0035, f01=0x0190, f02=» RF(N) RCTP10 NOT BUSY 2 $ P LDR A7,A7 TEST STATUS;JOURNAL ? 3 P RF(Z) IHTP20 YES 3 F , P CWK A7,2 TEST STATUS;VOUCHER/PASSBOOK ? 3 ` P RF(Z) IHTP20 YES 3 , P LDR A1,A1 RETURN CODE FROM CHANNEL UNIT 3 8 PIHTP10 ABL(Z) LDREG NO RETURN CODE RESTORE REGIS
0x000ca0…120cc0 [0x7c6]: Pad {f00=0x0035, f01=0x0190, f02=» PIHTP20 LDR A1,A1 4 P ABL(Z) TPTST 4 PIHTP30 EQU * 4 2 P ABL ENDIO 4 F P* 4 X P* 4 b P* 4 l P EJECT 4 v P* 4 P* R C T P 4 P* 4 > P* RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT POWER ON 4 P* 4 & PRCTP CF A15,SAVE8
0x000ca0…120cc0 [0x7c7]: Pad {f00=0x0035, f01=0x0190, f02=» P ADR A5,A6 5 < P LDK A2,REMOT RESET PRINT BUFFER REMOTE AND LOCAL DUMMY 5 P CF A5,OUTPUT SEND DUMMY 5 V P IFT COMPL=1 5 v P LDR A4,A4 STATUS CHANGE ? 5 P ABL(NE) TP645 5 P XIF 5 PRCTP05 EQU * 5 P LDK A2,0 5 2 P SC A2,DWTALN,A6 STORE
0x000ca0…120cc0 [0x7c8]: Pad {f00=0x0035, f01=0x0190, f02=»FF 5 t P ORS A2,8,A8 SET RETURN CODE 6 P XIF 6 . P LDK A4,1 IND RECOVERY 6 : * P ABL ACT005 START RECOVERY OF PRINTER 6 X & PRCTP10 ABL TDISP GO TO DISPATCHER 6 P EJECT 6 P* 6 P* B C D T B Y 6 P* 6 4 P* SUBROUTINE TO CONVERT TO BIN
0x000ca0…120cc0 [0x7c9]: Pad {f00=0x0035, f01=0x0190, f02=»N) BCDTB2 END 6 P SUK A1,6 DECREMENT BY 6 7 P RB BCDTB1 7 6 " PBCDTB2 RTN A5 RETURN TO CALLER 7 J P* 7 p P* 7 z P* 7 P* 7 P* 7 P* G R A S P 7 P* 7 4 P* SUBROUTINE TO SEND GRASP TO VOUCHER/PASSBOOK 7 P* 7 P* 7
0x000ca0…120cc0 [0x7ca]: Pad {f00=0x0035, f01=0x0190, f02=» 7 ~ P CF A5,OUTPUT 8 P ANK A2,VOIN VOUCHER IN ? 8 P RF(NZ) GRAS10 YES 8 @ " P LDK A2,TETX DUMMY AFTER GRASP 8 Z P CF A5,OUTPUT 8 P LDK A2,LFF LIFT TO TOP 8 P CF A5,OUTPUT 8 P RTN A5 8 PGRAS10 LC A3,DWTALN,A6 8 P RTN A5 8 P
0x000ca0…120cc0 [0x7cb]: Pad {f00=0x0035, f01=0x0190, f02=» 8 b P* 9 P* 9 P* 9 PRELEAS EQU * 9 & P LDK A1,0 9 : 0 P SC A1,DWTALN,A6 SET ACTUAL LINE NUMBER TO 0 9 L ( P LDKL A3,BUF5 LIFT TO TOP AND RELEAS 9 P LDK A2,LFF LIFT TO TOP 9 P CF A5,OUTPUT 9 P ANK A2,VOIN VOUCHER IN ? 9 P RF(Z)
0x000ca0…120cc0 [0x7cc]: Pad {f00=0x0035, f01=0x0190, f02=»CHARACTER IN OUTPUT BUFFER 9 P* : " P* : , 4 PBUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS : 6 P ANK A4,/FF MASK : n , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER : $ P LCR A2,A3 GET OUTPUT CHARACTER : P CF A5,OUTPUT SEND CHARACTER : P SUK A4,
0x000ca0…120cc0 [0x7cd]: Pad {f00=0x0035, f01=0x4040, f02=» : P* ; P* ; P* ; P* ; & P END ; 0@ ; < A4,A3 GET NUMBER OF OUTPUT CHARACTERS : 6 P ANK A4,/FF MASK : n , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER : $ P LCR A2,A3 GET OUTPUT CHARACTER : P CF A5,OUTPUT SEND CHARACTER : P SUK A4,
0x000ca0…120cc0 [0x7ce]: Pad {f00=0x0035, f01=0x2008, f02=» < * 8 P* 8 P* 8 P* 8 & P* 8 0 P END 8 :@ 8 F 7 H 4 PBUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS 7 R P ANK A4,/FF MASK 7 , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER 7 $ P LCR A2,A3 GET OUTPUT CHARACTER 7 P CF A5,OUTPUT SE
0x000ca0…120cc0 [0x7cf]: Pad {f00=0x0035, f01=0x0190, f02=»NN) IHKB10 NO,STORE CHARACTER IN DWT-BUFFER 4 P* 5 4 P IFT CTIMUT=1 5 > P* 5 T P LD A3,DWTTP,A6 5 ^ * P RF(E) IHKB05 NO TIMING ON THIS DEVICE 5 v P LDKL A3,-TIME RESTART TIME 5 P ST* A3,DWTTP,A6 5 P* 5 P XIF 5 P* 5 , PIHKB05 ABL
0x000ca0…120cc0 [0x7d0]: Pad {f00=0x0035, f01=0x0190, f02=»T YES 5 P LDR A3,A1 6 2 P CF A15,EOQUEU GET NEXT QUEUE POINTER ADDRESS 6 P CW A1,DWTUTQ,A6 OVERFLOW? 6 V P RF(NE) IHKB20 NO! 6 x 0 P ORK A2,/FF SET OVERFLOW BIT IN INPUT BUFFER 6 P RF IHKB30 6 0 PIHKB20 ST A1,DWTINQ,A6 STORE INQUEUE POINTER 6 4
0x000ca0…120cc0 [0x7d1]: Pad {f00=0x0035, f01=0x0016, f02=»
0x000ca0…120cc0 [0x7d2]: Pad {f00=0x0035, f01=0x0190, f02=» 2 P IDENT DRDY01 REL 9.1 78-09-15 870105740912 P : P CURPOS OUTSIDE SCREEN B P REL 8.1 78-06-16 b P CURPOS ON 6351 ~ P REL 8.1 78-06-08 P DUMMY FAST OUTPUT P REL 8.1 78-04-21 P* 6 P********************
0x000ca0…120cc0 [0x7d3]: Pad {f00=0x0035, f01=0x0190, f02=»C DISPLAY l P* P* P* & P* 0 P* : P* D 6 P************************************************** N P* P* : P* THIS DRIVER HANDLES OUTPUT TO THE VIDEO DISPLAYS @ P* PTS 6344, PTS 6342 AND TO THE PLASMA DISPLA
0x000ca0…120cc0 [0x7d4]: Pad {f00=0x0035, f01=0x0190, f02=»* < P* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS : P* WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN J : P* ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE ( P* GENERAL KEYBOARD DRIVER DRKB01. P* P* 0 P*
0x000ca0…120cc0 [0x7d5]: Pad {f00=0x0035, f01=0x0190, f02=»RUPT HANDLER x P* ( P* R C D Y RECOVERY ROUTINE P* J & P* E C H O D Y ECHO FUNCTIONS T P* ~ P P P P* * P* THE FOLLOWING ORDERS ARE TREATED: P* P* ORDER 00: TEST STATUS P*
0x000ca0…120cc0 [0x7d6]: Pad {f00=0x0035, f01=0x0190, f02=»SITIONING x P* 31: ERASE P* . P* NORMAL REGISTER USAGE 8 P* Z " P* REGISTER A1 = RETURN CODE d ( P* A2 = OUTPUT CHARACTER $ P* A3 = BUFFER INDEX $ P* A4 = WORK REGISTER " P*
0x000ca0…120cc0 [0x7d7]: Pad {f00=0x0035, f01=0x0190, f02=» r P* P EJECT P* P* * P* SYSTEM ADAPTATION 4 P* R < P* DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT. P* * P* --------------------------------- P* BIT: 10 11 P* -------------- " P*
0x000ca0…120cc0 [0x7d8]: Pad {f00=0x0036, f01=0x0190, f02=»----------------------- P* 6 P* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: * 4 P* -CAN HANDLE GRAFIC MODE FOR PTS 6351 OR NOT d , P* -IS ADAPTED TO CONTROL ONLY PTS 6344 : P* -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7 8 P
0x000ca0…120cc0 [0x7d9]: Pad {f00=0x0036, f01=0x0190, f02=»12), LOW INT (/1E), HIGH INT (/1F) p P EJECT * P* 8 P* B P* L P* V P*********** ` P* ENTRIES * t P*********** P* P* P* ( P ENTRY DYAD ADDRESS TO ADDRESSBLOCK 0 P ENTRY ECHODY DEVICE-DEPENDENT ECHO-
0x000ca0…120cc0 [0x7da]: Pad {f00=0x0036, f01=0x0190, f02=»TRIES * t . P***************************************** P* H P* R $ P EXTRN DISIOE I/O REQUEST ERROR . P EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER P EXTRN TDISP DISPATCHER > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND R
0x000ca0…120cc0 [0x7db]: Pad {f00=0x0036, f01=0x0190, f02=»CHO h 0 P EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER P EJECT @ P* N P************************ X P* DWT PARAMETERS * x P************************ P* P EXTRN DWTST STATUS P EXTRN DWTOR ORDER P* $ P********
0x000ca0…120cc0 [0x7dc]: Pad {f00=0x0036, f01=0x0190, f02=» BYTE COUNTER ( PDWTAP EQU /22 HEAD POSITION POINTER PDWTPOS EQU /25 POSITIONS B PDWTLIN EQU /24 LINES b P* ~ P EJECT P************* P* CONSTANTS * P************* P* PFASTO EQU /14 FAST OUTPUT $ PSCADD
0x000ca0…120cc0 [0x7dd]: Pad {f00=0x0036, f01=0x0190, f02=»SITY START x & PLISTOP EQU /1F LOW INTENSITY STOP PBACKSP EQU /08 BACKSPACE < PLF EQU /0A LINE FEED PHOME EQU /0B CURSOR HOME x ( PCLEHOM EQU /0C CLEAR AND CURSOR HOME PCR EQU /0D CARRIAGE RETURN PCURRIG EQU /10 CURSOR RIGHT P
0x000ca0…120cc0 [0x7de]: Pad {f00=0x0036, f01=0x0190, f02=» EQU /12 RETURN TO ALPHANUMERIC MODE * PESCAPE EQU /11 ESCAPE TO GRAPHIC MODE , " PPOINT EQU /2E POINT CHARACTER Z 2 PEQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT PSTILL EQU /18 CURSOR STEADY P* P******************** P* RETUR
0x000ca0…120cc0 [0x7df]: Pad {f00=0x0036, f01=0x0190, f02=» P* P EJECT P* P* & . P***************************************** 0 . P* CONDITIONAL ASSEMBLY * b . P***************************************** P* P* H P* BY SETTING X:A TO 1 DRIVER CAN HANDLE GRAFI
0x000ca0…120cc0 [0x7e0]: Pad {f00=0x0036, f01=0x0190, f02=»PTS 6344 ` P* PX:B EQU 1 PWHATDY EQU 0 , P* @ P* J 8 P* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR T & P* (COLUMNS 6 AND 7) CAN BE USED PX:C EQU 0 PLOWCHA EQU 0 P* P* 8 P* BY MEANS OF CONDI
0x000ca0…120cc0 [0x7e1]: Pad {f00=0x0036, f01=0x0190, f02=» CONSTANT X:G=0 l P* PX:D EQU 0 " PEORECH EQU 0 4 P* H 0 P* BY SETTING THE CONSTANT TRASPA = 1 IT IS R @ P* POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. P* PX:E EQU 0 PTRASPA EQU 1 P EJECT P*
0x000ca0…120cc0 [0x7e2]: Pad {f00=0x0036, f01=0x0190, f02=» P EJECT P* P* P********** * P* TABLES * < P********** N P* ` P* j P* t PDYAD EQU * ADDRESS BLOCK ~ P DATA ACDY ACTIVATION DRIVER P DATA IHDY INTERRUPT HANDLER P DATA RCDY RECOVERY ROUTINE . P
0x000ca0…120cc0 [0x7e3]: Pad {f00=0x0036, f01=0x0190, f02=»E,/1F14 P EJECT P* P* A C D Y ( P* < * P* ACDY = ACTIVATION DRIVER DISPLAY F P* t H P* ORDER 00: TEST STATUS. DUMMY IS SENT TO DISPLAY AND RETURN CODE ~ 2 P* IS SET IF DISPLAY NOT OPERABLE P* P
0x000ca0…120cc0 [0x7e4]: Pad {f00=0x0036, f01=0x0190, f02=»* F P* ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO DISPLAY FROM < P* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. T P* L P* IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU') J P* ARE FOUND EQU
0x000ca0…120cc0 [0x7e5]: Pad {f00=0x0036, f01=0x0190, f02=» IFT GRAFIC=1 B P* ORDER 07: WRITE GRAPHIC DISPLAY. THE DISPLAY IS SWITCHED @ P* TO GRAPHIC MODE AND INFORMATION IN ECB-BUFFER * P* IS SENT TO THE DISPLAY. P* P XIF : P* ORDER /B: CURSOR POSITIONING AND
0x000ca0…120cc0 [0x7e6]: Pad {f00=0x0036, f01=0x0190, f02=» ON DISPLAY b @ P* IS ERASED. THEN STANDARD WRITE (SEE ORDER 6) P* IS EXECUTED. X P* | < P* ORDER 31: ERASE. THE DISPLAY IS ERASED ON THE LINE < P* WHERE THE CURSOR IS POSITIONED THE NUMBER @ P*
0x000ca0…120cc0 [0x7e7]: Pad {f00=0x0036, f01=0x0190, f02=» IN THE CURSOR POSITION. THE CURSOR RE- * P* MAINS IN THAT POSITION. < PACDY EQU * j P LDK A3,0 START BUFFER INDEX | P LDK A4,0 COUNTER P LDR A7,A7 ORDER 0 ? P ABL(E) ADY410 YES P LDK A2,STX START OF MESSA
0x000ca0…120cc0 [0x7e8]: Pad {f00=0x0036, f01=0x0190, f02=»F(E) ACDY02 NO P IFT GRAFIC=1 P CWK A7,7 ORDER ' ? , P ABL(E) ADY500 H P XIF ^ P IFT WHATDY=0 j . P LDK A2,/12 INDICATE SWITCH TO ALPHA MODE P CF A5,OUTPUT P* P XIF P* PACDY02 EQU * P CWK A7,5 ORDE
0x000ca0…120cc0 [0x7e9]: Pad {f00=0x0036, f01=0x0190, f02=» YES P SUK A7,/26 ORDER ERASE ? P ABL(E) ADY160 YES . P* H & PDYERR ABL DISIOE I/O REQUEST ERROR R P EJECT | : P* ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER P* ARE CARRIED OUT. 0 P* /2B NO MOVING OF PRI
0x000ca0…120cc0 [0x7ea]: Pad {f00=0x0036, f01=0x0190, f02=» VALUE CR, LF P* PACDY20 EQU * " $ P LD A2,4,A8 GET REQUESTED LENGTH 6 P RF(E) ACDY25 ^ P LDK A3,2 START BUFFER INDEX t " P LD A2,2,A8 GET BUFFER ADDRESS & P LC A2,1,A2 GET CONTROL CHARACTER P ANK A2,/FF PACDY25 EQU *
0x000ca0…120cc0 [0x7eb]: Pad {f00=0x0036, f01=0x0190, f02=»CATE LINE FEED " P ADK A2,1 DOUBLE LINE FEEED ? P RF(NE) ACDY30 < ( P ADK A4,1 INDICATE DOUBLE LINE FEED R P ~ P $ PACDY30 LDK A2,CR CARRIAGE RETURN PACDY35 LDK A1,1 2 P SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER 8 P* S
0x000ca0…120cc0 [0x7ec]: Pad {f00=0x0036, f01=0x0190, f02=»1 & P RF(N) ACDY90 START SECTION ENDED? P LC A1,DWTLIN,A6 LINES 4 P CC A1,DWTAP,A6 LAST LINE ? R P RF(L) ACDY55 v ( P LDKL A2,/100 INCREMENT LINE COUNTER P ADS A2,DWTAP,A6 & PACDY55 LDK A2,LF LINE FEED TO SEND P RB ACDY50 (
0x000ca0…120cc0 [0x7ed]: Pad {f00=0x0036, f01=0x0190, f02=» P* & P* GET, CHECK AND SEND CHARACTER P* (IF ORDER 5 NO CHECK) 8 P* Z PACDY70 EQU * d P IFT WHATDY=0 x & P LDR* A4,A6 GET CHANNEL PARAMETER P ANK A4,/10 $ P RF(NZ) ACDY75 NOT 6344 OR 6386 P XIF P LD A4,2,A
0x000ca0…120cc0 [0x7ee]: Pad {f00=0x0036, f01=0x018e, f02=»75 EQU * P CF A5,OUTPUT 2 PACDY80 CF A15,POSUPD POSITION COUNTER UPDATING & P IFT TRASPA=1 ( P LD A1,2,A8 GET BUFFER ADDRESS (BA) r ( P LD A2,4,A8 GET REQUESTED LENGTH(RL) $ P ADR A1,A2 GET ADD END OF BUFFER PSKIP05 CWK A2,2 P
0x000ca0…120cc0 [0x7ef]: Pad {f00=0x0036, f01=0x0190, f02=» | PSKIP07 SUK A2,1 DECR RL P RB SKIP05 GET NEXT ( PSKIP20 CWK A2,4 D P RF(NG) SKIP30 RL < 5 P LC A4,-2,A1 GET CHAR z $ P CCK A4,/1111 TABULATION CHAR ? P RF(NE) SKIP25 NO! P SUK A1,2 DECR BA P SUK A2,2 DECR RL
0x000ca0…120cc0 [0x7f0]: Pad {f00=0x0036, f01=0x018e, f02=» RB(Z) SKIP07 YES! SKIP IT! P SUK A4,/C LOW INT. START? $ P RB(Z) SKIP07 YES! F P SUK A4,1 LOW INT. STOP? ` P RB(Z) SKIP07 YES! P* " PSKIP30 ST A2,4,A8 STORE NEW RL P XIF PACDY90 LDK A4,0 6 PADY100 CF A15,GETCHR GET CHA
0x000ca0…120cc0 [0x7f1]: Pad {f00=0x0036, f01=0x018e, f02=» P ANK A2,/7F P LDK A1,5 SET TABLE POINTER " P CC A2,TABSPE,A1 FAST OUTPUT? < P RF(E) ADY125 b P SUK A1,1 NO! x " P LDR* A7,A6 CHANNEL PARAMETER P ANK A7,/30 GRAFIC DISPLAY ? P RF(E) ADY110 NO P LDK A1,0 SET TABLE PONTER
0x000ca0…120cc0 [0x7f2]: Pad {f00=0x0036, f01=0x0190, f02=» | P LDK A4,/80 , PADY120 ORRS A4,A6 SET LOW INTENSITY MODE P LDK A4,0 L P RB ACDY50 ^ $ PADY122 CCK A2,/1212 UNDERLINE ? p P RF(NE) ADY125 " P LDK A4,/40 SET UNDERLINE MODE P RB ADY120 & PADY125 CCK A2,/1414 FAST OUTPUT ?
0x000ca0…120cc0 [0x7f3]: Pad {f00=0x0036, f01=0x0190, f02=» A2,A4 P LD A4,4,A8 REQ LENGTH ! P SUR A4,A3 NUMBER OF CHARS ! , P RF(Z) ADY127 NONE ! N P* ! h P IFT WHATDY=0 ! r & P LDR* A7,A6 GET CHANNEL PARAMETER ! P ANK A7,/10 ! 2 P RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386? ! P XIF ! P L
0x000ca0…120cc0 [0x7f4]: Pad {f00=0x0036, f01=0x0190, f02=» ! PADY128 EQU * " P SUK A1,1 GET NEXT " P RB(NN) ADY110 NOT AT END " 6 P LDR A1,A2 MOVE CHARACTER " X P SUK A1,/11 TAB CHAR? (11) " z P RF(E) ADY140 " P SUK A1,/F LESS THAN /20 ? " " P RF(N) ADY130 CODE CHECK ERROR " P SUK A1,/3F GR
0x000ca0…120cc0 [0x7f5]: Pad {f00=0x0036, f01=0x0190, f02=»ACTER BETWEEN /40 TO /5F " P XIF # P RB ACDY70 # , P* # > P* # H P IFT WHATDY=0 # R POTHER EQU * # h P************************ # | P* A3 = INDEX # P* A1 = CHARACTER # P* A4 = NUMBER # P************************ # P LC A2,DWTBC
0x000ca0…120cc0 [0x7f6]: Pad {f00=0x0036, f01=0x0190, f02=»OS AND # v P ANK A3,/FF $ P ST A4,10,A8 SAVE LENGTH $ " P SUR A3,A2 COMPARE $ B P RF(NN) OT030 LENGTH OK $ P ADR A4,A3 $ | P ST A4,10,A8 SAVE LENGTH $ 0 P ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS $ POT030 EQU * $ & P LDR A3,A1 SAVE CHAR
0x000ca0…120cc0 [0x7f7]: Pad {f00=0x0036, f01=0x018e, f02=» $ P LD A4,10,A8 GET ACT. LENGTH % POT040 LDK A2,BACKSP % , P CF A5,OUTPUT SENDBACKSPACE % H P SUK A4,1 DECREMENT LENGTH % l P RB(P) OT040 % P RB ADY127 % P XIF % P EJECT % P* % P* CODE CHECK ERROR % P* % PADY130 EQU
0x000ca0…120cc0 [0x7f8]: Pad {f00=0x0037, f01=0x0190, f02=» % PADY140 EQU * & , P CF A15,GETCHR GET FIRST ASCII CHARACTER & P LDR A4,A2 & L . P CF A15,GETCHR GET SECOND ASCII CHARACTER & ^ P ANK A2,/F & P ANK A4,/F & P RF(E) ADY144 & 0 PADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL & P SUK A4,1 &
0x000ca0…120cc0 [0x7f9]: Pad {f00=0x0037, f01=0x0190, f02=» SUR A2,A4 AND REQUESTS POSITION COUNTER & & P TO GET NUMBER OF SPACES TO SEND ' 0 P RB(NP) ADY100 ' Z P LDR A4,A2 ' p & PADY145 LDK A2,CURRIG CURSOR RIGHT ' PADY146 CF A5,OUTPUT ' , P CF A15,POSUPD POSITION COUNTER UPDATING ' P SUK A4,1 READY ?
0x000ca0…120cc0 [0x7fa]: Pad {f00=0x0037, f01=0x0190, f02=»A8 GET NUMBER OF CHAR TO ERASE ' P IFT WHATDY=0 ( & " P LDR* A1,A6 CHANNEL PARAMETER ( < P ANK A1,/10 GRAFIC DISPLAY? ( b P RF(NE) ADY170 YES ( P XIF ( P LDK A3,/20 ( P CF A5,FASTER FAST OUTPUT ( PADY165 LDK A2,ETB ( P CF A5,OUTPUT
0x000ca0…120cc0 [0x7fb]: Pad {f00=0x0037, f01=0x0190, f02=»READY ( | * P CWK A4,/24 REQ LENGTH > 36 ********** ) * P RB(G) ADY170 YES EV 781205 ********** ) < P LDK A2,/20 SPACE ) j P CF A5,OUTPUT SEND IT ) P RB ADY170 ) PADY180 LD A4,10,A8 ) P AD A4,DWTAP,A6 ) P ANK A4,/FF ) P LC A3,DWTPOS,A6
0x000ca0…120cc0 [0x7fc]: Pad {f00=0x0037, f01=0x0190, f02=»B(N) ADY165 CURSOR IN ORIGIN POSITION ) P LDK A2,BACKSP CURSOR LEFT * . P CF A5,OUTPUT SEND IT * P P RB ADY186 AGAIN * n PADY190 EQU * * P LD A4,DWTAP,A6 * P ANK A4,/FF * P SUR A3,A4 * P RB ADY186 * P XIF * P EJECT * P* *
0x000ca0…120cc0 [0x7fd]: Pad {f00=0x0037, f01=0x0190, f02=»RAMETER * z P ANK A1,/10 GRAFIC DISPLAY? + P RF(NE) ADY205 YES + 4 2 P* IF VIDEO (6344) SET CURSOR ADDRESS DIRECT + N P XIF + * P LD A4,10,A8 GET REQUESTED CURSOR POS + . P ST A4,DWTAP,A6 UPDATE LINE & POS COUNTER + P CF A5,CURPOS SET CURSOR +
0x000ca0…120cc0 [0x7fe]: Pad {f00=0x0037, f01=0x0190, f02=»SIDE SCREEN? + | P RF(NG) ADY207 NO! , 4 P LC A4,DWTLIN,A6 YES! SET CURSOR AT END OF LINE , . PADY207 EQU * , f $ P LC A3,DWTAP,A6 GET ACTUAL LINE , z PADY210 CWR A4,A3 , . P RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL , P RF(E) ADY300 SAME LINE ,
0x000ca0…120cc0 [0x7ff]: Pad {f00=0x0037, f01=0x0190, f02=» , v " P RB(NZ) ADY210 NOT EQUAL ZERO - P LDK A4,1 - . P RF ADY300 - @ PADY250 LDK A2,HOME HOME - R & P LDK A3,1 RESET ACTUAL LINE NUMBER - r " P ST A3,DWTAP,A6 RESET POSITION - P RB ADY230 - P* - P* GET POSITION - P* - 2 PADY300 S
0x000ca0…120cc0 [0x800]: Pad {f00=0x0037, f01=0x018e, f02=»NG) ADY303 NO! - " P LC A4,DWTPOS,A6 SET LAST LINE . PADY303 EQU * . < P CWK A4,1 FIRST POSITION ? . P P RF(NE) ADY305 NO . r P CWR A4,A3 FIRST LINE ? . P RF(NE) ADY305 NO . P LDK A2,HOME CURSOR GO HOME . P RF ADY330 . * PADY305 RF(NL)
0x000ca0…120cc0 [0x801]: Pad {f00=0x0037, f01=0x0190, f02=» P RF(NG) ADY310 NO! / P SUK A3,1 / * PADY310 CWR A4,A3 FORWARDS OR BACKWARDS / 0 P RF(E) ADY370 POSITION FOUND / ^ P RF(N) ADY340 BACK / P LDK A2,CURRIG CURSOR RIGHT / & P ADK A3,1 UPDATE POSITION COUNTER / PADY330 CF A5,OUTPUT SEND / P
0x000ca0…120cc0 [0x802]: Pad {f00=0x0037, f01=0x0190, f02=»SPACE WAY / ~ P LDK A2,CR CARRIAGE RETURN 0 & P LDK A3,1 INDICATE FIRST POSITION 0 4 P RB ADY330 0 ^ " PADY345 LDK A2,BACKSP BACKSPACE 0 p P CF A5,OUTPUT SEND 0 P SUK A3,1 LAST BACKSPACE ? 0 P RB(NE) ADY345 0 8 PADY370 SC A4,DWTAP+1,A6 UPDATE HEA
0x000ca0…120cc0 [0x803]: Pad {f00=0x0037, f01=0x018e, f02=»Y400 LDK A2,/22 START CHARACTER 0 P CF A5,OUTPUT 1 ( P* 1 > P XIF 1 H P* 1 T P EJECT 1 ^ P* 1 l P* 1 v 8 P* SEND LAST DUMMY, SET CURSOR POSITION IN CONTROL 1 4 P* WORD, LOAD A1 WITH RETURN CODE AND END I/0. 1 P* 1 PADY405 EQU *
0x000ca0…120cc0 [0x804]: Pad {f00=0x0037, f01=0x0190, f02=» 1 P ANK A1,/40 UNDERLINE MODE ? 2 P RF(E) ADY406 NO 2 , " P LDK A2,ULSTOP UNDERLINE STOP 2 D P CF A5,OUTPUT 2 j * PADY406 ANK A4,/80 LOW INTENSITY MODE ? 2 P RF(E) ADY407 2 & P LDK A2,LISTOP LOW INTENSITY STOP 2 P CF A5,OUTPUT 2 PADY407
0x000ca0…120cc0 [0x805]: Pad {f00=0x0037, f01=0x0190, f02=» 2 d PADY410 LDK A2,ETX LAST DUMMY 3 P CF A5,OUTPUT SEND DUMMY 3 , PADY415 EQU * 3 L P SUK A7,5 ORDER 5 ? 3 ` P RF(NE) ADY420 3 | P LDKL A4,/101 HOME POSITION 3 P ST A4,DWTAP,A6 3 , PADY420 LD A4,DWTAP,A6 GET CURSOR POINTER 3 * P ST A4,10,A8
0x000ca0…120cc0 [0x806]: Pad {f00=0x0037, f01=0x018e, f02=» 3 P* 4 P EJECT 4 P* 4 P* GRAPHIC PART 4 * P* 4 D PADY500 EQU * 4 N P LDK A2,/11 4 b ( P CF A5,OUTPUT SWITCH TO GRAFIC MODE 4 v & PADY510 CF A15,GETCHR GET CHARACTER 4 P LDR A1,A1 BUFFER EMPTY 4 P RB(E) ADY400 4 P LDR A4,
0x000ca0…120cc0 [0x807]: Pad {f00=0x0037, f01=0x0190, f02=» 4 t P* 5 P* ADDRESS MESSAGE 5 P* 5 . P* SET FIRST OUT PUT IN A2 5 8 P* AND SECOND IN A4 5 P* 5 z P SLL A1,4 5 P LDR A4,A2 5 P SRL A4,4 5 P ORR A4,A1 5 P ANK A2,/F 5 P ANK A4,/7F 5 P ORK A2,/20 5 , PADY5
0x000ca0…120cc0 [0x808]: Pad {f00=0x0037, f01=0x0190, f02=»Y510 5 P EJECT 6 P* 6 P* DATA MESSAGE 6 $ P* 6 > " P* FIRST OUTPUT IS SET IN A2 6 H P* AND SECOND IN A4 6 n P* 6 PADY530 SLL A1,13 6 P LDR A4,A2 6 P SLL A2,5 6 P ORR A1,A2 6 P LDK A7,10 6 P LDK A2,0 6 PAD
0x000ca0…120cc0 [0x809]: Pad {f00=0x0037, f01=0x0190, f02=»ADY540 6 PADY560 LDR A4,A2 7 P SRL A4,4 7 & P ANK A4,/3F 7 8 P ANK A2,/F 7 L P ORK A2,/60 7 ^ P RB ADY515 7 r P* 7 P XIF 7 P* 7 P EJECT 7 P* 7 , P* UPDAPP = SUBROUTINE TO UPDATE HEAD 7 , P* POSITION POINTER
0x000ca0…120cc0 [0x80a]: Pad {f00=0x0037, f01=0x0190, f02=»DWTAP,A6 UPDATE HEAD POSITION POINTER 7 P LDK A3,0 8 . , P SC A3,DWTBC,A6 RESET POSITION COUNTER 8 @ P RTN A15 8 p P* 8 6 P* POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION 8 0 P* POINTER WHEN REQUEST RUNNING. 8 > P* A CH
0x000ca0…120cc0 [0x80b]: Pad {f00=0x0037, f01=0x0190, f02=» 8 2 P AD A2,DWTAP,A6 INCLUDE HEAD POSITION POINTER 9 P ANK A2,/FF 9 > " P CC A2,DWTPOS,A6 END OF ROW ? 9 R P RF(P) POSU10 9 x , P IM DWTST,A6 INCREMENT POSITION COUNTER 9 PPOSU10 RTN A15 9 P EJECT 9 P* 9 P* I H D Y 9 P* 9 P
0x000ca0…120cc0 [0x80c]: Pad {f00=0x0037, f01=0x0190, f02=»F(N) IHDY10 9 . P LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ? : P RB(NE) ADY420 YES : F 4 PIHDY10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 : ` P EJECT : P* : P* R C D Y : P* : ( P* RCDY = RECOVERY ROUTINE DISPLAY : P* : P* :
0x000ca0…120cc0 [0x80d]: Pad {f00=0x0037, f01=0x0190, f02=»T-ADDRESS : P* A7 = ORDER ; P* A8 = ECB-ADDRESS ; * PRCDY EQU * ; H , P CF A15,SAVE8 SAVE 8 REGISTERS ON STACK ; Z $ P LD A3,DWTST,A6 SAVE STATUS WORD ; P LDKL A2,/7FFF ; P ANS A2,DWTST,A6 SET BUSY ; P IFT STEADY-WHATDY=1 ; " P LDR
0x000ca0…120cc0 [0x80e]: Pad {f00=0x0037, f01=0x0190, f02=»F A5,OUTPUT ; PRCDY05 EQU * < P XIF < ( P* < 4 P IFT WHATDY=0 < > P* < T " P LDR* A2,A6 CHANNEL PARAMETER < ^ " P ANK A2,/10 GRAPHIC DISPLAY ? < P RF(E) RCDY10 NO < . P LDK A2,RETURN RETURN TO ALPHANUMERIC MODE < P CF A5,OUTPUT < P
0x000ca0…120cc0 [0x80f]: Pad {f00=0x0037, f01=0x0190, f02=»RC-ERROR IN BLOCK ? < P RF(NE) RCDY20 = " P LDK A2,CLEHOM CLEAR AND HOME = 2 P CF A5,OUTPUT SEND = X P LDKL A2,/101 = r 6 P ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER = P LDR A3,A3 GET OLD STATUS = P RB(N) ENDIO NOT BUSY = " P LDK A1,
0x000ca0…120cc0 [0x810]: Pad {f00=0x0037, f01=0x0190, f02=»RCDY20 EQU * = P SUK A7,5 ORDER 5 ? > P RF(NE) RCDY25 NO > 0 ( P LDK A1,2 INDICATE THROUGHPUT ERROR > J P RB RCDY15 > v & PRCDY25 LDK A2,STX START OF MESSAGE > P CF A5,OUTPUT > 4 P LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK > P ANK A4,/F
0x000ca0…120cc0 [0x811]: Pad {f00=0x0037, f01=0x018e, f02=»0 > P EJECT ? P* ? P* E C H O D Y ? " P* ? : 0 P* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE ? D P* ? x PECHODY EQU * ? P LDR A7,A7 EOR? ? P RF(N) ECDY17 YES ? P LDR A3,A2 SAVE CHARACTER ? P* ? P IFT EORECH=0 ? P
0x000ca0…120cc0 [0x812]: Pad {f00=0x0037, f01=0x018e, f02=» ? P RF(E) ECDY40 BACKSPACE @ P SUK A3,/10 @ ( P RF(E) ECDY50 CLEAR @ < & PECDY10 CF A5,OUTPUT SEND CHARACTER @ X , P CF A15,POSUPD POSITION COUNTER UPDATING @ P RF ECDY20 @ 4 PECDY17 CF A15,UPDAPP UPDATE HEAD CURSOR POINTER @ ( PECDY20 ABL ECH
0x000ca0…120cc0 [0x813]: Pad {f00=0x0037, f01=0x0190, f02=» P ANK A4,/FF A P RB(E) ECDY20 FIRST POSITION A $ P LDK A4,1 INDICATE ONE BACKSTEP A < P CF A5,BACCAN BACK A d P RB ECDY20 A ~ P EJECT A P* A P* CLEAR A P* A PECDY50 EQU * A ( P LC A4,DWTBC,A6 GET POSITION COUNTER A P ANK A
0x000ca0…120cc0 [0x814]: Pad {f00=0x0037, f01=0x0190, f02=»ISPLAY A | P RF(E) ECDY60 N B P CF A5,BACCAN BACK B & P RB ECDY20 B @ P XIF B R * PECDY60 LDR A3,A4 SAVE POSITION COUNTER B ^ 6 P LD A4,DWTAP,A6 GET HEAD LINE-AND-POSITION COUNTER B P CF A5,CURPOS SET CURSOR B P LDR A4,A3 GET POS COUNTER B P A
0x000ca0…120cc0 [0x815]: Pad {f00=0x0037, f01=0x0190, f02=»ON COUNTER B t P RB ECDY20 C P EJECT C $ P* C 2 P* C < 0 P* BACCAN = SUBROUTINE TO POSITION CURSOR C F 0 P* AT THE PLACE BEFORE REQUEST IF C z 0 P* CLEAR OR BACKWARDS ONE STEP IF C P* BACKSPACE. C P* C
0x000ca0…120cc0 [0x816]: Pad {f00=0x0037, f01=0x0190, f02=»ION COUNTER C r P ANK A2,/FF D " P CC A2,DWTPOS,A6 LAST POSITION D ( P RF(NP) BACA10 NO D N $ P LDK A2,SPACE DESTRUCTIVE SPACE D h P RF BACA20 D " PBACA10 LDK A2,BACKSP BACKSPACE D P CF A5,OUTPUT SEND D $ P LDK A2,SPACE DESTRUCTIVE SPACE D P
0x000ca0…120cc0 [0x817]: Pad {f00=0x0037, f01=0x0190, f02=» A3,A3 NEGATE REGISTER D , P ADS A3,DWTST,A6 UPDATE POSITION COUNTER E P RTN A5 E N P EJECT E ^ 4 P*********************************************** E l 4 P* CHECK = SUBROUTIN TO CHECK USER BUFFER IN * E 4 P* ORDER TO GET A REASON FOR USING
0x000ca0…120cc0 [0x818]: Pad {f00=0x004c, f01=0x0190, f02=»*********************************** E PCHECK EQU * F , P* F @ P* F J P LD A1,4,A8 F T P SUR A1,A3 END OF BUFFER? F h P ABL(NP) ACDY75 YES! F , P LDR A7,A2 SAVE CHER TO SEND (AND CHECK) F ( P LDR A2,A4 SAVE BUFFER ADDRESS+INDEX F P LDK A4,
0x000ca0…120cc0 [0x819]: Pad {f00=0x004c, f01=0x018e, f02=»EMENT POINTER F $ P CCR A7,A2 CHAR EQU TO PREVIUS? G P RB(E) NEXT YES! G > POUT EQU * G V 6 P CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? G h P RF(L) NOFAST NO! G & P********************************** G & P* UPDATE ACTUAL POSITION POINTER * G
0x000ca0…120cc0 [0x81a]: Pad {f00=0x004c, f01=0x018e, f02=» P ST A3,10,A8 SAVE INDEX H 0 P LC A3,DWTPOS,A6 GET MAXNUMBER OF CHAR/LINE H $ P SUR A3,A2 AND COMPARE H X P SUR A3,A4 H v P RF(NN) HIT H P ADR A4,A3 H P ADK A4,1 H ( PHIT ADS A4,DWTST,A6 UPDATE POSITION H P*********************** H
0x000ca0…120cc0 [0x81b]: Pad {f00=0x004c, f01=0x018e, f02=» " P LD A4,DWTST,A6 GET ACTUAL POS I P ANK A4,/FF I * ( P AD A4,DWTAP,A6 INC HEAD POS POINTER I > P CF A5,CURPOS I j " P***************************** I " P* RESTORE A3 (BUFFER INDEX) * I & P LD A3,10,A8 RESTORE BUFFER INDEX I P SUK A3,1 I P A
0x000ca0…120cc0 [0x81c]: Pad {f00=0x004c, f01=0x0190, f02=» P* J < P* FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT J 4 P* AT ENTRY A4 = NUMBER OF CHARACTERS J N P* J PFASTER EQU * J P CWK A4,/60 J . P RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG J P LDK A4,/59 J PFAS010 EQU *
0x000ca0…120cc0 [0x81d]: Pad {f00=0x004c, f01=0x0190, f02=»A5,OUTPUT SEND J P LDR A2,A3 K P CF A5,OUTPUT SEND K ( P RTN A5 K B P EJECT K R P* K ` P* K j * P* CURPOS = SUBROUTINE TO SET CURSOR K t > P* AT ENTRY A4 = CURSOR POS (POSITION AND LINE) K P* K PCURPOS EQU * K P ADKL A4
0x000ca0…120cc0 [0x81e]: Pad {f00=0x004c, f01=0x4160, f02=»NN) CURR05 YES! K P LCK A4,/7F00 L PCURR05 EQU * L . P LDR A2,A4 L B & P CF A5,OUTPUT OUTPUT POSITION (X) L T P LDR A2,A4 L ~ P RF(NN) CURR10 Y < /80! L P LDK A2,/7F L P RF CURR15 L PCURR10 EQU * L P SRL A2,8 SHIFT RIGHT L PCU
0x000ca0…120cc0 [0x81f]: Pad {f00=0x004c, f01=0x2008, f02=» M NE) BACA10 7 P NGR A3,A3 NEGATE REGISTER 7 , P ADS A3,DWTST,A6 UPDATE POSITION COUNTER 7 < P RTN A5 7 l P END 7 |@ 7 6 t P* 6 PBACCAN EQU * 6 P LDR A3,A4 6 " PBACA10 LDK A2,BACKSP BACKSPACE 6 P CF A5,OUTPUT SEND 6 $ P LDK A
0x000ca0…120cc0 [0x820]: Pad {f00=0x004f, f01=0x0190, f02=» U P XIF V P* V PCHLT3 EQU * V P* V 2 P* V < P* V F P* C H L T 3 V P P* V f P* INTERRUPT FROM CHLT3 V p P* V P IFT LOCHAN=4 V $ P ST P,INTSAV SAVE LAST INTERRUPT V & P CF A15,SAVE8 SAVE REGISTERS A1-A8 V P LDK A
0x000ca0…120cc0 [0x821]: Pad {f00=0x004f, f01=0x0190, f02=» & P CF A15,SAVE8 SAVE REGISTERS A1-A8 W P LDK A7,6 INDICATE CHLT3 W . P RF CLT010 W N P* W ` P XIF W j P* W v PCHLT4 EQU * W P* W P* W P* W P* C H L T 4 W P* W P* INTERRUPT FROM CHLT4 W P* W P IFT LOCHAN=
0x000ca0…120cc0 [0x822]: Pad {f00=0x004f, f01=0x018e, f02=» W P* X P XIF X P* X P EJECT X ( P* X 6 P* X @ P* C H R T 1 X J P* INTERRUPT FROM CHRT1 X ` P* X PCHRT1 EQU * X P ST P,INTSAV X & P CF A15,SAVE8 SAVE REGISTERS A1-A8 X P LDK A7,10 INDICATE CHRT1 X P RF CLT010
0x000ca0…120cc0 [0x823]: Pad {f00=0x004f, f01=0x0190, f02=» $ P ST P,INTSAV SAVE LAST INTERRUPT Y P* Y , & P CF A15,SAVE8 SAVE REGISTERS A1-A8 Y 6 P LDK A7,14 INDICATE CHRT2 Y ` P RF CLT010 Y P XIF Y P* Y P IFT RECHAN=3 Y & P ST P,INTSAV STORE LAST INTERRUPT Y & P CF A15,SAVE8 SAVE REGISTERS A1-
0x000ca0…120cc0 [0x824]: Pad {f00=0x004f, f01=0x0190, f02=»RUPT Y t P* Z & P CF A15,SAVE8 SAVE REGISTERS A1-A8 Z P LDK A7,14 INDICATE CHRT2 Z @ P RF CLT010 Z b P XIF Z t P* Z P* Z P* C H R T 3 Z P* Z P* INTERRUPT FROM CHRT3 Z P* Z PCHRT3 EQU * Z P IFT RECHAN=3 Z $ P
0x000ca0…120cc0 [0x825]: Pad {f00=0x004f, f01=0x0190, f02=»10 Z P XIF [ P* [ P IFT RECHAN=4 [ $ P ST P,INTSAV SAVE LAST INTERRUPT [ 6 P* [ ^ & P CF A15,SAVE8 SAVE REGISTERS A1-A8 [ h P LDK A7,18 INDICATE CHRT3 [ P RF CLT010 [ P XIF [ P* [ P* [ P* C H R T 4 [ P* [ P*
0x000ca0…120cc0 [0x826]: Pad {f00=0x004f, f01=0x018e, f02=»F A15,SAVE8 SAVE REGISTERS A1-A8 [ P LDK A7,22 INDICATE CHRT4 ( P XIF J P* V * PCLT010 LD A5,CHTAB,A7 GET CWT-ADDRESS ` P* P XIF P* * P EX CWTINR,A5 EXECUTE INR-INSTRUCTION P* P IFT LOGING=1 P* 4 PCLT0
0x000ca0…120cc0 [0x827]: Pad {f00=0x004f, f01=0x018e, f02=» l 4 P* MOREOVER, IF REMOTE, GET THE RIGHT CHANNEL ] 2 P* OF CHRT AND START OR RESTART SYNC-TIMER. ] @ P* ] v P SUK A7,10 ] " P RF(N) CLT018 LOCAL INTERRUPT ] P LDR A3,A2 ] . P SLC A3,6 REMOTE FIRST OR SECOND CHANNEL ? ] P RF(NN) CLT015
0x000ca0…120cc0 [0x828]: Pad {f00=0x0071, f01=0x0190, f02=»* C W T L T 2 * : P***************************************************** > P* | 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 2 P* PCWTLT2 EQU * P* P IFT LOCHAN=2 P* P*
0x000ca0…120cc0 [0x829]: Pad {f00=0x0071, f01=0x002a, f02=» 8 @ H P X ` h p x
0x000ca0…120cc0 [0x82a]: Pad {f00=0x0071, f01=0x0190, f02=» 2 P IDENT DRRT01 REL 8.2 78-09-15 870105040820 P : P BLOCKSENDIG FIX B P REL 8.1 78-09-04 P CHTAB x P REL 8.1 78-04-21 P 4 P************************************************ P* $ P* PHILIPS TERMINAL SYSTEM
0x000ca0…120cc0 [0x82b]: Pad {f00=0x0071, f01=0x0190, f02=»* P* P* 4 P************************************************ P* V L P* THIS IS THE DRIVER TO CHANNEL UNITS FOR LOCAL AND REMOTE TERMINALS. ` B P* AT INTERRUPT AN INPUT WORD IS READ TO REGISTER A2. IF DATA D P* INPUT OR DATA RE
0x000ca0…120cc0 [0x82c]: Pad {f00=0x0071, f01=0x0190, f02=»SARY ACTIONS P* ARE CARRIED OUT. P* 0 P* : < P* THE DRIVER ALSO INCLUDES THE FOLLOWING SUBROUTINES:- D P* . P* - OUTLIN SEND ONE CHARACTER VIA CHLT P* < P* - CHLTON EXECUTE CIO-START ON EVERY CHLT IN SYSTEM P
0x000ca0…120cc0 [0x82d]: Pad {f00=0x0071, f01=0x0190, f02=» INCLUDED IN THE DRIVER. P EJECT P* . P* 8 P* B B P* THE FOLLOWING FUNCTIONS ARE ALSO INCLUDED IN THE DRIVER:- L P* J P* - OUTPUT SEND ONE CHARACTER, SAVE A3-A5 AND RETURN TO DISPATCHER P* 6 P* - STREG SAVE A3
0x000ca0…120cc0 [0x82e]: Pad {f00=0x0071, f01=0x0190, f02=»O USER VIA A5 P* : P* - LDREGE RESTORE A3-A5 AND RETURN TO USER VIA A5 P* ^ P* h P* r . P* NORMAL REGISTER USAGE IN THE DRIVER:- | P* P* A1 = RETURN CODE P* A2 = INPUT WORD P* A3 = LINE NUMBER * 2
0x000ca0…120cc0 [0x82f]: Pad {f00=0x0071, f01=0x0190, f02=»RESS P* P* P* P EJECT * P* 8 P*************** B P* ENTRIES * Z P*************** r P* P* 2 P ENTRY CHLT1 INTERRUPT FROM FIRST CHANNEL UNIT : P ENTRY CHLT2 INTERRUPT FROM SECOND CHANNEL UNIT LOCAL
0x000ca0…120cc0 [0x830]: Pad {f00=0x0072, f01=0x0190, f02=»ERRUPT FROM FIRST CHANNEL UNIT REMOTE : P ENTRY CHRT2 INTERRUPT FROM SECOND CHANNEL UNIT REMOTE . 2 P ENTRY CHRT3 INTERRUPT FROM THIRD CHANEL REMOT l 4 P ENTRY CHRT4 INTERRUPT FROM FOURTH CHANEL REMOTE $ P ENTRY OUTLIN SEND ONE CHARACTER P ENTRY C
0x000ca0…120cc0 [0x831]: Pad {f00=0x0072, f01=0x0190, f02=»HER | , P ENTRY LDREG RELOAD REGISTERS AND RETURN , P ENTRY LDREGE RETURN FROM ECHO HANDLING < P ENTRY LDREGF RETURN l 6 P ENTRY STREG SAVE REGISTERS IN DWT AND DISPATCHER 4 P ENTRY GETCHR GET ONE CHARACTER FROM ECB-BUFFER P @ P ENTRY D
0x000ca0…120cc0 [0x832]: Pad {f00=0x0072, f01=0x0190, f02=»F REMOTE CHANNEL UNITS z * P ENTRY CWTLT1 CONTROL WORK TABLE CHLT1 * P ENTRY CWTLT2 CONTROL WORK TABLE CHLT2 L * P ENTRY CWTLT3 CONTROL WORK TABLE CHLT3 z * P ENTRY CWTLT4 CONTROL WORK TABLE CHLT4 8 P ENTRY CWTRT1 CONTROL WORK TABLE REMOTE CHANNEL 1.1
0x000ca0…120cc0 [0x833]: Pad {f00=0x0072, f01=0x0190, f02=» CWTRT4 CONTROL WORK TABLE REMOTE CHANNEL 2.2 8 P ENTRY CWTRT5 CONTROL WORK TABLE REMOTE CHANNEL 3.1 6 6 P ENTRY CWTRT6 CONTROL WORK TABLE REMOTE CHANEL 3.2 r 6 P ENTRY CWTRT7 CONTROL WORK TABLE REMOTE CHANEL 4.1 6 P ENTRY CWTRT8 CONTROL WORK TABLE REM
0x000ca0…120cc0 [0x834]: Pad {f00=0x0072, f01=0x0190, f02=» ENTRY ECHEND END OF ECHO P EJECT " P* 0 P* : * P************************************** D * P* EXTERNAL TOSS MODULE ENTRIES * r * P************************************** P* P* & P EXTRN SAVE8 SAVE REGISTERS A1-A8
0x000ca0…120cc0 [0x835]: Pad {f00=0x0072, f01=0x0190, f02=» P EXTRN SETIMP SET TIME 6 P EXTRN INTLT1 INTERRUPT TABLE FOR LOCAL TERMINALS " , P EXTRN INTLT2 INTERRUPT TABLE FOR CHLT2 & P EXTRN INTLT3 INTERRUPT FROM CHLT3 & P EXTRN INTLT4 INTERRUPT FROM CHLT4 6 P EXTRN INTRT1 INTERRUPT TABLE FOR REMOTE T
0x000ca0…120cc0 [0x836]: Pad {f00=0x0072, f01=0x0190, f02=» INTRT4 INTERRUPT TABLE FOR REMOTE CHANEL 4 $ P EXTRN DISIOE I/O REQUEST ERROR 4 & P EXTRN DISEND END I/O AND DISPATCH * P EXTRN INTSAV SAVE AREA LAST INTERRUPT P EXTRN TENDIO $ P EXTRN RTNA15 RETURN AND ENABLE . P EXTRN IHRET8 RESTORE A1
0x000ca0…120cc0 [0x837]: Pad {f00=0x0072, f01=0x0190, f02=»******************* P* P EXTRN DWTOR ORDER & P EXTRN DWTECB ECB-ADDRESS @ * P EXTRN DWTADR ADDRESS TO ADDRESS-BLOCK b P EXTRN DWTST STATUS P EXTRN DWTWAT P* P EJECT P* P* , P****************************
0x000ca0…120cc0 [0x838]: Pad {f00=0x0072, f01=0x0190, f02=»QU /6 LAST OUTPUT CHARACTER $ PDWTOTQ EQU /10 OUTPUT QUEUE LINK $ " PDWTA3 EQU /12 SAVE AREA FOR A3 L " PDWTA4 EQU /14 SAVE AREA FOR A4 r " PDWTA5 EQU /16 SAVE AREA FOR A5 PDWTSB2 EQU /1E STACK BASE 2 PDWTTP EQU /20 TIMER POINTER PDWTE
0x000ca0…120cc0 [0x839]: Pad {f00=0x0072, f01=0x0190, f02=»* P* ( PNOERR EQU 1 RETURN CODE NOT OPERABLE , PTIME EQU 5 TIME BEFORE TIME-OUT FOR SYNC @ 4 PDUMMSP EQU /3 SPECIAL DUMMY TO GET DATA REQUEST p ( P FIRST WHEN PRINTERBUFFER IS EMPTY 0 PDRQTIM EQU 30 TIME TO NEXT ACK FOR PRINTERS P E
0x000ca0…120cc0 [0x83a]: Pad {f00=0x0072, f01=0x0190, f02=»*********************** P* P* * < P* A LOGG FUNCTION OF EVERY INPUT AND OUTPUT CHARACTER 4 8 P* MAY BE INCLUDED TO THE DRIVER BY SETTING X:A=1 t P* PX:A EQU 1 PLOGING EQU 0 P* P* > P* BY SETTING X:B TO
0x000ca0…120cc0 [0x83b]: Pad {f00=0x0072, f01=0x0190, f02=»* P* 8 P* ACKUMULATORS FOR NAK, RETRANSMISSION FAULT AND 4 P* UNDEFINED CONTROL CHARACTERS ARE UPDATED IN P 8 P* THE DRIVER. THIS FUNCTION CAN BE EXCLUDED FROM $ P* DRIVER BY SETTING X:C = 0. P* PX:C EQU 1 PAC
0x000ca0…120cc0 [0x83c]: Pad {f00=0x0072, f01=0x0190, f02=»NEL CARDS. r P* PX:D EQU 2 PRECHAN EQU 4 . P* B P* L P* V , P* REMFC IS " REMOTE TEST FILE CODE " ` P* STANDARD IS /15 P* PX:E EQU /15 PREMFC EQU 15 P* * P* ECHO FUNCTION CAN BE EXCLUDE
0x000ca0…120cc0 [0x83d]: Pad {f00=0x0072, f01=0x0190, f02=»*********************** r : P* C W T L T 1 * : P***************************************************** ^ P* 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 1 P* PDWA1 EQU /03 DEVICEADDRESS P
0x000ca0…120cc0 [0x83e]: Pad {f00=0x0072, f01=0x0190, f02=»A 0 LAST OUTPUT WORD PCWTITA EQU *-CWTLT1 , P DATA INTLT1 ADDRESS TO INTERRUPT TABLE 8 PCWTINR EQU *-CWTLT1 h P INR A2,0,DWA1 INR PCWTOTR EQU *-CWTLT1 P OTR A2,0,DWA1 OTR PCWTCIS EQU *-CWTLT1 P CIO A2,1,DWA1 CIO-START
0x000ca0…120cc0 [0x83f]: Pad {f00=0x0072, f01=0x0190, f02=»2 PCWTADD EQU *-CWTLT1 P* & P IFT ACKMUL=1 0 P* F P DATA 0 NAK-ACKUMULATOR P $ P DATA 0 RETR. FAULT-ACKUMULATOR p , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR PACKTIM EQU *-CWTLT1 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR
0x000ca0…120cc0 [0x840]: Pad {f00=0x0072, f01=0x0190, f02=»* C W T L T 2 * : P***************************************************** > P* | 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 2 P* PCWTLT2 EQU * P* P IFT LOCHAN=2 P* P*
0x000ca0…120cc0 [0x841]: Pad {f00=0x0072, f01=0x018e, f02=»TLT2 INTERRUPT TABLE P INR A2,0,DWA2 INR P OTR A2,0,DWA2 OTR 6 P CIO A2,1,DWA2 CIO-START P " P DATA 0 RETRANSMISSION COUNTER p P DATA 0 QUEUE P DATA 0 SECOND QUEUE P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR
0x000ca0…120cc0 [0x842]: Pad {f00=0x0072, f01=0x0190, f02=» j P* P XIF P* P IFT LOCHAN=3 ( P* > P* H P* R PDWA2 EQU /13 DEVICE ADDRESS P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRUPT TABLE P INR A2,0,DWA2 INR P O
0x000ca0…120cc0 [0x843]: Pad {f00=0x0072, f01=0x0190, f02=»UE ~ P* P IFT ACKMUL=1 P* * P DATA 0 NAK-ACKUMULATOR 4 $ P DATA 0 RETR. FAULT-ACKUMULATOR T , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR | ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* P XIF P* P IFT LOCHAN=4
0x000ca0…120cc0 [0x844]: Pad {f00=0x0072, f01=0x0190, f02=»RD z P DATA INTLT2 INTERRUPT TABLE P INR A2,0,DWA2 INR . P OTR A2,0,DWA2 OTR H P CIO A2,1,DWA2 CIO-START b " P DATA 0 RETRANSMISSION COUNTER P DATA 0 QUEUE P DATA 0 SECOND QUEUE P* P IFT ACKMUL=1 P* P DATA
0x000ca0…120cc0 [0x845]: Pad {f00=0x0072, f01=0x0190, f02=»OUT ACKUMULATOR | P* P XIF " P* . P EJECT 8 P* F P* P : P***************************************************** Z : P* C W T L T 3 * : P****************************************************
0x000ca0…120cc0 [0x846]: Pad {f00=0x0072, f01=0x0190, f02=» P* P* P* PDWA3 EQU /23 DEVICE ADDRESS " P* F P DATA 0 LAST OUTPUT DWT P P DATA 0 LAST OUTPUT WORD p P DATA INTLT3 INTERRUPT TABLE P INR A2,0,DWA3 INR P OTR A2,0,DWA3 OTR P CIO A2,1,DWA3 CIO-START " P D
0x000ca0…120cc0 [0x847]: Pad {f00=0x0072, f01=0x0190, f02=»0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR B ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR r P* P XIF P* P IFT LOCHAN=4 P* P* P* PDWA3 EQU /23 DEVICE ADDR
0x000ca0…120cc0 [0x848]: Pad {f00=0x0072, f01=0x0190, f02=»A3 INR P OTR A2,0,DWA3 OTR P CIO A2,1,DWA3 CIO-START ( " P DATA 0 RETRANSMISSION COUNTER H P DATA 0 QUEUE n P DATA 0 SECOND QUEUE P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR
0x000ca0…120cc0 [0x849]: Pad {f00=0x0072, f01=0x018e, f02=»JECT P* P* : P***************************************************** : P* C W T L T 4 * ^ : P***************************************************** P* 4 P* CONTROL WORK TABLE FOR LOCAL CHAN
0x000ca0…120cc0 [0x84a]: Pad {f00=0x0072, f01=0x0190, f02=» P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD ( P DATA INTLT4 INTERRUPT TABLE H P INR A2,0,DWA4 INR l P OTR A2,0,DWA4 OTR P CIO A2,1,DWA4 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA 0 QUEUE P DATA 0 SECOND
0x000ca0…120cc0 [0x84b]: Pad {f00=0x0072, f01=0x0190, f02=»0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR ! * P* ! V P XIF ! ` P* ! l P EJECT ! v $ P******************************* ! $ P* C W T R T 1 * ! $ P******************************* ! 4 P* CONTROL W
0x000ca0…120cc0 [0x84c]: Pad {f00=0x0072, f01=0x0190, f02=» ! P DATA 0 LAST OUTPUT DWT " P DATA 0 LAST OUTPUT WORD " ( P DATA INTRT1 INTERRUPT TABLE " H P INR A2,0,DWA5 INR " l P OTR A2,0,DWA5 OTR " P CIO A2,1,DWA5 CIO-START " " P DATA 0 RETRANSMISSION COUNTER " P DATA 0 QUEUE TERMINAL 1 " P DAT
0x000ca0…120cc0 [0x84d]: Pad {f00=0x0072, f01=0x0190, f02=» " p , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR # ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR # 8 P* # d P XIF # n P* # z PCWTTP EQU *-CWTRT1 # P DATA 0 TIMER POINTER # PCWSYNC EQU *-CWTRT1 # P DATA /7055 SYNC CHARACTER # PLRCDWT EQU *-CWT
0x000ca0…120cc0 [0x84e]: Pad {f00=0x0072, f01=0x0190, f02=»1 # ~ & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 $ & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 $ 4 PCWTRST EQU *-CWTRT1 $ ^ , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) $ z 0 PCWTBLK EQU *-CWTRT1 BLOCK SENDING INDICATOR $ ( P DATA 0 BIT 0: BLOCKSENDING RUNNING $ $ P
0x000ca0…120cc0 [0x84f]: Pad {f00=0x0072, f01=0x0190, f02=»******************************** $ : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 % ( P* CONNECTED TO FIRST CHRT % f P* % PCWTRT2 EQU * % P DATA 0 LAST OUTPUT DWT % P DATA 0 LAST OUTPUT WORD % P % P DATA INTRT1 INTERRUPT TAB
0x000ca0…120cc0 [0x850]: Pad {f00=0x0073, f01=0x0190, f02=»ATA 0 QUEUE TERMINAL 1 % P DATA 0 QUEUE TERMINAL 2 & P* & > P IFT ACKMUL=1 & H P* & ^ P DATA 0 NAK-ACKUMULATOR & h $ P DATA 0 BLOCK ERROR ACKUMULATOR & , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR & ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR &
0x000ca0…120cc0 [0x851]: Pad {f00=0x0073, f01=0x0190, f02=»MINAL 1 & l 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 ' & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 ' D & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 ' n , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) ' $ P DATA 0 BLOCK SENDING INDICATOR ' P EJECT ' $ P************
0x000ca0…120cc0 [0x852]: Pad {f00=0x0073, f01=0x0190, f02=»T WORK TABLE FOR REMOTE CHANNEL NO. 1 ' " P* CONNECTED TO SECOND CHRT ( . P* ( T PCWTRT3 EQU * ( ^ P* ( r P IFT RECHAN=2 ( | P* ( PDWA6 EQU /11 DEVICE ADDRESS ( P* ( P DATA 0 LAST OUTPUT DWT ( P DATA 0 LAST OUTPUT WORD ( P
0x000ca0…120cc0 [0x853]: Pad {f00=0x0073, f01=0x018e, f02=»SMISSION COUNTER ( P DATA 0 QUEUE TERMINAL 1 ) P DATA 0 QUEUE TERMINAL 2 ) 8 P* ) X P IFT ACKMUL=1 ) b P DATA 0 NAK-ACKUMULATOR ) x $ P DATA 0 BLOCK ERROR ACKUMULATOR ) , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR ) ( P DATA 0 PRINTER TIMEOUT AC
0x000ca0…120cc0 [0x854]: Pad {f00=0x0073, f01=0x0190, f02=» ) v P DATA 0 LAST OUTPUT WORD * P DATA INTRT2 INTERRUPT TABLE * ( P INR A2,0,DWA6 INR * L P OTR A2,0,DWA6 OTR * f P CIO A2,1,DWA6 CIO-START * " P DATA 0 RETRANSMISSION COUNTER * P DATA 0 QUEUE TERMINAL 1 * P DATA 0 QUEUE TERMINAL 2 * P* *
0x000ca0…120cc0 [0x855]: Pad {f00=0x0073, f01=0x018e, f02=»LATOR * n ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR + P* + : P XIF + D P IFT RECHAN=4 + P PDWA6 EQU /11 DEVICE ADDRESS + f P* + P DATA 0 LAST OUTPUT DWT + P DATA 0 LAST OUTPUT WORD + P DATA INTRT2 INTERRUPT TABLE + P INR A2,0,DWA6 INR
0x000ca0…120cc0 [0x856]: Pad {f00=0x0073, f01=0x0190, f02=» P DATA 0 QUEUE TERMINAL 2 , P* , $ P IFT ACKMUL=1 , . P DATA 0 NAK-ACKUMULATOR , D $ P DATA 0 BLOCK ERROR ACKUMULATOR , d , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR , ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR , P* , P XIF , P IFT RECHAN=
0x000ca0…120cc0 [0x857]: Pad {f00=0x0073, f01=0x0190, f02=»DWT OF GOING LRC-PROCESS TERMINAL 2 , & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 - , & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 - V , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) - $ P DATA 0 BLOCK SENDING INDICATOR - P XIF - P IFT RECHAN=3 - P DATA 0 TIMER PO
0x000ca0…120cc0 [0x858]: Pad {f00=0x0073, f01=0x0190, f02=»ERMINAL 2 - n & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 . & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 . < , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) . f $ P DATA 0 BLOCK SENDING INDICATOR . P XIF . P IFT RECHAN=4 . P DATA 0 TIMER POINTER . P DATA /7055
0x000ca0…120cc0 [0x859]: Pad {f00=0x0073, f01=0x0190, f02=»LRC-ACKUMULATOR TERMINAL 1 . & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 / " , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) / L $ P DATA 0 BLOCK SENDING INDICATOR / | P XIF / P EJECT / $ P******************************** / $ P* C W T R T 4 * /
0x000ca0…120cc0 [0x85a]: Pad {f00=0x0073, f01=0x0190, f02=»SECOND CHRT / ~ P* 0 PCWTRT4 EQU * 0 P* 0 2 P IFT RECHAN=2 0 < P DATA 0 LAST OUTPUT DWT 0 R P DATA 0 LAST OUTPUT WORD 0 r P DATA INTRT2 INTERRUPT TABLE 0 P INR A2,0,DWA6 INR 0 P OTR A2,1,DWA6 OTR 0 P CIO A2,1,DWA6 CIO-START 0 " P
0x000ca0…120cc0 [0x85b]: Pad {f00=0x0073, f01=0x0190, f02=» DATA 0 NAK-ACKUMULATOR 0 $ P DATA 0 BLOCK ERROR ACKUMULATOR 1 , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 1 H ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 1 x P XIF 1 P IFT RECHAN=3 1 P DATA 0 LAST OUTPUT DWT 1 P DATA 0 LAST OUTPUT WORD 1 P DAT
0x000ca0…120cc0 [0x85c]: Pad {f00=0x0073, f01=0x0190, f02=»SION COUNTER 1 ~ P DATA 0 QUEUE TERMINAL 1 2 P DATA 0 QUEUE TERMINAL 2 2 4 P* 2 T P IFT ACKMUL=1 2 ^ P DATA 0 NAK-ACKUMULATOR 2 t $ P DATA 0 BLOCK ERROR ACKUMULATOR 2 , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 2 ( P DATA 0 PRINTER TIMEOUT ACKUMU
0x000ca0…120cc0 [0x85d]: Pad {f00=0x0073, f01=0x0190, f02=» TABLE 2 z P INR A2,0,DWA6 INR 3 P OTR A2,1,DWA6 OTR 3 ( P CIO A2,1,DWA6 CIO-START 3 B " P DATA 0 RETRANSMISSION COUNTER 3 b P DATA 0 QUEUE TERMINAL 1 3 P DATA 0 QUEUE TERMINAL 2 3 P* 3 P IFT ACKMUL=1 3 P DATA 0 NAK-ACKUMULATOR 3 $ P D
0x000ca0…120cc0 [0x85e]: Pad {f00=0x0073, f01=0x018e, f02=» 3 P IFT RECHAN=2 4 P* 4 P DATA 0 TIMER POINTER 4 ( P DATA /7255 SYNC-CHARACTER 4 F 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 4 h 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 4 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 4 & P DATA 0 LRC-ACKU
0x000ca0…120cc0 [0x85f]: Pad {f00=0x0073, f01=0x0190, f02=» P* 5 P IFT RECHAN=3 5 P DATA 0 TIMER POINTER 5 $ P DATA /7255 SYNC-CHARACTER 5 B 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 5 d 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 5 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 5 & P DATA 0 LRC-ACKUMULA
0x000ca0…120cc0 [0x860]: Pad {f00=0x0073, f01=0x018e, f02=» 5 P IFT RECHAN=4 6 P DATA 0 TIMER POINTER 6 P DATA /7255 SYNC-CHARACTER 6 < 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 6 ^ 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 6 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 6 & P DATA 0 LRC-ACKUMULATOR TE
0x000ca0…120cc0 [0x861]: Pad {f00=0x0073, f01=0x0190, f02=» P EJECT 7 $ P******************************** 7 $ P* C W T R T 5 * 7 : $ P******************************** 7 b P* 7 : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 1 7 P* CONNECTED TO THIRD CHRT 7 P 7 P* 7 PCW
0x000ca0…120cc0 [0x862]: Pad {f00=0x0073, f01=0x0190, f02=» P DATA 0 LAST OUTPUT WORD 8 P DATA INTRT3 INTERRUPT TABLE 8 $ P INR A2,0,DWA7 INR 8 H P OTR A2,0,DWA7 OTR 8 b P CIO A2,1,DWA7 CIO-START 8 | " P DATA 0 RETRANSMISSION COUNTER 8 P DATA 0 QUEUE TERMINAL 1 8 P DATA 0 QUEUE TERMINAL 2 8 P* 8
0x000ca0…120cc0 [0x863]: Pad {f00=0x0073, f01=0x0190, f02=»R 8 j ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 9 P* 9 6 P XIF 9 @ P IFT RECHAN=4 9 L P* 9 b PDWA7 EQU /21 DEVICE ADDRESS 9 l P* 9 P DATA 0 LAST OUTPUT DWT 9 P DATA 0 LAST OUTPUT WORD 9 P DATA INTRT3 INTERRUPT TABLE 9 P INR A2,0,DW
0x000ca0…120cc0 [0x864]: Pad {f00=0x0073, f01=0x0190, f02=» 9 x P DATA 0 QUEUE TERMINAL 2 : P* : ( P IFT ACKMUL=1 : 2 P DATA 0 NAK-ACKUMULATOR : H $ P DATA 0 BLOCK ERROR ACKUMULATOR : h , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR : ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR : P* : P XIF : P IFT REC
0x000ca0…120cc0 [0x865]: Pad {f00=0x0073, f01=0x0190, f02=»A 0 DWT OF GOING LRC-PROCESS TERMINAL 2 : & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 ; 0 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 ; Z , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) ; $ P DATA 0 BLOCK SENDING INDICATOR ; P XIF ; P IFT RECHAN=4 ; P DATA 0 TIME
0x000ca0…120cc0 [0x866]: Pad {f00=0x0073, f01=0x0190, f02=»SS TERMINAL 2 ; r & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 < & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 < @ , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) < j $ P DATA 0 BLOCK SENDING INDICATOR < P XIF < P EJECT < $ P******************************** < $ P* C
0x000ca0…120cc0 [0x867]: Pad {f00=0x0073, f01=0x018e, f02=». 2 < ^ P* CONNECTED TO THIRD CHRT = P* = 0 PCWTRT6 EQU * = : P* = N P IFT RECHAN=3 = X P DATA 0 LAST OUTPUT DWT = n P DATA 0 LAST OUTPUT WORD = P DATA INTRT3 INTERRUPT TABLE = P INR A2,0,DWA7 INR = P OTR A2,1,DWA7 OTR = P CIO
0x000ca0…120cc0 [0x868]: Pad {f00=0x0073, f01=0x0190, f02=» = P IFT ACKMUL=1 > P DATA 0 NAK-ACKUMULATOR > $ P DATA 0 BLOCK ERROR ACKUMULATOR > > , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR > f ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR > P XIF > P IFT RECHAN=4 > P DATA 0 LAST OUTPUT DWT > P DATA
0x000ca0…120cc0 [0x869]: Pad {f00=0x0073, f01=0x0190, f02=»TART > | " P DATA 0 RETRANSMISSION COUNTER ? P DATA 0 QUEUE TERMINAL 1 ? 2 P DATA 0 QUEUE TERMINAL 2 ? R P* ? r P IFT ACKMUL=1 ? | P DATA 0 NAK-ACKUMULATOR ? $ P DATA 0 BLOCK ERROR ACKUMULATOR ? , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR ? ( P
0x000ca0…120cc0 [0x86a]: Pad {f00=0x0073, f01=0x0190, f02=»-CHARACTER ? 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 @ 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 @ F & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 @ z & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 @ , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) @ $ P DATA 0 BLOC
0x000ca0…120cc0 [0x86b]: Pad {f00=0x0073, f01=0x0190, f02=»SYNC-CHARACTER @ 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 A 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 A J & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 A ~ & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 A , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) A $ P DATA 0
0x000ca0…120cc0 [0x86c]: Pad {f00=0x0073, f01=0x0190, f02=»7 * A $ P******************************** B P* B @ : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 1 B J " P* CONNECTED TO FOURTH CHRT B P* B PCWTRT7 EQU * B P* B P IFT RECHAN=4 B P* B PDWA8 EQU /31 DEVICE
0x000ca0…120cc0 [0x86d]: Pad {f00=0x0073, f01=0x0190, f02=»0,DWA8 INR B P OTR A2,0,DWA8 OTR C P CIO A2,1,DWA8 CIO-START C , " P DATA 0 RETRANSMISSION COUNTER C L P DATA 0 QUEUE TERMINAL 1 C r P DATA 0 QUEUE TERMINAL 2 C P* C P IFT ACKMUL=1 C P DATA 0 NAK-ACKUMULATOR C $ P DATA 0 BLOCK ERROR ACKU
0x000ca0…120cc0 [0x86e]: Pad {f00=0x0073, f01=0x0190, f02=» RECHAN=4 C P DATA 0 TIMER POINTER D P DATA /7055 SYNC-CHARACTER D 0 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 D R 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 D & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 D & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 D
0x000ca0…120cc0 [0x86f]: Pad {f00=0x0073, f01=0x018e, f02=»**************** D $ P* C W T R T 8 * E $ P******************************** E @ P* E h : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 E r " P* CONNECTED TO FOURTH CHRT E P* E PCWTRT8 EQU * E P* E P IFT RECHAN=
0x000ca0…120cc0 [0x870]: Pad {f00=0x0074, f01=0x0190, f02=» P OTR A2,1,DWA8 OTR F P CIO A2,1,DWA8 CIO-START F " P DATA 0 RETRANSMISSION COUNTER F > P DATA 0 QUEUE TERMINAL 1 F d P DATA 0 QUEUE TERMINAL 2 F P* F P IFT ACKMUL=1 F P DATA 0 NAK-ACKUMULATOR F $ P DATA 0 BLOCK ERROR ACKUMULATOR F ,
0x000ca0…120cc0 [0x871]: Pad {f00=0x0074, f01=0x0190, f02=» P DATA 0 TIMER POINTER G P DATA /7255 SYNC-CHARACTER G " 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 G D 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 G x & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 G & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 G , P DATA 0 CH
0x000ca0…120cc0 [0x872]: Pad {f00=0x0074, f01=0x0190, f02=»*************************************** G 6 P* C H T A B * H 0 6 P************************************************* H j P* H 6 P* THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK H 8 P* TABLES CWT TO CHANNEL UNITS FO
0x000ca0…120cc0 [0x873]: Pad {f00=0x0074, f01=0x018e, f02=» IFT LOCHAN=1 H P DATA CWTLT1 I P DATA 0 I , P DATA 0 I < P DATA 0 I L P XIF I P* I h P IFT LOCHAN=2 I r P DATA CWTLT1 I P DATA CWTLT2 I P DATA 0 I P DATA 0 I P XIF I P* I P IFT LOCHAN=3 I P DATA CWTLT1 I
0x000ca0…120cc0 [0x874]: Pad {f00=0x0074, f01=0x0190, f02=» P DATA CWTLT3 J P DATA CWTLT4 J P XIF J , P* J 8 P DATA CWTRT1 J B P DATA CWTRT2 J V P* J j P IFT RECHAN=3 J t P DATA CWTRT3 J P DATA CWTRT4 J P DATA CWTRT5 J P DATA CWTRT6 J P* J P XIF J P* J P IFT RECHAN=2 J
0x000ca0…120cc0 [0x875]: Pad {f00=0x0074, f01=0x0190, f02=»A CWTRT5 J P DATA CWTRT6 K P DATA CWTRT7 K $ P DATA CWTRT8 K 8 P XIF K L PCHTABE EQU * END OF TABLE K X P* K z P* K P EJECT K P* K P* K ( P************************************ K ( P* D W R E M U * K ( P**
0x000ca0…120cc0 [0x876]: Pad {f00=0x0074, f01=0x0190, f02=» K p P* L PDWREMU EQU * L P DATA 0 L & P DATA /8000 STATUS L 6 P DATA 0,0 L P ( P DATA AREM POINTER TO ADDRESS-BLOCK L b P DATA 0,0,0 L P EJECT L P* L P* L * P* L O O P - T E S T S E C T I O N L P* L P* L 2 P*
0x000ca0…120cc0 [0x877]: Pad {f00=0x0074, f01=0x0190, f02=»UEST IS COMPLETED WITH FOLLOWING BITS L P* IN RETURN CODE OF ECB: M . P* M R 2 P* BIT 9: CHANNEL UNIT NOT IN ACTIVE STATUS M P* M P* M . P* BIT 14: ACK NOT RECEIVED AFTER OUTPUT M P* M 0 P* BIT 15: SYNC NOT RECEIVED AFTER OUT
0x000ca0…120cc0 [0x878]: Pad {f00=0x0074, f01=0x0190, f02=» ANK A2,/FF M P RF(E) DISIIE N P CWK A2,8 CHANNEL 1-8 ? N * P RF(G) DISIIE N J P SLL A2,1 N ` & P LD A2,CHTAB+8,A2 GET CWT-ADDRESS N r P RF(E) DISIIE N P LDR A7,A7 WRONG ORDER ? N P RF(E) LOPT10 NO N ( PDISIIE ABL DISIOE I/O REQUEST ER
0x000ca0…120cc0 [0x879]: Pad {f00=0x0074, f01=0x0190, f02=»SY N n & P LDK A5,/E0 INDICATE REQUEST GOING O * P ST A5,CWTRST,A2 INDICATE LOOP-TESTING O 4 P ABL TDISP O b P EJECT O t P* O P* O P* END OF LOOP-TEST O P* O PIHLOP EQU * O P LDR A5,A1 GET CWT-ADDRESS O , P LD A1,CWTRST,A5 GET C
0x000ca0…120cc0 [0x87a]: Pad {f00=0x0074, f01=0x0190, f02=»E IN CHANNEL STATUS O n P ABL DISEND P P EJECT P 0 P* P > P* P H P* C H L T 1 / C H L T 2 P R P* P t P* C H R T 1 / C H R T 2 P ~ P* P 8 P* THIS IS THE INTERRUPT HANDLER FOR CHLT AND CHRT P P* P 2 P* WHEN INTERRUPT FROM A
0x000ca0…120cc0 [0x87b]: Pad {f00=0x0074, f01=0x0190, f02=»* LOGGS IT AND DETERMINES INPUT WORD TO GET P 0 P* DEVICE NUMBER , LINE NUMBER AND TYPE OF Q 6 P* INTERRUPT. Q j P* Q 2 P* FOLLOWING TYPES OF INTERRUPT ARE RELEVANT Q P* Q . P* D = DEVICE ADDRESS C = CHARACTER Q P* Q 8 P*
0x000ca0…120cc0 [0x87c]: Pad {f00=0x0074, f01=0x0190, f02=»IME OUT D = 0 C = 0 Q 8 P* SER POWER ON D = 0 C = 3 R , 8 P* DRI DATA REQUEST IMMEDIATE SIGN BIT SET R h 8 P* ABC+ BLOCK TR. ACKNOWLEDGED D = 0 C = 8 R 8 P* ABC-L LRC ERROR IN BLOCK D
0x000ca0…120cc0 [0x87d]: Pad {f00=0x0074, f01=0x0190, f02=» 8 P* DRD DATA REQUEST DELAYED D # 0 C = 0 S F P* LOCAL CHAR. MAY BE DIFFERENT FROM ZERO S @ 8 P* STD STATUS MESSAGE D # 0 C # 0 S 2 P* DIN DATA INPUT D # 0 S P EJECT S P
0x000ca0…120cc0 [0x87e]: Pad {f00=0x0074, f01=0x018e, f02=»LAST INTERRUPT S ~ P* T & P CF A15,SAVE8 SAVE REGISTERS A1-A8 T P LDK A7,2 INDICATE CHLT1 T J P RF CLT010 T j P* T | PCHLT2 EQU * T P* T P* T P* T P* T P* C H L T 2 T P* T P* INTERRUPT FROM CHLT2 T P* T
0x000ca0…120cc0 [0x87f]: Pad {f00=0x0074, f01=0x0190, f02=» T v P RF CLT010 U P* U P XIF U $ P* U 0 P IFT LOCHAN=3 U : $ P ST P,INTSAV SAVE LAST INTERRUPT U P & P CF A15,SAVE8 SAVE REGISTERS A1-A8 U x P LDK A7,4 INDICATE CHLT2 U P RF CLT010 U P* U P XIF U P* U P IFT LOCHAN=4 U $ P
0x000ca0…120cc0 [0x880]: Pad {f00=0x0074, f01=0x0190, f02=» U P XIF V P* V PCHLT3 EQU * V P* V 2 P* V < P* V F P* C H L T 3 V P P* V f P* INTERRUPT FROM CHLT3 V p P* V P IFT LOCHAN=4 V $ P ST P,INTSAV SAVE LAST INTERRUPT V & P CF A15,SAVE8 SAVE REGISTERS A1-A8 V P LDK A
0x000ca0…120cc0 [0x881]: Pad {f00=0x0074, f01=0x0190, f02=» & P CF A15,SAVE8 SAVE REGISTERS A1-A8 W P LDK A7,6 INDICATE CHLT3 W . P RF CLT010 W N P* W ` P XIF W j P* W v PCHLT4 EQU * W P* W P* W P* W P* C H L T 4 W P* W P* INTERRUPT FROM CHLT4 W P* W P IFT LOCHAN=
0x000ca0…120cc0 [0x882]: Pad {f00=0x0074, f01=0x018e, f02=» W P* X P XIF X P* X P EJECT X ( P* X 6 P* X @ P* C H R T 1 X J P* INTERRUPT FROM CHRT1 X ` P* X PCHRT1 EQU * X P ST P,INTSAV X & P CF A15,SAVE8 SAVE REGISTERS A1-A8 X P LDK A7,10 INDICATE CHRT1 X P RF CLT010
0x000ca0…120cc0 [0x883]: Pad {f00=0x0074, f01=0x0190, f02=» $ P ST P,INTSAV SAVE LAST INTERRUPT Y P* Y , & P CF A15,SAVE8 SAVE REGISTERS A1-A8 Y 6 P LDK A7,14 INDICATE CHRT2 Y ` P RF CLT010 Y P XIF Y P* Y P IFT RECHAN=3 Y & P ST P,INTSAV STORE LAST INTERRUPT Y & P CF A15,SAVE8 SAVE REGISTERS A1-
0x000ca0…120cc0 [0x884]: Pad {f00=0x0074, f01=0x0190, f02=»RUPT Y t P* Z & P CF A15,SAVE8 SAVE REGISTERS A1-A8 Z P LDK A7,14 INDICATE CHRT2 Z @ P RF CLT010 Z b P XIF Z t P* Z P* Z P* C H R T 3 Z P* Z P* INTERRUPT FROM CHRT3 Z P* Z PCHRT3 EQU * Z P IFT RECHAN=3 Z $ P
0x000ca0…120cc0 [0x885]: Pad {f00=0x0074, f01=0x0190, f02=»10 Z P XIF [ P* [ P IFT RECHAN=4 [ $ P ST P,INTSAV SAVE LAST INTERRUPT [ 6 P* [ ^ & P CF A15,SAVE8 SAVE REGISTERS A1-A8 [ h P LDK A7,18 INDICATE CHRT3 [ P RF CLT010 [ P XIF [ P* [ P* [ P* C H R T 4 [ P* [ P*
0x000ca0…120cc0 [0x886]: Pad {f00=0x0074, f01=0x018e, f02=»F A15,SAVE8 SAVE REGISTERS A1-A8 [ P LDK A7,22 INDICATE CHRT4 ( P XIF J P* V * PCLT010 LD A5,CHTAB,A7 GET CWT-ADDRESS ` P* P XIF P* * P EX CWTINR,A5 EXECUTE INR-INSTRUCTION P* P IFT LOGING=1 P* 4 PCLT0
0x000ca0…120cc0 [0x887]: Pad {f00=0x0074, f01=0x018e, f02=» l 4 P* MOREOVER, IF REMOTE, GET THE RIGHT CHANNEL ] 2 P* OF CHRT AND START OR RESTART SYNC-TIMER. ] @ P* ] v P SUK A7,10 ] " P RF(N) CLT018 LOCAL INTERRUPT ] P LDR A3,A2 ] . P SLC A3,6 REMOTE FIRST OR SECOND CHANNEL ? ] P RF(NN) CLT015
0x000ca0…120cc0 [0x888]: Pad {f00=0x0074, f01=0x0190, f02=» * P ANK A3,/2 FIRST OR SECOND TERMINAL ? ^ P LDR A7,A5 ^ 2 P ADR A7,A3 ^ D & P LD A3,CWTRST,A5 LOOP TEST MODE ? ^ V P ABL(N) CLT170 YES ^ & PCLT018 LDK A1,0 RESET RETURN CODE ^ ( P LDR A3,A2 DATA REQUEST IMMEDIATE ? ^ P RF(N) CLT050 ^ $ P ANK
0x000ca0…120cc0 [0x889]: Pad {f00=0x0074, f01=0x0190, f02=»OF CONTROL CHARACTER ^ | P* _ P LDR A3,A2 _ & . P ANK A3,/FF DELETE DEVICE AND LINE NUMBER _ 8 P RF(E) CLT030 OER _ j P SUK A3,7 _ P RF(E) CLT050 ACK _ P ADK A3,2 _ P ABL(E) CLT080 NAK _ P ADK A3,2 _ P ABL(E) CLT100 POWER ON _
0x000ca0…120cc0 [0x88a]: Pad {f00=0x0074, f01=0x0190, f02=» P RF(E) EXIIT NO ` P XRK A4,/80 YES, RESET BIT ` P SC A4,LRCACK,A7 AND STORE ` > " P LD A6,LRCDWT,A7 LRC-DEVICE ? ` ` P RF(E) EXIIT ` P ANK A4,/7F ` P RF(Z) CLT046 YES ` * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER ` ( P LDK A4,1 RESET BLOC
0x000ca0…120cc0 [0x88b]: Pad {f00=0x0074, f01=0x018e, f02=» ` , P IM CWTADD+2,A5 UPDATE ERROR ACKUMULATOR a P XIF a 8 P* a D P SUK A3,4 VRC-ERROR ? a N P RF(E) CLT042 YES a l P LDK A4,1 a P SUK A3,2 a P RF(E) CLT033 a P ADK A3,4 a P RF(E) CLT033 a P EJECT a P* a 0 P* RESOL
0x000ca0…120cc0 [0x88c]: Pad {f00=0x0074, f01=0x018e, f02=» a f P* DEVICE DRIVER. b PCLT030 LDR A7,A7 REMOTE ? b $ P RF(N) CLTQUE NO b F P LD A6,LRCDWT,A7 b ^ P SUR* A6,A5 LRC-DEVICE ? b v P RF(NE) CLTQUE b * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER b P LDK A4,1 b 0 P ANS A4,CWTBLK,A5 RESET BLOCKS
0x000ca0…120cc0 [0x88d]: Pad {f00=0x0074, f01=0x0190, f02=» b & P ANK A2,/30 ECHO AND RECOVERY BIT c P RF(NE) CLT045 c 2 , P ORK A3,/10 INDICATE RECOVERY TRIAL DONE c H P SC A3,DWTST,A6 STORE c x PCLT032 LDK A4,0 c 0 PCLT033 LDK A3,2 INDICATE RECOVERY OF DEVICE c P RF CPO025 c P EJECT c P* c
0x000ca0…120cc0 [0x88e]: Pad {f00=0x0074, f01=0x0190, f02=»* IF OUTPUT TO PRINTERS WITH LRC-CONTROL SAME c P* PROCEDURE AS FOR ABC+. d 8 P* d & PCLT042 LDR* A4,A6 BLOCK SENDING ? d f P RB(N) CLT031 d PCLT043 ABL CLT107 d P EJECT d P* d P* POWER ON d P* d 8 P* RECOVERY ROUT
0x000ca0…120cc0 [0x88f]: Pad {f00=0x0074, f01=0x0190, f02=» d t P* e & P* ON EXIT TO RECOVERY ROUTINE: e P* e < P* A5 = STACKBASE e F P* A6 = DWT-ADDRESS e b P* e PCHPOWO EQU * e , P LDR* A2,A5 GET CHANNEL OCCUPYING DEVICE e . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER e P LDR A7,A7
0x000ca0…120cc0 [0x890]: Pad {f00=0x0075, f01=0x018e, f02=»KSENDING RUNNING e t $ PCPO010 LDR A3,A6 DEVICE COUNTER f P ANK A3,/FF f @ " P LDR A1,A8 SET ADDRESS POINTER f T PCPO020 ADK A1,2 f z P LDR* A6,A1 GET DWT-ADDRESS f P RF(E) CPO030 f P SRC A6,1 f P RF(N) CPO030 f P SLC A6,1 f ( P LCR
0x000ca0…120cc0 [0x891]: Pad {f00=0x0075, f01=0x0190, f02=» f l P ANS A7,DWTST,A6 g P LC A7,DWTST,A6 g P ANK A7,/20 ECHO MODE ? g 8 P RF(NE) CPO030 YES g X 0 P CWR A6,A2 DEVICE WAITING FOR CHANNEL ANSWER g r P RF(E) CPO030 YES g : PCPO025 LD A7,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK IN A7 g 2 P LD A7,4,A7
0x000ca0…120cc0 [0x892]: Pad {f00=0x0075, f01=0x0190, f02=»RECOVERY ROUTINE g ~ * PCPO030 SUK A3,2 ALL DEVICES THREATED? h P RB(NE) CPO020 NO TAKE NEXT h F PEXIIT RF EXIT h j P EJECT h P* h 6 P* INDICATE NOT OPERABLE BEFORE GOING TO DRIVER h P* h PCLT045 EQU * h ( P LDK A1,NOERR INDICATE NOT
0x000ca0…120cc0 [0x893]: Pad {f00=0x0075, f01=0x0190, f02=»ND THEN EXAMINE LAST h v 0 P* OUTPUT DWT. IF NOT DEFINED UPDATE ERROR i 6 P* ACKUMULATOR AND GO TO DISPATCHER. IF SYNC-ACK i P P* DROP IT. i 8 P* NORMAL ACK OR DRI WILL RESULT IN A RESETTING OF i 8 P* RECOVERY BIT IN DWT. THEN A SIMULATION OF
0x000ca0…120cc0 [0x894]: Pad {f00=0x0075, f01=0x0190, f02=» i X : P* HANDLING ANSWERS FROM DEVICE IS AFFECTED AND THEN j > P* IF DRI A BRANCH IS MADE TO THE DATA REQUEST SECTION. j F * P* IF ACK WE HAVE TO WAIT FOR A DRD. j PCLT050 EQU * j & P LC A3,CWTLOW,A5 LAST OUTPUT WORD j " P ANK A3,/F0 KEEP DEVIC
0x000ca0…120cc0 [0x895]: Pad {f00=0x0075, f01=0x0190, f02=»DK A4,2 j 4 P ORS A4,CWTRST,A5 INDICATE ACK IN CHANNEL STATUS k P LDR A8,A3 OBC-ACK ? k H P RF(NE) CLT052 k d P LDKL A3,/8000 k z * P ORS A3,LRCACK,A7 INDICATE ABC ALLOWED k P RF CLT055 k PCLT052 EQU * k . P LDR* A3,A6 DEVICE WITHOUT DATA REQUES
0x000ca0…120cc0 [0x896]: Pad {f00=0x0075, f01=0x0190, f02=»G k ~ P* l PCLT055 EQU * l P INH l ( * P LD A3,DWTTP,A6 ADDRESS TO TIMER BLOCK l 4 P RF(E) CLT060 l b P* l x P* RESTART TIMER l P* l " P LDKL A3,-DRQTIM RESTART TIMER l P ST* A3,DWTTP,A6 l P RF CLT068 l P* l P* START
0x000ca0…120cc0 [0x897]: Pad {f00=0x0075, f01=0x018e, f02=» l v " P CF A15,SETIMP GET TIMER BLOCK m > P DATA DRQTUT,DRQTIM ADDRESS TO TIME-OUT ROUTINE AND DELAY m . PCLT068 EQU * m p P LDR A8,A8 OBC-ACK ? m P RF(E) EXIT YES m P LDK A1,0 m & P LDR* A4,A6 GET CHANNEL PARAMETER m . P RF(N) CLT110 DEVICE W
0x000ca0…120cc0 [0x898]: Pad {f00=0x0075, f01=0x0190, f02=» P EJECT n P* n 8 P* TIME-OUT ROUTINE HANDLING MISSING DATA REQUESTS n : P* FROM PRINTERS AND , FOR REMOTLY CONNECTED DEVICES n X 8 P* USING THE LRC-FUNCTION , MISSING BLOCK CONTROL n . P* CHARACTERS (ABC) FROM SELECTOR UNIT. n P* n
0x000ca0…120cc0 [0x899]: Pad {f00=0x0075, f01=0x0190, f02=»B(N) EXIT n P SLL A3,2 ECHO MODE ? o P RF(N) CLT110 YES o 0 " P LDR* A5,A6 CHANNEL PARAMETER o J P ANK A5,/F o p P SLL A5,1 2 * INDEX o P LDK A2,/83 o P CC A2,DWTOCH,A6 o P RF(NE) DRQT10 o P SUK A5,4 LOCAL DEVICE ? o P RB(N) EXI
0x000ca0…120cc0 [0x89a]: Pad {f00=0x0075, f01=0x0190, f02=»T-ADDRESS o x ( P IM ACKTIM,A5 INCREMENT ACKUMULATOR p P* p > P XIF p H P* p T P ABL CLT032 p ^ P EJECT p r P* p P* N A K p P* p 8 P* ERROR ACKUMULATOR AND RETRANSMISSION COUNTER IS p 8 P* UPDATED. LAST OUTPUT CHARACTER IS R
0x000ca0…120cc0 [0x89b]: Pad {f00=0x0075, f01=0x0190, f02=»IVER. p ^ P* q PCLT080 EQU * q $ P LDR* A6,A5 GET LAST OUTPUT DWT q , P RB(E) EXIT q T P* q h P IFT ACKMUL=1 q r P* q * P IM CWTADD,A5 UPDATE ERROR ACKUMULATOR q P* q P XIF q P* q P CWK A6,1 SYNC BEFORE NAK? q P RB(E) E
0x000ca0…120cc0 [0x89c]: Pad {f00=0x0075, f01=0x0190, f02=» P ABL(E) CLT030 r * P LD A2,CWTLOW,A5 GET LAST OUTPUT WORD r $ P EX CWTOTR,A5 EXECUTE OTR-INSTR. r H P IFT LOGING=1 r p 2 P CF A15,LOGG ** LOGG INPUT CHARACTER ** r P XIF r P STR A6,A5 SET CHANEL BUSY r , P ST A2,CWTLOW,A5 STORE LAST OUTP
0x000ca0…120cc0 [0x89d]: Pad {f00=0x0075, f01=0x0190, f02=» CF A15,RESTSY START OR RESTART SYNC-TIMER r PCLT090 ABL TDISP s 2 P EJECT s J P* s X P* s b $ P* DATA INPUT AND DATA REQUEST s l P* s 6 P* LOCAL DEVICES: GET DWT-ADDRESS, GET ORDER AND s : P* ECB-ADDRESS AND GO TO DEVICE-DEPENDENT INTERR
0x000ca0…120cc0 [0x89e]: Pad {f00=0x0075, f01=0x0190, f02=»VICES s : P* DATA REQUEST: INPUT WORD IS COMPLEMENTED WITH t 8 P* STATUS FROM CHANNEL PARAMETER. t L : P* STATUS MESSAGE: NEW STATUS IS STORED IN CHANNEL t @ P* PARAMETER. THEN WAIT-STATUS-INDICATOR t < P
0x000ca0…120cc0 [0x89f]: Pad {f00=0x0075, f01=0x0190, f02=» GET ORDER AND ECB-ADDRESS AND GO TO t < P* DEVICE WITH THE NEW STATUS. IF NO u < > P* WAITING FOR STATUS, CONTROL IS GIVEN u | ( P* TO DISPATCHER. u P* u P* u PCLT100 EQU *
0x000ca0…120cc0 [0x8a0]: Pad {f00=0x0075, f01=0x0190, f02=»E NUMBER u | P CWK A4,/E SYNC-INPUT ? v P RF(E) CLT150 YES v 0 P LOOP SWITCH SET v J 0 P LD A8,CWTITA,A5 ADDRESS TO INTERRUPT TABLE v d P ADR A8,A3 v , P LDR* A8,A8 ADDRESS TO TERMINAL SECTION v P RB(Z) EXIT NOT DEFINED v P LDR* A6,A8 GET
0x000ca0…120cc0 [0x8a1]: Pad {f00=0x0075, f01=0x018e, f02=»N v z & P ADR A8,A4 ADDRESS TO DWT-ADDRESS w P LDR* A6,A8 GET DWT-ADDRESS w 4 P RB(E) EXIT w X P ANKL A6,/FFFE w l 2 P LCR A3,A6 GET FIRST BYTE IN CHANNEL PARAMETER w P ANK A3,1 DATA INPUT ? w P RF(NE) CLT110 YES w & P LDR* A4,A6 GET CHANNEL PA
0x000ca0…120cc0 [0x8a2]: Pad {f00=0x0075, f01=0x0190, f02=» w P SUK A3,DUMMSP x P RF(NE) CLT110 x P* x 4 P************************* x > P* x ` PCLT107 EQU * x j P INH x ~ & P LD A7,DWTTP,A6 GET TIMER POINTER x & P RF(E) CLT110 TIMER ALREADY RESET x P* x P************************* x P
0x000ca0…120cc0 [0x8a3]: Pad {f00=0x0075, f01=0x0190, f02=»SS x v , P LD A3,DWTADR,A6 ADDRESS TO ADDRESSBLOCK y P ENB y : & P ABI 2,A3 GO TO INTERRUPT HANDLER y F P* y p * PCLT120 LDR A7,A2 REMOTE DATA REQUEST ? y z P ANK A7,/FF y P RF(NE) CLT130 y $ P CWR* A6,A5 DRD BEFORE ANSWER ? y P RB(E) EXIT YES
0x000ca0…120cc0 [0x8a4]: Pad {f00=0x0075, f01=0x0190, f02=»E OLD STATUS y P ANK A4,/3F RESET OLD STATUS z P SLL A2,4 z 8 P ANK A2,/C0 z J P ORR A4,A2 z ^ ( P SC A4,1,A6 STORE NEW STATUS IN DWT z p $ P LD A4,DWTST,A6 GET STATUS WORD z * P ANKL A4,/200 STATUS CHANGE ALLOWED ? z P RF(E) CLT154 EG. EXIT z
0x000ca0…120cc0 [0x8a5]: Pad {f00=0x0075, f01=0x0190, f02=» ABL CLT033 z P EJECT { P* { " P* { , P* TFU IN LOOP MODE { 6 P* { T PCLT150 EQU * { ^ P LDK A4,1 { r P CWR* A4,A5 SYNC SENT ? { P RF(NE) CLT154 { < P LDKL A4,/8001 INDICATE LOOP MODE AND SYNC-ACK RECEIVED { PCLT152 EQU * {
0x000ca0…120cc0 [0x8a6]: Pad {f00=0x0075, f01=0x018e, f02=» A3,A2 { P ANK A3,/FF | P SUK A3,3 POWER ON ? | " P RF(E) CLT179 YES | > $ P LDR* A4,A5 GET LAST OUTPUT DWT | X P LDR* A6,A5 | P SUK A4,1 SYNC ? | P RF(E) CLT178 YES | ( P LDK A1,NOERR INDICATE NOT OPERABLE | PCLT177 RB CLT110 | P
0x000ca0…120cc0 [0x8a7]: Pad {f00=0x0075, f01=0x0190, f02=» | P* } P* POWER ON } P* } ( PCLT179 EQU * } 2 P LDK A3,/E3 } F * P ANS A3,CWTRST,A5 RESET LOOP TEST BIT } Z P RB CLT100 } P EJECT } P* } P* QUEUE } P* } 2 P* GET LAST OUTPUT DWT AND SET CHANNEL FREE. } 4 P* I
0x000ca0…120cc0 [0x8a8]: Pad {f00=0x0075, f01=0x018e, f02=» } < P* TERMINAL AND SEND IF SOMETHING THERE. IF NOTHING I ~ < P* IN THAT QUEUE, CHECK QUEUE OF INTERRUPTING TERMINAL ~ H & P* AND SEND IF SOMETHING THERE. ~ P* ~ PQUEUE EQU * ~ P STR A2,A15 SAVE A2 ~ $ P LDR* A4,A5 GET LAST OUTPUT DW
0x000ca0…120cc0 [0x8a9]: Pad {f00=0x0075, f01=0x0190, f02=» P RF(N) QUEU01 YES " P LDK A1,1 INDICATE FIRST TRIAL " P CWR A7,A5 REMOTE TERMINAL 2 ? D P RF(E) QUEU20 NO j . PQUEU01 LDKL A8,CWTEQ QUEUE FIRST TERMINAL * PQUEU03 ADR A8,A5 ADD CWT-TABLE-ADDRESS PQUEU04 EQU * P LDR* A6,A8 QUEUE EM
0x000ca0…120cc0 [0x8aa]: Pad {f00=0x0075, f01=0x0190, f02=»OUT OF QUEUE v * P STR A2,A8 SET NEXT DWT FIRST IN QUEUE . P LC A2,DWTOCH,A6 GET LAST OUTPUT CHARACTER B P CF A15,OUTLIN SEND IT t PQUEU05 LDR* A2,A15 RELOAD A2 0 P CWR A6,A4 DEVICE ALREADY IN OUTPUT QUEUE ? P RF(E) QUEU30 " P LDR A6,A4
0x000ca0…120cc0 [0x8ab]: Pad {f00=0x0075, f01=0x018e, f02=»1,0 P ABL RTNA15 PQUEU10 LDR A1,A1 READY ? P RB(E) QUEU05 @ P LDK A1,0 V " P CWR A7,A5 TERMINAL 2 REMOTE ? h P RB(E) QUEU01 NO & PQUEU20 LDKL A8,CWTEQ+2 NEXT QUEUE P RB QUEU03 PQUEU30 ADKL A15,4 P RF EXITA
0x000ca0…120cc0 [0x8ac]: Pad {f00=0x0075, f01=0x018e, f02=» P* PRESTSY EQU * P STR A4,A15 " ( P LD A4,CWTTP,A5 TIMER POINTER ZERO? 6 P RF(NE) RESY20 b P LDR A1,A5 x P LDK A4,CWTTP TIMER POINTER P ADR A4,A5 ADD CWT-ADDRESS P CF A15,SETIMP SET TIMER P DATA SYNCUT,TIME P
0x000ca0…120cc0 [0x8ad]: Pad {f00=0x0075, f01=0x018e, f02=» P LDR* P,A15 P EJECT P* * P* 4 * P* TIME-OUT ROUTINE FOR SYNC-SENDING > 0 P* IF NOTHING HAPPENS ON A LINE IN 500 MS l P* SYNC-CHARACTER IS SENT. P* PSYNCUT EQU * $ P CM CWTTP,A1 RESET TIMER POINTER P
0x000ca0…120cc0 [0x8ae]: Pad {f00=0x0075, f01=0x0190, f02=» P LDK A6,1 P EX CWTOTR,A1 OUTPUT P RF(U) EXITA 2 , P STR A6,A1 STORE "1" AS LAST OUTPUT DWT F P* v P IFT LOGING=1 P* * P CF A15,LOGG LOGG OF OUTPUT CHARACTER P XIF P* P LDR A3,A2 P SLL A3,4 P R
0x000ca0…120cc0 [0x8af]: Pad {f00=0x0075, f01=0x0190, f02=»WTRST,A1 LOOP MODE ? P LDR A3,A4 P ANK A4,/80 . P RF(E) EXITA NO B P ANK A3,/60 Z P RF(E) SYNC20 THIRD SYNC n P SUK A3,/20 P RF(NE) SYNC10 FIRST SYNC P LDK A3,/20 SECOND SYNC * PSYNC10 XRS A3,CWTRST,A1 CHANGE COUNTER
0x000ca0…120cc0 [0x8b0]: Pad {f00=0x0076, f01=0x0190, f02=»U T P U T P* < P* SEND ONE CHARACTER VIA 'OUTLIN' INDICATE INTERRUPTS & P* ALLOWED AND SAVE A3-A5 IN DWT. P* POUTPUT EQU * P ANK A2,/FF P LDR A1,A2 P SUK A1,/82 STX ? P RF(E) OUTP05 P SUK A1,/15 ETB
0x000ca0…120cc0 [0x8b1]: Pad {f00=0x0076, f01=0x0190, f02=» CF A15,OUTLIN SEND ONE CHARACTER VIA CHANNEL UNIT P EJECT : P* H P* S T R E G R P* h : P* INDICATE INTERRUPTS ALLOWED AND SAVE A3-A5 IN DWT r P* PSTREG EQU * P INH P LDKL A1,/100 0 P ORS A1,DWTST,A6 INDICATE
0x000ca0…120cc0 [0x8b2]: Pad {f00=0x0076, f01=0x0190, f02=» A5 t P RB EXITA P EJECT P* , P* L D R E G * 6 P* N > P* IF INTERRUPT ALLOWED RESTORE A3-A5 FROM DWT AND RETURN X & P* VIA A5. ELSE GO TO DISPATCHER. P* P* PLDREG EQU * P LD A3,DWTST,A6 P ANKL
0x000ca0…120cc0 [0x8b3]: Pad {f00=0x0076, f01=0x0190, f02=»OM DWT AND RETURN TO USER VIA A5 | PLDREGF EQU * ( & P LD A5,DWTA5,A6 A5 < PLDREGE EQU * f & P LD A3,DWTA3,A6 RELOAD REGISTER A3 z & P LD A4,DWTA4,A6 A4 $ PLDRE10 LD A7,DWTOR,A6 GET ORDER P ANK A7,/FF P
0x000ca0…120cc0 [0x8b4]: Pad {f00=0x0076, f01=0x0190, f02=»UBROUTINE TO GET ONE CHARACTER FROM ECB-BUFFER P* 6 P* ON ENTRY: @ P* V P* A3 = BUFFER INDEX ` P* A8 = ECB-ADDRESS ~ P* P* ON EXIT: P* P* A2 = CHARACTER * P* A1 = 0 IF LAST CHARACTER ELSE # 0
0x000ca0…120cc0 [0x8b5]: Pad {f00=0x0076, f01=0x0190, f02=» LD A1,4,A8 REQUESTED LENGTH P SUR A1,A3 $ * P RF(NP) GCH010 LAST CHARACTER REACHED 6 " P LD A2,2,A8 GET BUFFER ADDRESS d P ADR A2,A3 P LCR A2,A2 CHAR. TO A2 P ANK A2,/FF $ P ADK A3,1 INCREMENT BUFFER INDEX P RF GCH020 , PGC
0x000ca0…120cc0 [0x8b6]: Pad {f00=0x0076, f01=0x0190, f02=»N = SUBROUTINE TO SEND ONE CHARACTER VIA P* CHANNEL UNIT 0 P* R P* B P* GET CWT-ADDRESS AND IF CHANNEL UNIT FREE SEND CHARACTER. f 8 P* RUNNING LRC-PROCESS CAN STOP OUTPUT FROM OTHER 8 P* DEVICES ON SAME LINE. IF CHAN
0x000ca0…120cc0 [0x8b7]: Pad {f00=0x0076, f01=0x0190, f02=»F " P LDR* A7,A6 CHANNEL PARAMETER P ANK A7,/F 0 P SLL A7,1 DOUBLE INDEX B & P LD A5,CHTAB+2,A7 GET CWT-ADDRESS ` P SUK A7,8 REMOTE ? P RF(N) OUL100 NO . P LCR A3,A6 LEFT BYTE IN CHANNEL PARAMETER * P SRL A3,2 SECOND TERMINAL IN
0x000ca0…120cc0 [0x8b8]: Pad {f00=0x0076, f01=0x0190, f02=»L100 INH P* ( P* IF UNIT NOT FREE QUEUE OUTPUT. 2 P* IF REMOTE DEVICE AND LRC-PROCESS ALREADY F 0 P* RUNNINGON TERMINAL FOR ANOTHER DEVICE, | 0 P* QUEUE THIS NEW OUTPUT IF LRC-CONTROL ON P* IT IS WANTED. P* ELSE SE
0x000ca0…120cc0 [0x8b9]: Pad {f00=0x0076, f01=0x0190, f02=»UL500 P LDR A3,A2 P SUK A3,/82 STX ? P RF(NE) OUL200 NO : P EJECT T P* b P* S T X l P* ~ * P LD A3,LRCDWT,A7 LRC-PROCESS RUNNING ? P RF(NE) OUL175 YES P LDK A2,0 $ P ST A6,LRCDWT,A7 SET LRC-DEVICE , P
0x000ca0…120cc0 [0x8ba]: Pad {f00=0x0076, f01=0x018e, f02=»,/E00 SET DEVICE NUMBER TO ZERO P RF OUL510 ( & POUL175 CWR A3,A6 SAME LRC-DEVICE ? : P RF(NE) OUL800 QUEUE OUTPUT d P RF OUL350 POUL200 SUK A3,/15 ETB ? P RF(NE) OUL300 NO P EJECT P* P* E T B P* & P S
0x000ca0…120cc0 [0x8bb]: Pad {f00=0x0076, f01=0x0190, f02=» | P* 8 POUL300 CW A6,LRCDWT,A7 SAME DEVICE SENDING WITH LRC P* RF(Z) OUL350 YES N > P************************************************781208 KST h P LD A3,CWTBLK,A5 , P RF(NN) OUL500 BLOCKSENDING NOT RUNNING * P RF OUL800 BLOCKSENDING
0x000ca0…120cc0 [0x8bc]: Pad {f00=0x0076, f01=0x0190, f02=»A5 P RF(Z) OUL500 ( P ORKL A2,/8000 INDICATE BLOCKSENDING P LDK A3,/80 L 2 P SC A3,CWTBLK,A5 INDICATE BLOCKSENDING RUNNING ` P EJECT P* P* & P* SEND CHARACTER SECTION. 2 P* CHARACTER IS SENT,SYNC-TIMER U
0x000ca0…120cc0 [0x8bd]: Pad {f00=0x0076, f01=0x0190, f02=» DWT AND ACKUMULATOR IS UPDATED. P 0 POUL500 EQU * 8 " P LDR* A3,A6 CHANNEL PARAMETER L P ANKL A3,/7E00 r & POUL510 ORR A2,A3 OUTPUT WORD IN A2 P* P* P* POUL515 EX CWTOTR,A5 OTR P RF(R) OUL800 REFUSED
0x000ca0…120cc0 [0x8be]: Pad {f00=0x0076, f01=0x0190, f02=»BI 2,A2 GO TO INTERRUPT HANDLER POUL520 EQU * ( P* < P IFT LOGING=1 F P* 0 P CF A15,LOGG ** LOGG OF OUTPUT CHARACTER ** f P* P XIF P* P STR A6,A5 SET CHANNEL BUSY , P ST A2,CWTLOW,A5 STORE LAST OUTPUT WORD
0x000ca0…120cc0 [0x8bf]: Pad {f00=0x0076, f01=0x0190, f02=»SY START OR RESTART SYNC-TIMER 4 POUL600 SC A2,DWTOCH,A6 SET LAST OUTPUT CHARACTER & POUL700 ABL IHRET8 ^ P EJECT x P* : P* NORMALLY DWT-ADDRESS IS PUT LAST IN OUTPUT QUEUE P* POUL800 EQU * P LDR A7,A7 REMOTE ? P R
0x000ca0…120cc0 [0x8c0]: Pad {f00=0x0076, f01=0x0190, f02=» A6,A4 & P RB(E) OUL600 DWT ALREADY IN QUEUE P LD A3,DWTOTQ,A4 8 P RF(E) OUL830 P P LDR A4,A3 FOLLOW THE THREAD f P RB OUL810 $ POUL820 ST A6,CWTEQ,A7 QUEUE DWT P RF OUL840 $ POUL830 ST A6,DWTOTQ,A4 QUEUE DWT P LDK A4,0
0x000ca0…120cc0 [0x8c1]: Pad {f00=0x0076, f01=0x0190, f02=»N P* > P* SUBROUTINE TO RESET CWT AND PERFORM CIO-START OF EVERY @ P* CHLT IN SYSTEM. THE SUBROUTINE IS ENTERED FROM 'PFINIT' V P* P* P* PCHLTON EQU * P LD A4,CHTAB " PCON010 SUK A4,2 ALL TREATED ? P RF(
0x000ca0…120cc0 [0x8c2]: Pad {f00=0x0076, f01=0x018e, f02=»010 P CWK A4,/A LOCAL ? P RF(L) CON030 YES & PCON025 EQU * @ * P LDK A3,/40 INDICATE CHANNEL NOT BUSY T $ P EX CWTCIS,A5 EXECUTE CIO-START P RF(U) CON027 $ P LDK A3,0 INDICATE CHANNEL BUSY . P CF A15,RESTSY START OR RESTART SY
0x000ca0…120cc0 [0x8c3]: Pad {f00=0x0076, f01=0x0190, f02=» P ANK A2,2 P SUR A1,A2 ( P LD A2,2,A1 ANY DEVICE ON TERMINAL 1 , * P RF(Z) CON028 NO,BLOCK SENDING ALLOWED X . P LD A2,10,A1 ANY DEVICE ON SECOND TERMONAL 0 P RF(NZ) CON029 YES BLOCK SENDING NOT ALLOWED 4 PCON028 LDK A2,1 INDICATE BLOCK
0x000ca0…120cc0 [0x8c4]: Pad {f00=0x0076, f01=0x0190, f02=»T PREMITTED l PCON030 EQU * $ P EX CWTCIS,A5 EXECUTE CIO-START ( PCON035 EQU * P P LDR* A6,A5 GET LAST DWT d P RB(Z) CON010 P CWK A6,1 SYNC ? P RB(E) CON010 P CMR A5 RESET LAST OUTPUT P LDK A2,/00 DUMMY P CF A1
0x000ca0…120cc0 [0x8c5]: Pad {f00=0x0076, f01=0x0190, f02=» IS SET EVERY INPUT AND t $ P* OUTPUT CHARACTER ARE LOGGED P* H P* R P* P IFT LOGING=1 f P* | PLOGG STR A1,A15 P LD A1,POINT P ADK A1,2 & P CWK A1,BUFE BUFE IS MAX LOGG AREA P RF(NE) L1 ( P LDKL A1,B
0x000ca0…120cc0 [0x8c6]: Pad {f00=0x0076, f01=0x0190, f02=» P LDR* P,A15 RETURN P* P* ( PPOINT DATA BUF LOGG POINTER 2 P* V PBUF RES 500 LOGG AREA ` PBUFE EQU * ~ P* P XIF P* P EJECT P* P* P* E C H O , E C H E N D P* < P* SUBROUT
0x000ca0…120cc0 [0x8c7]: Pad {f00=0x0076, f01=0x0190, f02=»T-ADDRESS OF ECHO-DEVICE, z 2 P* LOAD STACKBASE AND FIND ADDRESS " 4 P* TO DEVICE-DEPENDENT ECHO-ROUTINE X P* . P* PART TWO: ECHO ONE OR MORE CHARACTERS 2 P* CORRESPONDING TO ONE CHARACTER 4 P*
0x000ca0…120cc0 [0x8c8]: Pad {f00=0x0076, f01=0x0190, f02=»E DRIVER MODULE CORRESPONDING TO ECHO P* OUTPUT DEVICE . P* H 6 P* RESTRICTIONS IN DEVICE DEPENDENT ECHO DRIVER R P* " P* A7 MUST NOT BE DESTROYED 6 P* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A P* JUMP TO 'ECHRTN
0x000ca0…120cc0 [0x8c9]: Pad {f00=0x0076, f01=0x018e, f02=»HO EQU * P IFT CECHO=1 & P ST A3,DWTA3,A6 SAVE A3-A5 IN DWT $ P ST A4,DWTA4,A6 N P ST A5,DWTA5,A6 f P LD A1,DWTST,A6 STATUS ~ P SLL A1,2 $ P RF(NN) RETUR NO ECHO REQUESTED 0 P LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE 2 P
0x000ca0…120cc0 [0x8ca]: Pad {f00=0x0076, f01=0x0190, f02=» & P ADR A5,A6 STACKBASE-ADDRESS IN A5 . P LD A1,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK . 2 P ABI 6,A1 GO TO ECHO-ROUTINE DEVICE-DEPENDENT ` P XIF PECHRTN EQU * P IFT CECHO=1 P LDR A7,A7 END? P RF(NN) ERETUR NO ( P CF A15,TENDIO
0x000ca0…120cc0 [0x8cb]: Pad {f00=0x0076, f01=0x4022, f02=»RN VIA A5 j P END @ N A5 . P LD A1,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK . 2 P ABI 6,A1 GO TO ECHO-ROUTINE DEVICE-DEPENDENT ` P XIF PECHRTN EQU * P IFT CECHO=1 P LDR A7,A7 END? P RF(NN) ERETUR NO ( P CF A15,TENDIO
0x000ca0…120cc0 [0x8cc]: Pad {f00=0x0076, f01=0x2008, f02=» INR OR OTR WORD e P LDR* A1,A15 f P ADKL A15,2 f 4 P LDR* P,A15 RETURN f H P* f b P* f l PPOINT DATA BUF LOGG POINTER f v P* f PBUF RES 500 LOGG AREA f PBUFE EQU * f P* f P XIF f P* f P END f @ f
0x000ca0…120cc0 [0x8cd]: Pad {f00=0x0076, f01=0x0190, f02=» LABEL = KMD03 DATE = 780717 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x8ce]: Pad {f00=0x0076, f01=0x0190, f02=» LABEL = KMD03 DATE = 780717 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x8cf]: Pad {f00=0x0076, f01=0x0190, f02=» LABEL = KMD03 DATE = 780717 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0x8d0]: Pad {f00=0x003b, f01=0x0190, f02=»PERABEL P* P EJECT DRTC01 P* 2 P* < " P* NORMAL USAGE OF REGISTERS: F P* l P* REGISTER A1: RETURN CODE v P* A2: SST STATUS * P* A3: DWT STATUS AFTER SST " P* A4: RETRY COUNTER
0x000ca0…120cc0 [0x8d1]: Pad {f00=0x003b, f01=0x0010, f02=» p x
0x000ca0…120cc0 [0x8d2]: Pad {f00=0x003b, f01=0x018e, f02=» 2 P IDENT DRTC01 REL 8.2 78-09-15 870105040820 P : P NO SELECT AT PGM LOADING B P FAST I/O, SHORT INH TIME f P REL 8.1 78-04-21 P P < P******************************************************* P* $ P* PHILIP
0x000ca0…120cc0 [0x8d3]: Pad {f00=0x003b, f01=0x0190, f02=» P* < P******************************************************* P* R P* > P* THIS DRIVER HANDLES ONE OR TWO TAPE CASSETTE RECORDERS f & P* CONNECTED TO CPU VIA CHCR-DCR P* > P* ONLY ONE RECORDER CAN BE BE OPERATED AT A
0x000ca0…120cc0 [0x8d4]: Pad {f00=0x003b, f01=0x0190, f02=»ARACTERS P* P EJECT DRTC01 P* 2 P* < 4 P* THE DRIVER CONSISTS OF THE FOLLOWING PARTS: F P* ~ " P* T C D A : ACTIVATION PART P* $ P* I H T C : INTERRUPT HANDLER P* & P* R C O V E R : RECOVERY ROUTI
0x000ca0…120cc0 [0x8d5]: Pad {f00=0x003b, f01=0x0190, f02=» AND O R D E R P R O C E S S O R S P* . P* 8 * P* THE FOLLOWING ORDERS ARE TREATED: B P* p P* ORDER /00: TEST STATUS z P* /02: READ P* /05: WRITE P* /06: WRITE " P* /22: WRI
0x000ca0…120cc0 [0x8d6]: Pad {f00=0x003b, f01=0x0190, f02=»ASE | P* /37: LOAD P* /38: UNLOAD ( P* F P EJECT DRTC01 P P* h P* r , P* THE FOLLOWING RETURN CODES ARE USED: | P* P* BIT 0 REQUEST ERROR P* 1 LEADER P* 2 BOT MISSING P*
0x000ca0…120cc0 [0x8d7]: Pad {f00=0x003b, f01=0x0190, f02=»7 B-SIDE P* 9 REWIND TIME-OUT P* 11 SEQUENCE ERROR 2 P* -READ SEQUENCE ERROR R > P* -POSITION OF TAPE UNSUCCESSFULL AT WRITE RECOVERY v 6 P* -POWER RECOVERY WHEN SEQ. COUNTER NOT USED , P* -POWER RECOVERY
0x000ca0…120cc0 [0x8d8]: Pad {f00=0x003b, f01=0x0190, f02=»PERABEL P* P EJECT DRTC01 P* 2 P* < " P* NORMAL USAGE OF REGISTERS: F P* l P* REGISTER A1: RETURN CODE v P* A2: SST STATUS * P* A3: DWT STATUS AFTER SST " P* A4: RETRY COUNTER
0x000ca0…120cc0 [0x8d9]: Pad {f00=0x003b, f01=0x0190, f02=»STACK t P* P* P* SYSTEM ADAPTATION: " P* @ : P* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER CAN BE J P* REDUCED TO HANDLE: P* " P* -ONLY ONE CASSETTE RECORDER 0 P* -ORDERS REVERSE, ERASE AND LOCK EXCLUDED P
0x000ca0…120cc0 [0x8da]: Pad {f00=0x003b, f01=0x0190, f02=» ENTRY IHTC INTERRUPT ADDRESS . P ENTRY DWTC01 DWT FOR CASSETTE RECORDER 01 & . P ENTRY DWTC02 DWT FOR CASSETTE RECORDER 02 X $ P ENTRY TCDRON POWER UP RECOVERY P P P P* P* $ P******************************** $ P* EX
0x000ca0…120cc0 [0x8db]: Pad {f00=0x003b, f01=0x0190, f02=» 4 P EXTRN SAVE8 DISPATCHER SAVE REGS 1-8 SUBROUTINE . P EXTRN RETUR8 DISPATCHER LOAD A1-A8 RETURN < , P EXTRN TENDIO GLOBAL END-OF-I/O ROUTINE n . P EXTRN DISEND GO TO DISPATCHER VIA TENDIO 4 P EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY * P E
0x000ca0…120cc0 [0x8dc]: Pad {f00=0x003b, f01=0x0190, f02=»RN ECBRL REQUESTED LENGTH IN ECB ( P EXTRN ECBEL EFFECTIVE LENGTH IN ECB ( $ P EXTRN ECBCW CONTROL WORD IN ECB T P EJECT DRTC01 | P* P* P****************** P* DWT PARAMETERS * P****************** P* P* & P
0x000ca0…120cc0 [0x8dd]: Pad {f00=0x003b, f01=0x0190, f02=»T f , P* BIT #12 - REPOSITIONING AT RECOVERY " P* BIT #13 - WRITE PROTECTED : P* BIT #14 - A-SIDE ` * P BIT #15 - DEVICE LOCKED (OPERABLE) | P EXTRN DWTOR DWT ORDER " P EXTRN DWTECB DWT ECB ADDRESS P EJECT DRTC01 P*
0x000ca0…120cc0 [0x8de]: Pad {f00=0x003b, f01=0x0190, f02=»ER CAN BE REDUCED TO HANDLE ONLY ONE CASSETTE " P* RECORDER BY SETTING X:A=1 6 P* PX:A EQU 1 f PDBCAS EQU 1 x P* 6 P* ORDERS REVERSE, ERASE AND LOCK MAY BE EXCLUDED P* BY SETTING X:B=0 P* PX:B EQU 0 PRE
0x000ca0…120cc0 [0x8df]: Pad {f00=0x003b, f01=0x0190, f02=»TRY t " P DATA 0 ABORT ROUTINE ADDRESS P RES 4 SUBROUTINE STACK 2 PSTB EQU *-2 R P* f P* p $ PTAB DATA /0031,/2237,/3802,/0506 z P IFT REVER=1 P DATA /2633,/24FF P XIF PTABL EQU *-TAB P EJECT DRTC01 P
0x000ca0…120cc0 [0x8e0]: Pad {f00=0x003c, f01=0x0190, f02=» P* P* DEVICE ADDRESS: P* ( PCHCRDA EQU /0E 2 P* H P* R P************* P* CONSTANTS * r P************* P* P* " PRTRIES EQU 3 MAX NO OF RETRIES P* * PPSUBS EQU 5 POWER UP BACKSPACE NUMBER
0x000ca0…120cc0 [0x8e1]: Pad {f00=0x003c, f01=0x018e, f02=» IFT REVER=1 * PPERAS EQU 6 NO OF ERASE FOR ORDER /24 P XIF B P EJECT DRTC01 N P* f P* p P* T C D A z P* H P* ACTIVATION PART : CHECK VALIDITY OF ORDERS AND START PROCESSING P* P* PTCDA EQU * P
0x000ca0…120cc0 [0x8e2]: Pad {f00=0x003c, f01=0x0190, f02=» P SUK A4,1 P RB(NN) TCDA10 TRY NEXT P* 6 PTCDA15 EQU * @ P ABL DISIOE ILLEGAL ORDER T P* v ( PTCDA20 ADR A4,A4 DOUBLE TO GET INDEX P ST A4,TCDAX SAVE INDEX ( P LD A5,ECBRL,A8 GET REQUESTED LENGTH ( P LD A3,SEKBYT,A6 S
0x000ca0…120cc0 [0x8e3]: Pad {f00=0x003c, f01=0x0190, f02=» LDR A2,A3 RECOVERY/SEQUENCE ERROR STATUS P ANK A2,2 2 P RF(NZ) TCDR10 YES D P* ^ P ADK A5,1 h . P NGR A5,A5 MAKE REQUESTED LENGTH NEGATIVE z 0 P ST A5,HELPME SAVE IT FOR RECOVERY PURPOSES P SUK A7,/37 LOAD ? P RF(NE) TCDA22 N
0x000ca0…120cc0 [0x8e4]: Pad {f00=0x003c, f01=0x0190, f02=»DA22 LD A3,2,A8 GET BUFFER ADDRESS 0 P ST A3,BUFADR SAVE IT FOR RECOVERY PURPOSES * P SUK A4,14 ^ P RF(Z) TCDA23 WRITE p P ADK A4,2 P RF(NZ) TCDA25 NOT WRITE P* * PTCDA23 ADK A5,3 CHECK REQUESTED LENGTH ( P RB(P) TCDA15 LESS T
0x000ca0…120cc0 [0x8e5]: Pad {f00=0x003c, f01=0x0190, f02=»TING ? v P RF(NZ) TCDA25 NO , P LD A2,DWTBKC,A6 GET SEQUENCE CHARACTER ( $ P SC A2,255,A3 STORE IT IN BUFFER X P* ( PTCDA25 ST A6,TCDADT SAVE ACTIVE DWT P EJECT DRTC01 P* P* P* SELECT RECORDER P* P*
0x000ca0…120cc0 [0x8e6]: Pad {f00=0x003c, f01=0x0190, f02=»DR A1,A2 SAVE STATUS , P LDK A4,RTRIES PRESET NUMBER OF RETRIES " P LDKL A2,0 GET FUNCTION INDEX L " PTCDAX EQU *-2 **ORDER INDEX** r P INH & P ABI TCDFUN,A2 BRANCH TO FUNCTION < PTCDFUN DATA ENDIO,REWIND,TM,LOAD,UNLOAD,READ,WRITE,WRITE
0x000ca0…120cc0 [0x8e7]: Pad {f00=0x003c, f01=0x0190, f02=» AFTER POWER ON P* P* " PTCDRON EQU * , P CF A15,SAVE8 @ & P LD A1,INIFLG CHECK IF PGM LOADING V $ P ABL(NZ) TDISP YES SKIP RECOVERY P LDKL A8,STB LOAD STACK BASE P LDKL A6,DWTC01 FIRST DWT P CF A8,RCOVER RECOVERY
0x000ca0…120cc0 [0x8e8]: Pad {f00=0x003c, f01=0x0190, f02=»DADT EQU *-2 **ACTIVATED DWT ADDRESS** $ P RF(Z) ENDIO NO REQUEST GOING ON . $ P LDR A6,A4 PUT DWT ADDRESS IN A6 V " P LD A3,SEKBYT,A6 SEQ. COUNTING ~ ( P RB(Z) TCDA30 YES; REACTIVATE ORDER P* * PTCDR10 ANK A3,1 JUSTIFY SEQ. INDICATOR P S
0x000ca0…120cc0 [0x8e9]: Pad {f00=0x003c, f01=0x0190, f02=» R E A D P* PREAD CF A8,READR READ RECORD P ANKL A1,/400 SAVE EOT BIT @ P ORR A1,A2 b P ANK A2,/0E t P RF(Z) READ20 STATUS OK P* & PREAD15 SUK A4,1 RECOVERABLE ERROR P RF(Z) READ20 3 TRIALS DONE $ P CF A8,BKS
0x000ca0…120cc0 [0x8ea]: Pad {f00=0x003c, f01=0x0190, f02=») READ30 NOT TAPE MARK P* ( PREAD25 ORK A3,/10 INDICATE TAPE MARK ( $ P LDK A7,0 RESET EFFECTIVE LENGTH T P RF READ35 | P* PREAD30 LDR A2,A1 $ P LDKL A7,0 GET EFFECTIVE LENGTH ( PEFFLEN EQU *-2 **EFFECTIVE LENGTH** P ANK
0x000ca0…120cc0 [0x8eb]: Pad {f00=0x003c, f01=0x0190, f02=»ONE x , P RB(NZ) READ15 NO; READ SAME BLOCK AGAIN & P LDK A4,1 SET NO OF RETRIES TO ONE < P RB READ TRY NEXT BLOCK f P* PREAD32 EQU * P ANK A3,/2F NOT TAPE MARK $ P LD A2,SEKBYT,A6 SEQ. COUNTING ? P RF(NE) READ35 NO , P S
0x000ca0…120cc0 [0x8ec]: Pad {f00=0x003c, f01=0x018e, f02=»QUENCE ERROR P* 2 PREAD35 IM DWTBKC,A6 INCREMENT SEQUENCE COUNTER P* T * PREAD40 LD A8,DWTECB,A6 GET ECB ADDRESS ^ * P ST A7,ECBEL,A8 SAVE EFFECTIVE LENGTH P LDK A2,RTRIES . P SUR A2,A4 GET NUMBER OF RETRIES PERFORMED , P ST A2,E
0x000ca0…120cc0 [0x8ed]: Pad {f00=0x003c, f01=0x0190, f02=» P* P* END OF I/O OPERATION P* 0 P* : PENDIO EQU * D ( P CM TCDADT INDICATE NONE ACTIVE DWT X P IFT DBCAS=2 , P CF A15,SWLXY GIVE OTHER TASKS A CHANCE P LDR* A6,A6 GET OTHER DWT * P CF A15,TENDIO PERFORM TENDIO FO
0x000ca0…120cc0 [0x8ee]: Pad {f00=0x003c, f01=0x0190, f02=»ER VIA TENDIO v P* P EJECT DRTC01 P* 8 P* B P* WRITE TAPE MARK L P* h PTM LDKL A3,-1 r P ST A3,HELPME P* P* W R I T E P* P* WRITE ONE BLOCK P* P* , PWRITE LD A3,DWTBKC
0x000ca0…120cc0 [0x8ef]: Pad {f00=0x003c, f01=0x0190, f02=»RIES 1ST BLOCK x P* $ PWRIT10 CF A8,WRITER WRITE RECORD P ANKL A1,/400 SAVE EOT-BIT H P ORR A1,A2 j P ANK A2,/0E | P RF(Z) WRIT30 STATUS OK P* , PWRIT12 ST A4,WRITA4 STORE RETRY COUNTER P LD A2,SEKBYT,A6 P RF(Z) W
0x000ca0…120cc0 [0x8f0]: Pad {f00=0x003c, f01=0x0190, f02=»E ERASE P RF WRIT20 P* " $ PWRIT15 CF A8,REPOS POSITION TAPE , & P CM SEKBYT,A6 RESET SEQ. INDICATOR T P LD A4,WRITA4 GET NO ... ~ P LDR A2,A2 & P RF(NZ) WRIT40 POSITIONING NOT OK P SUK A4,RTRIES ... OF ERASE P* PWR
0x000ca0…120cc0 [0x8f1]: Pad {f00=0x003c, f01=0x0190, f02=» RETRY COUNTER $ PWRITA4 EQU *-2 **RETRY COUNTER** P SUK A4,1 > P RB(NZ) WRIT10 TRY AGAIN P . P ORR A1,A2 3 TRIALS DONE,SET ERASE BIT #4 p P RF WRIT50 GIVE UP P* P EJECT DRTC01 P* P* PWRIT30 LD A2,TCDAX GET O
0x000ca0…120cc0 [0x8f2]: Pad {f00=0x003c, f01=0x0190, f02=»B(N) READ25 YES P RB WRIT12 NO P* . : PWRIT40 ORK A1,/10 POSITIONING FAILED = SEQUENCE ERROR 8 P* v , PWRIT50 LD A7,EFFLEN GET EFFECTIVE LENGTH P RB READ40 P* P EJECT DRTC01 P* P* P* L O A D
0x000ca0…120cc0 [0x8f3]: Pad {f00=0x003c, f01=0x018e, f02=»LOAD10 LDR A1,A2 NO CASSETTE P RB READ50 ! $ P* ! 6 P* ! @ P* R E W I N D ! J P* ! b P* REWIND TAPE ! l P* ! P* ! , PREWIND CM DWTBKC,A6 CLEAR BLOCK COUNTER ! ( P CF A8,SBOT SEARCH BEGINNING OF TAPE ! PREW010 EQU * ! P L
0x000ca0…120cc0 [0x8f4]: Pad {f00=0x003c, f01=0x0190, f02=» P* " P* " P* U N L O A D " P* " 0 P* UNLOAD CASSETTE " : P* " V P* " ` $ PUNLOAD CM DWTST,A6 RESET STATUS " j P CF A8,UNLD UNLOAD CASSETTE " & PUNLO10 LDR A1,A2 SAVE RETURN CODE " P RB ENDIO " P IFT REVER=1 " P* "
0x000ca0…120cc0 [0x8f5]: Pad {f00=0x003c, f01=0x0190, f02=» $ P LDKL A4,-1 DECREMENT BLOCK SEQ. # $ P ADS A4,DWTBKC,A6 COUNTER BY ONE # , P RB UNLO10 # T P* # f P EJECT DRTC01 # p P* # P* # P* E R T A P E # P* # P* ERASE TAPE # P* # P* # ( PERTAPE LDK A4,PERAS SET NO OF ERAS
0x000ca0…120cc0 [0x8f6]: Pad {f00=0x003c, f01=0x0190, f02=» RB(NZ) ERT10 ERASE NOT READY # P RB READ50 $ & P* $ 8 P* $ B P* O L O C K $ L P* $ b P* ORDER LOCK CASSETTE $ l P* $ P* $ " POLOCK CF A8,LOCK LOCK CASSETTE $ " P RB(Z) REW010 CASSETTE LOCKED $ P RB LOAD10 $ P XIF $ P
0x000ca0…120cc0 [0x8f7]: Pad {f00=0x003c, f01=0x018e, f02=» EQU * $ P LDK A2,/FF LOAD MASK % " P ANS A2,DWTST,A6 SET DWT BUSY % , P IFT DBCAS=1 % R P LDK A3,0 SELECT CODE % f P XIF % P IFT DBCAS=2 % P LDR* A3,A6 GET OTHER DWT % " P ANS A2,DWTST,A3 SET DWT BUSY % P ANK A3,1 GET SELECT CODE %
0x000ca0…120cc0 [0x8f8]: Pad {f00=0x003c, f01=0x0190, f02=» PREADSQ EQU * & P LDK A3,/A & , P ST A3,REQLEN MAKE REQUESTED LENGTH > 0 & * P RB CRCOM & Z P* & l P EJECT DRTC01 & v P* & P* READ ONE RECORD & P* & PREADR LDK A3,/A & , PREADR1 CM EFFLEN RESET EFFECTIVE LENGTH & " P LDKL
0x000ca0…120cc0 [0x8f9]: Pad {f00=0x003c, f01=0x018e, f02=»QU *-2 **HELPME** & P ST A2,REQLEN ' P RB CRCOM ' 0 P* ' B P* WRITE ONE RECORD ' L P* ' f PWRITER LDK A3,/B ' p P RB READR1 ' P* ' P* ERASE ONE BLOCK ' P* ' PERASE LDK A3,9 ' P RB CRCOM ' P* ' P* LOCK CASSETTE
0x000ca0…120cc0 [0x8fa]: Pad {f00=0x003c, f01=0x018e, f02=» P* ( PSBOT LDK A3,8 ( P RB CRCOM ( $ P* ( 6 & P* REWIND TAPE AND UNLOCK CASSETTE ( @ P* ( j PUNLD LDK A3,/F ( t P RB CRCOM ( P* ( P* BACKSPACE ONE BLOCK ( P* ( PBKSP LDK A3,/E ( P RB CRCOM ( P* ( P EJECT D
0x000ca0…120cc0 [0x8fb]: Pad {f00=0x003c, f01=0x0190, f02=» PIHTC EQU * ) $ P ST P,INTSAV SAVE LAST INTERRUPT ) P STR A5,A15 SAVE A5 ON STACK ) > P SST A5,CHCRDA ) b P RF(A) SST SST ACCEPTED ) x P IM REQLEN INCREMENT COUNTER ) P RF(Z) CIOHLT ) & P RF(P) INRSQ GET SEQUENCE COUNTER ) P STR A3,A15 SA
0x000ca0…120cc0 [0x8fc]: Pad {f00=0x003c, f01=0x0190, f02=» ) n 4 P LD A5,TCDAX GET FUNCTION SWITCH FOR READ/WRITE * P SUK A5,10 * @ P RF(NZ) IHTC05 WRITE * R P* * n & PIHTC02 INR A5,0,CHCRDA READ CHAR. * x ( P SCR A5,A3 STORE CHARACTER IN BUFFER * P RF EXIT2 * P* * PIHTC05 EQU * * $ P LCR A5,A3 G
0x000ca0…120cc0 [0x8fd]: Pad {f00=0x003c, f01=0x0190, f02=»IM EFFLEN INCREMENT EFFECTIVE LENGTH * . P LDR* A3,A15 RESTORE A3 AND A5 FROM STACK + , P* + ^ PEXIT3 LDR* A5,A15 + h P RTN A15 + P* + * PINRSQ INR A5,0,CHCRDA READ CHAR TO A5 + P ST A5,TCDA5 + P RB EXIT3 + P* + PSST ST A5,TCDA2
0x000ca0…120cc0 [0x8fe]: Pad {f00=0x003c, f01=0x0190, f02=»A4,0 + PTCDA4 EQU *-2 , P LDKL A5,0 , " PTCDA5 EQU *-2 , 4 P LDKL A6,0 , J PTCDA6 EQU *-2 , P LDKL A8,0 , r PTCDA8 EQU *-2 , P EJECT DRTC01 , P* , P* , P LDKL A2,0 RESTORE STATUS , PTCDA2 EQU *-2 , P LDR A3,A2
0x000ca0…120cc0 [0x8ff]: Pad {f00=0x003c, f01=0x0190, f02=»TN EQU * , P RTN A8 - P* - PCIOHLT EQU * - * P CIO A1,0,CHCRDA CIO-HALT - > P RB EXIT3 - ` P* - r PEXIT ST A1,TCDA1 - | P ST A4,TCDA4 - P ST A5,TCDA5 - P ST A6,TCDA6 - P ST A8,TCDA8 - P ABL TDISP GO TO DISPATCHER - P*
0x000ca0…120cc0 [0x900]: Pad {f00=0x003d, f01=0x0190, f02=»WER ON - ` P* . P* . PRCOVER EQU * . " P CF A8,SELECT SELECT . 6 P ANK A3,1 . R 2 P RB(Z) IHTRTN NOT LOCKED: RETURN FROM RECOVERY . d P CF A8,LOCK . P RF(NZ) REPER NO CASSETTE . , P LD A1,DWTBKC,A6 ANY BLOCK WRITTEN/READ . P RF(NZ) RC
0x000ca0…120cc0 [0x901]: Pad {f00=0x003d, f01=0x0190, f02=» . ( PRC0050 LD A1,SEKBYT,A6 SEQ. COUNTING / P RF(NZ) REPER NO / 4 P* / L P EJECT DRTC01 / V P* / n P* / x P* R E P O S / P* / * P* REPOSITIONING OF TAPE AT POWER ON / P* AND WRITE RECOVERY / P* / 4 P* EXIT:
0x000ca0…120cc0 [0x902]: Pad {f00=0x003d, f01=0x0190, f02=» $ P LDK A4,8 SET REPOSITIONING BIT 0 " P ORS A4,DWTST,A6 STORE IN DWT 0 , P* 0 R PREP005 EQU * 0 & P LDK A4,PSUBS SET NO OF BACKSPACES 0 p P* 0 PREP010 CF A8,BKSP BACKSPACE 0 P SLL A2,4 0 P RF(NN) REP015 DATA FOUND 0 & P LD A2,DWTBKC,
0x000ca0…120cc0 [0x903]: Pad {f00=0x003d, f01=0x0190, f02=»LL A2,5 0 P RF(NN) REPER BOT NOT FOUND 1 " P LDKL A5,-1 RESET SEQ. COUNTER 1 4 P RF REP020 READ SEQ. CHAR 1 Z P* 1 | P EJECT DRTC01 1 P* 1 P* 1 PREP015 EQU * 1 P SUK A4,1 1 " P RB(NZ) REP010 BACKSPACE AGAIN 1 $ P LDK A4,PREA
0x000ca0…120cc0 [0x904]: Pad {f00=0x003d, f01=0x0190, f02=» RF(Z) REP020 READ OK 1 P SUK A4,1 COUNT READ 2 $ P RB(P) REP017 NOT ALL READ DONE 2 : P RF REP060 GIVE UP 2 b P* 2 | * PREP020 LC A4,DWTBKC+1,A6 GET SEQ. CHAR 2 P SUR A4,A5 CALCULATE 2 P SUK A4,1 NO OF BLOCKS TO 2 P ANK A4,/FF READ FORWARD
0x000ca0…120cc0 [0x905]: Pad {f00=0x003d, f01=0x0190, f02=» A4,1 POSITION TAPE 2 P RF(N) REP040 READY 3 " P CF A8,READSQ READ NEXT BLOCK 3 8 P RB REP030 3 ^ P* 3 p ( PREP040 LDK A4,RTRIES SET NO OF RETRY 3 z & PREP042 LDKL A7,/80F SET READ MASK 3 P TM A2,A7 CORRECT READ 3 P RF(Z) REP045 YES 3 P S
0x000ca0…120cc0 [0x906]: Pad {f00=0x003d, f01=0x0190, f02=»42 3 P* 4 P EJECT DRTC01 4 P* 4 , P* 4 6 PREP045 SLC A2,3 4 @ P RF(NN) REP050 NOT TAPE MARK 4 X P ANK A3,/10 4 | * P RF(Z) REP060 SHOULD NOT BE TAPE MARK 4 P RF REPOK 4 P* 4 & PREP050 ADK A5,1 CHECK SEQ. NUMBER 4 P CC A5
0x000ca0…120cc0 [0x907]: Pad {f00=0x003d, f01=0x0190, f02=»EPER NO 4 , P XRS A7,DWTST,A6 RESET REPOSITIONING BIT 5 P RB REP005 YES 5 @ P* 5 V P* 5 ` 6 PREPER LDK A2,2 IND RECOVERY/SEQUENCE ERROR STATUS 5 j " P ORS A2,SEKBYT,A6 SAVE IN DWT 5 P RTN A8 5 P* 5 ( PREPOK LDK A2,0 IND RECOVERY CORRECT 5
0x000ca0…120cc0 [0x908]: Pad {f00=0x003d, f01=0x0190, f02=»R CASSETTE RECORDER 02 5 x P* 6 P* 6 ( PDWTC02 EQU * TABLE ENTRY 6 2 P IFT DBCAS=2 6 R P DATA DWTC01+1 DWT NO. 1 6 f 0 P DATA /8000 STATUS./8000 MEANS DEVICE READY 6 P DATA 0 ECB ADDRESS 6 P DATA 0 ORDER 6 ( P DATA TCAD POINTER TO ADDRESS
0x000ca0…120cc0 [0x909]: Pad {f00=0x003d, f01=0x0190, f02=» 6 z P DATA 0 SEQ. INDICATOR 7 P XIF 7 & P EJECT DRTC01 7 2 P* 7 J P* 7 T P* D W T C 0 1 7 ^ P* 7 v 2 P* DEVICE WORK TABLE FOR CASSETTE RECORDER 01 7 P* 7 P* 7 PDWTC01 EQU * TABLE ENTRY 7 P DATA DWTC02 DWT NO. 2 7 0 P
0x000ca0…120cc0 [0x90a]: Pad {f00=0x003d, f01=0x414a, f02=»OCK 7 p P DATA 0 TTAB ADDRESS 8 $ P DATA 0 WAIT/ACTIVATE INDICATOR 8 ( P DATA 0 TERMINAL QUEUE 8 P & PDWTBKC EQU *-DWTC01 BLOCK COUNTER 8 n P DATA 0 8 PSEKBYT EQU *-DWTC01 8 P DATA 0 SEQ. INDICATOR 8 P* 8 P* 8 " PREQLEN DATA 0 REQUES
0x000ca0…120cc0 [0x90b]: Pad {f00=0x003d, f01=0x2008, f02=» 9 OCK - x P DATA 0 TTAB-ADDRESS . $ P DATA 0 WAIT/ACTIVATE INDICATOR . 0 P DATA 0 TERMINAL QUEUE . X & PDWTBKC EQU *-DWTC01 BLOCK COUNTER . v P DATA 0 . PSEKBYT EQU *-DWTC01 . P DATA 0 SEQ. INDICATOR . P* . P* . P END . @
0x000ca0…120cc0 [0x90c]: Pad {f00=0x003d, f01=0x0190, f02=»AL 1 9 | P DATA 0 QUEUE TERMINAL 2 : P* : , P IFT ACKMUL=1 : 6 P DATA 0 NAK-ACKUMULATOR : L $ P DATA 0 BLOCK ERROR ACKUMULATOR : l , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR : ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR : P* : P XIF : P IFT
0x000ca0…120cc0 [0x90d]: Pad {f00=0x003d, f01=0x0190, f02=» DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 : & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 ; 4 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 ; ^ , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) ; $ P DATA 0 BLOCK SENDING INDICATOR ; P XIF ; P IFT RECHAN=4 ; P DATA 0
0x000ca0…120cc0 [0x90e]: Pad {f00=0x003d, f01=0x0190, f02=»ROCESS TERMINAL 2 ; v & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 < & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 < D , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) < n $ P DATA 0 BLOCK SENDING INDICATOR < P XIF < P EJECT < $ P******************************** < $ P*
0x000ca0…120cc0 [0x90f]: Pad {f00=0x003d, f01=0x0190, f02=»L NO. 2 < b P* CONNECTED TO THIRD CHRT = P* = 4 PCWTRT6 EQU * = > P* = R P IFT RECHAN=3 = P DATA 0 LAST OUTPUT DWT = r P DATA 0 LAST OUTPUT WORD = P DATA INTRT3 INTERRUPT TABLE = P INR A2,0,DWA7 INR = P OTR A2,1,DWA7 OTR = P
0x000ca0…120cc0 [0x910]: Pad {f00=0x003d, f01=0x0190, f02=»* = P IFT ACKMUL=1 > P DATA 0 NAK-ACKUMULATOR > $ P DATA 0 BLOCK ERROR ACKUMULATOR > @ , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR > h ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR > P XIF > P IFT RECHAN=4 > P DATA 0 LAST OUTPUT DWT > P DAT
0x000ca0…120cc0 [0x911]: Pad {f00=0x003d, f01=0x000a, f02=»
0x000ca0…120cc0 [0x912]: Pad {f00=0x003d, f01=0x018e, f02=» 2 P IDENT DRSOP1 REL 8.2 78-09-15 870105040820 P : P* B @ P************************************************************ L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DRSOP1 = DRIVER FOR SYSTEM OPERATORS PANEL P*
0x000ca0…120cc0 [0x913]: Pad {f00=0x003d, f01=0x0190, f02=» B P* THIS DRIVER HANDLES INPUT AND OUTPUT ON SYSTEM OPERATOR'S , P* PANEL CONNECTED TO CPU VIA CHCR-SOP N P* ~ P* > P* ON AN INPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET : P* 'BUSY' UNTIL THE INPUT INTERRUPT IS TAKEN CARE OF
0x000ca0…120cc0 [0x914]: Pad {f00=0x003d, f01=0x0190, f02=»EQUEST,POWER UP h > P* IS INDICATED AND NEXT READ REQUEST IS TERMINATED WITH P* -2 IN CONTROL WORD Z P* x P* > P* ON AN OUTPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET > P* 'READY' IMMEDIATELY, SINCE THE OUTPUT DOES NOT REQUIRE
0x000ca0…120cc0 [0x915]: Pad {f00=0x003d, f01=0x0190, f02=» ( P* S O P A S : READ SWITCHES ENTRY P* 4 * P* S O P A L : ACTIVATE LIGHTS ENTRY > P* l & P* I H S O P : INTERRUPT HANDLER v P* " P* S O P R : RECOVERY ROUTINE P* P* P* * P* THE FOLLOWING ORDERS ARE
0x000ca0…120cc0 [0x916]: Pad {f00=0x003d, f01=0x0190, f02=» p , P* 39 : WRITE FLASHING LIGHTS P* 8 P* NORMAL REGISTER USAGE: B P* d " P* REGISTER A1: INPUT/OUTPUT n " P* A2: WORK REGISTER P* A3: ---- " P* A4: WORK REGISTER P*
0x000ca0…120cc0 [0x917]: Pad {f00=0x003d, f01=0x0190, f02=»* P EJECT P* P************ " P* ENTRIES: * 6 P************ J P* ^ P* h * P ENTRY SOPCT S.O.P. CHANNEL UNIT TABLE r ( P ENTRY SOPR S.O.P. RECOVERY ROUTINE 2 P ENTRY IHSOP S.O.P. INTERRUPT HANDLER (ALIAS) P ENTRY D
0x000ca0…120cc0 [0x918]: Pad {f00=0x003d, f01=0x018e, f02=»RNALS: * P************** P* & P* TOSS GLOBALS: 0 P* H , P EXTRN SAVE8 PUSH REGS A1-A8 ONTO STACK R 4 P EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY & P EXTRN TDISP DISPATCHER LKM ENTRY . P EXTRN RETUR8 POP A1-A8 CONT'S AND RET
0x000ca0…120cc0 [0x919]: Pad {f00=0x003d, f01=0x018e, f02=» ( P************************************ P* 0 P* DWT DISPLACEMENTS : P* X ( P************************************ b P* $ P EXTRN DWTCHP CHANNEL PARAMETER P EXTRN DWTST STATUS P EXTRN DWTECB ECB ADDRESS P EXTRN DWTOR
0x000ca0…120cc0 [0x91a]: Pad {f00=0x003d, f01=0x0190, f02=» h P EXTRN DWTTQ TERMINAL QUEUE P EXTRN DWTWA WORK AREA , . P EXTRN INTSAV SAVE AREA FOR LAST INTERRUPT J " P EXTRN ECBCW ECB CONTROL WORD | PTIME EQU 5 FLASH TIME PDWTTP EQU /10 TIMER POINTER P EJECT P* CONDITIONAL ASSEMBLY
0x000ca0…120cc0 [0x91b]: Pad {f00=0x003d, f01=0x0190, f02=» P** 8 P* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS P* BY SETTING CREDIT = 1 N 4 P* ORDERS 05 AND 06 ARE THEN REPLACED BY ORDERS p P* /37 AND /38 RESPECTIVLY B P* BY SETTING CREDIT=1 THE SOP-SWITCHES IS INDEXED:1,2,3,...
0x000ca0…120cc0 [0x91c]: Pad {f00=0x003d, f01=0x018e, f02=» ECB. P** P PCREDIT EQU 1 P** 4 P** > @ P* THE ORDER /39, WRITE FLASHING LIGHTS CAN BE INCLUDED BY H P* SETTING X:B=1 P* PX:B EQU 0 PWRFLA EQU 0 P EJECT P* P**************************
0x000ca0…120cc0 [0x91d]: Pad {f00=0x003d, f01=0x0190, f02=» P* P* P* " P****************************** & " P* * L " P* S.O.P. CHANNEL UNIT TABLE * r " P* * " P****************************** P* P* 0 PSOPCT EQU * TABLE
0x000ca0…120cc0 [0x91e]: Pad {f00=0x003d, f01=0x0190, f02=»WITCHES ENTRY z P* & PSOPADU EQU * ACTIVATE LIGHTS ENTRY P* J & P DATA SOPAL ACTIVATE LIGHTS ENTRY T P* ~ $ PSPDLCI DATA 0 LIGHT'S CORE IMAGE P* P EJECT P* " P****************************** " P*
0x000ca0…120cc0 [0x91f]: Pad {f00=0x003d, f01=0x0190, f02=»* > P* THE ORDER IS ANALYZED AND THE CORRESPONDING I/O ACTION P* IS CARRIED OUT. L P* h * PSOPAS EQU * SWITCHES ACTIVATION ENTRY r P* P LDR A4,A7 COPY ORDER P* " P SUK A4,/02 SEE IF READ ORDER: P* * P RF(NZ)
0x000ca0…120cc0 [0x920]: Pad {f00=0x003e, f01=0x0190, f02=» IFT CREDIT=0 P RF(Z) EXIT NO $ P CMR A6 YES CLEAR FOR NEXT REQ. , P XIF T P IFT CREDIT=1 ` P RF(NZ) EXIT NO v P STR A7,A6 YES P XIF P RF IHSOP3 P* P* & PSOPAL EQU * ACTIVATE LIGHTS ENTRY P* P
0x000ca0…120cc0 [0x921]: Pad {f00=0x003e, f01=0x0190, f02=»/05 SEE IF 'LIGHTS ON' ORDER P XIF $ P IFT CREDIT=1 0 P SUK A4,/37 F P XIF Z & P RF(Z) SOPON IF SO, TURN ON LIGHTS f P* & P SUK A4,1 SEE IF LIGHTS OFF ORDER P RF(Z) SOPOFF & PSOPER ABL(NZ) DISIOE ILLEGAL ORDER P IFT W
0x000ca0…120cc0 [0x922]: Pad {f00=0x003e, f01=0x0190, f02=» ( P RF(NE) FL010 TIMER ALREADY STARTED P LDK A4,DWTTP 0 P ADR A4,A6 F P LDR A1,A6 X P CF A15,SETIMP j P DATA FLTUT,TIME P ST A4,DWTTP,A6 P LDKL A1,/FFBF P ANS A1,DWTST,A6 SET ON FLAG PFL010 EQU * " P LD A4,10,A8
0x000ca0…120cc0 [0x923]: Pad {f00=0x003e, f01=0x0190, f02=»20 & P ORS A4,SPDLCI FIXA TILL DET HELA! P RF SOPONOFF 4 PFL020 EQU * H P C1R A4,A4 P ANS A4,SPDLCI n P RF SOPONOF PFLTUT EQU * FLASH TIME OUT P LDKL A6,DWSO01 P LD A4,FLASH 0 P RF(Z) FL030 NO MORE FLASHING FOR TH
0x000ca0…120cc0 [0x924]: Pad {f00=0x003e, f01=0x0190, f02=» PFL030 CM DWTTP,A6 P RF EXIT END I/O P XIF 6 P EJECT B P* P 4 PSOPOFF C1 A4,10,A8 GET COMPLEMENTED CONTROL WORD Z 4 P ANS A4,SPDLCI MASK OUT LIGHTS TO BE TURNED OFF P IFT WRFLA=1 $ P ANS A4,FLASH STOP SOME FLASHING P XIF
0x000ca0…120cc0 [0x925]: Pad {f00=0x003e, f01=0x0190, f02=»SOPON LD A4,10,A8 GET CONTROL WORD . P ORS A4,SPDLCI SET LIGHTS TO BE TURNED ON * P IFT WRFLA=1 P C1R A4,A4 p * P ANS A4,FLASH STOP SOME OTHER FLASHING P XIF P* P* COMMON ON/OFF PATH: P* 0 PSOPONOFF LD A1,SPDLCI GET LI
0x000ca0…120cc0 [0x926]: Pad {f00=0x003e, f01=0x0190, f02=»**************************** P* * $ P* S.O.P. INTERRUPT HANDLER * H P* * l P**************************** P* P* @ P* THE INTERRUPT HANDLER WILL TAKE CARE OF ALL INTERRUPTS.
0x000ca0…120cc0 [0x927]: Pad {f00=0x003e, f01=0x0190, f02=»AV SAVE LAST INTERRUPT P INR A1,0,SOPDA GET SWITCH P SRN A1,A2 CALC INDEX @ P IFT CREDIT=0 ^ P SLL A2,1 t P XIF P IFT CREDIT=1 P ADK A2,1 P XIF P PIHSOP1 EQU * P IFF SOPX=0 " P LDKL A6,DWSI02 ANY
0x000ca0…120cc0 [0x928]: Pad {f00=0x003e, f01=0x018e, f02=»STORE INDEX P LDK A1,0 P CF A15,TENDIO END I/O & P XIF D P P ( PIHSOP2 LDKL A6,DWSI01 ANY REQUEST ON X P LD A4,DWTST,A6 STATUS WORD P RF(N) EXIT NO $ P LD A8,DWTECB,A6 GET ECB-ADDRESS P & PIHSOP3 ST A2,ECBCW,A8 STORE
0x000ca0…120cc0 [0x929]: Pad {f00=0x003e, f01=0x0190, f02=» P* * P************************************* * P* * < * P* S.O.P POWER UP RECOVERY ROUTINE * j * P* * * P************************************* P* P* : P*
0x000ca0…120cc0 [0x92a]: Pad {f00=0x003e, f01=0x0190, f02=» IN THE POWER FAILURE RECOVERY TABLE (PFTAB). < P* IF RUNNING READ REQUEST THIS IS COMPLETED WITH -2 IN 6 0 P* CONTROL WORD. ELSE -2 IS SAVED IN DWTCHP v P* P* PSOPR EQU * ENTRY POINT P* P CF A15,SAVE8 SAVE REGS. " P C
0x000ca0…120cc0 [0x92b]: Pad {f00=0x003e, f01=0x018e, f02=» P* P IFT CREDIT=0 " P LDKL A2,-2 POWER UP INDICATOR $ P XIF J P IFT CREDIT=1 V P LDK A2,0 l P XIF ~ P P IFF SOPX=0 " P LDKL A6,DWSI02 ANY REQUEST ON $ P LD A4,DWTST,A6 GET STATUS WORD P RF(NN) SOPR1 YES
0x000ca0…120cc0 [0x92c]: Pad {f00=0x003e, f01=0x0190, f02=» P RF(NN) SOPR2 YES P STR A2,A6 IND POWER UP P > PSOPR2 RB IHSOP1 F P EJECT ^ P* l P* D W S I 0 1 : INPUT DWT v P* PDWSI01 EQU * , P DATA 0 CHANNEL PARAMETER: POWER UP IND , P DATA /8000 /8000 MEANS DEVICE IS
0x000ca0…120cc0 [0x92d]: Pad {f00=0x003e, f01=0x0190, f02=»UEUE ~ P* P* D W S O 0 1 : OUTPUT DWT P* : P* D PDWSO01 EQU * N " P DATA /0040 CHANNEL PARAMETER b , P DATA /8000 /8000 MEANS DEVICE IS READY P DATA 0 ECB ADDRESS P DATA 0 ORDER * P DATA SOPADU POINTER TO ADDRESS
0x000ca0…120cc0 [0x92e]: Pad {f00=0x003e, f01=0x413c, f02=» z . PFLASH DATA 0 SAVE AREA FOR FLASHING LAMPS P EJECT : P H P* P * P* D W S I 0 2 : EXTENDED INPUT DWT Z P* P PDWSI02 EQU * P IFF SOPX=0 P DATA 0 P DATA /8000 P DATA 0,0 P DATA SOPADI
0x000ca0…120cc0 [0x92f]: Pad {f00=0x003e, f01=0x2008, f02=» -ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE @ P* ^ P END h@ t P* z P* P* D W S O P U : OUTPUT DWT P* P* PDWSOPU EQU * P DATA 0 CHANNEL PARAMETER , P DATA /8000 /8
0x000ca0…120cc0 [0x930]: Pad {f00=0x003e, f01=0x0190, f02=» * P ANK A3,/2 FIRST OR SECOND TERMINAL ? ^ P LDR A7,A5 ^ 2 P ADR A7,A3 ^ D & P LD A3,CWTRST,A5 LOOP TEST MODE ? ^ V P ABL(N) CLT170 YES ^ & PCLT018 LDK A1,0 RESET RETURN CODE ^ ( P LDR A3,A2 DATA REQUEST IMMEDIATE ? ^ P RF(N) CLT050 ^ $ P ANK
0x000ca0…120cc0 [0x931]: Pad {f00=0x003e, f01=0x0190, f02=»OF CONTROL CHARACTER ^ | P* _ P LDR A3,A2 _ & . P ANK A3,/FF DELETE DEVICE AND LINE NUMBER _ 8 P RF(E) CLT030 OER _ j P SUK A3,7 _ P RF(E) CLT050 ACK _ P ADK A3,2 _ P ABL(E) CLT080 NAK _ P ADK A3,2 _ P ABL(E) CLT100 POWER ON _
0x000ca0…120cc0 [0x932]: Pad {f00=0x003e, f01=0x0190, f02=» P RF(E) EXIIT NO ` P XRK A4,/80 YES, RESET BIT ` P SC A4,LRCACK,A7 AND STORE ` > " P LD A6,LRCDWT,A7 LRC-DEVICE ? ` ` P RF(E) EXIIT ` P ANK A4,/7F ` P RF(Z) CLT046 YES ` * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER ` ( P LDK A4,1 RESET BLOC
0x000ca0…120cc0 [0x933]: Pad {f00=0x003e, f01=0x018e, f02=» ` , P IM CWTADD+2,A5 UPDATE ERROR ACKUMULATOR a P XIF a 8 P* a D P SUK A3,4 VRC-ERROR ? a N P RF(E) CLT042 YES a l P LDK A4,1 a P SUK A3,2 a P RF(E) CLT033 a P ADK A3,4 a P RF(E) CLT033 a P EJECT a P* a 0 P* RESOL
0x000ca0…120cc0 [0x934]: Pad {f00=0x003e, f01=0x018e, f02=» a f P* DEVICE DRIVER. b PCLT030 LDR A7,A7 REMOTE ? b $ P RF(N) CLTQUE NO b F P LD A6,LRCDWT,A7 b ^ P SUR* A6,A5 LRC-DEVICE ? b v P RF(NE) CLTQUE b * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER b P LDK A4,1 b 0 P ANS A4,CWTBLK,A5 RESET BLOCKS
0x000ca0…120cc0 [0x935]: Pad {f00=0x003e, f01=0x0190, f02=» b & P ANK A2,/30 ECHO AND RECOVERY BIT c P RF(NE) CLT045 c 2 , P ORK A3,/10 INDICATE RECOVERY TRIAL DONE c H P SC A3,DWTST,A6 STORE c x PCLT032 LDK A4,0 c 0 PCLT033 LDK A3,2 INDICATE RECOVERY OF DEVICE c P RF CPO025 c P EJECT c P* c
0x000ca0…120cc0 [0x936]: Pad {f00=0x003e, f01=0x0190, f02=»* IF OUTPUT TO PRINTERS WITH LRC-CONTROL SAME c P* PROCEDURE AS FOR ABC+. d 8 P* d & PCLT042 LDR* A4,A6 BLOCK SENDING ? d f P RB(N) CLT031 d PCLT043 ABL CLT107 d P EJECT d P* d P* POWER ON d P* d 8 P* RECOVERY ROUT
0x000ca0…120cc0 [0x937]: Pad {f00=0x003e, f01=0x0190, f02=» d t P* e & P* ON EXIT TO RECOVERY ROUTINE: e P* e < P* A5 = STACKBASE e F P* A6 = DWT-ADDRESS e b P* e PCHPOWO EQU * e , P LDR* A2,A5 GET CHANNEL OCCUPYING DEVICE e . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER e P LDR A7,A7
0x000ca0…120cc0 [0x938]: Pad {f00=0x003e, f01=0x018e, f02=»KSENDING RUNNING e t $ PCPO010 LDR A3,A6 DEVICE COUNTER f P ANK A3,/FF f @ " P LDR A1,A8 SET ADDRESS POINTER f T PCPO020 ADK A1,2 f z P LDR* A6,A1 GET DWT-ADDRESS f P RF(E) CPO030 f P SRC A6,1 f P RF(N) CPO030 f P SLC A6,1 f ( P LCR
0x000ca0…120cc0 [0x939]: Pad {f00=0x003e, f01=0x000e, f02=»
0x000ca0…120cc0 [0x93a]: Pad {f00=0x003e, f01=0x0190, f02=» 2 P IDENT DRDU01 REL 8.2 78-09-15 870105040820 P : P* B 2 P********************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* D P* DRDU01 = DRIVER FOR ONE/TWO DISC UNITS X/1215 AND/OR X/1216 P*
0x000ca0…120cc0 [0x93b]: Pad {f00=0x003e, f01=0x0190, f02=»* THIS DISC DRIVER HANDLES UP TO TWO DISC 6 P* DRIVES X/1215,X/1216 CONNECTED TO CPU VIA IOP 4 P* ON MULTIPLEX CHANNEL n P* P* * P* THE FOLLOWING ORDERS ARE TRAETED : P* P* /00 TEST STATUS P* /01 BASIC R
0x000ca0…120cc0 [0x93c]: Pad {f00=0x003e, f01=0x0190, f02=» P P P* P*********** " P* ENTRIES * 6 P*********** J P* ^ $ P ENTRY DUADR ACTIVATION ADDRESS h P ENTRY DUON RECIVERY ROUTINE 2 P ENTRY IHDU1 INTERRUPT HANDLER DISC UNIT NO. 1 2 P ENTRY IHDU INTERRUPT HANDLER DI
0x000ca0…120cc0 [0x93d]: Pad {f00=0x003e, f01=0x0190, f02=»WDU02 DWT-ADDRESS DISC UNIT NO. 2 P * P 2 P : P* B P************* L P* EXTERNALS * b P************* x P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO . P EXTRN SAVE8 SAVE REGS. A1-A8 ON A15 STACK P EXT
0x000ca0…120cc0 [0x93e]: Pad {f00=0x003e, f01=0x0190, f02=»FLG INITIALIZATION FLAG P EXTRN DWTVOL VOLUME NAME * P EXTRN INTSAV SAVEAREA LAST INTERRUPT B P EXTRN SETIMP TIMER p P EJECT P P P* P************************** P* * P* CONDITIONAL ASS
0x000ca0…120cc0 [0x93f]: Pad {f00=0x003e, f01=0x018e, f02=» ORDER /15 h P* BY SETTING X:A = 0 P* 0 P : PX:A EQU 0 B PRAW EQU 1 T P* f P* p . P* THIS DRIVER CAN HANDLE TWO DISC UNITS z P* IF X:B := 2 P* P PX:B EQU 1 PNUNITS EQU 1 P* P*
0x000ca0…120cc0 [0x940]: Pad {f00=0x003f, f01=0x0190, f02=» P* 4 P* DRIVE 2 MAY BE A X/1216 INSTEAD OF A X/1215 P* BY SETTING X:D = 1 J P* h PX:D EQU 0 r PTYPE2 EQU 1 P EJECT DRDU01 P P P* P************* P* CONSTANTS * P*************
0x000ca0…120cc0 [0x941]: Pad {f00=0x003f, f01=0x0190, f02=»EVICE ADDRESS FIXED DISC NO. 2 4 PDAC2 EQU /18 DEVICE ADDRESS CARTRIDGE DISC NO. 2 & $ PWER1 EQU /10 MULTIPLEXOR ADDRESS ^ & PCUADR EQU /08 CONTROL UNIT ADDRESS P P * PMAXCY5 EQU 203 MAX CYLINDER NO X/1215 * PMAXCY6 EQU 407 MAX. CYLINDER
0x000ca0…120cc0 [0x942]: Pad {f00=0x003f, f01=0x0190, f02=» z PTIME EQU 1000 2 MINUTES P ( P 0 P* 8 P*********************** B P* * b P* DWT-DISPLACEMENTS * P* * P*********************** P* * PDWTA2 EQU /12 DWT-DISPLACEMENT
0x000ca0…120cc0 [0x943]: Pad {f00=0x003f, f01=0x018e, f02=» ,1:ST STACK BASE v . PDWTSB2 EQU /1E ,STACK BASE P EJECT DRDU01 P P h P p P************** x P* & PDUADR DATA DUAD ACTIVATION ADDRESS ( PBUF RES 5 SECTOR BUFFER - 200 WORDS P IFT RAW=1 $ P RES 200 R
0x000ca0…120cc0 [0x944]: Pad {f00=0x003f, f01=0x0190, f02=» P* 6 P* TABLE FOR CONVERSION FROM LOGICAL TO PHYSICAL P* SECTOR NUMBER L P* f P* p @ PSECTAB DATA /0003,/0609,/0C0F,/0205,/080B,/0E01,/0407,/0A0D z : P DATA /1013,/1619,/1C1F,/1215,/181B,/1E11,/1417,/1A1D P EJECT DRDU0
0x000ca0…120cc0 [0x945]: Pad {f00=0x003f, f01=0x0190, f02=»***************** P* PDUAD EQU * ACTIVATION ENTRY $ P IFT NUNITS=2 H P LDKL A1,/7FFF ^ ( P LDR* A2,A6 GET OTHER DISC UNIT DWT t . P ANS A1,DWTST,A2 SET OTHER DISC UNIT BUSY P XIF P P P SUK A5,4 STACK BASE P
0x000ca0…120cc0 [0x946]: Pad {f00=0x003f, f01=0x0190, f02=» P ADR A1,A6 P LD A2,DWTBSY,A1 P RF(Z) DUA:10 DISC READY 2 P LDR A7,A7 R $ P RF(Z) DUA:10 TEST STATUS ORDER d & P LDK A1,/80 DISC HAS BECOME READY P ABL END:15 P EJECT P P PDUA:10 LDR A1,A7 ORDER P RF(
0x000ca0…120cc0 [0x947]: Pad {f00=0x003f, f01=0x0190, f02=»UK A1,12 P RF(Z) DUA:20 PHYSICAL READ P SUK A1,4 6 P RF(Z) DUA:20 PHYSICAL WRITE H P l P EJECT t P P " PDUERR ABL DISIOE REQUEST ERROR P P & PDUA:20 LDK A4,RY4 RETRY COUNT = 4 P P ST A4,RETRY MAX
0x000ca0…120cc0 [0x948]: Pad {f00=0x003f, f01=0x0190, f02=» P EJECT DRDU01 P P $ ( P LD A2,10,A8 RELATIVE SECTOR NUMBER , P LDR A3,A2 X & P ANK A3,/1F LOGICAL SECTOR NUMBER j , P LC A3,SECTAB,A3 PHYSICAL SECTOR NUMBER P SC A3,DWTSEC,A6 SAVE IT P P P SRL A2,5 CYLINDER NUM
0x000ca0…120cc0 [0x949]: Pad {f00=0x003f, f01=0x0190, f02=» WITH CURRENT CYLINDER NUMBER x . P RF(E) DU:030 DISC HEAD ALREADT POSITIONED & * P ST A2,DWTCYL,A6 SAVE CYLINDER NUMBER X P P EJECT DRDU01 P P P* P************************ P* * P* SEEK S
0x000ca0…120cc0 [0x94a]: Pad {f00=0x003f, f01=0x0190, f02=» P SLC A1,6 & P RF(NN) DU:030 OK. SEEK COMPLETED P @ P H P* P P************************ Z P* * z P* SEEK CYLINDER 0 * P* * P************************ P* & PDU:015
0x000ca0…120cc0 [0x94b]: Pad {f00=0x003f, f01=0x0190, f02=»IN z P * PDU:020 LDKL A3,/FFFF ALL RETRIES DONE 0 P ST A3,DWTCYL,A6 SET ILLEGAL CYLINDER NUMBER @ ( P LDKL A1,/200 SEEK ERROR RETURN CODE t P ABL END:IO PERFORM ENDIO P EJECT DRDU01 P P P* P**********************
0x000ca0…120cc0 [0x94c]: Pad {f00=0x003f, f01=0x0190, f02=»****** | P* P* PDU:030 LDR A1,A7 ORDER " P RF(Z) TEST TEST STATUS @ P SUK A1,5 ` P RF(Z) WRIT:N BASIC WRITE r P SUK A1,12 P RF(NP) READ:N READ P P P P* P************************ P*
0x000ca0…120cc0 [0x94d]: Pad {f00=0x003f, f01=0x0190, f02=»WRIT CF A5,WER:R5 EXECUTE WER INSTRUCTIONS P CF A5,READ5 READ FIVE WORDS 2 P ANK A1,2 V , P RF(Z) P:WR10 OK. CHECK CYLINDER NUMBER h & P SUK A4,1 DECREMENT RETRY COUNTER $ P ABL(Z) END:IO ALL RETRIES DONE P RB P:WRIT TRY AGAIN P
0x000ca0…120cc0 [0x94e]: Pad {f00=0x003f, f01=0x0190, f02=»UMBER d ( P RB(NE) DU:015 ERROR.SEEK CYLINDER 0 P : P B P J P* R P********************* P* * z P* WRITE SECTOR N * P* * P********************* P* 0 PWRIT:N CF A5,W
0x000ca0…120cc0 [0x94f]: Pad {f00=0x003f, f01=0x0190, f02=» SUK A4,1 DECREMENT RETRY COUNTER $ P ABL(Z) END:IO ALL RETRIES DONE * P RB WRIT:N TRY AGAIN R P n P IFT RAW=1 v PWRIT20 CWK A7,5 P ABL(E) END:IO BASIC WRITE & P LDKL A3,BUF DRIVER BUFFER ADDRESS P XIF P IFF RAW=1 $ P
0x000ca0…120cc0 [0x950]: Pad {f00=0x003f, f01=0x0190, f02=» * P* READ SECTOR N * P* * : P********************** X P* v 0 PREAD:N CF A5,WER:R EXECUTE WER INSTRUCTIONS P CF A5,READ READ SECTOR N P ANK A1,/F $ P RF(Z) READ10 OK. NO RETURN CODE
0x000ca0…120cc0 [0x951]: Pad {f00=0x003f, f01=0x0190, f02=»******************* P* * P* CHECK CYLINDER NUMBER * @ P* * d P*************************** P* P* 4 PREAD10 LD A2,DWTCYL,A6 REQUESTED CYLINDER NUMBER 6 P CW* A2,2,A8 COMPA
0x000ca0…120cc0 [0x952]: Pad {f00=0x003f, f01=0x0190, f02=»RDU01 P P P* P********************* ( P* * F P* TEST STATUS * d P* * P********************* P* 4 PTEST LDKL A2,DWTNAM VOLUME NAME DWT DISPLACEMENT P ADR A2,A6
0x000ca0…120cc0 [0x953]: Pad {f00=0x003f, f01=0x018e, f02=»A2,10,A8 SAVE ADDRESS TO VOLUME NAME P SUR A1,A1 SET RETURN CODE=0 , P ABL END:IO PEABLORM ENDIO P P EJECT DRDU01 r P P P* " P****************************** " P* * " P* EXECUTE WER INSTRUCTION
0x000ca0…120cc0 [0x954]: Pad {f00=0x003f, f01=0x0190, f02=» l & P LDKL A3,BUF DRIVER BUFFER ADDRESS P RF EX:WER 2 P D P L & PWER:R LDKL A2,/80CD READ 1 SECTOR T P CWK A3,BUF ~ P RF(E) EX:WER P RF WER:WB P P & PWER:W LDKL A2,/C0CD WRITE 1 SECTOR * PWER:WB LD A3,2,A8 USER
0x000ca0…120cc0 [0x955]: Pad {f00=0x003f, f01=0x018e, f02=» P EJECT DRDU01 P P $ P* , P******************* 6 P* * R P* SEEK CYLINDER * n P* * P******************* P* ( PSEEK LD A2,DWTCYL,A6 CYLINDER NUMBER P SLL A2,3 P
0x000ca0…120cc0 [0x956]: Pad {f00=0x003f, f01=0x0190, f02=» t P P ( PREAD5 LC A2,DWTSEC,A6 SECTOR NUMBER P ANK A2,/1F D P SUK A2,3 SECTOR N-1 X P ANK A2,/1F t P SLL A2,2 P RF CIO EXECUTE CIO-START P EJECT DRDU01 P P & PREAD LC A2,DWTSEC,A6 SECTOR NUMBER
0x000ca0…120cc0 [0x957]: Pad {f00=0x003f, f01=0x0190, f02=» , P ST* A2,2,A8 PUT CYLNMB. IN USER BUFFER " P LC A2,DWTSEC,A6 SECTOR NUMBER 4 P SLL A2,2 Z P ADK A2,1 l P EJECT DRDU01 ~ P P P PCIO EQU * P P PEX:CIO LC A1,DWTOR,A6 P ANK A1,1 INDEX P ADR
0x000ca0…120cc0 [0x958]: Pad {f00=0x003f, f01=0x0190, f02=»2 p " P ST A4,DWTA4,A6 A4 " P ST A5,DWTA5,A6 A5 0 & PT:DISP ABL TDISP GO TO DISPATCHER V P EJECT DRDU01 P P P* P********************** P* * P* RECOVERY ROUTINE *
0x000ca0…120cc0 [0x959]: Pad {f00=0x003f, f01=0x0190, f02=»A6,DWDU01 P & P LD A1,INIFLG INITIALIZATION FLAG P RF(Z) DUON08 POWER UP D P b P j PDURED2 EQU * r P LDKL A1,/7FFF ( P ANS A1,DWTST,A6 SET DISC UNIT BUSY $ PDUON05 LDKL A5,DWTSB2 STACK BASE P LDKL A6,DWDU01 P A
0x000ca0…120cc0 [0x95a]: Pad {f00=0x003f, f01=0x0190, f02=»DR* A6,A6 OTHER DISC UNIT DWT-ADDRESS P LDKL A5,DWTSB2 . P ADR A5,A6 STACK BASE F P d P l P LDKL A1,/7FFF t " P ANS A1,DWTST,A6 SET DWT BUSY P P " P CF A5,VO:NAM GET VOLUME NAME P CF A15,TENDIO PERFORM ENDIO P
0x000ca0…120cc0 [0x95b]: Pad {f00=0x003f, f01=0x018e, f02=»B(Z) DURED2 NO TIMER ACTIVE P RB T:DISP TIMER ACTIVE ! $ P EJECT ! D PDUON08 EQU * ! R P LDK A1,2 THROUGHPUT ERROR ! f " P LD A2,DWTST,A6 GET DWT STATUS ! P RF(N) DUON10 UNIT FREE ! P CF A15,TENDIO PERFORM ENDIO ! P ! P ! PDUON10 E
0x000ca0…120cc0 [0x95c]: Pad {f00=0x003f, f01=0x0190, f02=» ! v P CF A15,TENDIO PERFORM ENDIO " P XIF " , P* " 8 $ P* SET DISC BUSY AND START TIMER " B P* " j PDUON20 LDKL A1,/7FFF " t P IFT NUNITS=2 " " P ANS A1,DWTST,A6 SET UNIT BUSY " " P LDR* A6,A6 OTHER DWT ADDRESS " P XIF " " P ANS A1,DWTS
0x000ca0…120cc0 [0x95d]: Pad {f00=0x003f, f01=0x018e, f02=»A1,-TIME " P STR A1,A3 RESTART TIMER # P RB T:DISP # 0 P* # B $ PDUON30 CF A15,SETIMP START TIMER # L , P DATA DUON40,TIME TIME OUT ADDRESS, TIME # t P RB T:DISP # P* # P* TIME-OUT # P* # PDUON40 LDKL A6,DWDU01 # P CM TIMER #
0x000ca0…120cc0 [0x95e]: Pad {f00=0x003f, f01=0x0190, f02=» P* INTERRUPT HANDLER * $ P* * $ $ P*********************** $ D P* $ d PIHDU2 EQU * $ n P IFT NUNITS=2 $ $ P ST P,INTSAV SAVE LAST INTERRUPT $ P CF A15,SAVE8 $ $ P LDKL A6,DWDU02 DISC UNIT NO. 2 $ P RF IHDU10 $
0x000ca0…120cc0 [0x95f]: Pad {f00=0x003f, f01=0x0190, f02=»DISC UNIT NO. 1 $ P % P % " PIHDU10 SST A1,CUADR GET STATUS % ( P IFT NUNITS=2 % N P LDR A2,A1 % d P ANK A2,/40 % v P RF(Z) IHDU20 % P LDKL A6,DWDU02 % P XIF % PIHDU20 EQU * % $ P ANKL A1,/440F MASK RETURN CODE % P SLL A1,1
0x000ca0…120cc0 [0x960]: Pad {f00=0x0040, f01=0x0190, f02=» % P ANK A3,1 & * P RF(NZ) END:IO DISC UNIT NOT OPERABLE & P EJECT DRDU01 & H P & ` P & h * PGET LD A5,DWTA5,A6 RELOAD REGISTERS A5 & p ( P LD A4,DWTA4,A6 A4 & ( P LD A2,DWTA2,A6 A2 & P LD A7,DWTOR,A6 &
0x000ca0…120cc0 [0x961]: Pad {f00=0x0040, f01=0x0190, f02=»***************** & P* * ' P* PERFORM ENDIO * ' 6 P* * ' R P******************* ' n P* ' PEND:IO EQU * ' P ' " P ANKL A1,/28F MASK RETURN CODE ' P RF(NZ) END:10 ERROR ' " P LD A2,4,A8 REQUESTED LE
0x000ca0…120cc0 [0x962]: Pad {f00=0x0040, f01=0x0190, f02=»,A6 ' P RF(E) END:15 NO RETRY ( " P ORKL A1,/100 BIT 7 = RETRIES ( * PEND:15 EQU * ( P P LC A2,DWTOR,A6 ORDER ( d P ANK A2,1 INDEX ( P ADR A2,A2 ( P ADR A2,A6 ( " P CM DWTBSY,A2 RESET READY WORD ( P IFT NUNITS=2 ( , P LDR* A6,A6 OTHE
0x000ca0…120cc0 [0x963]: Pad {f00=0x0040, f01=0x0190, f02=»5,TENDIO PERFORM ENDIO ( & PEND:20 ABL TDISP GO TO DISPATCHER ) P EJECT ) H P ) V P ) ^ PVO:NAM LD A1,DWTOR,A6 ORDER ) f P ST A1,DWTSAV,A6 SAVE IT ) P CM DWTOR,A6 INDEX=0 ) PVO:NA5 EQU * ) P ) P ) P ) $ PDU:NAM CF A5,SEEKZ SEEK
0x000ca0…120cc0 [0x964]: Pad {f00=0x0040, f01=0x0190, f02=» ) j " P SUR A2,A2 CYLINDER NUMBER = 0 * P ST A2,DWTCYL,A6 * . P CF A5,CIO READ VOLUME LABEL * F P ANK A1,3 * j 0 P RF(NZ) VO:NA8 THROUGHPUT-ERROR,NOT OPERABLE * | P * P * P LDKL A2,DWTNAM * P ADR A2,A6 * P LC A1,DWTOR,A6 * P ANK A1,
0x000ca0…120cc0 [0x965]: Pad {f00=0x0040, f01=0x0190, f02=» * n " P LDKL A3,BUF+2 BUFFER ADDRESS + P LDK A4,6 + . P + @ P + H P + P & PDUNA20 LDR* A7,A3 GET VOLUME NAME + X . P CWR* A7,A2 COMPARE WITH LAST VOLUME NAME + P RF(E) DUNA30 SAME DISC + P LDK A1,/80 NEW DISC LOADED + P + P + P +
0x000ca0…120cc0 [0x966]: Pad {f00=0x0040, f01=0x0190, f02=»ET NEXT WORD + P , P , P LDR A1,A1 , $ P RF(Z) DUNA40 VOLUME MATCH , 6 P LC A2,DWTOR,A6 INDEX , X P ANK A2,1 , v P ADR A2,A2 , P ADR A2,A6 , & P ST A1,DWTBSY,A2 NEW VOLUME LOADED , PDUNA40 EQU * , P , P , P LD A1,DWTOR,A6
0x000ca0…120cc0 [0x967]: Pad {f00=0x0040, f01=0x018e, f02=» GET OLD DWT CONTENTS , z P ST A1,DWTOR,A6 SAVE IT - P LDKL A1,-1 - > P ST A1,DWTSAV,A6 - R P LDKL A5,DWTSB1 - j P ADR A5,A6 STACK BASE - ( P LDK A1,1 RETURN CODE. NOT OPERABLE - P RTN A5 - P* - P* - P* TIMER POINTER - P
0x000ca0…120cc0 [0x968]: Pad {f00=0x0040, f01=0x0190, f02=» - h P* . P* . PDWDU02 EQU * . P IFT NUNITS=2 . 0 & P DATA DWDU01 POINTER TO OTHER DWT . F P DATA /8000 DWT STATUS . p P DATA 0 ECB-ADDRESS . P DATA 0 ORDER . " P DATA DUADR ACTIVATION ADDRESS . P DATA 0 TTAB-ADDRESS . $ P DATA 0
0x000ca0…120cc0 [0x969]: Pad {f00=0x0040, f01=0x0190, f02=»GISTERS . t P DATA 0,0 STACK / P DATA 0,0 / ( & P DATA /80 DISC UNIT BUSY INDICATOR / : P DATA /80 / d $ P RIGHT BYTE = CYLINDER NUMBER / v ( P CIO A2,1,DAF2 CIO-START FIXED DISC / , P CIO A2,1,DAC2 CIO-START CARTRIDGE DISC / P WER A2,WER1 /
0x000ca0…120cc0 [0x96a]: Pad {f00=0x0040, f01=0x0190, f02=»A /FFFF CYLINDER NO. / P IFT TYPE2=0 0 P DATA MAXCY5 MAX CYLINDER NO 0 0 P XIF 0 T P IFT NUNITS+TYPE2=3 0 ` P DATA MAXCY6 MAX CYLINDER NO 0 | P XIF 0 P EJECT DRDU01 0 P 0 P* 0 * P* DEVICE WORK TABLE DISC UNIT NO. 1 0 P* 0
0x000ca0…120cc0 [0x96b]: Pad {f00=0x0040, f01=0x0190, f02=» DATA 0 ORDER 0 " P DATA DUADR ACTIVATION ADDRESS 1 P DATA 0 TTAB-ADDRESS 1 < $ P DATA 0 WAIT/ACTIVATE INDICATOR 1 X P DATA 0 TERMINAL QUEUE 1 PDWTSEC EQU *-DWDU01 1 ( P DATA /00FF LEFT BYTE=SECTOR NUMBER 1 ( P DATA 0,0,0 SAVE AREA FOR REGISTERS
0x000ca0…120cc0 [0x96c]: Pad {f00=0x0040, f01=0x0190, f02=»Y INDICATOR 1 ~ " PDWTCIO EQU *-DWDU01 CIO-START 2 P CIO A2,1,DAF1 2 : P CIO A2,1,DAC1 2 P , PDWTWR1 EQU *-DWDU01 1:ST WER INSTRUCTION 2 f P WER A2,WER1 2 , PDWTWR2 EQU *-DWDU01 2:ND WER INSTRUCTION 2 P WER A3,WER1+1 2 PDWTNAM EQU *-DWDU01 2 &
0x000ca0…120cc0 [0x96d]: Pad {f00=0x0040, f01=0x411c, f02=»DWTCYL EQU *-DWDU01 2 P DATA /FFFF CYLINDER NUMBER 3 P IFT TYPE1=0 3 @ PDWTCMX EQU *-DWDU01 3 T $ P DATA MAXCY5 MAX CYLINDER X/1215 3 p P XIF 3 P IFT TYPE1=1 3 PDWTCMX EQU *-DWDU01 3 ( P DATA MAXCY6 MAX CYLINDER NO X/1216 3 P XIF 3
0x000ca0…120cc0 [0x96e]: Pad {f00=0x0040, f01=0x2008, f02=» 4 -DWDU01 2:ND WER INSTRUCTION - P WER A3,WER1+1 . , PDWTNAM EQU *-DWDU01 . B PDWTVOL EQU *-DWDU01 . ^ & P DATA 0,0,0 VOLUME NAME FIXED DISC . z * P DATA 0,0,0 VOLUME NAME CARTRIDGE DISC . PDWTSAV EQU *-DWDU01 . P DATA -1 . P END . @
0x000ca0…120cc0 [0x96f]: Pad {f00=0x0040, f01=0x0190, f02=»FIND ADDRESS n 4 P* TO DEVICE-DEPENDENT ECHO-ROUTINE P* L . P* PART TWO: ECHO ONE OR MORE CHARACTERS V 2 P* CORRESPONDING TO ONE CHARACTER 4 P* TO BE STORED IN INPUT ECB-BUFFER P* P* 4 P
0x000ca0…120cc0 [0x970]: Pad {f00=0x006a, f01=0x0190, f02=»* P* P IFT POWOFF=1 P* * P DATA RCKB RECOVERY ROUTINE 4 P EJECT X P* f P* p P* R C K B z P* 2 P* THIS IS THE RECOVERY ROUTINE FOR KEYBOARD & P* ENTERED FROM CHLT/CHRT DRIVER P* PRCKB EQU
0x000ca0…120cc0 [0x971]: Pad {f00=0x006a, f01=0x002a, f02=» P X ` h p x
0x000ca0…120cc0 [0x972]: Pad {f00=0x006a, f01=0x018e, f02=» 2 P IDENT DRDC15 REL 9.1 78-09-15 870106440911 P : P IBM-3270 EMULATION B P REL 8.1 78-08-25 ` $ P MESSAGE QUEUING ON TERMINALS | P REL 8.1 78-06-21 P PTS 6805 ADAPTION P MSV1. UNDEFINED ADDRESS P REL 8.1 7
0x000ca0…120cc0 [0x973]: Pad {f00=0x006a, f01=0x018e, f02=» z P 2 P********************************************* P* F $ P* PHILIPS TERMINAL SYSTEM PTS P P* x * P* DRDC15: DRIVER DATA COMMUNICATION . P* BSC MULTIPOINT LINE PROCEDURE P* OR SIEMENS MSV1 P*
0x000ca0…120cc0 [0x974]: Pad {f00=0x006a, f01=0x0190, f02=» P* ENTRY POINTS P* P* ( 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS 2 " P ENTRY IH1501 INPUT INTERRUPT h " P ENTRY IH1502 OUTPUT INTERRUPT " P ENTRY DC15ON POWER ON ROUTINE " P ENTRY DW1500 DWT FOR DC TASK P* P
0x000ca0…120cc0 [0x975]: Pad {f00=0x006a, f01=0x0190, f02=» l $ P EXTRN TENDIO COMPLETE I/O EVENT P EXTRN DISIOE REQUEST ERROR 0 P EXTRN SETIME SET TIMER T P EXTRN DWTST DWT STATUS t P EXTRN DWTOR DWT ORDER P EXTRN DWTECB DWT ECB * P EXTRN INTSAV SAVE AREA LAST INTERRUPT ( P EXTRN TEBCD
0x000ca0…120cc0 [0x976]: Pad {f00=0x006a, f01=0x0190, f02=»STANDARD INTERFACE PART FOR DATA COMMUNICATION P* 6 P* @ P* J P* T P* DWT CONTENTS ^ P* t J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15) ~ P* P* DWT DISPLACEMENTS P* . PDWTTP EQU /10
0x000ca0…120cc0 [0x977]: Pad {f00=0x006a, f01=0x018e, f02=»E QUEUE | ( PDWTBUF EQU /18 DEVICE BUFFER ADDRESS " PDWTCUR EQU /1A CURSOR ADDRESS < P* b P* ECB DISPLACEMENTS l P* PECBBA EQU 2 BUFFER ADDRESS PECBRL EQU 4 REQUESTED LENGTH PECBEL EQU 6 EFFECTIVE LENGTH PECBRC EQU 8 RE
0x000ca0…120cc0 [0x978]: Pad {f00=0x006a, f01=0x0190, f02=» V P* * P* PARAMETERS FOR CONDITIONAL ASSEMBLY P* @ P* J & PX:A EQU 2000 RECEIVE BUFFER LENGTH T PRBUFL EQU 300 ~ ( PX:B EQU 1000 TRANSMIT BUFFER LENGTH PTBUFL EQU 260 PX:C EQU /60 DCTASK FILE CODE PDC15FC EQU /60
0x000ca0…120cc0 [0x979]: Pad {f00=0x006a, f01=0x0190, f02=»STATUS AND RVI HANDLING IF=1 PSTAT EQU 1 $ ( PX:G EQU 1 READ COMMAND HANDLING IF=1 6 PRCOM EQU 1 b & PX:H EQU 254 TRANSMIT BLOCK LENGTH t PTBLEN EQU 252 ( PX:I EQU 1 CODE , 0=ASCII , 1=EBCDIC PCODE EQU 1 * PX:J EQU 0 IF 1 SPECIFIC
0x000ca0…120cc0 [0x97a]: Pad {f00=0x006a, f01=0x0190, f02=»SPEED EQU 1 * PX:L EQU 0 IF 1 SIEMENS MSV1 PROCEDURE PMSV1 EQU 0 B . PX:M EQU 2 NUMBER OF RECEIVE BUFFERS (2-5) T PRBUFNR EQU 2 . PX:N EQU 0 IF = 1 PTS 6805 ADAPTION SALCUZ PP6805 EQU 00 PX:O EQU /02 P IFT P6805=0 , PLC
0x000ca0…120cc0 [0x97b]: Pad {f00=0x006a, f01=0x0190, f02=» PX:P EQU 0 , PIBMCHR EQU 0 IF 0 IBM CHARACTER HANDLING . PX:Q EQU 0 IF 1 MESSAGE PASSING TO DC TASK F PMESPAS EQU 1 x 4 PX:R EQU 0 IBM-3270 EMULATION PACKAGE, IF NOT = 0 PEM3270 EQU 1 * PBINTRM EQU 0 IF 1 BINARY TRANSMISSION , PTSTR
0x000ca0…120cc0 [0x97c]: Pad {f00=0x006a, f01=0x0190, f02=»E THAT f 0 P DOESN'T ACCEPT WACK RESPONSE TO A SELECT 0 P SEQUENCE, NOWACK SHOULD BE SET TO "ONE". B , P ONLY WORKING IF STAT IS SET TO "ONE". v P IFT P6805=0 SALCUZ < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ P XIF S
0x000ca0…120cc0 [0x97d]: Pad {f00=0x006a, f01=0x0190, f02=»* P* REQUEST HANDLING P* $ P* . P* 8 P* A7=ORDER B P* T P* /02: READ ^ P* /06: WRITE r P* /08: EXCHANGE P* /22: RELEASE READ BUFFER P* /31: GET WRITE BUFFER P* /37: TRANSFER PARAMETERS P* /38: S
0x000ca0…120cc0 [0x97e]: Pad {f00=0x006a, f01=0x018e, f02=»DCSTOL DATA 0 OLD DC EQUIPMENT STATUS PDCSTCU DATA 0 CURRENT STATUS . $ PDCWRQ DATA 0 WRITE REQUEST QUEUE R P IFF TBUFL=0 z * PDCGWQ DATA 0 GET BUFFER REQUEST QUEUE P XIF , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL , PDC15DC DATA DCACTD
0x000ca0…120cc0 [0x97f]: Pad {f00=0x006a, f01=0x0190, f02=» " P RES 1 AND FOR TRANSFER PARAM PSTB2 RES 1 * P < P IFT SPEED=1 D PLSPEED EQU /0200 X P XIF p P IFT SPEED=0 | PLSPEED EQU 0 P XIF P EJECT P* P* $ P* ACTIVATION FROM TERMINAL TASKS P* PDCACT
0x000ca0…120cc0 [0x980]: Pad {f00=0x006b, f01=0x0190, f02=» DCWR P SUK A7,/08-/06 P RF(Z) DCEX EXCHANGE & P SUK A7,/22-/08 B $ P RF(Z) DCRR RELEASE READ BUFFER Z P SUK A7,/37-/22 $ P RF(Z) DCTP TRANSFER PARAMETERS P SUK A7,/38-/37 P IFF STAT=0 P RF(Z) DCSS SET STATUS
0x000ca0…120cc0 [0x981]: Pad {f00=0x006b, f01=0x0190, f02=» P* P* P* ACTIVATION FROM DCTASK P* 8 P* B PDCACTD EQU * L P SUK A7,/02 ` P RF(E) DCRDDC READ t P SUK A7,/22-/02 $ P RF(E) DCRR RELEASE READ BUFFER P SUK A7,/37-/22 $ P RF(E) DCTP TRANSFER PARAMETERS
0x000ca0…120cc0 [0x982]: Pad {f00=0x006b, f01=0x0190, f02=» P* REQUEST FROM DC-TASK P* COMPLETE WHEN: " & P* STATUS CHANGE ON DC EQUIPMENT : $ P* SPONTANOUS MESSAGE RECEPTION d P* PDCRDDC EQU * , P CF A15,CKMESS CHECK IF MESSAGE RECEIVED PDCRTN EQU * P ABL TDISP GO TO DISPATCHER
0x000ca0…120cc0 [0x983]: Pad {f00=0x006b, f01=0x018e, f02=»COMPUTER ADDRESS f : P* FROM TERMINALS: TRANSFER TERMINAL ADDRESSES P* V P* ` P IFF CODE=1 j & PDCTP LD A2,ECBCW,A8 GET PARAMETER ~ P XIF P IFT CODE=1 & PDCTP LC A2,ECBCW,A8 GET TCS IF ANY P ANK A2,/FF P RF(
0x000ca0…120cc0 [0x984]: Pad {f00=0x006b, f01=0x0190, f02=» n P ANK A3,/FF ( P LC A2,TASCII,A3 TRANSLATE TO ASCII P XIF H ( P STR A2,A6 SAVE IN FIRST WORD OF DWT T P P IFT RCOM=1 * P LD A3,ECBBA,A8 DEVICE BUFFER ADDRESS P ST A3,DWTBUF,A6 ( P LD A3,ECBRL,A8 CURSOR ADDRESS WORD
0x000ca0…120cc0 [0x985]: Pad {f00=0x006b, f01=0x0190, f02=»D A1,DC:IN GET DC:TAB INPUT POINTER * P CWK A1,DC:END TABLE ALREADY FULL ???? , & P ABL(E) DISIOE YES!! REQUEST ERROR Z P EJECT P P PDCTP20 EQU * P IFT EM3270=0 " P LDKL A5,STB2 LOAD STACK BASE , P CF A5,FINTER DWT ALREAD
0x000ca0…120cc0 [0x986]: Pad {f00=0x006b, f01=0x0190, f02=» * P ADS A1,DC:IN UPDATE DC:TAB IN POINTER P 6 * P ADS A1,DC:TAB INCREMENT DC:TAB LENGTH > P IFT STAT=1 l P LDK A1,4 DEVICE END P ORS A1,DWTST,A6 ( P CF A15,INSSQ INSERT IN STATUS QUEUE P XIF PDCTP30 EQU * P SUR A1,A1
0x000ca0…120cc0 [0x987]: Pad {f00=0x006b, f01=0x0190, f02=» P* WRITE P* P* P* COMPLETE WHEN: ( P* SUCCESFUL TRANSMISSION @ P* TIME OUT b P* v P* PDCWR EQU * P CF A15,TIMEWR SET TIMER P CF A15,INSWQ QUEUE REQUEST P RB DCRTN P* P* P*
0x000ca0…120cc0 [0x988]: Pad {f00=0x006b, f01=0x0190, f02=»RD EQU * P LD A8,DWTECB,A6 GET ECB . P LD A3,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE 0 " P RF(Z) DCRD10 NOTHING IN QUEUE b P ( P LDR* A2,A3 TAKE THE FIRST IN QUEUE P ST A2,DWTRQ,A6 P ADK A3,6 P ST A3,ECBBA,A8 & P LD A4,-4,A3
0x000ca0…120cc0 [0x989]: Pad {f00=0x006b, f01=0x018e, f02=»TIMERE START TIMER P RB DCRTN P EJECT , P* : P* D P* GET WRITE BUFFER N P* h P* r P IFF TBUFL=0 | P* COMPLETE WHEN: P* BUFFER BEEN ALOCATED P* TIME OUT P* P* PDCGW EQU * & P CF A15,
0x000ca0…120cc0 [0x98a]: Pad {f00=0x006b, f01=0x0190, f02=» z ( P ST A1,ECBEL,A8 STORE BUFFER LENGTH P LDK A1,0 4 P RB ENDIO COMPLETE REQUEST F PDCGW10 EQU * h P CF A15,TIMERE START TIMER | P CF A15,INSGWQ QUEUE REQUEST P RB DCRTN P XIF P EJECT P* P* P* RELEAS
0x000ca0…120cc0 [0x98b]: Pad {f00=0x006b, f01=0x0190, f02=» A1,0 * P CF A15,TENDIO COMPLETE RRBUF REQUEST P RB DCRTN < P EJECT N P* P* f P* EXCHANGE p P* P* P* P* COMPLETE WHEN: " P* MESSAGE PASSED TO TERMINAL P* TIME OUT P* PDCEX EQU *
0x000ca0…120cc0 [0x98c]: Pad {f00=0x006b, f01=0x0190, f02=» EQU * * P LD A1,ECBCW,A8 GET STATUS INFORMATION P ANK A1,3 MASK DB,IR < P RF(Z) DCSS20 DEVICE END X PDCSS10 EQU * x P ST A1,DWTST,A6 P RB DCRR10 COMPLETE REQUEST PDCSS20 EQU * P LD A1,DWTST,A6 P ANK A1,9 ( P RB(
0x000ca0…120cc0 [0x98d]: Pad {f00=0x006b, f01=0x0190, f02=»B DCSS10 P XIF P EJECT P* * P* 4 P* > P* TIMER HANDLING PART H P* f P* p P* z P* READ TIMER=TIMERR P* PTIMERE EQU * P LDR A1,A6 & P LD A2,ECBCW,A8 GET TIMEOUT VALUE P RF(Z) TIME10 NO
0x000ca0…120cc0 [0x98e]: Pad {f00=0x006b, f01=0x018e, f02=»TER p PTIME10 EQU * P RF GBUF10 RETURN P* : P* TIMEOUT READ TIMER D P* ` PTOUTRE EQU * j P LDR A6,A1 FETCH DWT ~ P CM DWTTP,A6 P IFF TBUFL=0 $ P CF A15,REMOVG REMOVE FROM QUEUE P XIF PTOUTR1 EQU * " P
0x000ca0…120cc0 [0x98f]: Pad {f00=0x006b, f01=0x0190, f02=» r 2 P ORK A1,2 RETURN CODE /42 AT EXCHANGE TIME OUT $ PTOUTR2 RB ENDIO COMPLETE REQUEST > P* f P* WRITE TIMER=TIMWR p P* PTIMEWR LDR A1,A6 & P LD A2,ECBCW,A8 GET TIMEOUT VALUE P RB(Z) TIME10 NO TIMING P ST A2,TIMWR
0x000ca0…120cc0 [0x990]: Pad {f00=0x006b, f01=0x0190, f02=»MEOUT WRITE TIMER P* PTOUTWR EQU * $ P LDR A6,A1 FETCH DWT 8 P CM DWTTP,A6 T P LD A1,DWTOR,A6 GET ORDER h P SUK A1,6 P RF(Z) TOUT10 WRITE P SUK A1,2 ( P RB(NZ) TOUTR1 ORDER IS NOT EXCHANGE PTOUT10 LD A2,DWTECB,
0x000ca0…120cc0 [0x991]: Pad {f00=0x006b, f01=0x0190, f02=»BUFFER QUEUE x P XIF * P CF A15,REMOVW REMOVE FROM WRITE QUEUE P* N & P* THIS INSTRUCTION DOES NOT BELONG X P* TO THE STANDARD INTERFACE ( P CM XACK INDICATE 'ACK NOT EXPECTED' P LD A2,FDWTUT P CWR A2,A6 ( P RB(NE) TOUTR1 T
0x000ca0…120cc0 [0x992]: Pad {f00=0x006b, f01=0x0190, f02=»IMING P* & P* REMAINING TIME IS RETURNED IN A2 P* B P* L PCTIME EQU * V & P LD A2,DWTTP,A6 GET TIMER POINTER j P RF(Z) CTIM10 NOT RUNNING P LDR* A2,A2 " P NGR A2,A2 GET REMAINING TIME P CM* DWTTP,A6 STOP TIMER
0x000ca0…120cc0 [0x993]: Pad {f00=0x006b, f01=0x0190, f02=»G SEQUENCE: CF A15,GRBUF P* A4=0 IF NO BUFFER IS FREE ! & P* ELSE A4 CONTAINS BUFFER ADDRESS ! D P* A2 AND A3 ARE DESTROYED ! n P* ! P* ! ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFERS ! PGBUF INH ! P LDR* A4,A2 ! P RF(Z) GBUF10 NO BUFFE
0x000ca0…120cc0 [0x994]: Pad {f00=0x006b, f01=0x0190, f02=»A15 RETURN TO CALLER ! P* " P* " & P* GET TRANSMIT BUFFER " 0 P* " N P IFF TBUFL=0 " X $ P* CALLING SEQUENCE: CF A15,GTBUF " l P* A4=0 IF NO BUFFER IS FREE " & P* ELSE A4 CONTAINS BUFFER ADDRESS " P* A2 AND A3 ARE DESTROYED " P* "
0x000ca0…120cc0 [0x995]: Pad {f00=0x006b, f01=0x0190, f02=» " x P* # P* # PCKGBQ EQU * # P LDR A7,A6 SAVE A6 # 0 " P LD A6,DCGWQ GET QUEUE ANCHOR # J " P RF(Z) CKG110 NO ONE ON QUEUE # p P SUK A6,DWTWQ # P LD A2,DWTST,A6 # P RF(N) CKG100 NO REQUEST # P LD A2,DWTOR,A6 # P SUK A2,/31 #
0x000ca0…120cc0 [0x996]: Pad {f00=0x006b, f01=0x0190, f02=»FREE # x P LD A3,DWTECB,A6 $ ( P ST A4,ECBBA,A3 STORE BUFFER ADDRESS $ $ P LDKL A1,TBUFL+TBUFL $ P ( P ST A1,ECBEL,A3 STORE BUFFER LENGTH $ l & P CF A15,CTIME STOP REQUEST TIMING $ ( P ST A2,ECBCW,A3 STORE REMAINING TIME $ P LDK A1,0 $ $ P CF A15,TE
0x000ca0…120cc0 [0x997]: Pad {f00=0x006b, f01=0x0190, f02=»10 RETURN $ P XIF % P EJECT % P* % , P* % 6 P* RELEASE RECEIVE BUFFER % @ P* % ` P* A4 CONTAINS BUFFER ADDRESS % j $ P* CALLING SEQUENCE: CF A15,RRBUF % P* A2 AND A3 ARE DESTROYED % P* % P* % ( PRRBUF LDKL A2,DCRBUF RECEIVE B
0x000ca0…120cc0 [0x998]: Pad {f00=0x006b, f01=0x0190, f02=» EQU * % P STR A4,A2 & P CMR A4 & P RB GBUF10 RETURN TO CALLER & 0 P* & T P* & ^ P* RELEASE TRANSMIT BUFFER & h P* & P IFF TBUFL=0 & P* A4 CONTAINS BUFFER ADDRESS & $ P* CALLING SEQUENCE: CF A15,RTBUF & P* A2 AND A3 ARE DESTRO
0x000ca0…120cc0 [0x999]: Pad {f00=0x006b, f01=0x0190, f02=» CWK A4,TBUF2 & P RB(E) RBUF DRIVER BUFFER ' " P RB GBUF10 APPLICATION BUFFER ' 8 P XIF ' ^ P EJECT ' j P* ' x P* ' ( P* INSERT DWT IN WRITE REQUEST QUEUE ' P* ' P* A2,A3,A4 DESTROYED ' P* A6=DWT ' P* ' ( PINSWQ LDKL A2,DCWR
0x000ca0…120cc0 [0x99a]: Pad {f00=0x006b, f01=0x0190, f02=» P RB INSWQ2 ( PINSWQ3 ADR A4,A6 ( P STR A4,A2 INSERT IN QUEUE ( . " P CMR A4 INDICATE END OF QUEUE ( P P RB GBUF10 RETURN ( v P* ( P* ( * P* REMOVE DWT FROM WRITE REQUEST QUEUE ( P* ( P* A2,A3,A4 DESTROYED ( P* A6=DWT ( P*
0x000ca0…120cc0 [0x99b]: Pad {f00=0x006b, f01=0x0190, f02=»4,A6 ( PREM10 LDR* A3,A2 ) & P RB(Z) GBUF10 NOT ON QUEUE: RETURN ) & P CWR A3,A4 ) P P RF(E) REM15 ) b P LDR A2,A3 GET NEXT ) v P RB REM10 ) PREM15 LDR* A3,A4 REMOVE ) P STR A3,A2 ) P RB GBUF10 RETURN ) P EJECT ) P* ) P*
0x000ca0…120cc0 [0x99c]: Pad {f00=0x006b, f01=0x0190, f02=» P* * * PINSGWQ LDKL A2,DCGWQ GET QUEUE ANCHOR * P RB INSWQ1 * < P* * N P* * X , P* REMOVE DWT FROM GET WRITE BUFFER QUEUE * b P* * P* A2,A3,A4 DESTROYED * P* A6=DWT * P* * * PREMOVG LDKL A2,DCGWQ GET QUEUE ANCHOR * P RB REM05
0x000ca0…120cc0 [0x99d]: Pad {f00=0x006b, f01=0x0190, f02=»TROYED * P* A6=DWT + P* + ( PINSSQ LDKL A2,DCSTQ GET QUEUE ANCHOR + ( P LDK A4,DWTSQ + T P RB INSWQ2 + j P* + | P* + " P* REMOVE DWT FROM STATUS QUEUE + P* + P* A2,A3,A4 DESTROYED + P* A6=DWT + P* + * PREMOVS LDKL A2,DCSTQ
0x000ca0…120cc0 [0x99e]: Pad {f00=0x006b, f01=0x018e, f02=»IVE BUFFER + z P* , P* A4=BUFFER ADDR , P* A2,A3 DESTROYED , 4 P* , N PQRBUF EQU * , X P IFT MESPAS=1 , l ( P LDKL A2,DW1500 QUEUE ON DC-TASK DWT , P XIF , P IFT MESPAS=0 , $ P LDR A2,A6 QUEUE ON TERMINAL DWT , P XIF , , P ADK A
0x000ca0…120cc0 [0x99f]: Pad {f00=0x006b, f01=0x0190, f02=» , P RB QR100 - & PQR200 STR A4,A2 INSERT INTO QUEUE - " P CMR A4 INDICATE END OF QUEUE - D P RTN A5 - j P EJECT - z P* - P* - 2 P* CHECK IF UNEXPECTED MESSAGE OR STATUS CHANGE - P* - 4 P* REGISTERS A1,A2,A3,A4,A6 AND A8 ARE DESTROYE
0x000ca0…120cc0 [0x9a0]: Pad {f00=0x006c, f01=0x0190, f02=» P CW A1,DWTOR,A6 . P RF(NE) CKM110 NO . $ P LD A8,DWTECB,A6 ECB ADDR TO A8 . 6 * P LD A3,DWTRQ,A6 A3=ADDR TO READ QUEUE . ^ " P RF(Z) CKM200 NO READ IN QUEUE . , P LDR* A2,A3 A2=ADDR TO NEXT READ BUFFER . . P ST A2,DWTRQ,A6 STORE THIS ADDR INTO QUE
0x000ca0…120cc0 [0x9a1]: Pad {f00=0x006c, f01=0x0190, f02=»E NUMBERS OF CHARACTERS . | P LD A4,-2,A3 / . P ST A4,ECBCW,A8 STORE LINE DEVICE ADDRESS / 4 P LDK A1,0 PARAMETER=OK / f 6 PCKM100 CF A15,TENDIO COMPLETE READ GENERAL REQUEST / * PCKM110 ADKL A15,4 ADJUST STACK POINTER / P ABR* A15 RETURN / 8 PCKM200
0x000ca0…120cc0 [0x9a2]: Pad {f00=0x006c, f01=0x0190, f02=»TOL / & P RB(E) CKM110 NO CHANGE OF STATUS 0 * P ORKL A1,/2000 INDICATE STATUS CHANGE 0 6 P RB CKM100 0 d P EJECT 0 v P* 0 P* 0 P* STORE REGISTER A3-A8 0 $ P* CALLING SEQUENSE: CF A15,STREG 0 P* 0 P* RESTORE 0 $ P* CALLING SEQUEN
0x000ca0…120cc0 [0x9a3]: Pad {f00=0x006c, f01=0x0190, f02=»,LCA7 0 P ST A8,LCA8 1 P RF RTNA15 RETURN 1 " P EJECT 1 < PLDREG LDKL A3,0 1 J PLCA3 EQU *-2 1 b P LDKL A4,0 1 v PLCA4 EQU *-2 1 P LDKL A5,0 1 PLCA5 EQU *-2 1 P LDKL A6,0 1 PLCA6 EQU *-2 1 P LDKL A7,0 1 PLCA7 EQU *-2 1
0x000ca0…120cc0 [0x9a4]: Pad {f00=0x006c, f01=0x018e, f02=»* TIMER VALUES 1 P* 2 P* 2 ( PTIMPRO EQU 30 PROCEDURE TIMER 3 SEC 2 * P* 2 V P* 2 ` P* CHARACTER EQUATES 2 j P* 2 & PSF EQU X'1D' START FIELD CHARACTER 2 PSYN EQU /16 2 PSTX EQU /02 2 PETX EQU /03 2 PETB EQU /17 2 P
0x000ca0…120cc0 [0x9a5]: Pad {f00=0x006c, f01=0x018e, f02=» 2 PSBA EQU /11 3 PGP EQU /22 3 PRDBCOM EQU /32 3 . PRDMCOM EQU /36 3 D P IFT CODE=0 3 Z PPAR EQU /80 3 n PRVI EQU /3C 3 PACK0 EQU /30 3 PACK1 EQU /31 3 PDC1 EQU /11 3 P IFT MSV1=0 3 PWACK EQU /3B 3 P XIF 3 P IFT
0x000ca0…120cc0 [0x9a6]: Pad {f00=0x006c, f01=0x0190, f02=» 3 PWACK EQU /2C 4 PRVI EQU /40 4 PACK0 EQU /18 4 0 PACK1 EQU /2F 4 D PSYNEBC EQU /32 4 X P XIF 4 n P EJECT 4 z P* 4 P* 4 P* PROCEDURE WORK AREAS 4 P* 4 P* 4 * PFDWTIN RES 1 CURRENT DWT FOR RECEPTION 4 . PFDWTUT RES 1 C
0x000ca0…120cc0 [0x9a7]: Pad {f00=0x006c, f01=0x0190, f02=»0 STATUS SENT / MESSAGE INPUT RESULT 4 " PXRB DATA 0 READ BUFFER SWITCH 5 , PCACK DATA 0 ACK COUNTER 5 R * PSYNSW DATA 0 0=SKIP SYNS, 1=DON'T SKIP 5 r P* 5 PFECB RES 1 WRITING ECB 5 ( PFECBBA RES 1 WRITING BUFFER ADDRESS 5 & PFECBRL RES 1 WRITING B
0x000ca0…120cc0 [0x9a8]: Pad {f00=0x006c, f01=0x0190, f02=»OR 5 r . PDCTPP DATA 0 POINTER FOR PROCEDURE TIMING 6 , PRESEND DATA 0 CONTROL SEQUENCE SAVE AREA 6 < P* 6 l P* 6 v $ P* 3270 SENSE/STATUS INFORMATION 6 P* 6 P* 6 P IFF STAT=0 6 . PSSTAB EQU * S/S 0 : NO STATUS,DB,DE,DB+DE 6 P* 6
0x000ca0…120cc0 [0x9a9]: Pad {f00=0x006c, f01=0x0190, f02=» INTERVENTION REQUIRED 6 ~ P XIF 7 P EJECT 7 * P* 7 8 P* 7 B P* BASIC RECEIVE MODE 7 L P* 7 h " P* ENTERED EVERY TIME A MESSAGE 7 r & P* IS EXPECTED FROM THE MASTER SIDE 7 P* 7 P* 7 P IFT P6805=1 SALCUZ 7 , PBRMHLT CF A5,HALTIN HALT
0x000ca0…120cc0 [0x9aa]: Pad {f00=0x006c, f01=0x0190, f02=»,HALTIN HALT RECEIVER AND UPDATE STATUS 7 P XIF SALCUZ 8 0 P IFT P6805=1 SALCUZ 8 F 0 P CF A15,CKMESS CHECK IF STATUS CHANGE SALCUZ 8 b P XIF SALCUZ 8 PBRM010 EQU * 8 P IFT CODE+P6805=0 SALCUZ 8 0 P LDKL A2,/100+LSPEED+SYN SPECIFY SYN PAT
0x000ca0…120cc0 [0x9ab]: Pad {f00=0x006c, f01=0x0190, f02=» P XIF SALCUZ 9 P IFT P6805=0 SALCUZ 9 " P CIO A2,1,LCUIN START RECEIVER 9 6 P XIF SALCUZ 9 P IFT P6805=1 SALCUZ 9 r P IFF CODE=1 SALCUZ 9 P LDK A2,/0C SALCUZ 9 * P CIO A2,1,LCUIN START RECEIVER SALCUZ 9 P LDK A2,SYN SALCUZ 9
0x000ca0…120cc0 [0x9ac]: Pad {f00=0x006c, f01=0x0190, f02=»CUZ 9 z P LDK A2,0 SALCUZ : * P CIO A2,1,LCUIN START RECEIVER SALCUZ : & P LDK A2,SYNEBC SALCUZ : T 2 P OTR A2,1,LCUIN SPECIFY SYNC CHARACTER SALCUZ : r P RB(NA) BRMHLT SALCUZ : P XIF SALCUZ : PBRM100 EQU * : $ P CF A5,READP READ ONE CHAR
0x000ca0…120cc0 [0x9ad]: Pad {f00=0x006c, f01=0x0190, f02=»STX : P RF(Z) BRM200 EOT RECEIVED ; P SUK A1,ENQ-EOT ; . P ABL(Z) BRM400 ENQ RECEIVED ; F P SUK A1,DLE-ENQ ; j P ABL(Z) BRM600 DLE RECEIVED ; P SUK A1,NAK-DLE ; P ABL(Z) BRM500 NAK RECEIVED ; P IFT MSV1=0 ; P LDR A8,A2 ; $ P C
0x000ca0…120cc0 [0x9ae]: Pad {f00=0x006c, f01=0x0190, f02=» XIF ; P LDK A3,0 < P CC A2,DW1500+1 < P RF(E) BRM110 POLLING < 6 P LDK A3,2 < T P CC A2,DW1500 < f P RF(NE) BRM150 NOT THIS TCU < | PBRM110 EQU * < P CF A5,READP READ 1:ST STA < P RF(NZ) BRM150 PARITY ERROR < P LDR A8,A2 <
0x000ca0…120cc0 [0x9af]: Pad {f00=0x006c, f01=0x0190, f02=»DDRESS SEQUENCE < x P XIF = " P CF A5,READ READ ONE CHARACTER = $ P IFT P6805=0 SALCUZ = J P SUK A2,ENQ+PAR = f P XIF SALCUZ = ~ P IFT P6805=1 SALCUZ = P SUK A2,ENQ SALCUZ = P XIF SALCUZ = P RF(NZ) BRM150 NOT ENQ = P IFT P6805
0x000ca0…120cc0 [0x9b0]: Pad {f00=0x006c, f01=0x0190, f02=»NPUT = z P SST A1,LCUIN > P XIF SALCUZ > " P IFT P6805=1 SALCUZ > 8 $ P CF A5,HALTIN HALT INPUT SALCUZ > T . P RB(NZ) BRM010 PARITY ERROR SALCUZ SALCUZ > | P XIF SALCUZ > P LDK A1,1 > P ST A1,CACK LOAD ACK COUNTER > P LDR A2,A8 >
0x000ca0…120cc0 [0x9b1]: Pad {f00=0x006c, f01=0x0190, f02=»TEP CHECK IF STA PRESENT (POLL ADDRESS) > P XIF ? 0 P IFT MSV1=0 ? < & P CF A5,FINTER CHECK IF STA PRESENT ? P P XIF ? z P IFF EM3270=0 ? . P CF A5,FINT10 CONTINUE SEARCHING IN DC:TAB ? P XIF ? P LDR A6,A3 LOAD DWT TO A6 ? P ABL(NZ) SPOLL
0x000ca0…120cc0 [0x9b2]: Pad {f00=0x006c, f01=0x0190, f02=» A6 ? z P RF(NZ) BRM130 STA FOUND @ P IFT MSV1=0 @ , $ P LDKL A6,DW1500 SELECT TO DCTASK @ B PBRM130 EQU * @ j P ABL SELECT @ ~ P XIF @ P IFT MSV1=1 @ P ABL BRM INVALID ADDRESS @ P XIF @ P* @ , P* WAIT FOR MARK HOLD T
0x000ca0…120cc0 [0x9b3]: Pad {f00=0x006c, f01=0x018e, f02=»EAD READ ANOTHER CHARACTER @ P RB BRM150 A " P EJECT A 4 P* A B P* A L P* EOT HAS BEEN RECEIVED A V P* A v P* A PBRM200 EQU * A & P CF A5,HPTIM STOP PROCEDURE TIMER A P IFT RCOM=1 A P CM XRB RESET READ BUFFER A P XIF A P
0x000ca0…120cc0 [0x9b4]: Pad {f00=0x006c, f01=0x0190, f02=» P LDK A1,2 SET RC=2 B ( P CF A5,CWRITE COMPLETE WRITE REQUEST B PBRM210 EQU * B J " P CM XACK RESET 'ACK EXPECTED' B ^ PBRM220 EQU * B P CM XSEL RESET 'SELECTED' B P RB BRM B P EJECT B P* B P* B P* STX HAS BEEN RECEIVED B
0x000ca0…120cc0 [0x9b5]: Pad {f00=0x006c, f01=0x0190, f02=» ( P*********************CHAINED COMMAND C & P RB(Z) BRM150 NO BUFFER AVAILABLE C 0 P********************* C Z PBRM305 EQU * C x P CF A5,RDMESS READ MESSAGE C P SUK A7,1 C P RF(NZ) BRM320 MESSAGE OK C PBRM310 EQU * C ( P CM XSTA INDICATE 'I
0x000ca0…120cc0 [0x9b6]: Pad {f00=0x006c, f01=0x0190, f02=»A1,XACK C & P RF(Z) BRM316 ACK IS NOT EXPECTED D P LD A1,DCRBUF D : & P RF(Z) BRM316 NO BUFFER AVAILABLE D P " P LD A6,FDWTUT GET WRITING DWT D z 0 P ABL(Z) BRM150 NO ONE WRITING. RESYNCHRONIZE D P LDR* A2,A6 GET STA D P XIF D P IFF EM3270=0
0x000ca0…120cc0 [0x9b7]: Pad {f00=0x006c, f01=0x0190, f02=» CF A5,PRREC PREPARE FOR TEXT RECEPTION D P LDK A1,0 SET RC=0 E 0 ( P CF A5,CWRITE COMPLETE WRITE REQUEST E J P LDK A1,1 E v & P XRS A1,CACK INCREASE ACK COUNTER E P RB BRM305 READ THE MESSAGE E P XIF E ( PBRM316 CF A5,READ READ ONE CHARACTER E
0x000ca0…120cc0 [0x9b8]: Pad {f00=0x006c, f01=0x0190, f02=»E OK E x $ P LD A4,DCRBUF GET BUFFER ADDRESS F P ADK A4,6 F 4 P CW A4,FBLST F F " P RF(NE) BRM325 NOT FIRST BLOCK F Z P IFF RCOM=0 F P LDK A1,ESC F P CCR A1,A4 F P RB(NE) BRM310 ESC NOT FOUND F P ADK A4,1 F P LCR A1,A4 GET COMMAND COD
0x000ca0…120cc0 [0x9b9]: Pad {f00=0x006c, f01=0x0190, f02=»OD READ BUFFER RECEIVED F P XIF G PBRM325 EQU * G , P SUK A7,1 G @ & P RF(Z) BRM340 MESSAGE ENDED BY ETB G R P CM FBAX G | * P CF A15,GRBUF ALLOCATE RECEIVE BUFFER G P ADK A4,6 G P LD A6,FDWTIN GET INPUT DWT G P* G " P* PREPARE FOR CH
0x000ca0…120cc0 [0x9ba]: Pad {f00=0x006c, f01=0x018e, f02=» G P ST A2,+4,A1 H P XIF H PBRM326 EQU * H ( P CWK A6,DW1500 H < , P RF(E) BRM330 MESSAGE IS MENT FOR DCTASK H R P LD A2,DWTST,A6 GET STATUS H P RF(N) BRM330 NO REQUEST H P LDK A2,2 H P CW A2,DWTOR,A6 H " P RF(NE) BRM330 NO READ REQUE
0x000ca0…120cc0 [0x9bb]: Pad {f00=0x006c, f01=0x018e, f02=» H j P LD A3,-4,A4 GET LENGTH I * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH I ( & P CF A15,CTIME STOP REQUEST TIMING I V ( P ST A2,ECBCW,A8 STORE REMAINING TIME I P EJECT I P* I P* I 0 P* CHECK IF START PRINTER BIT SET IN CCC/WCC I P* I
0x000ca0…120cc0 [0x9bc]: Pad {f00=0x006c, f01=0x0190, f02=» P RF(Z) BRM328 J P LD A2,DWTST,A6 GET STATUS J P ORK A2,/A J < P ST A2,DWTST,A6 J N PBRM328 EQU * J f P XIF J z $ P CF A15,TENDIO COMPLETE REQUEST J P RF BRM345 J P EJECT J PBRM330 EQU * J P SUK A4,6 GET BUFFER BASE J ( P CF A5
0x000ca0…120cc0 [0x9bd]: Pad {f00=0x006c, f01=0x0190, f02=» J v P ABL BRM K PBRM345 EQU * K P IFT STAT=1 K , P LD A1,DWTST,A6 K @ P ANK A1,8 K X $ P RB(Z) BRM340 ACK SHOULD BE SENT K j P CF A5,TRWACK SEND WACK K P RF BRM410 K P XIF K P IFF STAT=1 K P RB BRM340 K P XIF K P EJECT K
0x000ca0…120cc0 [0x9be]: Pad {f00=0x006c, f01=0x0190, f02=»FER COMMAND K | PRDMOD EQU * L " P CM XSEL RESET SELECT EXPECTED L ( 4 P LD A6,FDWTIN DWT-ADDRESS FOR ADDRESSED TERMINAL L N $ P LD A4,DWTBUF,A6 BUFFER ADDRESS L $ P SUK A4,2 SDJUST BUFFER ADDRESS L " P LDKL A3,1922 REQUESTED LENGTH L " P IM XRB SET RE
0x000ca0…120cc0 [0x9bf]: Pad {f00=0x006c, f01=0x0190, f02=»* L P* M P* ENQ HAS BEEN RECEIVED M P* M 4 P* M > PBRM400 EQU * M H & P CF A5,HPTIM STOP PROCEDURE TIMER M P LD A1,XACK M P OR A1,XSEL M " P RF(Z) BRM410 IN CONTROL STATE M . P CF A5,TRREP REPEAT LAST CONTROL SEQUENCE M PBRM4
0x000ca0…120cc0 [0x9c0]: Pad {f00=0x006d, f01=0x0190, f02=» & P CF A5,HPTIM STOP PROCEDURE TIMER N P LD A1,XACK N . P RF(NZ) BRM510 ACK EXPECTED N B P OR A1,XSEL N f " P RB(Z) BRM410 IN CONTROL STATE N z P RF BRM636 N PBRM510 EQU * N " P LD A6,FDWTUT GET WRITING DWT N P IFF STAT=0 N P LD A1,XST
0x000ca0…120cc0 [0x9c1]: Pad {f00=0x006d, f01=0x0190, f02=»ECBBA COMPUTE BUFFER INDEX N P ST A1,FBAX O " P ABL POL130 O 6 P* O J P* O T P* DLE HAS BEEN RECEIVED O ^ P* O ~ P* O PBRM600 EQU * O & P CF A5,HPTIM STOP PROCEDURE TIMER O P LD A1,XACK O " P RB(Z) BRM410 ACK NOT EXPECTED O & P
0x000ca0…120cc0 [0x9c2]: Pad {f00=0x006d, f01=0x0190, f02=» LD A1,CACK GET ACKCOUNTER O P RF(Z) BRM630 ACK,0 EXPECTED P " PBRM610 EQU * P F P CF A5,TRENQ SEND ENQ P Z & P CF A5,SPTIM START PROCEDURE TIMER P x P RB BRM410 P PBRM620 EQU * P P CWK A2,ACK1 P P RF(NE) BRM650 P P* P P* ACK , 1 RECE
0x000ca0…120cc0 [0x9c3]: Pad {f00=0x006d, f01=0x0190, f02=» P RF(Z) BRM640 ETX NOT SENT Q P EJECT Q & P* Q 4 , P* ACK HAS BEEN RECEIVED TO AN ETX BLOCK Q > P* Q n P LDK A1,0 SET RC=0 Q x PBRM635 EQU * Q P IFF STAT=0 Q P LD A2,XSTA Q . P RF(NZ) BRM670 STATUS HAS BEEN TRANSMITTED Q P XIF Q (
0x000ca0…120cc0 [0x9c4]: Pad {f00=0x006d, f01=0x0190, f02=»SET READ BUFFER Q P XIF R P RB BRM410 R $ PBRM640 EQU * R 6 P LDK A1,1 R J & P XRS A1,CACK INCREMENT ACK COUNTER R P ABL POL130 R PBRM650 EQU * R P CWK A2,RVI+PAR R ( P RB(NE) BRM610 INVALID DLE SEQUENCE R " P CM XACK RESET 'EXPECTIN
0x000ca0…120cc0 [0x9c5]: Pad {f00=0x006d, f01=0x0190, f02=» P LDK A1,0 SET RC=0 S P RB BRM635 S P IFF STAT=0 S 0 P EJECT S D P* S R P* S " P* STATUS HAS BEEN TRANSMITTED S f P* S P* S PBRM670 EQU * S " P LD A6,FDWTUT GET DWT ADDRESS S , P CF A15,REMOVS REMOVE FROM STATUS QUEUE S P
0x000ca0…120cc0 [0x9c6]: Pad {f00=0x006d, f01=0x0190, f02=»RM636 NOT DE S P LDKL A1,/8000 T " P ANS A1,DWTST,A6 CLEAR STATUS T * P RB BRM636 T P P XIF T b P EJECT T n P* T | P* T P* SELECT HAS BEEN RECEIVED T P* T P* T PSELECT EQU * T P IFF STAT=0 T P LD A1,DWTST,A6 GET STATUS T
0x000ca0…120cc0 [0x9c7]: Pad {f00=0x006d, f01=0x0190, f02=»1 T P RF SEL110 U P XIF U PSEL100 EQU * U ( P ABL BRM U < PSEL110 EQU * U L P IFT STAT+NOWACK=1 U ` P ANK A3,8 U z P RF(NZ) SEL115 BUSY U P XIF U P IFT STAT+NOWACK=2 U P ANK A3,8 U " P RF(Z) SEL111 DEVICE NOT BUSY U P CF
0x000ca0…120cc0 [0x9c8]: Pad {f00=0x006d, f01=0x0190, f02=» U p PSEL115 EQU * V P IFF STAT+NOWACK=2 V P CF A5,TRWACK SEND WACK V 6 P XIF V V P RB SEL100 V b PSEL120 EQU * V t , P CF A5,PRREC PREPARE FOR TEXT RECEPTION V P CF A5,TRACK SEND ACK,0 V P RB SEL100 V P EJECT V P* V P* V
0x000ca0…120cc0 [0x9c9]: Pad {f00=0x006d, f01=0x0190, f02=»DEX V x P IFT CODE=1 W . P LC A2,TEBCDIC,A2 TRANSLATE STA TO EBCDIC W P XIF W R $ P ST A2,+4,A1 SAVE STA IN BUFFER W ^ P IM XSTA W " P ST A6,FDWTIN STORE INPUT DWT W P RTN A5 W P EJECT W P* W P* W $ P* GENERAL POLL HAS BEEN RECE
0x000ca0…120cc0 [0x9ca]: Pad {f00=0x006d, f01=0x0190, f02=»F(Z) POL110 NO STATUS TO BE SENT W " P SUK A6,DWTSQ GET DWT ADDRESS X ( PPOL050 EQU * X N P CF A5,TRSTA SEND STATUS X b & P CF A5,SPTIM START PROCEDURE TIMER X P IM XACK SET 'ACK EXPECTED' X P XIF X P IFF STAT=1 X P RF POL110 X P XIF X
0x000ca0…120cc0 [0x9cb]: Pad {f00=0x006d, f01=0x0190, f02=» P CF A5,TREOT SEND EOT Y P RB POL100 Y " PPOL120 EQU * Y 4 " P SUK A6,DWTWQ GET DWT ADDRESS Y H PPOL125 EQU * Y n $ P LD A8,DWTECB,A6 GET ECB ADDRESS Y P RF(NZ) POL126 Y P CF A15,REMOVW Y P RB POL115 Y PPOL126 EQU * Y P ST A8,FECB SA
0x000ca0…120cc0 [0x9cc]: Pad {f00=0x006d, f01=0x018e, f02=» EQU * Y & P ST A4,FECBBA SAVE BUFFER ADDRESS Z ( P SUK A3,2 SKIP FIRST WORD OF BUFFER Z 8 P ST A3,FECBRL SAVE LENGTH Z d P CM FBAX RESET BUFFER INDEX Z PPOL130 EQU * Z P CM XETX RESET 'ETX SENT' Z P CM XSTA Z P CF A5,TRTEXT SEND ONE BLO
0x000ca0…120cc0 [0x9cd]: Pad {f00=0x006d, f01=0x0190, f02=» Z & P* SPECIFIC POLL HAS BEEN RECEIVED [ P* [ 2 P* [ < PSPOLL EQU * [ F P IFF STAT+SPECP=0 [ Z P LDR A7,A6 SAVE A6 [ t P CF A5,CPTIM CHECK POLLTIMER [ P LDR A6,A7 RESTORE A6 [ P IFT STAT=1 [ P LD A1,DWTST,A6 GET STATUS [ P ANK
0x000ca0…120cc0 [0x9ce]: Pad {f00=0x006d, f01=0x0190, f02=»UEST [ | P LD A1,DWTOR,A6 GET ORDER P SUK A1,6 . P RB(Z) POL125 WRITE REQUEST @ P SUK A1,2 d " P RB(Z) POL125 EXCHANGE REQUEST v P XIF P RB POL115 SEND EOT P EJECT P* P* 8 P* CHECK IF THERE IS A WRITE REQUEST
0x000ca0…120cc0 [0x9cf]: Pad {f00=0x006d, f01=0x0190, f02=»RITE GOING ON ~ P LD A2,DWTST,A6 ] P RF(N) CWR900 NO REQUEST ] . P LD A2,DWTOR,A6 GET ORDER ] N P SUK A2,6 ] p P RF(Z) CWR100 WRITE REQUEST ] P SUK A2,2 ] ( P RF(NZ) CWR900 NOT EXCHANGE REQUEST ] P LDR A1,A1 ] 2 P RF(NZ) CWR100 TRANS
0x000ca0…120cc0 [0x9d0]: Pad {f00=0x006d, f01=0x0190, f02=» LD A8,FECB GET ECB ADDRESS ] P CF A15,CTIME STOP TIMING ^ $ P LDR A8,A8 ^ F P RF(Z) CWR150 ^ X P ST A2,ECBCW,A8 ^ n $ P CF A15,TENDIO COMPLETE REQUEST ^ PCWR150 EQU * ^ * P CF A15,REMOVW REMOVE FROM WRITE QUEUE ^ PCWR200 EQU * ^ P IFF T
0x000ca0…120cc0 [0x9d1]: Pad {f00=0x006d, f01=0x0190, f02=»UE ^ n P XIF _ PCWR900 EQU * _ " P CM XACK RESET 'ACK EXPECTED' _ * P CM FDWTUT _ P P RTN A5 _ b P EJECT _ r P* _ P* _ P* READ ONE TEXT BLOCK _ P* _ P* ON EXIT A3 CONTAINS : _ ( P* 0 : IF CORRECT ETX BLOCK RECEIVED _ 2 P*
0x000ca0…120cc0 [0x9d2]: Pad {f00=0x006d, f01=0x0190, f02=»CRBUF GET BUFFER ADDRESS _ P ADK A4,6 RESERVE HEADER ` P LDK A3,0 ` @ P LD A1,XSTA ` R $ P RF(NZ) RDM050 LAST INPUT WAS OK ` f " P LD A1,FBLST COMPUTE NEW INDEX ` P SUR A1,A4 ` P ST A1,FBAX ` PRDM050 EQU * ` P AD A4,FBAX ADD BUFFER INDEX
0x000ca0…120cc0 [0x9d3]: Pad {f00=0x006d, f01=0x0190, f02=»R=1 ` P LD A1,FBAX a " P RF(NZ) RDM100 NOT FIRST BLOCK a P CF A5,READP a F P RF(NZ) RDM120 PARITY ERROR a Z P CWK A2,ESC a ~ P RF(NE) RDM110 a * P CF A5,READP SKIP NEXT TWO CHARACTERS a P CF A5,READP a P XIF a PRDM100 EQU * a $ P
0x000ca0…120cc0 [0x9d4]: Pad {f00=0x006d, f01=0x0190, f02=»RECEIVED a ~ P CWK A2,ETB b P RF(E) RDM160 ETB RECEIVED b $ P CWK A2,ITB b F P RF(E) RDM170 ITB RECEIVED b Z P CWK A2,ENQ b | & P RF(E) RDM140 ENQ IN TEXT RECEIVED b P CWK A2,/FF b $ P RF(E) RDM140 MARK HOLD RECEIVED b P b P IFT CODE=0
0x000ca0…120cc0 [0x9d5]: Pad {f00=0x006d, f01=0x0190, f02=»N) RDM115 NOT DC1-DC3 b P SLL A1,6 c P LDR A8,A1 c 0 * P CF A5,READP 8-BIT CHAR GET NEXT PART c B P RF(NZ) RDM120 PARITY ERROR c p * P SUK A2,/20 ASSEMBLE TO ONE CHARACTER c P ORR A2,A8 c PRDM115 EQU * c P XIF c P c P SCR A2,A4 STO
0x000ca0…120cc0 [0x9d6]: Pad {f00=0x006d, f01=0x0190, f02=»L c ~ P RB(NG) RDM100 NOT OVERFLOW d P* d . P* BUFFER OVERFLOW d 8 P* d R P RF RDM140 ABORT INPUT d PRDM120 EQU * d z & P LDK A3,1 INDICATE INVALID MESSAGE d P SUK A2,/7F d $ P RF(Z) RDM150 MARK HOLD RECEIVED d P RB RDM100 d P* d
0x000ca0…120cc0 [0x9d7]: Pad {f00=0x006d, f01=0x0190, f02=» ST A2,+2,A1 STORE EFFECTIVE LENGTH IN HEADER d P IFF CODE=1 e 6 P CF A5,RDLRC e J P RF(Z) RDM150 LRC WAS OK e ^ P XIF e ~ P IFT CODE=1 e & P CF A5,RDCRC READ CRC AND CHECK IT e P RF(E) RDM150 CRC WAS OK e P XIF e PRDM140 EQU * e & P L
0x000ca0…120cc0 [0x9d8]: Pad {f00=0x006d, f01=0x0190, f02=»FT P6805=1 e " P ORR A7,A1 PARITY ERROR SALCUZ f P XIF SALCUZ f 8 P RTN A5 f N P* f ^ P* ETB RECEIVED f h P* f ~ PRDM160 EQU * f P LDR A3,A3 f " P RB(NZ) RDM130 ALREADY INVALID f " P LDK A3,2 INDICATE CORRECT ETB f P RB RDM130 f
0x000ca0…120cc0 [0x9d9]: Pad {f00=0x006d, f01=0x0190, f02=» f r P XIF g P IFT CODE=1 g & P CF A5,RDCRC READ CRC AND CHECK IT g ( " P RB(NE) RDM120 CRC WAS NOT OK g R P XIF g x P RB RDM100 g P EJECT g P* g P* TRANSMIT ACK 0 OR 1 g P* g PTRACK LDK A2,1 g P LDK A3,ACK1 PRELOAD ACK1 g
0x000ca0…120cc0 [0x9da]: Pad {f00=0x006d, f01=0x0190, f02=»IT WACK g P* h PTRWACK LDK A3,WACK LOAD WACK h P RF TRDLE h > P* h P P* TRANSMIT RVI h Z P* h p P IFF STAT=0 h z PTRRVI LDK A3,RVI LOAD RVI h P XIF h P* h P* TRANSMIT DLE h P* h PTRDLE LDK A2,DLE LOAD DLE h " P S
0x000ca0…120cc0 [0x9db]: Pad {f00=0x006d, f01=0x018e, f02=»TRNAK LDK A3,NAK LOAD NAK h P RF TREN10 i " P* i 4 P* TRANSMIT EOT i > P* i T PTREOT LDK A3,EOT LOAD EOT i ^ P RF TREN10 i P* i P* TRANSMIT ENQ i P* i PTRENQ LDK A3,ENQ LOAD ENQ i P* i ( PTREN10 SC A3,RESEND PUT IN SAVE AR
0x000ca0…120cc0 [0x9dc]: Pad {f00=0x006d, f01=0x018e, f02=» P CF A5,WRITEP SEND IT j & P LC A2,RESEND+1 GET NEXT CHARACTER j " P CF A5,WRITEP SEND IT j L PTRRE10 LDK A2,/FF j j P CF A5,WRIT05 SEND PAD j P LDK A2,/FF j P CF A5,WRIT05 j P LDK A2,0 SALCUZ j $ P CIO A2,0,LCUUT STOP TRANSMITTER j
0x000ca0…120cc0 [0x9dd]: Pad {f00=0x006d, f01=0x0190, f02=» P IFF LOGG=0 k ( P CF A5,LOGSST LOG TRANSMITTER STATUS k P XIF k D P RTN A5 k P P EJECT k ` P* k n P* k x P* TRANSMIT ONE TEXT BLOCK k P* k P* k PTRTEXT EQU * k P CF A5,TRSYNC START OUTPUT k P IFT TSTREQ=1 k P* k
0x000ca0…120cc0 [0x9de]: Pad {f00=0x006d, f01=0x0190, f02=» 2 P LD A1,XRB READ BUFFER COMMAND IN PROCESS ??? l P RF(NZ) TRT050 YES !! l : P l X P LD A4,FECBBA l ` " P LC A3,+2,A4 GET AID CHARACTER l v P SUK A3,/30 l $ P RF(NZ) TRT050 NOT TEST REQUEST l P LDK A2,SOH l P CF A5,WRITE SEND SOH l P
0x000ca0…120cc0 [0x9df]: Pad {f00=0x006d, f01=0x0190, f02=»X l P CF A5,WRITE SEND STX m ( P ST A4,FBLST REMEMBER START OF BLOCK m ( ( P ADK A4,5 SKIP AID + CURSOR ADDRESS m T P LDK A3,5 ADJUST LENGTH m P LDK A2,3 m P ST A2,FBAX m P RF TRT100 m PTRT050 EQU * m P* m P* m P* m P
0x000ca0…120cc0 [0x9e0]: Pad {f00=0x006e, f01=0x0190, f02=»A4,FBAX ADD BUFFER INDEX m ( P ST A4,FBLST REMEMBER START OF BLOCK n ( P ADK A4,2 SKIP FIRST WORD OF BUFFER n L & P LDK A3,0 RESET CHARACTER COUNTER n x P LD A1,FBAX GET BUFFER INDEX n " P RF(NZ) TRT100 NOT FIRST BLOCK n P LC A2,DW1500+1 GET TCA n
0x000ca0…120cc0 [0x9e1]: Pad {f00=0x006e, f01=0x0190, f02=»DK A2,/27 SEND ENTER AS AID n P CF A5,WRITEP o $ " P LDK A2,/20 AND CURSOR ADDRESS o : P CF A5,WRITEP o ` P LDK A2,/20 o v P CF A5,WRITEP o P XIF o P IFT RCOM=1 o P o & P LD A1,XRB READ BUFFER COMMAND ??? o P RF(Z) TRT070 NO!! o
0x000ca0…120cc0 [0x9e2]: Pad {f00=0x006e, f01=0x0190, f02=»TCUR,A6 CURSOR ADDRESS o . P CF A5,LINCOL SEND LINE AND COLUMN NUMBER p P LDK A3,5 SET BLOCK COUNT p P P RF TRT100 p r PTRT070 EQU * p P XIF p P p P LDK A3,2 p PTRT100 EQU * p P LCR A2,A4 GET ONE CHARACTER p P ADK A4,1 INCREMENT
0x000ca0…120cc0 [0x9e3]: Pad {f00=0x006e, f01=0x0190, f02=»********************************************************** p P* q B , P* CHECK IF ATTRIBUTE CHARACTER OR NULL q L P* q | 4 P*********************************************** q P q & P CWK A2,X'20' ATTRIBUTE CHARACTER q P RF(L) TRT101 YES!!! q
0x000ca0…120cc0 [0x9e4]: Pad {f00=0x006e, f01=0x0190, f02=» * q P CWK A2,/7D END OF MESSAGE ? r " P RF(NE) TRT103 NO,GO TO TRT103 r . P LDK A2,/19 r T PTRT103 EQU * r h P CWK A2,X'7F' NULL ?? r | P RF(NE) TRT105 r P SUK A2,1 r P XIF r P IFT RCOM=1 r P RF TRT105 r P r PTRT101 EQU * r
0x000ca0…120cc0 [0x9e5]: Pad {f00=0x006e, f01=0x0190, f02=»' r ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE s P ANK A1,1 s 6 P ANK A2,/1E MASK s H P SLL A2,1 s ` & P ORR A2,A1 IBM ATTRIBUTE COMPOSED s r " P ORK A2,/40 BIT ALWAYS SET ONE s P LC A2,TASCII,A2 s & P CWK A2,/18 CHECK SPECIAL ATTRIBUT s P RF(NE
0x000ca0…120cc0 [0x9e6]: Pad {f00=0x006e, f01=0x0190, f02=» EQU * s P XIF t P EJECT t P CWK A2,/07 t ( ( P RF(L) TRT110 ILLEGAL CODE : SKIP IT t < P CF A5,WRITEP SEND CHARACTER t h PTRT110 EQU * t $ P IM FBAX INCREMENT BUFFER INDEX t & P LD A1,FECBRL GET REQUESTED LENGTH t P CW A1,FBAX t " P RF(
0x000ca0…120cc0 [0x9e7]: Pad {f00=0x006e, f01=0x0190, f02=» P IFT RCOM=1 u , P LDK A1,SBA CHECK IF SBA AT END OF BLOCK u P CC A1,-2,A4 u H P RF(E) TRT115 YES u P CC A1,-1,A4 u v P RF(NE) TRT116 NO SEND ETB u ( P LCR A2,A4 GET FIRST BYTE AFTER SBA u P ADK A4,1 INREMENT POINTER u P CF A5,WRITEP SE
0x000ca0…120cc0 [0x9e8]: Pad {f00=0x006e, f01=0x0190, f02=» INCREMENT INDEX u P XIF v PTRT116 EQU * v $ P LDK A2,ETB LOAD ETB v 8 PTRT120 EQU * v T P CF A5,WRITEP SEND IT v h P IFF CODE=1 v P LDR A2,A7 GET LRC v P CF A5,WRITEP SEND LRC v P XIF v P IFT CODE=1 v P LDR A8,A7 SAVE CURRENT
0x000ca0…120cc0 [0x9e9]: Pad {f00=0x006e, f01=0x0190, f02=»RIT05 SEND CRC BYTE 2 v P XIF w P ABL TRRE10 HALT OUTPUT w * PTRT130 EQU * w J P IM XETX INDICATE 'ETX SENT' w ^ PTRT140 EQU * w P LDK A2,ETX LOAD ETX w P RB TRT120 SEND ETX AND LRC w P EJECT w P* w P* w P* TRANSMIT STATUS
0x000ca0…120cc0 [0x9ea]: Pad {f00=0x006e, f01=0x0190, f02=» A6 w ~ P CF A5,TRSYNC START OUTPUT x P LDK A2,SOH x . P CF A5,WRITE SEND SOH x B P LDK A7,0 REST LRC x ` P LDK A2,'%' x z P CF A5,WRITEP SEND '%' x P LDK A2,'R' x P CF A5,WRITEP SEND 'R' x P LDK A2,STX x P CF A5,WRITE SEND STX x
0x000ca0…120cc0 [0x9eb]: Pad {f00=0x006e, f01=0x0190, f02=»US x x P ANK A1,/06 MASK FOR S/S 0 y P SRL A1,1 y , $ P LC A2,SSTAB,A1 GET STATUS BYTE y > P CF A5,WRITEP SEND S/S 0 y f P LDK A2,NOIR PRELOAD S/S 1 y P LD A1,DWTST,A6 GET STATUS y P ANK A1,5 y P RF(Z) TRST10 NOT 'IR' y P ANK A1,4 y
0x000ca0…120cc0 [0x9ec]: Pad {f00=0x006e, f01=0x018e, f02=» y t P XIF z P EJECT z P* z " P* z , P* TRANSMIT SYNC SEQUENCE z 6 P* z V P* z ` PTRSYNC EQU * z j P LDK A2,0 SALCUZ z ~ * P CIO A2,0,LCUIN HALT INPUT IF NOT DONE z P SST A2,LCUIN PERFORM SST z P IFT P6805=0 SALCUZ z & P CIO A
0x000ca0…120cc0 [0x9ed]: Pad {f00=0x006e, f01=0x0190, f02=» z | , P CIO A2,1,LCUUT START TRANSMITTER SALCUZ { P RF(A) TRS010 SALCUZ { 8 P SST A1,LCUUT SALCUZ { V P RF(A) TRS005 SALCUZ { t P ABL BRM SALCUZ { " PTRS005 CIO A2,1,LCUUT SALCUZ { PTRS010 EQU * SALCUZ { P LDK A2,SYNEBC SALCUZ { 2 P
0x000ca0…120cc0 [0x9ee]: Pad {f00=0x006e, f01=0x0190, f02=»DK A2,/0C SALCUZ { P CIO A2,1,LCUUT SALCUZ | P RF(A) TRS010 SALCUZ | : P SST A1,LCUUT SALCUZ | X P RF(A) TRS005 SALCUZ | v P ABL BRM SALCUZ | " PTRS005 CIO A2,1,LCUUT SALCUZ | PTRS010 EQU * | P LDK A2,SYN SALCUZ | 2 P OTR A2,
0x000ca0…120cc0 [0x9ef]: Pad {f00=0x006e, f01=0x0190, f02=» PTRS100 LDK A2,SYN } P CF A5,WRITE SEND SYN } P SUK A3,1 } < P RB(NZ) TRS100 } N P RTN A5 } d P EJECT } t P* } P* } P* RECEIVER INTERRUPT } P* } P* } PIH1501 EQU * } P ST P,INTSAV } P CF A15,SAVE8 SAVE A1-A8 }
0x000ca0…120cc0 [0x9f0]: Pad {f00=0x006e, f01=0x018e, f02=» IFF LOGG=0 } ( P CF A5,LOGIN LOG RECEIVED CHARACTER ~ P XIF ~ @ P IFF CODE=1 ~ L P C2 SYNSW ~ ` P RF(NZ) IHLCI2 ~ r P CWK A2,SYN SKIP SYNS ~ P RF(E) READ ~ " PIHLCI2 XRR A7,A2 CALCULATE LRC ~ P XIF ~ P IFT CODE=1 ~ P C2 SYNSW
0x000ca0…120cc0 [0x9f1]: Pad {f00=0x006e, f01=0x018e, f02=» ~ P CF A5,CRCCAL CALCULATE CRC ( P LC A2,TASCII,A2 TRANSLATE TO ASCII , P XIF X PIHIN10 RTN A5 d P IFT P6805=0 SALCUZ z PIHIN20 CF A5,SST PERFORM SST P ABL BRM P XIF SALCUZ P IFT P6805=1 SALCUZ $ PIHIN20 RF SST
0x000ca0…120cc0 [0x9f2]: Pad {f00=0x006e, f01=0x0190, f02=» PIH1502 EQU * P ST P,INTSAV P CF A15,SAVE8 SAVE A1 - A8 , * P CF A15,LDREG RESTORE DC REGS A3 - A8 N P RB IHIN10 | P EJECT P* P* & P* SST INSTRUCTION AND STATUS CHECK P* ( P* LCU STATUS : BIT 10=CARRIER OFF
0x000ca0…120cc0 [0x9f3]: Pad {f00=0x006e, f01=0x0190, f02=»NOT READY r P* PSST SST A1,LCUIN P IFT P6805=1 SALCUZ 4 2 P RF(NA) SST200 ALREADY INACTIVE SALCUZ SALCUZ P P XIF SALCUZ P LDR A2,A1 P IFF LOGG=0 & P CF A5,LOGSST LOG SST INFORMATION P XIF P IFT P6805=0 SALC
0x000ca0…120cc0 [0x9f4]: Pad {f00=0x006e, f01=0x0190, f02=»ST100 SALCUZ P ANK A2,2 SALCUZ & P RF(NZ) SST050 THROUGH PUT SALCUZ 0 & P LDK A1,1 SET PARITY ERROR SALCUZ Z P RF SSTRET SALCUZ P XIF SALCUZ PSST050 EQU * SALCUZ P CM XSTA TROUHHPUT ERROR P LDKL A5,STB P ABL B
0x000ca0…120cc0 [0x9f5]: Pad {f00=0x006e, f01=0x018e, f02=» A5 P XIF SALCUZ P IFT P6805=1 SALCUZ " P ANK A1,/21 SALCUZ > P RF(Z) SST200 LSALCUZ Z 6 P CF A15,SETIME LINE ERROR, WAIT 0.2 SECONDS SALCUZ x P DATA BRM RESTART SALCUZ P DATA 2 WAIT TIME SALCUZ P RF READ SALCUZ P
0x000ca0…120cc0 [0x9f6]: Pad {f00=0x006e, f01=0x0190, f02=» P XIF SALCUZ P* P* $ P* HALT INPUT . P* B P* L PHALTIN LDK A1,0 SALCUZ V P CIO A1,0,LCUIN v P IFT P6805=0 SALCUZ 4 P RB SST PERFORM SST INSTRUCTION AND STATUS CHECK P XIF SALCUZ P IFT P6805=1 SALC
0x000ca0…120cc0 [0x9f7]: Pad {f00=0x006e, f01=0x0190, f02=»NE CHARACTER TO A2 z P* P* $ PWRITE EQU * . P IFT CODE=1 B P ANK A2,/FF V P CWK A2,/FF j 0 P RF(E) WRIT05 NO TRANSLATION OF TRAILING PAD ~ * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC P XIF PWRIT05 EQU * " P OTR A2,0,
0x000ca0…120cc0 [0x9f8]: Pad {f00=0x006e, f01=0x0190, f02=»C r P XIF P IFT CODE=1 & PWRIT10 CF A5,CRCCAL CALCULATE CRC * P XIF T P IFF LOGG=0 ` & P CF A5,LOGOUT LOG OUTPUT CHARACTER t P XIF P* PREAD CF A15,STREG P ABL TDISP P EJECT P* P* P*** WRIT
0x000ca0…120cc0 [0x9f9]: Pad {f00=0x006e, f01=0x0190, f02=»CR A1,A2 P ORK A2,/80 PWRI100 SLL A1,1 $ P RB(P) WRI100 < P RB(Z) WRITE WRITE R P XRK A2,/80 l P RB WRI100 P XIF P IFF CODE+P6805=0 SALCUZ PWRITEP RB WRITE P XIF P* P* P* P*** READ
0x000ca0…120cc0 [0x9fa]: Pad {f00=0x006e, f01=0x0190, f02=»ALCUZ | P ECR A1,A2 PRE100 SLL A1,1 P RF(Z) RE110 6 P RB(NN) RE100 J P XRK A2,/80 ` P RB RE100 t PRE110 LDR A1,A2 P ANK A2,/7F P XIF P IFF CODE+P6805=0 SALCUZ P LDK A1,/80 P XIF P ADK A5,4
0x000ca0…120cc0 [0x9fb]: Pad {f00=0x006e, f01=0x0190, f02=»ERMINAL ADDRESS AS GIVEN IN A2 v P* & $ P* CALLING SEQUENCE: CF A5,FINTER 0 P* A2=SUBTERMINAL ADDRESS X P* A4 DESTROYED x " P* A3#0: DWT TO FOUND TERMINAL P* B P* NOTE: FOR SIEMENS MSV1 - SEPARATE SELECT AND POLL ADDRESSES * P* ENTR
0x000ca0…120cc0 [0x9fc]: Pad {f00=0x006e, f01=0x0190, f02=» BYTE l P* P* PFINTEP EQU * " P IFT MSV1=0 6 PFINTER EQU * J P XIF ^ P IM RBYTE j P IFT MSV1=1 | PFINTER EQU * P XIF & P LD A4,DCTAB GET ADDRESS TO DC:TAB * P AD* A4,DCTAB ADDRESS TO END OF DC:TAB PFI
0x000ca0…120cc0 [0x9fd]: Pad {f00=0x006e, f01=0x0190, f02=»DR* A3,A4 LOAD DWT ADDRESS P IFT MSV1=1 " $ P AD A3,RBYTE CHOOSE ADDRESS TYPE 6 * P CCR A2,A3 COMPARE SUBTERMINAL ADDRESS ^ P XIF P IFT MSV1=0 . P CC A2,1,A3 COMPARE TO SUBTERMINAL ADDRESS P XIF & P RB(NE) FINT10 TAKE NEXT TERMINA
0x000ca0…120cc0 [0x9fe]: Pad {f00=0x006e, f01=0x0190, f02=»* P* $ PDC15ON CF A15,SAVE8 SAVE A1 - A8 P IFT STAT=1 < P LDK A5,4 SET DEVICE END P P LD A1,DCTAB p . P AD* A1,DCTAB GET ADDRESS TO END OF TABLE PDRDC05 SUK A1,2 P CW A1,DCTAB P RF(E) DRDC06 END OF TABLE P LDR*
0x000ca0…120cc0 [0x9ff]: Pad {f00=0x006e, f01=0x0190, f02=»05 PDRDC06 EQU * P XIF ( P LD A2,DCTPGP GET POLL TIMER POINTER * " P RF(NZ) DRDC20 ALREADY STARTED V * PDRDC10 CF A15,SPOTIM START POLL TIMER | PDRDC20 ABL BRM P EJECT P* P* POLL TIME OUT P* ( PPTOUT LDKL A5,ST
0x000ca0…120cc0 [0xa00]: Pad {f00=0x006f, f01=0x0190, f02=» $ P CF A15,SPOTIM START POLL TIMER P ABL TDISP , P* > 4 P* RESTART POLL TIMER WHEN POLL HAS BEEN RECEIVED H P* $ PCPTIM CM DCONOF INDICATE POLLING P LDKL A2,-TIMPOL P ST* A2,DCTPGP RESTART TIMER * P CF A15,CKMESS CHECK IF STAT
0x000ca0…120cc0 [0xa01]: Pad {f00=0x006f, f01=0x0190, f02=»MPOL & P ST A4,DCTPGP STORE TIMER POINTER P ADKL A15,4 6 P ABR* A15 J P EJECT P* j P* START PROCEDURE TIMER t P* PSPTIM EQU * $ P LDR A1,A6 LOAD DWT AS PARAMETER P CF A15,SETIME P DATA PRTOUT,TIMPRO $
0x000ca0…120cc0 [0xa02]: Pad {f00=0x006f, f01=0x0190, f02=» A6,A1 RELOAD A6 P LDKL A5,STB LOAD STACK BASE , P CF A5,HALTIN HALT INPUT IF OPEN SALCUZ < P LD A1,XACK l " P RF(Z) PRT10 ACK NOT EXPECTED P CF A5,TRENQ SEND ENQ & P CF A5,SPTIM START PROCEDURE TIMER PPRT10 ABL BRM P EJECT
0x000ca0…120cc0 [0xa03]: Pad {f00=0x006f, f01=0x018e, f02=» CM* DCTPP STOP TIMER P CM DCTPP PHPT10 RTN A5 0 P EJECT D P IFT CODE=1 R P* f P* p P* CALCULATION OF CRC z P* P* A2 = CHARACTER P* A7 = ACCUMULATED CRC P* P* PCRCCAL EQU * P ST A1,CRCSA
0x000ca0…120cc0 [0xa04]: Pad {f00=0x006f, f01=0x018e, f02=» P SRL A2,1 P ANK A3,1 P RF(Z) CRC110 ( P XRKL A7,/A001 > PCRC110 SUK A1,1 T P RB(NZ) CRC100 l P LD A1,CRCSAV P LD A2,CRCSAV+2 P LD A3,CRCSAV+4 P RTN A5 PCRCSAV RES 3 P EJECT P* P*
0x000ca0…120cc0 [0xa05]: Pad {f00=0x006f, f01=0x0190, f02=» n $ P IM SYNSW DO NOT SKIP SYNCS NOW P CF A5,READ READ BYTE 1 0 P LD A8,CRCSAV+2 SAVE IT P P CF A5,READ READ BYTE 2 p ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN P LD A2,CRCSAV+2 SAVE IT P SLL A2,8 P XRR A2,A8 P ADK A5,4
0x000ca0…120cc0 [0xa06]: Pad {f00=0x006f, f01=0x0190, f02=»D LRC CHARACTER ~ " P* CR=0 IF LRC OK P* > PRDLRC IM SYNSW H P CF A5,READP ^ P ADK A5,4 r P LDR A1,A1 P RF(NZ) LRCEND P ANK A7,/7F PLRCEND EQU * P CM SYNSW P ABR* A5 P P XIF P
0x000ca0…120cc0 [0xa07]: Pad {f00=0x006f, f01=0x0190, f02=» LINE ADDRESS P DATA /8000 STATUS P DATA 0 ECB ADDRESS 0 P DATA 0 ORDER L * P DATA DC15DC POINTER TO ADDRESS BLOCK b P DATA 0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TASK QUEUE P DATA 0 TIMER POINTER (
0x000ca0…120cc0 [0xa08]: Pad {f00=0x006f, f01=0x018e, f02=» DATA 0 SIMULATED DEVICE BUFFER ADDRESS P DATA 0 CURSOR ADDRESS 0 P EJECT N P* P* f P* DC RECEIVE BUFFER POOL p P* PRLINK EQU RBUFL+RBUFL+8 P* PDCRBUF EQU * P DATA *+2 FREE BUFFER ANCHOR P IFF RBUFNR=2
0x000ca0…120cc0 [0xa09]: Pad {f00=0x006f, f01=0x0190, f02=» P DATA *+RLINK P RES RBUFL+3 P XIF . P DATA *+RLINK : P RES RBUFL+3 P P DATA 0 END OF CHAIN d P RES RBUFL+3 P* P* P* DC TRANSMIT BUFFER POOL P* P* PDCTBUF EQU * P* P* P IFF
0x000ca0…120cc0 [0xa0a]: Pad {f00=0x006f, f01=0x0190, f02=»AREA 1 ~ PTBUF2 DATA 0 END OF CHAIN P RES TBUFL BUFFER AREA 2 0 P XIF P P* P EJECT f P* t P* ~ P* INTERRUPT LOGGING ROUTINE P* P* P IFF LOGG=0 PLOGSST ST A2,SAVE2 P ORKL A2,/F000 P RF LO
0x000ca0…120cc0 [0xa0b]: Pad {f00=0x006f, f01=0x0190, f02=»E2 PLOG10 ST A3,SAVE3 P LD A3,LOGPNT $ P STR A2,A3 : P ADK A3,2 L P CWK A3,LOGEND ^ P RF(L) LOGEXI t P LDKL A3,LOGSTA PLOGEXI ST A3,LOGPNT P LD A2,SAVE2 P LD A3,SAVE3 PLOGE10 RTN A5 P EJECT P
0x000ca0…120cc0 [0xa0c]: Pad {f00=0x006f, f01=0x0190, f02=» 0 P XIF P* P* P* * P IFT RCOM=1 4 P EJECT H < P******************************************************* V P* P* L I N C O L P* : P* CONVERT CURSOR ADDRESS TO LINE AND COLUMN NUMBER P* >
0x000ca0…120cc0 [0xa0d]: Pad {f00=0x006f, f01=0x0190, f02=» SRL A2,6 P ANK A2,X'3F' & P LC A2,LICO:T,A2 ASCII LINE NUMBER ( " P CF A5,WRITEP SEND LINE NUMBER R P x P LDR A2,A3 P ANK A2,X'3F' ( P LC A2,LICO:T,A2 ASCII COLUMN NUMBER $ P CF A5,WRITEP SEND COLUMN NUMBER P RTN A5 RETURN
0x000ca0…120cc0 [0xa0e]: Pad {f00=0x006f, f01=0x018e, f02=» DATA /4849,/5B2E,/3C28,/2B21 /08-/0F * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 . * P DATA /5152,/5D24,/2A29,/3B5E /18-/1F * P DATA /2D2F,/5354,/5556,/5758 /20-/27 * P DATA /595A,/7C2C,/255F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-37
0x000ca0…120cc0 [0xa0f]: Pad {f00=0x006f, f01=0x40c2, f02=» | " PDC:TAB DATA 2 LENGTH OF DC:TAB * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 . * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 PDC:END EQU * P* P* P END @ A,/7C2C,/255F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637 /30-37
0x000ca0…120cc0 [0xa10]: Pad {f00=0x006f, f01=0x2008, f02=» H P X ` h p x
0x000ca0…120cc0 [0xa11]: Pad {f00=0x006f, f01=0x0190, f02=»MPOL & P ST A4,DCTPGP STORE TIMER POINTER P ADKL A15,4 6 P ABR* A15 J P EJECT P* j P* START PROCEDURE TIMER t P* PSPTIM EQU * $ P LDR A1,A6 LOAD DWT AS PARAMETER P CF A15,SETIME P DATA PRTOUT,TIMPRO $
0x000ca0…120cc0 [0xa12]: Pad {f00=0x006f, f01=0x0190, f02=» A6,A1 RELOAD A6 P LDKL A5,STB LOAD STACK BASE , P CF A5,HALTIN HALT INPUT IF OPEN SALCUZ < P LD A1,XACK l " P RF(Z) PRT10 ACK NOT EXPECTED P CF A5,TRENQ SEND ENQ & P CF A5,SPTIM START PROCEDURE TIMER PPRT10 ABL BRM P EJECT
0x000ca0…120cc0 [0xa13]: Pad {f00=0x006f, f01=0x018e, f02=» CM* DCTPP STOP TIMER P CM DCTPP PHPT10 RTN A5 0 P EJECT D P IFT CODE=1 R P* f P* p P* CALCULATION OF CRC z P* P* A2 = CHARACTER P* A7 = ACCUMULATED CRC P* P* PCRCCAL EQU * P ST A1,CRCSA
0x000ca0…120cc0 [0xa14]: Pad {f00=0x006f, f01=0x018e, f02=» P SRL A2,1 P ANK A3,1 P RF(Z) CRC110 ( P XRKL A7,/A001 > PCRC110 SUK A1,1 T P RB(NZ) CRC100 l P LD A1,CRCSAV P LD A2,CRCSAV+2 P LD A3,CRCSAV+4 P RTN A5 PCRCSAV RES 3 P EJECT P* P*
0x000ca0…120cc0 [0xa15]: Pad {f00=0x006f, f01=0x0190, f02=» n $ P IM SYNSW DO NOT SKIP SYNCS NOW P CF A5,READ READ BYTE 1 0 P LD A8,CRCSAV+2 SAVE IT P P CF A5,READ READ BYTE 2 p ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN P LD A2,CRCSAV+2 SAVE IT P SLL A2,8 P XRR A2,A8 P ADK A5,4
0x000ca0…120cc0 [0xa16]: Pad {f00=0x006f, f01=0x0190, f02=»D LRC CHARACTER ~ " P* CR=0 IF LRC OK P* > PRDLRC IM SYNSW H P CF A5,READP ^ P ADK A5,4 r P LDR A1,A1 P RF(NZ) LRCEND P ANK A7,/7F PLRCEND EQU * P CM SYNSW P ABR* A5 P P XIF P
0x000ca0…120cc0 [0xa17]: Pad {f00=0x006f, f01=0x0190, f02=» LINE ADDRESS P DATA /8000 STATUS P DATA 0 ECB ADDRESS 0 P DATA 0 ORDER L * P DATA DC15DC POINTER TO ADDRESS BLOCK b P DATA 0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TASK QUEUE P DATA 0 TIMER POINTER (
0x000ca0…120cc0 [0xa18]: Pad {f00=0x006a, f01=0x0190, f02=»MER POINTER t , P* IN DWT MUST BE SET UNEQUAL TO ZERO. 2 P* STANDARD VALUE FOR TIME-OUT IS 30 SECONDS D 4 P* SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE z * P* IS WANTED FOR A SYSTEM, INDICATOR $ P* IN DRIVER MUST BE CHANGED. P*
0x000ca0…120cc0 [0xa19]: Pad {f00=0x006a, f01=0x0004, f02=» @ H
0x000ca0…120cc0 [0xa1a]: Pad {f00=0x006a, f01=0x0190, f02=» 2 P IDENT EBCDIC REL 8.2 78-09-15 870105040820 P : P* B 4 P************************************************ L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* EBCDIC = EBCDIC/ASCII TABLE P* P* P* P*
0x000ca0…120cc0 [0xa1b]: Pad {f00=0x006a, f01=0x0190, f02=» P* P* . P* CONDITIONAL ASSEMBLY (SEE ALSO DRDC15) P* J 2 PX:A EQU 1 CODE , 0=ASCII , 1=EBCDIC (DRDC15) T PCODE EQU X:A 4 PX:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P EJECT P* P* 2
0x000ca0…120cc0 [0xa1c]: Pad {f00=0x006a, f01=0x0190, f02=»/0009,/0000 00-07 ~ ( P DATA /0000,/0000,/0C00,/0000 08-0F ( P DATA /1011,/1213,/000A,/0000 10-17 F ( P DATA /0019,/0000,/1C1D,/1E1F 18-1F r ( P DATA /0000,/0000,/0000,/171B 20-27 ( P DATA /0000,/0000,/0005,/0000 28-2F ( P DATA /0000,/1600,/0
0x000ca0…120cc0 [0xa1d]: Pad {f00=0x006a, f01=0x0190, f02=»8,/2B21 48-4F z ( P DATA /264A,/4B4C,/4D4E,/4F50 50-57 ( P DATA /5152,/5D24,/2A29,/3B5E 58-5F B ( P DATA /2D2F,/5354,/5556,/5758 60-67 n ( P DATA /595A,/7C2C,/255F,/3E3F 68-6F ( P DATA /1831,/3233,/3435,/3637 70-77 ( P DATA /3839,/3A23,/4027,
0x000ca0…120cc0 [0xa1e]: Pad {f00=0x006a, f01=0x0190, f02=»F70 90-97 v ( P DATA /7172,/5D24,/2A29,/3B5E 98-9F ( P DATA /2D2F,/7374,/7576,/7778 A0-A7 > ( P DATA /797A,/7C2C,/255F,/3E3F A8-AF j ( P DATA /3031,/3233,/3435,/3637 B0-B7 ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /2041,/4243,/4445,/464
0x000ca0…120cc0 [0xa1f]: Pad {f00=0x006a, f01=0x0190, f02=»D8-DF r ( P DATA /2D2F,/5354,/5556,/5758 E0-E7 ( P DATA /595A,/7C2C,/255F,/3E3F E8-EF : ( P DATA /3031,/3233,/3435,/3637 F0-F7 f ( P DATA /3839,/3A23,/4027,/3DFF F8-FF P XIF P EJECT P* P* 2 P* TABLE FOR CONVERSION OF ASCI
0x000ca0…120cc0 [0xa20]: Pad {f00=0x006a, f01=0x0190, f02=» DATA /0005,/1500,/0C00,/0000 08-0F ( P DATA /1011,/1213,/3C3D,/3226 10-17 , ( P DATA /7019,/3F27,/1C1D,/1E1F 18-1F X ( P DATA /404F,/7F7B,/5B6C,/507D 20-27 ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 ( P D
0x000ca0…120cc0 [0xa21]: Pad {f00=0x006a, f01=0x4158, f02=»A /D7D8,/D9E2,/E3E4,/E5E6 50-57 ( P DATA /E7E8,/E94A,/005A,/5F6D 58-5F ( ( P DATA /0081,/8283,/8485,/8687 60-67 T ( P DATA /8889,/9192,/9394,/9596 68-6F ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/6A00,/00E0 78-7F 4 P DATA
0x000ca0…120cc0 [0xa22]: Pad {f00=0x006a, f01=0x2008, f02=» NT EBCASC TESTVERSION 1 END (@ 4
0x000ca0…120cc0 [0xa23]: Pad {f00=0x006a, f01=0x0190, f02=» INC LRPINT,TOSSWORK KPF /O MOV TPROC,/S,TOSSWORK . KPF /S,TPROC L SCR ` INC TPROC,TOSSWORK l KPF /O MOV MSUBS,/S,TOSSWORK KPF /S,MSUBS SCR INC MSUBS,TOSSWORK KPF /O MOV TTMJOB,/
0x000ca0…120cc0 [0xa24]: Pad {f00=0x006a, f01=0x0190, f02=»RET SCR INC INPRET,TOSSWORK KPF /O 4 MOV PFTAB,/S,TOSSWORK B KPF /S,PFTAB ` SCR t INC PFTAB,TOSSWORK KPF /O MOV LKMAL,/S,TOSSWORK KPF /S,LKMAL SCR INC LKMAL,TOSSWORK KPF /O
0x000ca0…120cc0 [0xa25]: Pad {f00=0x006a, f01=0x0190, f02=» z KPF /S,DVTTP SCR INC DVTTP,TOSSWORK ( KPF /O D MOV DVTGP,/S,TOSSWORK R KPF /S,DVTGP p SCR INC DVTGP,TOSSWORK KPF /O MOV DVTDN,/S,TOSSWORK KPF /S,DVTDN SCR INC DVTDN,TOSSWOR
0x000ca0…120cc0 [0xa26]: Pad {f00=0x006a, f01=0x0190, f02=»VTDY,/S,TOSSWORK KPF /S,DVTDY SCR , INC DVTDY,TOSSWORK 8 KPF /O T MOV DVTCG,/S,TOSSWORK b KPF /S,DVTCG SCR INC DVTCG,TOSSWORK KPF /O MOV DVTCD,/S,TOSSWORK KPF /S,DVTCD SCR IN
0x000ca0…120cc0 [0xa27]: Pad {f00=0x006a, f01=0x0190, f02=»/O MOV DVTOD,/S,TOSSWORK KPF /S,DVTOD ( SCR < INC DVTOD,TOSSWORK H KPF /O d MOV DVTT1,/S,TOSSWORK r KPF /S,DVTT1 SCR INC DVTT1,TOSSWORK KPF /O MOV DWII01,/S,TOSSWORK KPF /S,DWII01
0x000ca0…120cc0 [0xa28]: Pad {f00=0x000d, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0xa29]: Pad {f00=0x000d, f01=0x0002, f02=»
0x000ca0…120cc0 [0xa2a]: Pad {f00=0x000d, f01=0x0190, f02=» 2 P IDENT ATTACX REL 8.2 78-09-15 870105040820 P : * B ( #*********************************** L * x $ * PHILIPS TERMINAL SYSTEM PTS * : 5* ATTACX = DUMMY MODULE, USED IF ATTACH IS EXCLUDED * * P*
0x000ca0…120cc0 [0xa2b]: Pad {f00=0x000d, f01=0x4096, f02=»NTRY ATT:CH EXTRN TIOERR * * ATTACH EQU * 4 DETACH EQU * H ABL TIOERR ATT:CH DATA 0 p END @ SYSTEM PTS * : 5* ATTACX = DUMMY MODULE, USED IF ATTACH IS EXCLUDED * * P*
0x000ca0…120cc0 [0xa2c]: Pad {f00=0x000d, f01=0x2008, f02=» * x * ENTRY ATTACH ENTRY DETACH 2 ENTRY ATT:CH H EXTRN TIOERR ^ * t ATTACH EQU * ~ DETACH EQU * ABL TIOERR ATT:CH DATA 0 END @ MODULE, USED IF ATTACH IS EXCLUDED
0x000ca0…120cc0 [0xa2d]: Pad {f00=0x000d, f01=0x0190, f02=»= ELEMENT ADDRESS OF RESULT OPERAND(FIRST OPERAND) P* : 2 P* EL2 = ELEMENT ADDRESS OF SECOND OPERAND D P* z P* P EJECT P* P* P************ P* ENTRIES: * P************ P* " P ENTRY T:ADD DECIMAL
0x000ca0…120cc0 [0xa2e]: Pad {f00=0x000d, f01=0x0190, f02=» ENTRY T:CMPC " P ENTRY T:CPA COMPARE ABSOLUTE P ENTRY T:CPAC < P ENTRY T:MOV MOVE R P ENTRY T:MOVC l P ENTRY T:OPA,T:OP1 P ENTRY T:OPS P ENTRY RETMMM " P ENTRY M:ADD,M:SUB,M:CMP,M:CPA P ENTRY M:MOV,M:OPA,M:OPS
0x000ca0…120cc0 [0xa2f]: Pad {f00=0x000d, f01=0x0190, f02=»EAS USED BY THE DIFFERENT SUBROUTINES * 8 P*************************************************** 0 P* l PT:OP1 EQU * v " P DATA 0 LENGTH 2-COMPLEMENTED P* P* & PT:OP2 DATA 0 LENGTH 2-COMPLEMENTED P* P* P EJECT
0x000ca0…120cc0 [0xa30]: Pad {f00=0x0048, f01=0x0190, f02=» LDK A1,2 READ REQUEST ? - P CW A1,DWTOR,A6 . P RF(NE) CKM110 NO . 8 $ P LD A8,DWTECB,A6 ECB ADDR TO A8 . R * P LD A3,DWTRQ,A6 A3=ADDR TO READ QUEUE . z " P RF(Z) CKM200 NO READ IN QUEUE . , P LDR* A2,A3 A2=ADDR TO NEXT READ BUFFER . . P ST A2,DWTRQ
0x000ca0…120cc0 [0xa31]: Pad {f00=0x0048, f01=0x0006, f02=»
0x000ca0…120cc0 [0xa32]: Pad {f00=0x0048, f01=0x0190, f02=» 0 P IDENT TIMER REL 8.2 78-09-15 870105040820 P 8 P* @ 8 P*************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TIMER = TIMER FUNCTIONS P* P* P* P*
0x000ca0…120cc0 [0xa33]: Pad {f00=0x0048, f01=0x0190, f02=» LKM PROCESSORS AND r " P* THE FOLLOWING SUBROUTINES: P* B * P* -SETIME: SET BLOCK IN TIMER QUEUE L . P* -SETIMP: SETIME + STORE TIMER POINTER z P* P* P EJECT P* P* P*********** P* ENTRIES * P
0x000ca0…120cc0 [0xa34]: Pad {f00=0x0048, f01=0x0190, f02=»SETIME + STORE TIMER POINTER P* $ P* . P*********** 8 P* EXTRNALS * L P************ ` P* t P* ~ P EXTRN TDISP DISPATCHER 2 P EXTRN SRUN POINTER TO RUNNING SEGMENT IN LSBT . P EXTRN LKMQDI QUEUE TERMINAL AND DISPARCH
0x000ca0…120cc0 [0xa35]: Pad {f00=0x0048, f01=0x0190, f02=»D FIND TTAB-ADDRESS $ P EXTRN QTJOB QUEUE TERMINAL JOB $ P EXTRN ACTOT ACTIVATE A TERMINAL D * P EXTRN SAVE8 SAVE 8 REGISTERS ON STACK l 8 P EXTRN TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE 0 P EXTRN IHRET8 RESTORE 8 REGISTERS FROM STACK P
0x000ca0…120cc0 [0xa36]: Pad {f00=0x0048, f01=0x0190, f02=»DLER WITH THE FOLLOWING n P* PARAMETERS: P* 8 P* 1. PROGRAM DELAY B P* ^ P* A4 = 0 h P* A5 = TTAB-ADDRESS z P* A8 = DELAY P* P* P* 2. TIMING AND ACTIVATION P* P* A1 = PARAMETER 8 P
0x000ca0…120cc0 [0xa37]: Pad {f00=0x0048, f01=0x018e, f02=»CATION OF PROGRAM TO BE ACTIVATED v P* A8 = DELAY * P* @ P* J PTIMER EQU * T & P LDR A4,A4 TIMING AND ACTIVATION ? h P RF(NZ) TIM010 YES P* P* P* PROGRAM DELAY P* P LDR A1,A5 SET PARAMETER P ST A8
0x000ca0…120cc0 [0xa38]: Pad {f00=0x0048, f01=0x0190, f02=» P* P* TIMING AND ACTIVATION P* 0 PTIM010 EQU * : $ P CF A15,FNDTID FIND TTAB-ADDRESS N P LDR A2,A2 v " P ABL(Z) LKMRQE TTAB NOT FOUND ( P LDR A3,A2 IN BLOCK A3=TTAB-ADDRESS , P LDR A2,A4 A2=DISPATCH ADDRESS (
0x000ca0…120cc0 [0xa39]: Pad {f00=0x0048, f01=0x0190, f02=»SETIME PPAR2 DATA TIMACT,0 P ABL LKMQDI ( P EJECT < P* J P* T P* RETURN AFTER TIME OUT ^ P* P* 1.PROGRAM DELAY P* PDELAY EQU * P LDR A5,A1 SET TTAB-ADDRESS , P CF A15,QTJOB AND QUEUE FOR DISPAT
0x000ca0…120cc0 [0xa3a]: Pad {f00=0x0048, f01=0x0190, f02=»LOCK ADDRESS " P CF A15,FREBLK AND SET IT FREE P LDR A5,A3 SET TTAB-ADDRESS : . P LD A3,SRUN GET POINTER TO RUNNIG SEGMENT ^ $ P RF(Z) TIMA JMP IF ROOT SEGMENT 0 P SU A2,2,A3 ELSE CALCULATE RELATIVE ADDRESS PTIMA EQU * * P LDK A7,0 MO
0x000ca0…120cc0 [0xa3b]: Pad {f00=0x0048, f01=0x0190, f02=»S E T I M E , S E T I M P P* " . P* SUBROUTINE TO SET BLOCK IN TIMER QUEUE , * P* AND IF SETIMP, STORE TIMER POINTER ^ P* ENTRY PARAMETERS:- P* P* A1 = PARAMETER . P* A4 = IF SETIMP: TIMER POINTER ADDRESS , P* P1 = D
0x000ca0…120cc0 [0xa3c]: Pad {f00=0x0048, f01=0x018e, f02=» P* EXIT PARAMETER:- P* $ P* A4 = ADDRESS TO TIMER . P* P P* Z PSETIME EQU * d P LDK A4,0 x PSETIMP EQU * P CF A15,SAVE8 * P LDR A6,A4 SAVE TIMER POINTER ADDRESS P LDR A3,A4 . P LD A5,20,A15 LOAD FIR
0x000ca0…120cc0 [0xa3d]: Pad {f00=0x0048, f01=0x0190, f02=» ( P ST A5,20,A15 ADJUST PROGRAM COUNTER $ P CF A15,GETBLK GET A FREE BLOCK 0 P LDR A2,A4 X P C1R A1,A8 j " P CF A15,GETBLK GET TIMER BLOCK | P LD A1,TIMQUE " P STR A1,A4 SET BLOCK IN QUEUE P ST A4,TIMQUE P ADK A4,4 0 P ST
0x000ca0…120cc0 [0xa3e]: Pad {f00=0x0048, f01=0x403e, f02=»R j PSETEND ABL IHRET8 P* $ P END .@ : GET A FREE BLOCK 0 P LDR A2,A4 X P C1R A1,A8 j " P CF A15,GETBLK GET TIMER BLOCK | P LD A1,TIMQUE " P STR A1,A4 SET BLOCK IN QUEUE P ST A4,TIMQUE P ADK A4,4 0 P ST
0x000ca0…120cc0 [0xa3f]: Pad {f00=0x0048, f01=0x2008, f02=» ST A4,TIMQUE P ADK A4,4 0 P ST A4,10,A15 SET TIMER ADDRESS A4 ON STACK 0 P LDR A6,A6 d P RF(Z) SETEND -SETIME v , P STR A4,A6 -SETIMP STORE TIMER POINTER PSETEND ABL IHRET8 P* P END @ GET A FREE BLOCK
0x000ca0…120cc0 [0xa40]: Pad {f00=0x0049, f01=0x418a, f02=» ) + - X H D ! @ 5P CT OP WWv ]P cR iPd mW` sQ y T T P: T W0 P* H D ! T W& P" T W T P P< WH P R< T P T %W ) ` H D ! 1 ` 9R C b uW }T PX Q P PD P R T R T R P H D !@ %PN ) /P ;
0x000ca0…120cc0 [0xa41]: Pad {f00=0x0049, f01=0x408e, f02=» J F IDENT INTLT1 REL 8.1 78-04-21 870105040810 INTLT1 R INTLT1 d x@
0x000ca0…120cc0 [0xa42]: Pad {f00=0x0049, f01=0x408e, f02=» J F IDENT INTLT2 REL 8.1 78-04-21 870105040810 INTLT2 R INTLT2 d x@
0x000ca0…120cc0 [0xa43]: Pad {f00=0x0049, f01=0x408e, f02=» J F IDENT INTLT3 REL 8.1 78-04-21 870105040810 INTLT3 R INTLT3 d x@
0x000ca0…120cc0 [0xa44]: Pad {f00=0x0049, f01=0x408e, f02=» J F IDENT INTLT4 REL 8.1 78-04-21 870105040810 INTLT4 R INTLT4 d x@
0x000ca0…120cc0 [0xa45]: Pad {f00=0x0049, f01=0x408e, f02=» J F IDENT INTRT1 REL 8.1 78-04-21 870105040810 INTRT1 R INTRT1 d x@
0x000ca0…120cc0 [0xa46]: Pad {f00=0x0049, f01=0x408e, f02=» J F IDENT INTRT2 REL 8.1 78-04-21 870105040810 INTRT2 R INTRT2 d x@
0x000ca0…120cc0 [0xa47]: Pad {f00=0x0049, f01=0x408e, f02=» J F IDENT INTRT3 REL 8.1 78-04-21 870105040810 INTRT3 R INTRT3 d x@
0x000ca0…120cc0 [0xa48]: Pad {f00=0x004a, f01=0x0190, f02=»A5,HALTIN HALT INPUT e P IFT P6805=1 f " P ORR A7,A1 PARITY ERROR SALCUZ f 0 P XIF SALCUZ f V P RTN A5 f l P* f | P* ETB RECEIVED f P* f PRDM160 EQU * f P LDR A3,A3 f " P RB(NZ) RDM130 ALREADY INVALID f " P LDK A3,2 INDICATE CORRE
0x000ca0…120cc0 [0xa49]: Pad {f00=0x004a, f01=0x0004, f02=» H P
0x000ca0…120cc0 [0xa4a]: Pad {f00=0x004a, f01=0x0190, f02=» 0 P IDENT GRBUF REL 8.2 78-09-15 870105040820 P 8 P* @ < P******************************************************* J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* GRBUF = LKM-PROCESSOR FOR GET AND RELEASE P* P*
0x000ca0…120cc0 [0xa4b]: Pad {f00=0x004a, f01=0x018e, f02=»LE CONTAINS LKM-PROCESSORS FOR GET AND P* RELEASE BUFFER. . P* J P* GET BUFFER : T : P* NUMBER OF REQUIRED BUFFERS ARE GIVEN n > P* IN A7. BUFFER ADDRESS IS RETURNED IN A8. P* P* RELEASE BUFFE
0x000ca0…120cc0 [0xa4c]: Pad {f00=0x004a, f01=0x0190, f02=» P*********** P* P* & P ENTRY GETBUF GET BUFFER 0 P ENTRY RELBUF RELEASE BUFFER P P* t P* ~ P************* P* EXTERNALS * P************* P* P* $ P EXTRN TTB:SA TERMINAL SAVE AREA P EXT
0x000ca0…120cc0 [0xa4d]: Pad {f00=0x004a, f01=0x0190, f02=»FIRST TTAB IN BUFFER QUEUE x P* " P* , P EJECT 6 P* D P* N PGETBUF EQU * X , P LDKL A1,GBQUE POINTER TO FIRST IN QUEUE l & PGET001 LDR* A2,A1 GET TTAB-ADDRESS P RF(Z) GET005 NO IN QUEUE P LD A3,TTB:SA,A2 P CW A4,-2,
0x000ca0…120cc0 [0xa4e]: Pad {f00=0x004a, f01=0x018e, f02=» ALLOCATE BUFFERS x P LDR A4,A4 , P RF(NZ) REL060 BUFFER HAS BEEN ALLOCATED . P* ^ P* h & PGET030 LDKL A1,GBQUE QUEUE REQUEST r PGET040 LDR A2,A1 P LDR* A1,A1 $ P RB(NZ) GET040 NOT LAST IN CHAIN P STR A5,A2 P CMR A5
0x000ca0…120cc0 [0xa4f]: Pad {f00=0x004a, f01=0x0190, f02=» t P LD A1,2,A4 BUFFER UNIT $ P ADK A1,2 ADD ONE WORD FOR CHAIN ( P LDR* A2,A8 P P XRK A2,1 d PREL010 LDR A3,A8 v P ADR A3,A1 P STR A3,A8 UPDATE CHAIN P LDR A8,A3 P CWR A3,A2 $ P RB(NE) REL010 UPDATE NEXT CHAIN
0x000ca0…120cc0 [0xa50]: Pad {f00=0x004a, f01=0x018e, f02=»DR* A5,A2 BUFFER ADDRESS P RF(Z) REL050 END OF QUEUE & P LDR* A6,A5 ADDRESS TO NEXT BUFFER B * P LD A1,TTB:SA,A5 GET DISPATCH ADDRESS l P CW A4,-2,A1 P RB(NE) REL020 NOT SAME POOL P STR A2,A15 P STR A4,A15 P STR A6,A15
0x000ca0…120cc0 [0xa51]: Pad {f00=0x004a, f01=0x0190, f02=» j P LDR A1,A4 P LDR* A6,A15 P LDR* A4,A15 0 P LDR* A2,A15 D P LDR A1,A1 X & P RF(Z) REL050 BUFFER NOT ALLOCATED j P CMR A5 TAKE OUT OF QUEUE P STR A6,A2 UPDATE CHAIN ( P CF A15,QTJOB QUEUE FOR DISPATCHING * P RB REL0
0x000ca0…120cc0 [0xa52]: Pad {f00=0x004a, f01=0x0190, f02=» EJECT P* P* < P* SUBROUTINE TO ALLOCATE BUFFERS TO REQUESTING PROGRAM " P* b P* l PGET LDK A6,1 v & P LDR* A4,A4 ADDRESS TO BUFFER-POOL $ PGET010 LDR A8,A4 BUFFER ADDRESS P LDR A2,A7 PGET020 LDR A1,A4 P L
0x000ca0…120cc0 [0xa53]: Pad {f00=0x004a, f01=0x412a, f02=»1 P RB(NZ) GET020 P ANKL A8,/FFFE P* 6 P* @ P ORK A4,1 FREE BUFFER FOUND J $ P STR A4,A8 UPDATE BUFFER POINTER n & P ADKL A8,2 ADDRESS TO USER BUFFER , P ST A8,TTB:SA+16,A5 SAVE IT IN SAVE AREA PGET025 RTN A15 P*
0x000ca0…120cc0 [0xa54]: Pad {f00=0x004a, f01=0x2008, f02=» RB(NZ) GET010 BUFFER NOT FREE P SUK A2,1 . P RB(NZ) GET020 @ P ANKL A8,/FFFE V P* l P* v P ORK A4,1 FREE BUFFER FOUND $ P STR A4,A8 UPDATE BUFFER POINTER & P ADKL A8,2 ADDRESS TO USER BUFFER , P ST A8,TTABSA+16,A5
0x000ca0…120cc0 [0xa55]: Pad {f00=0x004a, f01=0x401a, f02=» @ T Y P LDREG 8 SAVE8 H , ( y P P P Y _@ X , ( D Y X Z8 _ B ( $ = > 0R Q W C > H D ! V H ( 8 P 1
0x000ca0…120cc0 [0xa56]: Pad {f00=0x004a, f01=0x40dc, f02=» J F IDENT DVTMS REL 8.1 78-04-21 870105040810 DVTMS R DVTMS b MSADN t & " ! ( @
0x000ca0…120cc0 [0xa57]: Pad {f00=0x004a, f01=0x40ce, f02=» J F IDENT DC:TAB REL 8.1 78-04-21 870105040810 DC:TAB DCTAB R DCTAB j DC:TAB | @
0x000ca0…120cc0 [0xa58]: Pad {f00=0x004b, f01=0x0190, f02=»CCEPTED,CHECK STATUS } | P IFF LOGG=0 ~ ( P CF A5,LOGIN LOG RECEIVED CHARACTER ~ 0 P XIF ~ P IFF CODE=1 ~ h P C2 SYNSW ~ | P RF(NZ) IHLCI2 ~ P CWK A2,SYN SKIP SYNS ~ P RF(E) READ ~ " PIHLCI2 XRR A7,A2 CALCULATE LRC ~ P XIF ~ P I
0x000ca0…120cc0 [0xa59]: Pad {f00=0x004b, f01=0x0004, f02=» ` h
0x000ca0…120cc0 [0xa5a]: Pad {f00=0x004b, f01=0x0190, f02=» 2 P IDENT TABORT REL 8.2 78-09-15 870105040820 P : P* B 6 P************************************************* L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* " P* TABORT = ABORT I/O REQUEST P* P* P* P*
0x000ca0…120cc0 [0xa5b]: Pad {f00=0x004b, f01=0x0190, f02=»HE LKM HANDLER WITH THE FOLLOWING r P* PARAMETERS:- * P* B , P* A5 = TTAB-ADDRESS OF CALLING PROGRAM L P* | 6 P* A8 = ECB-ADDRESS OF I/O REQUEST TO BE ABORTED P* * P* A PENDING I/O REQUEST IS ABORTED. : P* THE ABORT REQU
0x000ca0…120cc0 [0xa5c]: Pad {f00=0x004b, f01=0x0190, f02=» EJECT P P P ENTRY TABORT P 4 P < " P EXTRN FNDDWT FIND DWT-ADDRESS D P EXTRN DWTST DWT STATUS j & P EXTRN DWTTAB TTAB-ADDRESS IN DWT 0 P EXTRN DWTWAT WAIT ACTIVATE INDICATOR IN DWT ( P EXTRN TABIO ABORT I/O AND ACTIVAT
0x000ca0…120cc0 [0xa5d]: Pad {f00=0x004b, f01=0x0190, f02=»BRT ABORT INTERTASK REQUEST P EXTRN FREBLK FREE ONE BLOCK $ P H P P " PDWTECH EQU /22 ECHO DEVICE DWT X P* ~ P* CONDITIONAL ASSEMBLY P* > P* BY SETTING X:A=0 NO ACTIVATION (IF ANY) WILL TAKE PLACE @ P* IF X:A=1 I/O REQUES
0x000ca0…120cc0 [0xa5e]: Pad {f00=0x004b, f01=0x0190, f02=»ORTED z PCREDIT EQU 1 P EJECT " P 0 P* 8 P* ABORT I/O REQUEST B P* ^ P h PTABORT LDR* A3,A8 p , P RF(N) TABOER REQUEST ALREADY COMPLETED P ( P CF A15,FNDDWT LOOK FOR DWT ADDRESS P LDR A8,A6 P RF(Z) TAB
0x000ca0…120cc0 [0xa5f]: Pad {f00=0x004b, f01=0x0190, f02=»OER DEVICE NOT BUSY P P SLC A7,2 $ $ P RF(NN) TABO20 NOT ECHO REQUEST 6 " P LD A6,DWTECH,A6 GET ECHO DWT ^ $ P CF A15,TENDIO ABORT ECHO DEVICE P LDR A6,A8 RESTORE DWT PTABO20 EQU * . P CF A15,ITABRT ABORT IF INTERTASK REQUEST
0x000ca0…120cc0 [0xa60]: Pad {f00=0x004b, f01=0x4190, f02=»REDIT=1 P LD A4,DWTWAT,A6 P RF(Z) TABO30 I/O NOT WAIT ( 2 P CF A15,FREBLK I/O AND ACTIVATE FREE DISP BLK J P CM DWTWAT,A6 SET NOT WAIT PTABO30 EQU * P LDKL A1,/C000 RETURN CODE P CF A15,TENDIO ABORT P XIF 0 P ABL LKMQD
0x000ca0…120cc0 [0xa61]: Pad {f00=0x004b, f01=0x2008, f02=»
0x000ca0…120cc0 [0xa62]: Pad {f00=0x004b, f01=0x0190, f02=» P IFT CODE+P6805=0 SALCUZ P ECR A1,A2 & PRE100 SLL A1,1 8 P RF(Z) RE110 N P RB(NN) RE100 b P XRK A2,/80 x P RB RE100 PRE110 LDR A1,A2 P ANK A2,/7F P XIF P IFF CODE+P6805=0 SALCUZ P LDK A1,/80
0x000ca0…120cc0 [0xa63]: Pad {f00=0x004b, f01=0x0190, f02=»FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2 P* > $ P* CALLING SEQUENCE: CF A5,FINTER H P* A2=SUBTERMINAL ADDRESS p P* A4 DESTROYED " P* A3#0: DWT TO FOUND TERMINAL P* B P* NOTE: FOR SIEMENS MSV1 - SEPARATE SELECT AND POLL
0x000ca0…120cc0 [0xa64]: Pad {f00=0x004b, f01=0x0190, f02=» IF 1 COMPARE WITH RIGTH BYTE P* & P* 0 PFINTEP EQU * : P IFT MSV1=0 N PFINTER EQU * b P XIF v P IM RBYTE P IFT MSV1=1 PFINTER EQU * P XIF & P LD A4,DCTAB GET ADDRESS TO DC:TAB * P AD* A4,DCTAB ADDRESS TO
0x000ca0…120cc0 [0xa65]: Pad {f00=0x004b, f01=0x0190, f02=»NAL NOT FOUND z P LDR* A3,A4 LOAD DWT ADDRESS P IFT MSV1=1 : $ P AD A3,RBYTE CHOOSE ADDRESS TYPE N * P CCR A2,A3 COMPARE SUBTERMINAL ADDRESS v P XIF P IFT MSV1=0 . P CC A2,1,A3 COMPARE TO SUBTERMINAL ADDRESS P XIF & P RB(NE)
0x000ca0…120cc0 [0xa66]: Pad {f00=0x004b, f01=0x0190, f02=»WER ON FUNCTIONS P* P* " $ PDC15ON CF A15,SAVE8 SAVE A1 - A8 , P IFT STAT=1 T P LDK A5,4 SET DEVICE END h P LD A1,DCTAB . P AD* A1,DCTAB GET ADDRESS TO END OF TABLE PDRDC05 SUK A1,2 P CW A1,DCTAB P RF(E) DRDC06 EN
0x000ca0…120cc0 [0xa67]: Pad {f00=0x004b, f01=0x0190, f02=»US QUEUE t P RB DRDC05 PDRDC06 EQU * " P XIF 6 ( P LD A2,DCTPGP GET POLL TIMER POINTER B " P RF(NZ) DRDC20 ALREADY STARTED n * PDRDC10 CF A15,SPOTIM START POLL TIMER PDRDC20 ABL BRM P EJECT P* P* POLL TIME OUT P*
0x000ca0…120cc0 [0xa68]: Pad {f00=0x0003, f01=0x0190, f02=»D LEVEL t ( P EXTRN PRUN TTAB FOR RUNNING PROGRAM 0 P EXTRN INIMON MONITOR INITIALIZATION ROUTINE < P EXTRN BUG BUGGER p * P EXTRN PFINIT INIT AFTER MASTER CLEAR P EXTRN IHINPT TRAP HANDLER P* P PFD EQU /09 FD DEVICE ADDRESS
0x000ca0…120cc0 [0xa69]: Pad {f00=0x0003, f01=0x0002, f02=» `
0x000ca0…120cc0 [0xa6a]: Pad {f00=0x0003, f01=0x0190, f02=» 2 P IDENT DVKB00 REL 8.2 78-09-15 870105040820 P* : " P* KEYBOARD DEVICE WORK TABLE D P* j P ENTRY DVKB00 TABLE ENTRY t P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN DWDY00 P* P* PDVKB00 EQU * TABLE
0x000ca0…120cc0 [0xa6b]: Pad {f00=0x0003, f01=0x0190, f02=»PUT, ORDER AND ECB-ADDRESS r ( P DATA KBAD POINTER TO ADDRESS BLOCK " P DATA 'KB' TTAB-ADDRESS N $ P DATA 0 WAIT/INDICATE INDICATOR n P DATA 0 TERMINAL QUEUE * P DATA 0 CODE CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3 P DATA 0
0x000ca0…120cc0 [0xa6c]: Pad {f00=0x0003, f01=0x4152, f02=»ICE x $ P DATA /8791 BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 4 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLACE IN QUEUE 6 P DATA DWTSQ+DVKB00 POINTER TO LAST PLACE IN QUEUE PDWTSQ EQU *-DVKB00 P DATA 0,0,0,0,0,0,0,0 P D
0x000ca0…120cc0 [0xa6d]: Pad {f00=0x0003, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES
0x000ca0…120cc0 [0xa6e]: Pad {f00=0x0003, f01=0x0190, f02=» | P DATA ILLINT 59 P DATA ILLINT 60 $ P DATA ILLINT 61 @ P DATA ILLINT 62 P DATA IHINPT TRAP ROUTINE x P HLT P EJECT P P* P* SYSTEM HALTS P* P P HLT P HLT P
0x000ca0…120cc0 [0xa6f]: Pad {f00=0x0003, f01=0x018e, f02=»ATA STB STACK BASE & PCVTSBA DATA 0 START OF BUFFER AREA $ PCVTEBA DATA 0 END OF BUFFER AREA D , PCVTINP DATA 0 INTERPPRETER TABLE ADDRESS l P RF INIT P RF BUGG & PCVTAPA DATA 0 APPLICATION ADDRESS * PCVTAPS DATA 0 APPLICATON START ADDRE
0x000ca0…120cc0 [0xa70]: Pad {f00=0x0003, f01=0x0190, f02=» t ( PFREPAR DATA 0 FREE PARTITION POINTER 0 PPARLEN DATA 0 LENGTH OF PARTITIONS IN BYTES 4 4 PCVTAPN DATA 0 APPLICATION NUMBER (START SWITCH) h 8 PCVTSUB DATA 0 ADDRESS TO IPL READ SECTOR SUBROUTINE P EJECT P P* P* INIMON AND B
0x000ca0…120cc0 [0xa71]: Pad {f00=0x0003, f01=0x0002, f02=» h
0x000ca0…120cc0 [0xa72]: Pad {f00=0x0003, f01=0x018e, f02=» 2 P IDENT DVTP00 REL 8.2 78-09-15 870105040820 P* : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER D P* | P ENTRY DVTP00 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDVTP00 EQU * T
0x000ca0…120cc0 [0xa73]: Pad {f00=0x0003, f01=0x0190, f02=» . P DATA DWTEND-DVTP00 LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS.
0x000ca0…120cc0 [0xa74]: Pad {f00=0x0003, f01=0x4028, f02=» P* P* P END @ $ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS.
0x000ca0…120cc0 [0xa75]: Pad {f00=0x0003, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0 TI
0x000ca0…120cc0 [0xa76]: Pad {f00=0x0003, f01=0x0190, f02=»* SAVE APPLICATION ADDRESS AND RELOCATION BASE P* 8 , PINIM20 ST A13,CVTAPA APPLICATION ADDRESS B , P ADR A10,A13 APPLICATION RELOCATION BASE r P EJECT P* $ P* READ AND RELOCATION ROUTINE P* P* ON ENTRY: & P*
0x000ca0…120cc0 [0xa77]: Pad {f00=0x0003, f01=0x0190, f02=»REGISTER USAGE: 4 P* A2 = RELOCATION BITS CHECK REG 6 P* A3 = ADDRESS OF RELOCATION TABLE P 2 P* A4 = RELOCATION BIT COUNTER , P* A5 = CODE WORD ADDRESS , P* A7 = COD
0x000ca0…120cc0 [0xa78]: Pad {f00=0x0003, f01=0x0190, f02=»UPDATE SECTOR NUMBER " P CFR A14,A15 READ FIRST SECTOR P LDR* A2,A11 START ADDRESS B $ P ADR A2,A10 ADD RELOCATION BASE d $ P ST A2,CVTAPS SAVE START ADDRESS P LD A1,4,A11 LENGTH IN BYTES $ P ADR A1,A10 ADD RELOCATION BASE P ADK A1,2
0x000ca0…120cc0 [0xa79]: Pad {f00=0x0003, f01=0x0002, f02=» p
0x000ca0…120cc0 [0xa7a]: Pad {f00=0x0003, f01=0x0190, f02=» 2 P IDENT DVDY00 REL 8.2 78-09-15 870105040820 P* : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY D P* r P ENTRY DVDY00 TABLE ENTRY | P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK P* P* PDVDY00 EQU * TABLE ENTRY
0x000ca0…120cc0 [0xa7b]: Pad {f00=0x0003, f01=0x0190, f02=»RDER AND ECB-ADDRESS l ( P DATA DYAD POINTER TO ADDRESS-BLOCK P DATA 'DY' TTAB-ADDRESS H $ P DATA 0 WAIT/ACTIVATE INDICATOR h P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4
0x000ca0…120cc0 [0xa7c]: Pad {f00=0x0003, f01=0x4084, f02=»824 LEFT BYTE=NUMBER OF LINES " P RIGHT BYTE=CHARACTERS/LINE & PDWTEND EQU * L P* ` P* j P END t@ TOR h P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4
0x000ca0…120cc0 [0xa7d]: Pad {f00=0x0003, f01=0x2008, f02=» S-BLOCK | P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 4 P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK z P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STA
0x000ca0…120cc0 [0xa7e]: Pad {f00=0x0003, f01=0x018e, f02=» & P SRL A1,1 START ADDRESS REFERENCE P LD A2,PARLEN . ( P SRL A2,1 PARTITION LENGTH REFERENCE D PINIM28 ADR A1,A2 OVERFLOW? p P RF(O) OVERFL ERROR P SUK A3,1 P RB(NZ) INIM28 " P LD A2,CVTEBA GET MEMORY SIZE P SRL A2,1
0x000ca0…120cc0 [0xa7f]: Pad {f00=0x0003, f01=0x0190, f02=» P* " P* LINK FREE PARTITION QUEUE P* 8 PINILNK EQU * B . P ST A13,FREPAR SET FREE PARTITION POINTER V $ PINIM29 SUK A4,1 LAST PARTITION ? P RF(E) INIM32 P LDR A5,A13 ( P AD A13,PARLEN ADD PARTITION LENGTH P STR
0x000ca0…120cc0 [0xa80]: Pad {f00=0x0003, f01=0x0190, f02=»0,SOP INDICATE LOADING ENDED P LD A7,CVTDK START UP DISC $ P ANK A7,/F F P SLL A7,4 X P ORS A7,INIM37 j P ANK A7,/80 P RF(Z) INIM38 NOT FLEX DISC P LDK A7,/C UNLOCK PINIM37 CIO A7,1,FD P RB(NA) *-2 P SST A7,FD
0x000ca0…120cc0 [0xa81]: Pad {f00=0x0003, f01=0x0002, f02=» x
0x000ca0…120cc0 [0xa82]: Pad {f00=0x0003, f01=0x018e, f02=» 2 P IDENT DVTP01 REL 8.2 78-09-15 870105040820 P* : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER D P* | P ENTRY DVTP01 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDVTP01 EQU * T
0x000ca0…120cc0 [0xa83]: Pad {f00=0x0003, f01=0x0190, f02=» . P DATA DWTEND-DVTP01 LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS.
0x000ca0…120cc0 [0xa84]: Pad {f00=0x0003, f01=0x4028, f02=» P* P* P END @ $ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS.
0x000ca0…120cc0 [0xa85]: Pad {f00=0x0003, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0 TI
0x000ca0…120cc0 [0xa86]: Pad {f00=0x0003, f01=0x0190, f02=» > n RTNA15 , ( C @ P P P X X8 , ( a _: W ? T T P , ( W u > > E D , ( E E S % ;DV " * & U " D & $ P #`P T E &
0x000ca0…120cc0 [0xa87]: Pad {f00=0x0003, f01=0x0190, f02=» Y _8 X v LDREGF LDREGE $ * , ( XB Y X X X X ' > GETCHRC 8 n , ( 3@ 4 B U B (" W C OUTLIN` V , ( Q$ " 8' ?A R 8 , ( m ;b# 4
0x000ca0…120cc0 [0xa88]: Pad {f00=0x000c, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f T 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0xa89]: Pad {f00=0x000c, f01=0x0002, f02=»
0x000ca0…120cc0 [0xa8a]: Pad {f00=0x000c, f01=0x018e, f02=» 2 P IDENT DVTP02 REL 8.2 78-09-15 870105040820 P* : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER D P* | P ENTRY DVTP02 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDVTP02 EQU * T
0x000ca0…120cc0 [0xa8b]: Pad {f00=0x000c, f01=0x0190, f02=» . P DATA DWTEND-DVTP02 LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS.
0x000ca0…120cc0 [0xa8c]: Pad {f00=0x000c, f01=0x4028, f02=» P* P* P END @ $ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS.
0x000ca0…120cc0 [0xa8d]: Pad {f00=0x000c, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0 TI
0x000ca0…120cc0 [0xa8e]: Pad {f00=0x000c, f01=0x2008, f02=» TON LOCAL/REMOTE TERMINALS P* * P EXTRN DUON DISC UNIT 4 " P EXTRN MTON MAGNETIC YAPE UNIT R P* x P* $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA TWON P DATA TCDRON P DATA SOPR P DATA DRDCON P DATA CH
0x000ca0…120cc0 [0xa8f]: Pad {f00=0x000c, f01=0x4014, f02=» P END ] @ ] P XIF P IFT IBM=1 $ , PDWTBOE EQU *-DWFD01 BEGINNING OF EXTENT 6 P DATA 0,0,0,0 f $ PDWTEOD EQU *-DWFD01 END OF DATA | P DATA 0,0,0,0 & PDWTEOE EQU *-DWFD01 END OF EXTENT P DATA 0,0,0,0 * PDWTCRN EQU *-DWF
0x000ca0…120cc0 [0xa90]: Pad {f00=0x0022, f01=0x0190, f02=»* SAVE LAST RECORD m P* n P LDR A1,A13 n & P ADK A1,10 BUFSTA+2 n : . P AD A1,FDBMRO,A6 ADDR OF LAST REC IN SECT n V P LDR A2,A11 n P LDR A3,A10 n " P CF A14,DMTBM SAVE LAST RECORD n P* MOVE REST OF SECTOR n P* n P LDR A1,A1
0x000ca0…120cc0 [0xa91]: Pad {f00=0x0022, f01=0x0002, f02=» P
0x000ca0…120cc0 [0xa92]: Pad {f00=0x0022, f01=0x0190, f02=» 2 P IDENT DVKB03 REL 8.2 78-09-15 870105040820 P* : " P* KEYBOARD DEVICE WORK TABLE D P* j P ENTRY DVKB03 TABLE ENTRY t P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN DWDY03 P* P* PDVKB03 EQU * TABLE
0x000ca0…120cc0 [0xa93]: Pad {f00=0x0022, f01=0x0190, f02=»PUT, ORDER AND ECB-ADDRESS r ( P DATA KBAD POINTER TO ADDRESS BLOCK " P DATA 'KB' TTAB-ADDRESS N $ P DATA 0 WAIT/INDICATE INDICATOR n P DATA 0 TERMINAL QUEUE * P DATA 0 CODE CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3 P DATA 0
0x000ca0…120cc0 [0xa94]: Pad {f00=0x0022, f01=0x4152, f02=»ICE x $ P DATA /8791 BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 4 6 P DATA DWTSQ+DVKB03 POINTER TO FIRST PLACE IN QUEUE 6 P DATA DWTSQ+DVKB03 POINTER TO LAST PLACE IN QUEUE PDWTSQ EQU *-DVKB03 P DATA 0,0,0,0,0,0,0,0 P D
0x000ca0…120cc0 [0xa95]: Pad {f00=0x0022, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES
0x000ca0…120cc0 [0xa96]: Pad {f00=0x0022, f01=0x0190, f02=»:a S @ v , ( :a U _n P _ 7 , ( G. @ ' ?D A ' P G O F INIM40N & v TCTAB TTB:ID , ( @ $ T $ T PRUNN TTB:ST , ( 9
0x000ca0…120cc0 [0xa97]: Pad {f00=0x0022, f01=0x40b0, f02=»9H @ @ @ H D ! f W W W P& P CW WP cV qP uT P Pd U U 4 0 ` S U P P & 1T K F UP [ j g h b @ @ $ T $ T PRUNN TTB:ST , ( 9
0x000ca0…120cc0 [0xa98]: Pad {f00=0x0022, f01=0x2008, f02=»
0x000ca0…120cc0 [0xa99]: Pad {f00=0x0022, f01=0x0002, f02=» X
0x000ca0…120cc0 [0xa9a]: Pad {f00=0x0022, f01=0x018e, f02=» 2 P IDENT DVTP03 REL 8.2 78-09-15 870105040820 P* : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER D P* | P ENTRY DVTP03 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDVTP03 EQU * T
0x000ca0…120cc0 [0xa9b]: Pad {f00=0x0022, f01=0x0190, f02=» . P DATA DWTEND-DVTP03 LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS.
0x000ca0…120cc0 [0xa9c]: Pad {f00=0x0022, f01=0x4028, f02=» P* P* P END @ $ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS.
0x000ca0…120cc0 [0xa9d]: Pad {f00=0x0022, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0 TI
0x000ca0…120cc0 [0xa9e]: Pad {f00=0x0022, f01=0x0190, f02=»RO,A6 OLD OFFSET { P LD A4,FDBMRO,A6 | P ST A4,FDBRRO,A6 MAX OFFSET | 0 $ P CF A14,GTLGRN LAST REC NR MOVED | T P LDR A8,A2 | | P LDR A9,A3 REC NR | " P ST A12,FDBRRO,A6 RESET OFFSET | P LDKL A12,-1 | & P CF A14,CRNUPD UPDATE CRN BUFFERS | $
0x000ca0…120cc0 [0xa9f]: Pad {f00=0x0022, f01=0x0190, f02=»A5 FDB | P CF A14,GTLGRN GET REC NR } P LDR A1,A2 } 0 P LDR A2,A3 } B P LDK A6,0 } T P LDK A7,1 } f $ P CF A14,DSUMOD A1,A2 = A1,A2 - 1 } x P RF(Z) DEL600 FILE START } P LDR A6,A5 FDB ADDR } P CF A14,CALSNO GET SECTOR NR } P LDR A5,A6
0x000ca0…120cc0 [0xaa0]: Pad {f00=0x0023, f01=0x018e, f02=» $ P RF(Z) DEL245 BUFFER NOT CHANGED ~ P* ~ , P* WRITE SECTOR ~ 6 P* ~ N P LDK A7,/95 WRITE WAIT ~ X P LKM ~ v P DATA 1 ~ P LDR A1,A5 FDB ~ P CF A14,DMTIOZ IO CHECK ~ P LDR A1,A1 ~ P ABL(NZ) DMTERR ~ ( P SUR A12,A12 BUFFER NOT
0x000ca0…120cc0 [0xaa1]: Pad {f00=0x0023, f01=0x0002, f02=» `
0x000ca0…120cc0 [0xaa2]: Pad {f00=0x0023, f01=0x0190, f02=» 2 P IDENT DVDY03 REL 8.2 78-09-15 870105040820 P* : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY D P* r P ENTRY DVDY03 TABLE ENTRY | P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK P* P* PDVDY03 EQU * TABLE ENTRY
0x000ca0…120cc0 [0xaa3]: Pad {f00=0x0023, f01=0x0190, f02=»RDER AND ECB-ADDRESS l ( P DATA DYAD POINTER TO ADDRESS-BLOCK P DATA 'DY' TTAB-ADDRESS H $ P DATA 0 WAIT/ACTIVATE INDICATOR h P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4
0x000ca0…120cc0 [0xaa4]: Pad {f00=0x0023, f01=0x4084, f02=»850 LEFT BYTE=NUMBER OF LINES " P RIGHT BYTE=CHARACTERS/LINE & PDWTEND EQU * L P* ` P* j P END t@ TOR h P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4
0x000ca0…120cc0 [0xaa5]: Pad {f00=0x0023, f01=0x2008, f02=» S-BLOCK | P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 4 P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK z P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STA
0x000ca0…120cc0 [0xaa6]: Pad {f00=0x0023, f01=0x0190, f02=» J F IDENT MULDIV REL 8.1 78-04-21 870172840810 > : T:MUL T:DIV T:SIGN T:BRK T:MULC T:DIVC M:BRK M:SIGNK R T:MULC T:MUL T:MOV T:SUB , ( D 0 0
0x000ca0…120cc0 [0xaa7]: Pad {f00=0x0023, f01=0x018e, f02=» 8 j T:DIVC f T:DIV j , ( W ! : 9 [ : 0 T:CMP ` , ( wD 0@ @@ 0@P p , ( 0R P [ P 0 * & _ P 0 , ( @
0x000ca0…120cc0 [0xaa8]: Pad {f00=0x0026, f01=0x018e, f02=»UFSTA P EXTRN BUFSNR P EXTRN BUFDMI $ P* : P EXTRN QFDBFL D P EXTRN FDBSTA Z P EXTRN FDBEND p P EXTRN FDBECB P EXTRN FDBEXT P EXTRN EXTDMI P EXTRN EXTLEN P EXTRN EXTBAS P EXTRN FDBRLE P
0x000ca0…120cc0 [0xaa9]: Pad {f00=0x0026, f01=0x0002, f02=»
0x000ca0…120cc0 [0xaaa]: Pad {f00=0x0026, f01=0x018e, f02=» 2 P IDENT DVTP04 REL 8.2 78-09-15 870105040820 P* : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER D P* | P ENTRY DVTP04 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDVTP04 EQU * T
0x000ca0…120cc0 [0xaab]: Pad {f00=0x0026, f01=0x0190, f02=» . P DATA DWTEND-DVTP04 LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS.
0x000ca0…120cc0 [0xaac]: Pad {f00=0x0026, f01=0x4028, f02=» P* P* P END @ $ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS.
0x000ca0…120cc0 [0xaad]: Pad {f00=0x0026, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0 TI
0x000ca0…120cc0 [0xaae]: Pad {f00=0x0026, f01=0x0190, f02=» 2 P* FOR INDEX ASIGN THE PRODGRAM IS RUN TWICE. 4 P* DURING THE FIRST LOOP A MASTERINDEX IS READ. : . P* FC 13 IN TTAB FOR DMTASK IS THEN USED r P EJECT P* P*************** P* ENTRIES * P*************** P*
0x000ca0…120cc0 [0xaaf]: Pad {f00=0x0026, f01=0x0190, f02=»*************** P* EXTERNALS * P***************** 2 P* L P EXTRN QTJOB V P EXTRN FNDTID,TTB:TD j P* P EXTRN DWTST P EXTRN DWTADR P* P EXTRN ECBFC P EXTRN ECBBA P EXTRN ECBRL P EXTRN ECB
0x000ca0…120cc0 [0xab0]: Pad {f00=0x0026, f01=0x018e, f02=»UFSTA P EXTRN BUFSNR P EXTRN BUFDMI $ P* : P EXTRN QFDBFL D P EXTRN FDBSTA Z P EXTRN FDBEND p P EXTRN FDBECB P EXTRN FDBEXT P EXTRN EXTDMI P EXTRN EXTLEN P EXTRN EXTBAS P EXTRN FDBRLE P
0x000ca0…120cc0 [0xab1]: Pad {f00=0x0026, f01=0x0002, f02=»
0x000ca0…120cc0 [0xab2]: Pad {f00=0x0026, f01=0x018e, f02=» 2 P IDENT DVTP05 REL 8.2 78-09-15 870105040820 P* : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER D P* | P ENTRY DVTP05 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDVTP05 EQU * T
0x000ca0…120cc0 [0xab3]: Pad {f00=0x0026, f01=0x0190, f02=» . P DATA DWTEND-DVTP05 LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS.
0x000ca0…120cc0 [0xab4]: Pad {f00=0x0026, f01=0x4028, f02=» P* P* P END @ $ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS.
0x000ca0…120cc0 [0xab5]: Pad {f00=0x0026, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0 TI
0x000ca0…120cc0 [0xab6]: Pad {f00=0x0026, f01=0x0190, f02=»TASS EQU * 8 P LDKL A14,DMTA14 INITIALIZE DMTASK A14 STACK POINTER P ST A2,TASTID TASK IDENT N P CM TASMXA MASTER INDEX ADDR n P ANK A2,/2 P RF(Z) DMT010 NOT FLEXTASC P* & P* PERFORM VOLUME CHECK WITH LOCK P* P LD A8
0x000ca0…120cc0 [0xab7]: Pad {f00=0x0026, f01=0x0190, f02=» P LDR A1,A1 P RF(Z) DMT010 OK P LDK A7,4 VOL UNKNOWN . P ABL DMTASX L PDMT010 EQU * ` P* t P LDKL A8,TASECB ~ P* 6 P LD A1,TASCVO OFFSET INTO TASVOL FOR FIRST VOLUME PDMT050 EQU * , P CF A14,CLRBUF RELEASE ALL F
0x000ca0…120cc0 [0xab8]: Pad {f00=0x0026, f01=0x0190, f02=»T A2,ECBRL,A8 SECTOR LENGTH P LDK A2,0 $ 0 P ST A2,ECBCW,A8 SECTOR #0 VL (VOLUME LABEL) 6 P* j P* t 2 P CF A14,DMTGBU GET A DM BUFFER ADDRESS IN A3 ~ P DATA /5700 NOP. READ ALWAYS P ADKL A3,BUFSTA & P ST A3,ECBBA,A8 DATA BUFFE
0x000ca0…120cc0 [0xab9]: Pad {f00=0x0026, f01=0x0002, f02=»
0x000ca0…120cc0 [0xaba]: Pad {f00=0x0026, f01=0x0190, f02=» 2 P IDENT TTABTC REL 8.2 78-09-15 870105040820 P* : P* D P* T A S K T A B L E N P* n P* x P ENTRY TTABTC TABLE ENTRY P* P* P* P EXTRN DWKB01 P EXTRN DWTP01 P
0x000ca0…120cc0 [0xabb]: Pad {f00=0x0026, f01=0x0190, f02=»C' TERMINAL IDENTIFICATION $ P DATA 0 PENDING PROGRAM POINTER " P DATA 0 LAST SEGMENT ADDRESS J P DATA 0 SEGMENT POINTER n P DATA 0 TERMINAL SAVE AREA P RES 14 P* " P DATA TTABE-* TERMINAL DEVICES P DATA /0020
0x000ca0…120cc0 [0xabc]: Pad {f00=0x0026, f01=0x410e, f02=» DATA DWDY01 P DATA /0231 P DATA DWTP01 @ P DATA /0132 ` P DATA DWTP01 P DATA /0061 P DATA DW1501 PTTABE EQU * P* P END @
0x000ca0…120cc0 [0xabd]: Pad {f00=0x0026, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIFIC
0x000ca0…120cc0 [0xabe]: Pad {f00=0x0026, f01=0x0190, f02=» PDMTAR4 EQU * P LDKL A14,DMTA14 P CF A14,DMTIOC 0 P LD A9,TASVRL F P LD A11,TASASB , P ADKL A11,2 POINTER TO FILENAME IN ASBLK r P LDK A4,2 P CW A4,TASFIL $ P RF(NE) DMT135 NOT MASTER INDEX " P ADKL A11,14 MX FILE NAM
0x000ca0…120cc0 [0xabf]: Pad {f00=0x0026, f01=0x0190, f02=»A3 " P ADR A4,A9 ADDRESS STATUS BYTE P LCR A2,A4 0 P ANK A2,/FF B P ABL(Z) DMT250 NOT USED V ( P SUR A4,A9 BACK TO START OF VTOC REC v P LDR A7,A11 $ P LDK A2,4 FILE NAME MAX 4 WORDS PDMT150 EQU * P LDR* A10,A4 P CWR
0x000ca0…120cc0 [0xac0]: Pad {f00=0x0027, f01=0x018e, f02=» ADK A7,2 P RB DMT150 CHECK NEXT WORD P* 4 ( P* ONLY STANDARD FILES ARE HANDLED > P* j PDMT160 EQU * t P LC A2,VTFIOR,A3 P CCK A2,'SS' STANDARD FILE ? P RF(E) DMT165 YES P CCK A2,'LL' LIBRARY FILE ? P ABL(NZ)
0x000ca0…120cc0 [0xac1]: Pad {f00=0x0027, f01=0x0002, f02=»
0x000ca0…120cc0 [0xac2]: Pad {f00=0x0027, f01=0x018e, f02=» 2 P IDENT TTABTD REL 8.2 78-09-15 870105040820 P* : P* D P* T A S K T A B L E N P* n P* x P ENTRY TTABTD TABLE ENTRY P* P* P* P EXTRN DWKB02 P EXTRN DWTP02 P
0x000ca0…120cc0 [0xac3]: Pad {f00=0x0027, f01=0x018e, f02=» $ P DATA 0 PENDING PROGRAM POINTER P DATA 0 LAST SEGMENT ADDRESS , P DATA 0 SEGMENT POINTER P P DATA 0 TERMINAL SAVE AREA p P RES 14 P* " P DATA TTABE-* TERMINAL DEVICES P DATA /0020 P DATA DWKB02
0x000ca0…120cc0 [0xac4]: Pad {f00=0x0027, f01=0x40b2, f02=» P DATA /0231 P DATA DWTP02 $ P DATA /0132 D P DATA DWTP02 d PTTABE EQU * P* P END @ TTABE-* TERMINAL DEVICES P DATA /0020 P DATA DWKB02
0x000ca0…120cc0 [0xac5]: Pad {f00=0x0027, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIFIC
0x000ca0…120cc0 [0xac6]: Pad {f00=0x0027, f01=0x018e, f02=» P ST A12,TASFDB P LDR A10,A12 P ADKL A10,QFDBFL . P LDK A2,0 F P LDR A1,A12 X PDMT233 ADK A1,2 l P CWR A1,A10 P RF(E) DMT237 END OF FDB P STR A2,A1 P RB DMT233 PDMT237 EQU * P LDKL A2,/8000 P*
0x000ca0…120cc0 [0xac7]: Pad {f00=0x0027, f01=0x0190, f02=» P ADKL A1,FDBECB P ST A2,ECBRL,A1 P LDK A2,/01 4 P ORRS A2,A12 SET USE BIT H P LC A2,VTLRN,A4 h P SC A2,FDBLRN,A12 P LD A2,VTLRN+1,A4 P ST A2,FDBLRN+1,A12 P LD A2,VTRLE,A4 P ST A2,FDBRLE,A12 P LC A2,V
0x000ca0…120cc0 [0xac8]: Pad {f00=0x0027, f01=0x0190, f02=» % PDMT405 EQU * & P SUK A2,4 NEXT OFFSET & P RF(NN) DMT407 OK & : * P RF DMT408 MASTER INDEX MUST BE FOUND & T PDMT407 CW A4,MXIND+2,A2 & P RB(NE) DMT405 NEXT ENTRY & P LDKL A4,/7FFF & & P ANS A4,MXIND+4,A2 SET ENTRY FREE & PDMT408
0x000ca0…120cc0 [0xac9]: Pad {f00=0x0027, f01=0x0002, f02=»
0x000ca0…120cc0 [0xaca]: Pad {f00=0x0027, f01=0x018e, f02=» 2 P IDENT TTABTE REL 8.2 78-09-15 870105040820 P* : P* D P* T A S K T A B L E N P* n P* x P ENTRY TTABTE TABLE ENTRY P* P* P* P EXTRN DWKB41 P EXTRN DWTP41 P
0x000ca0…120cc0 [0xacb]: Pad {f00=0x0027, f01=0x018e, f02=» $ P DATA 0 PENDING PROGRAM POINTER P DATA 0 LAST SEGMENT ADDRESS , P DATA 0 SEGMENT POINTER P P DATA 0 TERMINAL SAVE AREA p P RES 14 P* " P DATA TTABE-* TERMINAL DEVICES P DATA /0020 P DATA DWKB41
0x000ca0…120cc0 [0xacc]: Pad {f00=0x0027, f01=0x40b2, f02=» P DATA /0231 P DATA DWTP41 $ P DATA /0132 D P DATA DWTP41 d PTTABE EQU * P* P END @ TTABE-* TERMINAL DEVICES P DATA /0020 P DATA DWKB41
0x000ca0…120cc0 [0xacd]: Pad {f00=0x0027, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIFIC
0x000ca0…120cc0 [0xace]: Pad {f00=0x0027, f01=0x0190, f02=» P* SUFFICIENT SPACE FOUND , P* , & P LDKL A1,/8000 USED BIT , 0 & P ORS A1,MXIND+2,A5 MARK ENTRY USED , P $ P ST A3,TASMXA MASTER INDEX ADDR , z P ST A3,FDBMIA,A12 , P LD A7,FDBLRN+1,A12 , P STR A7,A3 NO OF ENTRIES , P LD A1,FDBRLE,A12
0x000ca0…120cc0 [0xacf]: Pad {f00=0x0027, f01=0x0190, f02=» , x . P LDR A1,A5 MXIND ENTRY PAR TO REACTIVATION - P CWR A1,A4 MXIND ENTRY - : P RF(NL) DMT590 LAST ENTRY - X P LD A3,MXIND+6,A1 - z " P RF(N) DMT590 NEXT ENTRY USED - P* - & P* MOVE SPARE WORDS TO NEXT ENTRY - P* - P LD A2,MXIND+2,A1
0x000ca0…120cc0 [0xad0]: Pad {f00=0x0028, f01=0x0190, f02=» P LD A1,TASMXA 6 ( P ST A1,FDBMIA,A12 MASTER INDEX ADDR 6 P RF DMT720 6 F ( PDMT639 ADK A7,2 A7=13=OTHER REQ BUSY 6 X * PDMT640 ADK A7,1 A7=11=4 INDEX ALREADY 6 $ PDMT650 EQU * A7=10=NO DATA FILE 6 P ABL DMTASX 6 P XIF 6 P EJECT 6 " PDM
0x000ca0…120cc0 [0xad1]: Pad {f00=0x0028, f01=0x0002, f02=»
0x000ca0…120cc0 [0xad2]: Pad {f00=0x0028, f01=0x0190, f02=» 2 P IDENT TTABDC REL 8.2 78-09-15 870105040820 P* : P* D P* T A S K T A B L E N P* n P* x P ENTRY TTABDC TABLE ENTRY P* P* P* P* P* PTTABDC DATA 0 P DATA 60 TASK LEVEL & P D
0x000ca0…120cc0 [0xad3]: Pad {f00=0x0028, f01=0x409e, f02=»INTER ~ P DATA 0 TERMINAL SAVE AREA P RES 14 0 P* @ " P DATA TTABE-* TERMINAL DEVICES J PTTABE EQU * p P* P END @ P* P* P* P* P* PTTABDC DATA 0 P DATA 60 TASK LEVEL & P D
0x000ca0…120cc0 [0xad4]: Pad {f00=0x0028, f01=0x2008, f02=» ES | PTTABE EQU * P* & P END 0@ <LER TERMINAL , P* T P* ^ P ENTRY TTABX TABLE ENTRY h P* P* P* P* P* PTTABX DATA 0 P DATA 60 TERMINAL STATUS & P DATA /EE TERMINAL IDENTIFIC
0x000ca0…120cc0 [0xad5]: Pad {f00=0x0028, f01=0x0190, f02=» A4,4 ADJUST ADDRESS TO DWT P LDR* A6,A4 GET DWT ADDRESS $ $ P RB(Z) RST100 DWT NOT IN SYSTEM H P LDKL A9,ITADI p $ P CW A9,DWTADR,A6 INTERTASK DWT? P RF(E) RST120 YES! P LDKL A9,ITADO $ P CW A9,DWTADR,A6 INTERTASK DWT? P RF(
0x000ca0…120cc0 [0xad6]: Pad {f00=0x0028, f01=0x0190, f02=»T ECB ~ & P CM DWTTQ,A6 RESET TERMINAL QUEUE P RB RST100 NEXT DEVICE 8 P EJECT V P* d P* n P* RESET BLOCK POOL x P* P* PINI210 EQU * P LDKL A4,TIMQUE TIMER QUEUE PINI214 EQU * * P LDR* A4,A4 NEXT TIMER B
0x000ca0…120cc0 [0xad7]: Pad {f00=0x0028, f01=0x018e, f02=»TIMER POINTER P RB INI214 PINI218 EQU * ( P CM TIMQUE RESET TIMER QUEUE < & P LD A1,BLOCKL LENGTH OF BLOCK POOL ` $ P LD A2,BLOCKS BLOCK POOL ADDRESS 0 P ST A2,FREQUE INITIALIZE FREE QUEUE POINTER PINI220 EQU * P SUK A1,6
0x000ca0…120cc0 [0xad8]: Pad {f00=0x001a, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f 4 &: 4: V - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0xad9]: Pad {f00=0x001a, f01=0x0002, f02=» H
0x000ca0…120cc0 [0xada]: Pad {f00=0x001a, f01=0x0190, f02=» 2 P IDENT DWKB01 REL 8.2 78-09-15 870105040820 P* : " P* KEYBOARD DEVICE WORK TABLE D P* j P ENTRY DWKB01 TABLE ENTRY t P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN DWDY01 P* P* PDWKB01 EQU * TABLE
0x000ca0…120cc0 [0xadb]: Pad {f00=0x001a, f01=0x0190, f02=»PUT, ORDER AND ECB-ADDRESS r ( P DATA KBAD POINTER TO ADDRESS BLOCK " P DATA 'KB' TTAB-ADDRESS N $ P DATA 0 WAIT/INDICATE INDICATOR n P DATA 0 TERMINAL QUEUE * P DATA 0 CODE CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3 P DATA 0
0x000ca0…120cc0 [0xadc]: Pad {f00=0x001a, f01=0x4152, f02=»ICE x $ P DATA /8791 BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 4 6 P DATA DWTSQ+DWKB01 POINTER TO FIRST PLACE IN QUEUE 6 P DATA DWTSQ+DWKB01 POINTER TO LAST PLACE IN QUEUE PDWTSQ EQU *-DWKB01 P DATA 0,0,0,0,0,0,0,0 P D
0x000ca0…120cc0 [0xadd]: Pad {f00=0x001a, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES
0x000ca0…120cc0 [0xade]: Pad {f00=0x001a, f01=0x404e, f02=»BUF3 RES 128 BUFFER FOR RDSEQN c P d & P d . P END d 6 P d B@ d JTPIS PREV=ILL SEQ NO = 2 TRIES c D . P DATA 0 DWTPIE PREV =ILL DAT ERR = 2 TRIES c v & P DATA 0 DWTPDB ERROR AFTER 2 TRIES c P* c & P DATA 0 DWTTMK TAPE MARK INDICATOR c P* c
0x000ca0…120cc0 [0xadf]: Pad {f00=0x001a, f01=0x2008, f02=» e THST HANDL STARTED FLAG 7 , ' WER A3,C1IOPL DWTWRL I/O INSTRUCTIONS 8 ( WER A4,C1IOPA DWTWRA 8 X RER A2,C1IOPA DWTRRA 8 v CIO A1,1,CHCC1 DWTIOS 8 CIO A1,0,CHCC1 DWTIOH 8 SST A1,CHCC1 DWTSST 8 ( # DATA CCBUF1 DWTBUF BUFFER AD
0x000ca0…120cc0 [0xae0]: Pad {f00=0x002a, f01=0x0190, f02=» * P* READ SECTOR N * P* * : P********************** X P* v 0 PREAD:N CF A5,WER:R EXECUTE WER INSTRUCTIONS P CF A5,READ READ SECTOR N P ANK A1,/F $ P RF(Z) READ10 OK. NO RETURN CODE
0x000ca0…120cc0 [0xae1]: Pad {f00=0x002a, f01=0x0002, f02=» @
0x000ca0…120cc0 [0xae2]: Pad {f00=0x002a, f01=0x018e, f02=» 2 P IDENT DWTP01 REL 8.2 78-09-15 870105040820 P* : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER D P* | P ENTRY DWTP01 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDWTP01 EQU * T
0x000ca0…120cc0 [0xae3]: Pad {f00=0x002a, f01=0x0190, f02=» . P DATA DWTEND-DWTP01 LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS.
0x000ca0…120cc0 [0xae4]: Pad {f00=0x002a, f01=0x4028, f02=» P* P* P END @ $ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS.
0x000ca0…120cc0 [0xae5]: Pad {f00=0x002a, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0 TI
0x000ca0…120cc0 [0xae6]: Pad {f00=0x002a, f01=0x0190, f02=» t P P ( PREAD5 LC A2,DWTSEC,A6 SECTOR NUMBER P ANK A2,/1F D P SUK A2,3 SECTOR N-1 X P ANK A2,/1F t P SLL A2,2 P RF CIO EXECUTE CIO-START P EJECT DRDU01 P P & PREAD LC A2,DWTSEC,A6 SECTOR NUMBER
0x000ca0…120cc0 [0xae7]: Pad {f00=0x002a, f01=0x0190, f02=» , P ST* A2,2,A8 PUT CYLNMB. IN USER BUFFER " P LC A2,DWTSEC,A6 SECTOR NUMBER 4 P SLL A2,2 Z P ADK A2,1 l P EJECT DRDU01 ~ P P P PCIO EQU * P P PEX:CIO LC A1,DWTOR,A6 P ANK A1,1 INDEX P ADR
0x000ca0…120cc0 [0xae8]: Pad {f00=0x0056, f01=0x0190, f02=» @ n , ( Z" @ ) _ (@ C 4 ( B * & ! @ ( F U G > , ( @ F G l ECBCW , ( F H" F H +P DWTST EATEST , ( P
0x000ca0…120cc0 [0xae9]: Pad {f00=0x0056, f01=0x0002, f02=»
0x000ca0…120cc0 [0xaea]: Pad {f00=0x0056, f01=0x0190, f02=» 2 P IDENT DWDY01 REL 8.2 78-09-15 870105040820 P* : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY D P* r P ENTRY DWDY01 TABLE ENTRY | P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK P* P* PDWDY01 EQU * TABLE ENTRY
0x000ca0…120cc0 [0xaeb]: Pad {f00=0x0056, f01=0x0190, f02=»RDER AND ECB-ADDRESS l ( P DATA DYAD POINTER TO ADDRESS-BLOCK P DATA 'DY' TTAB-ADDRESS H $ P DATA 0 WAIT/ACTIVATE INDICATOR h P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4
0x000ca0…120cc0 [0xaec]: Pad {f00=0x0056, f01=0x4084, f02=»824 LEFT BYTE=NUMBER OF LINES " P RIGHT BYTE=CHARACTERS/LINE & PDWTEND EQU * L P* ` P* j P END t@ TOR h P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4
0x000ca0…120cc0 [0xaed]: Pad {f00=0x0056, f01=0x2008, f02=» S-BLOCK | P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 4 P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK z P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STA
0x000ca0…120cc0 [0xaee]: Pad {f00=0x0056, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0xaef]: Pad {f00=0x0056, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0xaf0]: Pad {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0xaf1]: Pad {f00=0x0057, f01=0x0002, f02=»
0x000ca0…120cc0 [0xaf2]: Pad {f00=0x0057, f01=0x0190, f02=» 2 P IDENT DWKB02 REL 8.2 78-09-15 870105040820 P* : " P* KEYBOARD DEVICE WORK TABLE D P* j P ENTRY DWKB02 TABLE ENTRY t P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN DWDY02 P* P* PDWKB02 EQU * TABLE
0x000ca0…120cc0 [0xaf3]: Pad {f00=0x0057, f01=0x0190, f02=»PUT, ORDER AND ECB-ADDRESS r ( P DATA KBAD POINTER TO ADDRESS BLOCK " P DATA 'KB' TTAB-ADDRESS N $ P DATA 0 WAIT/INDICATE INDICATOR n P DATA 0 TERMINAL QUEUE * P DATA 0 CODE CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3 P DATA 0
0x000ca0…120cc0 [0xaf4]: Pad {f00=0x0057, f01=0x4152, f02=»ICE x $ P DATA /8791 BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 4 6 P DATA DWTSQ+DWKB02 POINTER TO FIRST PLACE IN QUEUE 6 P DATA DWTSQ+DWKB02 POINTER TO LAST PLACE IN QUEUE PDWTSQ EQU *-DWKB02 P DATA 0,0,0,0,0,0,0,0 P D
0x000ca0…120cc0 [0xaf5]: Pad {f00=0x0057, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES
0x000ca0…120cc0 [0xaf6]: Pad {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0xaf7]: Pad {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0xaf8]: Pad {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0xaf9]: Pad {f00=0x0057, f01=0x0002, f02=»
0x000ca0…120cc0 [0xafa]: Pad {f00=0x0057, f01=0x018e, f02=» 2 P IDENT DWTP02 REL 8.2 78-09-15 870105040820 P* : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER D P* | P ENTRY DWTP02 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDWTP02 EQU * T
0x000ca0…120cc0 [0xafb]: Pad {f00=0x0057, f01=0x0190, f02=» . P DATA DWTEND-DWTP02 LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS.
0x000ca0…120cc0 [0xafc]: Pad {f00=0x0057, f01=0x4028, f02=» P* P* P END @ $ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS.
0x000ca0…120cc0 [0xafd]: Pad {f00=0x0057, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0 TI
0x000ca0…120cc0 [0xafe]: Pad {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0xaff]: Pad {f00=0x0057, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f - P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0xb00]: Pad {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0xb01]: Pad {f00=0x0058, f01=0x0002, f02=»
0x000ca0…120cc0 [0xb02]: Pad {f00=0x0058, f01=0x0190, f02=» 2 P IDENT DWDY02 REL 8.2 78-09-15 870105040820 P* : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY D P* r P ENTRY DWDY02 TABLE ENTRY | P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK P* P* PDWDY02 EQU * TABLE ENTRY
0x000ca0…120cc0 [0xb03]: Pad {f00=0x0058, f01=0x0190, f02=»RDER AND ECB-ADDRESS l ( P DATA DYAD POINTER TO ADDRESS-BLOCK P DATA 'DY' TTAB-ADDRESS H $ P DATA 0 WAIT/ACTIVATE INDICATOR h P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4
0x000ca0…120cc0 [0xb04]: Pad {f00=0x0058, f01=0x4084, f02=»850 LEFT BYTE=NUMBER OF LINES " P RIGHT BYTE=CHARACTERS/LINE & PDWTEND EQU * L P* ` P* j P END t@ TOR h P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4
0x000ca0…120cc0 [0xb05]: Pad {f00=0x0058, f01=0x2008, f02=» S-BLOCK | P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 4 P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK z P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STA
0x000ca0…120cc0 [0xb06]: Pad {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0xb07]: Pad {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0xb08]: Pad {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0xb09]: Pad {f00=0x0058, f01=0x0002, f02=»
0x000ca0…120cc0 [0xb0a]: Pad {f00=0x0058, f01=0x0190, f02=» 2 P IDENT DWKB41 REL 8.2 78-09-15 870105040820 P* : " P* KEYBOARD DEVICE WORK TABLE D P* j P ENTRY DWKB41 TABLE ENTRY t P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN DWDY41 P* P* PDWKB41 EQU * TABLE
0x000ca0…120cc0 [0xb0b]: Pad {f00=0x0058, f01=0x0190, f02=»PUT, ORDER AND ECB-ADDRESS r ( P DATA KBAD POINTER TO ADDRESS BLOCK " P DATA 'KB' TTAB-ADDRESS N $ P DATA 0 WAIT/INDICATE INDICATOR n P DATA 0 TERMINAL QUEUE * P DATA 0 CODE CONVERSION TABLE POINTER P DATA 0 SAVE AREA FOR A3 P DATA 0
0x000ca0…120cc0 [0xb0c]: Pad {f00=0x0058, f01=0x4152, f02=»ICE x $ P DATA /8791 BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 4 6 P DATA DWTSQ+DWKB41 POINTER TO FIRST PLACE IN QUEUE 6 P DATA DWTSQ+DWKB41 POINTER TO LAST PLACE IN QUEUE PDWTSQ EQU *-DWKB41 P DATA 0,0,0,0,0,0,0,0 P D
0x000ca0…120cc0 [0xb0d]: Pad {f00=0x0058, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES
0x000ca0…120cc0 [0xb0e]: Pad {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0xb0f]: Pad {f00=0x0058, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0xb10]: Pad {f00=0x0059, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0xb11]: Pad {f00=0x0059, f01=0x0002, f02=»
0x000ca0…120cc0 [0xb12]: Pad {f00=0x0059, f01=0x018e, f02=» 2 P IDENT DWTP41 REL 8.2 78-09-15 870105040820 P* : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER D P* | P ENTRY DWTP41 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK P* P* PDWTP41 EQU * T
0x000ca0…120cc0 [0xb13]: Pad {f00=0x0059, f01=0x0190, f02=» . P DATA DWTEND-DWTP41 LAST OUTPUT CHR,ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS.
0x000ca0…120cc0 [0xb14]: Pad {f00=0x0059, f01=0x4028, f02=» P* P* P END @ $ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK 6 P DATA 'TP' TTAB-ADDRESS b $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS.
0x000ca0…120cc0 [0xb15]: Pad {f00=0x0059, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0 TI
0x000ca0…120cc0 [0xb16]: Pad {f00=0x0059, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0xb17]: Pad {f00=0x0059, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0xb18]: Pad {f00=0x0059, f01=0x0190, f02=» j , ( @ V ! V W :h ;@ ! 4 8 H D ! x . #P /P 3P 9 Z ? IP YP ]P. cT uR R P H D !a T ` U4 T U T P( P !TJ 'T 5T SP YT( _ H D ! k uPR yRF V P ` T
0x000ca0…120cc0 [0xb19]: Pad {f00=0x0059, f01=0x0002, f02=» 0
0x000ca0…120cc0 [0xb1a]: Pad {f00=0x0059, f01=0x0190, f02=» 2 P IDENT DWDY41 REL 8.2 78-09-15 870105040820 P* : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY D P* r P ENTRY DWDY41 TABLE ENTRY | P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK P* P* PDWDY41 EQU * TABLE ENTRY
0x000ca0…120cc0 [0xb1b]: Pad {f00=0x0059, f01=0x0190, f02=»RDER AND ECB-ADDRESS l ( P DATA DYAD POINTER TO ADDRESS-BLOCK P DATA 'DY' TTAB-ADDRESS H $ P DATA 0 WAIT/ACTIVATE INDICATOR h P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4
0x000ca0…120cc0 [0xb1c]: Pad {f00=0x0059, f01=0x4084, f02=»824 LEFT BYTE=NUMBER OF LINES " P RIGHT BYTE=CHARACTERS/LINE & PDWTEND EQU * L P* ` P* j P END t@ TOR h P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4
0x000ca0…120cc0 [0xb1d]: Pad {f00=0x0059, f01=0x2008, f02=» S-BLOCK | P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 4 P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK z P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STA
0x000ca0…120cc0 [0xb1e]: Pad {f00=0x0059, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0xb1f]: Pad {f00=0x0059, f01=0x0190, f02=» LABEL = FIX1 DATE = 790601 PACK NBR = 001 f P Y _( Y M : ] =IR E
0x000ca0…120cc0 [0xb20]: Pad {f00=0x0038, f01=0x0190, f02=»P [ b a j iW s }T P f d d H D !(n P W P P: R. T& !P" C K QP _ c i wP B H D !t~ P ~ ~ P R4 T, P( - F 1 J 5 N 9 R = V A Z CW H D ! N t T P P t Tj Tf
0x000ca0…120cc0 [0xb21]: Pad {f00=0x0038, f01=0x0012, f02=» ( 0 8 @ H P
0x000ca0…120cc0 [0xb22]: Pad {f00=0x0038, f01=0x0190, f02=» ? f p X D D D D D,n. D D=b= $| D$ D D D D D D D$| D D D D D D D D D D D D D D D24 D D D D D D D D D D D D D D D D D D D D D D n W W W J A B. F A . P&
0x000ca0…120cc0 [0xb23]: Pad {f00=0x0038, f01=0x0190, f02=»P T A. P Y(_8 _J Pd pU p xU x_ A 9a @ :a S @ :a U _n P _ 7 G. @ ' ?D A ' P G O . @ $ T $ T Z A 5 T ? N ? P ? r ? p_ ( @ 9H @
0x000ca0…120cc0 [0xb24]: Pad {f00=0x0038, f01=0x0190, f02=» ? A > > > > > >W ? @ _ > > @ ? ? ? ? T ? _& @ P ^ 9j U Y >_` A @ ( ? ? ? ? ? ? ? > > H ( P c P J @ ? ? @ P A @ (V ( U P @ V L P U
0x000ca0…120cc0 [0xb25]: Pad {f00=0x0038, f01=0x0190, f02=» A @ A lQ A n ? ? ? ? ? ^ A _ _ ^ ? ? ? T $P E ^ 5 ) b W W T T. P L U U U U T U U 4 T - 1_& U T P 0 U
0x000ca0…120cc0 [0xb26]: Pad {f00=0x0038, f01=0x0190, f02=» 6T> nW8 > _& @ 8 R" Y T ? X D 6T nW > _& W > 8 X W ? ` @ @ P $X H W W W X P T R X P X T 4 Y X 6 X T X Y Y X P$ - M Y X P P W > > > > > > >
0x000ca0…120cc0 [0xb27]: Pad {f00=0x0038, f01=0x0190, f02=» BA. 0 > * .:) 1 r "L M N N M J8J K K & NnN<K 4 R 4 " # $ % "$&( 8 @ D X P _ L R P
0x000ca0…120cc0 [0xb28]: Pad {f00=0x0038, f01=0x0190, f02=» Y E B Y F_ W v C P C W < C C _H v H H S W C C B B B U R WJ X [ X T E T F P C X E X F S W C C W, B B Y ER Q X FU C '? T W6 T.(@(@
0x000ca0…120cc0 [0xb29]: Pad {f00=0x0038, f01=0x0190, f02=» R $ - _ " P $ - : R $ - _ : Z $ -_ D * U + 1 W T ` U @ M @ W : X " F $ P `W $ P $ - H : 0 * J X "Pl D ZV" D "? P P &P E Z ! V. P (
0x000ca0…120cc0 [0xb2a]: Pad {f00=0x0038, f01=0x0190, f02=» * J ( P W T Y P T _ Y " F f n(@ X " X E U X F U ( !0 T X F T 0 P ` U, @ , D Z D * , ] 0 X Wf ` U @ H @ X WF , J 4 5
0x000ca0…120cc0 [0xb2b]: Pad {f00=0x0038, f01=0x0190, f02=»P 9 n F 4' ' 5 4 W , P& ,' X X - Z" ) _ (@ C ( B ! 0 @ * F U G F G . " $ F " F +P P* X $ T U W R PB $P<W 0 X $ X " F $
0x000ca0…120cc0 [0xb2c]: Pad {f00=0x0038, f01=0x0190, f02=» F " F D '? P P( $ P" v I I K K P P & P ,W D $ T T W E E E F X ZV ? T B f Z(@( =a 9a Q - _ - > @ nPJ ` x R z A x R @ , - M M M @
0x000ca0…120cc0 [0xb2d]: Pad {f00=0x0038, f01=0x0190, f02=» A U W A A @ U ::A A , ` R @ U P0 ,% T( C ( B P T W ' Th I @ 8 =hP Y X PX ,T( Y H ! R W 9a I ^ W P ,! T T ( : @ P
0x000ca0…120cc0 [0xb2e]: Pad {f00=0x0038, f01=0x0190, f02=» * +W @ 0 R % "V E T D A _" P @ P * +W @ 0 Rb ' F "R G @ D D0 0 T G W, A "R A A B B P ! Tl M : j A A " P
0x000ca0…120cc0 [0xb2f]: Pad {f00=0x0038, f01=0x0190, f02=» L A L C @ A Q< @ 8 A @ B f D E X D0( ( B f B @ D W C C ( ( j l @ T A 0" " " U _ L !SSP !LL " W L @ A
0x000ca0…120cc0 [0xb30]: Pad {f00=0x0039, f01=0x0190, f02=» 6 2% P ` P %_ S 6 S E 3 P S E P S F P S $ P S & P % S D P & S L @ S ( B | 2 @ T W T W| @ P R $ >a U Wd , =b P P @ ! T. W> P D Y P
0x000ca0…120cc0 [0xb31]: Pad {f00=0x0039, f01=0x0190, f02=» P B f n (@( @ < _r P ` ` 9A S Z D $X D S * S ! R & S W S [ S R $ R & D S ^ T T A 0" U _ L !SSP !LL W L @ A
0x000ca0…120cc0 [0xb32]: Pad {f00=0x0039, f01=0x0190, f02=» 6 2% P P %_ S 6 S E 3 P S E P S F P S $ P S & P % S D P & S L @ S ( B | 2 @ T W T W @ P R $ >a U =b P P @ ! T W P D Y P
0x000ca0…120cc0 [0xb33]: Pad {f00=0x0039, f01=0x0190, f02=» P B (@( @ < _r P ` ` 9A S Z D $X D S * S R & S W S [ S R $ R & S ^ T A 0" U _ L !SSP !LL W L @ ,
0x000ca0…120cc0 [0xb34]: Pad {f00=0x0039, f01=0x0190, f02=» @ , L T M @ : P %_ S 6 S E 3 P S E P S F P S $ P S & P % S D P & S L @ S ( B | 2 @ T W T W @ P R $ >a U =b P P @ ! T W P D Y P
0x000ca0…120cc0 [0xb35]: Pad {f00=0x0039, f01=0x0190, f02=» P B (@( @ < _r P ` ` 9A S Z D $X D S * S R & S W S [ S R $ R & S ^ T A 0" U _ L !SSP !LL W L @ ,
0x000ca0…120cc0 [0xb36]: Pad {f00=0x0039, f01=0x0190, f02=» @ , L T M @ : P %_ S 6 S E 3 P S E P S F P S $ P S & P % S D Q S W S Q R S P W S _ R _ ;A [ [ : T PT PJV
0x000ca0…120cc0 [0xb37]: Pad {f00=0x0039, f01=0x0190, f02=» V Q UF V Ud Q4P P 9A?A:AV R Z _ P*R R P ;A [ [ : V X"Z(_( L _P ? ? !? P P !> P W 9P _ T T< R4 L PX P L P 4 M X M M _8
0x000ca0…120cc0 [0xb38]: Pad {f00=0x0039, f01=0x0190, f02=» R D ' Q ( 0 5 @ 1 A Z> : D JW (P D ' I W6 @ xT J ( A x U 1_ D ' I D J ) E J : T & SP P W X & , U U. _ Y * R P Y P X $ _ W Y " : B P8 T G W( X Z
0x000ca0…120cc0 [0xb39]: Pad {f00=0x0039, f01=0x0190, f02=» C X %? : X "_ , D * P , _ D * D D & D T $ T " ^ S W : 1D0 L _P ? ? !? P 1D1 PX P L P 4 M X
0x000ca0…120cc0 [0xb3a]: Pad {f00=0x0039, f01=0x0190, f02=» J B B pU J BQB rU J!B!B pU J!BaB rU J1B1B pU J1BqB rU " " # #>#`# # # # $4 $8$h B " P Q :A H
0x000ca0…120cc0 [0xb3b]: Pad {f00=0x0039, f01=0x0190, f02=»$ U R ; V $ ' # T 'R R p & # PJ P &b & RL P 4 ] P $ P ] U PB P: P0 P, R 4T ] U 'v X "0Tl+ Y WH 8Z & 4 U R ] U # $P2> R.> 8' T Y X ' T P X P
0x000ca0…120cc0 [0xb3c]: Pad {f00=0x0039, f01=0x0190, f02=»R Y X Z ;BR 8% =A Y T Z& ( _, %f 4X4 X: U T %< T U 5 U R " ] ' ;h # <c$ P X " Z %t "X 8# T" 8Z V. X # T X P y Y X ' X (@ L ' T 4X <d$ _@ $?:D" Y X P Y #
0x000ca0…120cc0 [0xb3d]: Pad {f00=0x0039, f01=0x0190, f02=»( > P P P X X> _@ Wj ? T T J ' W u > > E D E E S( % ;DV " U D $ P #`P T E $$_ " P T 8! P6 ( Y Y Y Y _8 X XB Y X X X X ' 4 B U B ("
0x000ca0…120cc0 [0xb3e]: Pad {f00=0x0039, f01=0x0190, f02=»WN 8V T P U 8 ~ U Q,P X H 5 U R " ] ' Y V P X P P _ ] W Q Y _4 @$ T P$ X R4 @ U S ' U T " D P D T U W _ U 4XR XX 5 ( _b Y Y Y X 9BV$ X " Y
0x000ca0…120cc0 [0xb3f]: Pad {f00=0x0039, f01=0x0190, f02=» A,F P T YF ZJ X T X M A+ *L ,* H* + , + , , + + + @ n *L - , Px X XP# Y ) Wf ,> " P P ,j_ :CV + W* T T * _<#/ X T Y P ) Y C C Y A+ A,N X T ,Z
0x000ca0…120cc0 [0xb40]: Pad {f00=0x0039, f01=0x0190, f02=» ,b ;g# + _ Y ,f _ Y C W A- _ A+D A, A- _$ _ _, _0 _4 _8 _< A @ ?M P: A- PdQ* ? A, @* T M -W ,E A, A+D > > >M A, _ A, > ;I C X "A _@ A, A, A, A, , ,*# X& ,^T X T ,b:EV
0x000ca0…120cc0 [0xb41]: Pad {f00=0x0039, f01=0x0190, f02=» ,j ,6_ : V # P W Y P X ' P Y _ Y " "- *B - - T 8TR 9WD 7P P B A- W B A- @- A.W A @I.9 .V X R C Z A @- A. .V X V 9_8 - @ - 08 A X T
0x000ca0…120cc0 [0xb42]: Pad {f00=0x0039, f01=0x0190, f02=» ;g# + _ Y _ Y C W A _ A+D A A _$ _ _, _0 _4 _8 _< A @ ?M P A P Q ? A, @* T M -W ,E A A+D > > >M A _ A > ;I C X "A _@ A, A, A, A, , ,*# X& ,^T X T ,b:EV
0x000ca0…120cc0 [0xb43]: Pad {f00=0x0039, f01=0x0190, f02=» B B # L0 Y :e X <Y, X :P( Y : !1v9 V !1 9 R Y : 2p Ph P" U> !1N !1 ! P 2p_ X : @.} F !1d !1 ! P 2p_ 2p .| !1X !1 ! P 2p_ X : b 2p , X # P C 2p .|W .|P W B Y ( Y * 4 X ::C* W,
0x000ca0…120cc0 [0xb44]: Pad {f00=0x0039, f01=0x0190, f02=» Z_. @3.X"_6 X R Z Y 3. 0P -_Z J 2* _d 30 A3._ A @ 30I D 9AZV9a X 8V # T X X X X ' 4 T B C @0 X P X " I Z X Y 8 Y !1 T !1N Y : !1 ! TJ , X ! P .~ , (P ) P X
0x000ca0…120cc0 [0xb45]: Pad {f00=0x0039, f01=0x0190, f02=» 3 3 Y :e X Y, X P Y ! 9 V ! 9 P P P P P" P P W P P P 6< B " P HH :H B # LH 9 B Y B Y ? P" @Hn H % AHn AHr Y 6 Z_^ 4 5 _h X P , Y C L C Z_ 4 _ 5j P
0x000ca0…120cc0 [0xb46]: Pad {f00=0x0039, f01=0x0190, f02=»6 @ X T ) _ B X" A5 J 5 Y _4 Y X P : X H 5 5p 5 A6 @6 Z A6 _` X P ( y Y W ?: (P 0 ) > C _ @3vP: X R. X 1T& 5j P" X M M 5B M Z 6 _R ?: (P _ ) 1_f C C X F X _x 3t (P _
0x000ca0…120cc0 [0xb47]: Pad {f00=0x0039, f01=0x0190, f02=» , Y C L C L C Z > @3r @3n @3p A3pX _" A6 A6 A6 A6 A6 6 W >P H 9 B BHBB 3 != 2B != T P P 8 9@ 9 != Tj Tf A? P A? TV != TP != TH TD != T< != A
0x000ca0…120cc0 [0xb48]: Pad {f00=0x0039, f01=0x0190, f02=»P @?:X@ !: TF A6 !; 6 @6 P* @?:P$ @6 7 8 != 8 !9 !: A6 _D != X@_d A6 @?: @6 T 1 0 2P P Pt A6 5V @6 8 HI @?:P E ? PF X R@ X T8 C P C 5B C P " HI " P X * Y ZW !6( 6< !; 6 X ! X !; W6 A
0x000ca0…120cc0 [0xb49]: Pad {f00=0x0039, f01=0x0190, f02=»X< != T @6 P !; !> _V /T, @6 X @6 P @6 T0 !: !; A6 _~ A6 :j @ B A6 @6 T _2 _6 @6 6 A6 A6 X ! XD Y _N X ! P !; 6 # T @?:T !; _ !9 !; _ A6 A6 HI E A6 A6 4 !>` @6 P !< !> A6 6 @3tT !; _ T 5 _ 6 A
0x000ca0…120cc0 [0xb4a]: Pad {f00=0x0039, f01=0x0190, f02=» Y W 6 5B P C Z 5 @6 5 5p A6 A6 4 @?: @6 T @6 A6 @6 A6 A6 != T2 P4 PJ PL P4 P. 1 A6 @6 X]6W P _@ @?: @6 E !> P != 4 _$ !> 2_l / A6 T W ,W @ A6 A6 W W W A6 A6 !=H @6 != @
0x000ca0…120cc0 [0xb4b]: Pad {f00=0x0039, f01=0x0190, f02=»PL R ~T }T T0 W, != P " ! " :A *@ HH T 0 != W R != A6 @6 @6 UH Zx Q P Q T 0 != A6 0 != A6 != " != " != ; A6 _" A6 A6 !=H != % != R != != @? != 8 != X ! 9a D6 != X ! P ! T &
0x000ca0…120cc0 [0xb4c]: Pad {f00=0x0039, f01=0x0190, f02=»6 A3r 6< 4 A _$" P HI B P W !> 6 _ != ! 1 4 A= @Hp `Hp @HpP 0 M A= 4 @Hp `Hp @HpP $ Y 6 _ @3xT >r 6 3 @ A3n 6< >r A3n a3x 6< 4 J >J X A3x > J > A6 4 A6 3 != @6 P !; !> 6 @6 P
0x000ca0…120cc0 [0xb4d]: Pad {f00=0x0039, f01=0x0190, f02=» ?<A T W ! P " ! " :A *@ H T 0 ! W R ! A6 @6 @6 U Zx Q P Q T 0 ! A6 0 ! A6 ! " ! " ! ; A6 _" A6 A6 ! ! % ! R ! ! @ ! 8 ! X ! 9a D6 ! X ! P ! T &
0x000ca0…120cc0 [0xb4e]: Pad {f00=0x0039, f01=0x0190, f02=»6 A3r 6< 4 A _$" P H B P W ! 6 _ != ! 1 4 A= @ ` @ P 0 M A= 4 @ ` @ P $ Y 6 _ @3xT 6 3 @ A3n 6< A3n a3x 6< 4 >J X A3x > A6 4 A6 3 != @6 P !; > 6 @6 P
0x000ca0…120cc0 [0xb4f]: Pad {f00=0x0039, f01=0x0190, f02=» ?<A T W ! P " ! " :A *@ H T 0 ! W R ! A6 @6 @6 U Zx Q P Q T 0 ! A6 0 ! A6 ! " ! " ! ; A6 _" A6 A6 ! ! % ! R ! ! @ ! 8 ! X ! 9a D6 ! X ! P ! T &
0x000ca0…120cc0 [0xb50]: Pad {f00=0x003a, f01=0x0190, f02=»6 A3r 6< 4 A _$" P H B P W ! 6 _ != ! 1 4 A= @ ` @ P 0 M A= 4 C F @ ` @ P $ Y 6 _ @3xT 6 3 @ A3n 6< A3n a3x 6< 4 >J X A3x > A6 4 A6 3 != @6 P !; > 6 @6 P
0x000ca0…120cc0 [0xb51]: Pad {f00=0x003a, f01=0x0190, f02=» ?<A T W ! P " ! " :A *@ H T 0 ! W R ! A6 @6 @6 U Zx Q P Q T 0 ! A6 0 ! A6 ! " ! " ! ; A6 _" A6 A6 ! ! % ! R ! ! @ ! 8 ! X ! 9a D6 ! X P ! T &
0x000ca0…120cc0 [0xb52]: Pad {f00=0x003a, f01=0x0190, f02=»6 A3r 6< 4 A _$" P H B P W ! 6 _ != ! 1 4 A= @ ` @ P 0 M A= 4 @ ` @ P $ Y 6 _ @3xT 6 3 @ A3n 6< A3n a3x 6< 4 >J X A3x > A6 4 A6 3 != @6 P !; > 6 @6 P
0x000ca0…120cc0 [0xb53]: Pad {f00=0x003a, f01=0x0190, f02=» ?<A :f"? HH. != "? HH. != 4 ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^-/STUVWXYZ|,%_>?0123456789:#@'="HtHr ABCDEFGHI[.<(
0x000ca0…120cc0 [0xb54]: Pad {f00=0x003a, f01=0x0190, f02=»@'=" ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^-/STUVWXYZ|,%_>?0123456789:#@'= 7- <=2&p ?' @O {[lP}M] Nk`Ka z^L~no| J Z_m j TOSS T JH J Jr 0 Jl J Jz _0
0x000ca0…120cc0 [0xb55]: Pad {f00=0x003a, f01=0x0190, f02=»_ K` Tj $ ) 5 P "2 # (P0 4 T D ? ? ? T K` > > > P 5 ) _4 0 $P , # > "R2 P* X T$ X R ? V X " Z N R K K K K K K K K
0x000ca0…120cc0 [0xb56]: Pad {f00=0x003a, f01=0x0190, f02=» Lj Lp Lv L| L L L L L L L L L L L L M R @ T ! N ! N R P X T X P X P Y @ P@ 6 X P2 X "P0 P( P H T~ H Pn H Pr I Y
0x000ca0…120cc0 [0xb57]: Pad {f00=0x003a, f01=0x0190, f02=» Y ^ 5 ) P U W C P "Z Y _ _ 0 X4 @ P L _B 2 - .V .f $$ `? 30 30 b"DN O OBO N N O O P PBP P N P Q QD M <TC K K K
0x000ca0…120cc0 [0xb58]: Pad {f00=0x003a, f01=0x0190, f02=» Lj Lp Lv L| P 0Q PQD 1Q 2Q <DC L L L L L @ JTxKB P O O $Q TP &W&DY P H T $ @ JTxKB
0x000ca0…120cc0 [0xb59]: Pad {f00=0x003a, f01=0x0190, f02=» Y ^ P D JTxKB P QD Q Q $Q TP &W&DY b"D $ 3|DC Q S S !"&';<>@^_ 9: X ! Y MQ P ^ Y
0x000ca0…120cc0 [0xb5a]: Pad {f00=0x003a, f01=0x0190, f02=» ! V !(JW !Tf !R Y T !(J V Q !(J B C !(J T " T W Q " T ) !TR Q Y _ !T2 Y "P Q W !(J Y #" S _" Q _6 !T,_b !TR_h B B , ! T _ D ! P ! P W C V B P !(J !(J !(J Y 4 RNQ
0x000ca0…120cc0 [0xb5b]: Pad {f00=0x003a, f01=0x0190, f02=» C X ' W Y !(J _ X RD P P (xW2 R R X R !(J Y # !(J Q R _ 4 !(J !(J" T !(J !(J 4 X # 4 Y # Q !(J" P ,$ , !(J 4T~Vx Y U -P -P R U X ( ) Y * U 8!@P" X P P y
0x000ca0…120cc0 [0xb5c]: Pad {f00=0x003a, f01=0x0190, f02=» B P $$ R % C W WV Y &X !VF 8$ P W 8$ P $ T W $ Y 'PX Y %P Y $P T W !* B Z W W W !VF* T !* X P y Y C !* 0 Z W !* B Z ZX X * ,T J W X (P Y * 0 %_. % Y * _t _ P
0x000ca0…120cc0 [0xb5d]: Pad {f00=0x003a, f01=0x0190, f02=» ,P $ , X R ;GV X P P y (x X ( $4 P W X *T * W Y ( - Y X Z @_8 B 1 " W JT , W4Z Z [ ZT !(J 8! P !(J P P Y & Y& B P B H " +P P. T Y # !(J R X $ Y "R Y " _
0x000ca0…120cc0 [0xb5e]: Pad {f00=0x003a, f01=0x0190, f02=» ( Z, X`" EW.P( 8'0P EW.TJ ! T 9 _ ! T @_ ! ( B P 8' T( ! B C Z, ^T PR RF ?] _ X X "" X %# C V C !(J Y B !(J Y _` C _ ( ( " $ P X # X ] !(J Z X B
0x000ca0…120cc0 [0xb5f]: Pad {f00=0x003a, f01=0x0190, f02=» Y $U X $ X " R P !(J W Y "_ Y " B Y %U X % T T W V X # Y %U P"R !(J_ R _ !(J Y # X " !(J 8!0T 8 !@P !(J$ P !(J !(J Zv !(J T Y " X " C Z X Y " Y > X " X "" Y %Q Y > X
0x000ca0…120cc0 [0xb60]: Pad {f00=0x003a, f01=0x0190, f02=» ![ X R V P P" !(J Z W Zv *2 X $ X ![ _ X $ X 8! P ![ _( X " ! < ! Y _D X " X "" Y %U W !(J !(J !(J Y 4 B W U )X R@ X X "" C X % V Y ! X $ X " ! < B X
0x000ca0…120cc0 [0xb61]: Pad {f00=0x003a, f01=0x0190, f02=» P DATA 0 TIMER POINTER G P DATA /7255 SYNC-CHARACTER G " 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 G D 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 G x & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 G & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 G , P DATA 0 CH
0x000ca0…120cc0 [0xb62]: Pad {f00=0x003a, f01=0x0190, f02=»*************************************** G 6 P* C H T A B * H 0 6 P************************************************* H j P* H 6 P* THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK H 8 P* TABLES CWT TO CHANNEL UNITS FO
0x000ca0…120cc0 [0xb63]: Pad {f00=0x003a, f01=0x018e, f02=» IFT LOCHAN=1 H P DATA CWTLT1 I P DATA 0 I , P DATA 0 I < P DATA 0 I L P XIF I P* I h P IFT LOCHAN=2 I r P DATA CWTLT1 I P DATA CWTLT2 I P DATA 0 I P DATA 0 I P XIF I P* I P IFT LOCHAN=3 I P DATA CWTLT1 I
0x000ca0…120cc0 [0xb64]: Pad {f00=0x003a, f01=0x0190, f02=» P DATA CWTLT3 J P DATA CWTLT4 J P XIF J , P* J 8 P DATA CWTRT1 J B P DATA CWTRT2 J V P* J j P IFT RECHAN=3 J t P DATA CWTRT3 J P DATA CWTRT4 J P DATA CWTRT5 J P DATA CWTRT6 J P* J P XIF J P* J P IFT RECHAN=2 J
0x000ca0…120cc0 [0xb65]: Pad {f00=0x003a, f01=0x0190, f02=»A CWTRT5 J P DATA CWTRT6 K P DATA CWTRT7 K $ P DATA CWTRT8 K 8 P XIF K L PCHTABE EQU * END OF TABLE K X P* K z P* K P EJECT K P* K P* K ( P************************************ K ( P* D W R E M U * K ( P**
0x000ca0…120cc0 [0xb66]: Pad {f00=0x003a, f01=0x0190, f02=» K p P* L PDWREMU EQU * L P DATA 0 L & P DATA /8000 STATUS L 6 P DATA 0,0 L P ( P DATA AREM POINTER TO ADDRESS-BLOCK L b P DATA 0,0,0 L P EJECT L P* L P* L * P* L O O P - T E S T S E C T I O N L P* L P* L 2 P*
0x000ca0…120cc0 [0xb67]: Pad {f00=0x003a, f01=0x0190, f02=»UEST IS COMPLETED WITH FOLLOWING BITS L P* IN RETURN CODE OF ECB: M . P* M R 2 P* BIT 9: CHANNEL UNIT NOT IN ACTIVE STATUS M P* M P* M . P* BIT 14: ACK NOT RECEIVED AFTER OUTPUT M P* M 0 P* BIT 15: SYNC NOT RECEIVED AFTER OUT
0x000ca0…120cc0 ]