User Tools

Site Tools


ibm:vm370-lib:rscs:rssequ.copy_src

โˆ’Table of Contents

RSSEQU Source

References

Source Listing

RSSEQU.COPY.txt
  1. *COPY RSSEQU 00001000
  2. PUSH PRINT 00001200
  3. AIF ('&SYSPARM' NE 'SUP').RSS01 00001400
  4. PRINT OFF,NOGEN 00001600
  5. .RSS01 ANOP 00001800
  6. * 00002000
  7. *** RSS EQUATE SYMBOLS - MACHINE USAGE 00003000
  8. * 00004000
  9. SPACE 1 00005000
  10. * BITS DEFINED IN STANDARD/EXTENDED PSW 00006000
  11. EXTMODE EQU X'08' BIT 12 - EXTENDED MODE 00007000
  12. MCHEK EQU X'04' BIT 13 - MACHINE CHECK ENABLED 00008000
  13. WAIT EQU X'02' BIT 14 - WAIT STATE 00009000
  14. PROBMODE EQU X'01' BIT 15 - PROBLEM STATE 00010000
  15. SPACE 1 00011000
  16. * BITS DEFINED IN CHANNEL STATUS WORD - CSW 00012000
  17. ATTN EQU X'80' BIT 32 - ATTENTION 00013000
  18. SM EQU X'40' BIT 33 - STATUS MODIFIER 00014000
  19. CUE EQU X'20' BIT 34 - CONTROL UNIT END 00015000
  20. BUSY EQU X'10' BIT 35 - BUSY 00016000
  21. CE EQU X'08' BIT 36 - CHANNEL END 00017000
  22. DE EQU X'04' BIT 37 - DEVICE END 00018000
  23. UC EQU X'02' BIT 38 - UNIT CHECK 00019000
  24. UE EQU X'01' BIT 39 - UNIT EXCEPTION 00020000
  25. * 00021000
  26. PCI EQU X'80' BIT 40 - PROGRAM-CONTROL INTERRUPT 00022000
  27. IL EQU X'40' BIT 41 - INCORRECT LENGTH 00023000
  28. PRGC EQU X'20' BIT 42 - PROGRAM CHECK 00024000
  29. PRTC EQU X'10' BIT 43 - PROTECTION CHECK 00025000
  30. CDC EQU X'08' BIT 44 - CHANNEL DATA CHECK 00026000
  31. CCC EQU X'04' BIT 45 - CHANNEL CONTROL CHECK 00027000
  32. IFCC EQU X'02' BIT 46 - INTERFACE CONTROL CHECK 00028000
  33. CHC EQU X'01' BIT 47 - CHAINING CHECK 00029000
  34. SPACE 1 00030000
  35. * BITS DEFINED IN CHANNEL COMMAND WORD - CCW 00031000
  36. CD EQU X'80' BIT 32 - CHAIN DATA 00032000
  37. CC EQU X'40' BIT 33 - COMMAND CHAIN 00033000
  38. SILI EQU X'20' BIT 34 - SUPPRESS INCORRECT LENGTH IND. 00034000
  39. SKIP EQU X'10' BIT 35 - SUPPRESS DATA TRANSFER 00035000
  40. PCIF EQU X'08' BIT 36 - PROGRAM-CONTROL INTERRUPT FETCH 00036000
  41. IDA EQU X'04' BIT 37 - INDIRECT DATA ADDRESS 00037000
  42. SPACE 1 00038000
  43. * BITS DEFINED IN SENSE BYTE 0 -- COMMON TO MOST DEVICES 00039000
  44. CMDREJ EQU X'80' BIT 0 - COMMAND REJECT 00040000
  45. INTREQ EQU X'40' BIT 1 - INTERVENTION REQUIRED 00041000
  46. BUSOUT EQU X'20' BIT 2 - BUS OUT 00042000
  47. EQCHK EQU X'10' BIT 3 - EQUIPMENT CHECK 00043000
  48. DATACHK EQU X'08' BIT 4 - DATA CHECK 00044000
  49. EJECT 00045000
  50. * 00046000
  51. *** CP370 EQUATE SYMBOLS - CP USAGE 00047000
  52. * 00048000
  53. * SYMBOLIC REGISTER EQUATES 00049000
  54. R0 EQU 0 00050000
  55. R1 EQU 1 00051000
  56. R2 EQU 2 00052000
  57. R3 EQU 3 00053000
  58. R4 EQU 4 00054000
  59. R5 EQU 5 00055000
  60. R6 EQU 6 00056000
  61. R7 EQU 7 GENERAL 00057000
  62. R8 EQU 8 REGISTER 00058000
  63. R9 EQU 9 DEFINITIONS 00059000
  64. R10 EQU 10 00060000
  65. R11 EQU 11 00061000
  66. R12 EQU 12 00062000
  67. R13 EQU 13 00063000
  68. R14 EQU 14 00064000
  69. R15 EQU 15 00065000
  70. * 00066000
  71. Y0 EQU 0 FLOATING 00067000
  72. Y2 EQU 2 POINT 00068000
  73. Y4 EQU 4 REGISTER 00069000
  74. Y6 EQU 6 DEFINITIONS 00070000
  75. EJECT 00071000
  76. POP PRINT 00072000
  77. SPACE 00073000
ibm/vm370-lib/rscs/rssequ.copy_src.txt ยท Last modified: 2023/08/06 13:39 by Site Administrator