XLIST / TURN LISTING ON EJECT XLIST / LIST PSCLRO.PA ENPUNCH / IF YOU WANT A BINARY / PATCH TO RANDOMIZE PASCAL-S 'RANDOM' / COULD BE POKED IN WITH FUTIL. / / THIS VERSION FOR O M N I - 8 . / / A STAND-ALONE OS/8 SYSTEM WITH / REAL-TIME CLOCK COULD DO SIMILAR THINGS. FIELD 0 *START JMS INIRAN /REPLACES 7300 *C400+1 INIRAN, 0 /FREE: 6136--6157 CLA CLL /PROB. NOT NEEDED TAD INIRN1 /POINT TO LOCATION 6101; 1 / TRANSFER 4 TIME-WORDS TAD I INIRN1 /GET TICKS BSW /1100 MAX. TAD I INALFA /1130 NET MAX. CLL RTL /DON'T LOSE LOWER BITS STL RTR /SET BIT 1 (NORMALIZE) DCA I INIRN1 DCA I INALFA /CLEAR 4TH TIME-WORD OUT JMP I INIRAN /...FROM POOR 'ALFA' INIRN1, RN+1 INALFA, ALFA / ASSEMBLY: (A) FILE WITH XLIST AND NOPUNCH / (B) PASCAL.PA (C) THIS FILE. PASCAL.PA HAS / NO '$' SIGN, WHICH HELPS. USE /S TO SUPPRESS / THE LONG SYMBOL TABLE LISTING. / TIME-SHARING SYSTEMS: SAVE THE 'KSF' OVERHEAD: *XBREAK+1 NOP /REPLACES 6031 / P.A.S. 5-FEB.-1983