Directory of image this file is from
This file as a plain text file
FILE 'PASCAL.8E': 8/E-type INSTRUCTIONS IN PASCAL-S === ==== ============ == ====== = NOTE: The page numbers are slightly higher here, Jan. 1983, than in the original Moedling source file. Page 4 here was Page 3 there. PAGE 1 PAGE 2 PAGE 3 PAGE 4 L0100=CLA CLL IAC BSW PAGE 5 PAGE 6 PAGE 7 PAGE 8 PAGE 9 MQL MQA MQA BSW PAGE 10 PAGE 11 PAGE 12 MQL SWP SWP SWP BSW PAGE 13 PAGE 14 PAGE 15 BSW PAGE 16 PAGE 17 MQL /OF STACK LOCATION MQA /AND CHANGE DATA FIELD MQA MQL MQA BSW BSW PAGE 18 MQL MQA PAGE 19 PAGE 20 MQL MQA /+ RELATIVE ADDRESS CLA MQA /7200 - 7206 (REAL) BSW /OPERATE INSTR. CODES ARE: PAGE 21 PAGE 22 PAGE 23
PAGE 24 PAGE 25 PAGE 26 PAGE 27 PAGE 28 PAGE 29 PAGE 30 PAGE 31 PAGE 32 MQL MQA SWP SWP PAGE 33 PAGE 34 PAGE 35 PAGE 36 PAGE 37 PAGE 38 PAGE 39 RTL // BSW IN THIS ROUTINE... PAGE 40 PAGE 41 PAGE 42 BSW PAGE 43 PAGE 44 MQL MQA /YEAR MQA /MONTH MQA /DAY BSW PAGE 45 MQL /IN MQ MQA MQA BSW BSW L0100 /=2*AC0, LINK=0 PAGE 46 MQL MQA BSW PAGE 47 PAGE 48 PAGE 49 PAGE 50 PAGE 51 PAGE 52 PAGE 53 PAGE 54 PAGE 55 PAGE 56 PAGE 57
PAGE 58 BSW PAGE 59 PAGE 60 PAGE 61 BSW BSW PAGE 62 MQL MQA MQA BSW PAGE 63 PAGE 64 PAGE 65 PAGE 66 PAGE 67 PAGE 68 PAGE 69 PAGE 70 PAGE 71 / MQL SWP SWP /YTYP IN AC SWP SWP PAGE 72 BSW BSW BSW BSW PAGE 73 BSW /(MUST INSERT OBJ PAGE 74 PAGE 75 MQL PAGE 76 MQL PAGE 77 PAGE 78 BSW PAGE 79 PAGE 80 PAGE 81 PAGE 82 PAGE 83 PAGE 84 PAGE 85 PAGE 86 PAGE 87 PAGE 88 PAGE 89 PAGE 90 PAGE 91 BSW BSW
PAGE 92 PAGE 93 MQL MQA MQL MQA MQL MQL MQL MQA MQA MQL MQA MQA MQA BSW BSW BSW BSW PAGE 94 BSW PAGE 95 MQL MQA BSW /OBJ, TYP (0=NOTYP) PAGE 96 PAGE 97 PAGE 98 CLA IAC BSW /L0100 BSW PAGE 99 PAGE 100 PAGE 101 BSW PAGE 102 ========================== erPASCAL.PA$ ewPASCAL.8E$ 0UP MM $$ !Procedure 'M'! !BEGIN! HKY Z"E Y Z"E EX '' JIPAGE $%P\$I $B,.P B,.K J<SMQ$ 0A-^^A"L ONOTMQ$' 0A-^^L"G ONOTMQ$' MS !NOTMQ!> J<SSWP$ MS> J<SBSW$ MS> J<SL0100$ MS> OBEGIN$ !Procedure 'S'! 0LT .U1 L Q1,.P Q1,.K