mirror of
https://github.com/PDP-10/its.git
synced 2026-04-24 19:40:28 +00:00
19 lines
238 B
Plaintext
19 lines
238 B
Plaintext
<RPACKAGE "DOW">
|
|
|
|
<ENTRY DOW>
|
|
|
|
<TITLE DOW>
|
|
<DECLARE ("VALUE" FIX)>
|
|
<PUSHJ P* IDOW>
|
|
<JRST FINIS>
|
|
|
|
<INTERNAL-ENTRY IDOW 0>
|
|
<SUBM M* (P)>
|
|
<*RLPDT>
|
|
<LDB B* [<(*320300*) A>]>
|
|
<MOVSI A* <TYPE-CODE FIX>>
|
|
<JRST MPOPJ>
|
|
<END>
|
|
|
|
<ENDPACKAGE>
|