Subversion Repositories pentevo

Rev

Blame | Last modification | View Log | Download | RSS feed | ?url?

  1.  
  2.         CPU     6100
  3.  
  4.         ORG     00000
  5.  
  6.         NOP
  7.         NOP
  8.  
  9.         JMP     I ZLABEL
  10.         NOP
  11. ZLABEL: DC      TOP
  12.  
  13.         ORG     .+8
  14.  
  15.         ORG     01000
  16.  
  17.         ;;
  18.         ;; Intersil IM6100
  19.         ;;
  20.  
  21. TOP:
  22.         ;; Memory Reference Instruction
  23.         AND     CLABEL
  24.         TAD     ZLABEL
  25.         ISZ     I CLABEL
  26.         DCA     I ZLABEL
  27.         JMS     CLABEL
  28.         JMP     ZLABEL
  29.  
  30.         ;; Operate Instruction (Group 1)
  31.         NOP
  32.         IAC
  33.         BSW
  34.         RAL
  35.         RTL
  36.         RAR
  37.         RTR
  38.         EXPECT 1500
  39.         R3L                     ; 6120 only
  40.         ENDEXPECT
  41.         CML
  42.         CMA
  43.         CIA
  44.         CLL
  45.         CLL RAL
  46.         CLL RTL
  47.         CLL RAR
  48.         CLL RTR
  49.         STL
  50.         CLA
  51.         CLA IAC
  52.         GLK
  53.         STA
  54.         CLA CLL
  55.  
  56.         BSW IAC
  57.         bsw IAC
  58.         bsw iac
  59.  
  60.         ;; Operate Instruction (Group 2)
  61.         ;; NOP
  62.         HLT
  63.         OSR
  64.         SKP
  65.         SNL
  66.         SZL
  67.         SZA
  68.         SNA
  69.         SZA SNL
  70.         SNA SZL
  71.         SMA
  72.         SPA
  73.         SMA SNL
  74.         SPA SZL
  75.         SMA SZA
  76.         SPA SNA
  77.         SMA SZA SNL
  78.         SPA SNA SZL
  79.         ;; CLA
  80.         LAS
  81.         SZA CLA
  82.         SNA CLA
  83.         SMA CLA
  84.         SPA CLA
  85.         OSR HLT         ; 0xF06 / 07406
  86.         SNL OSR HLT     ; 0xF16 / 07426
  87.         SZL OSR HLT     ; 0xF1E / 07436
  88.  
  89.         ;; Operate Instruction (Group 3)
  90.         ;; NOP
  91.         MQL
  92.         MQA
  93.         SWP
  94.         CLA
  95.         CAM
  96.         ACL
  97.         CLA SWP
  98.  
  99. CLABEL: DC      07777
  100.  
  101.         ;; I/O Transfer Instruction
  102.         IOT     63 7
  103.         SKON
  104.         ION
  105.         IOF
  106.         SRQ
  107.         GTF
  108.         RTF
  109.         SGT
  110.         CAF
  111.  
  112.         PANEL   ON
  113.  
  114.         EXPECT  400
  115.         SKON
  116.         ENDEXPECT
  117.  
  118.         PANEL   OFF
  119.  
  120.         ;;
  121.         ;; Harris HD1-6120
  122.         ;;
  123.  
  124.         CPU     6120
  125.  
  126.         ;; Stack Operation Instruction
  127.         PPC1
  128.         PPC2
  129.         PAC1
  130.         PAC2
  131.         RTN1
  132.         RTN2
  133.         POP1
  134.         POP2
  135.         RSP1
  136.         RSP2
  137.         LSP1
  138.         LSP2
  139.  
  140.         ;; Internal Control Instruction
  141.         WSR
  142.         GCF
  143.  
  144.         ;; Main Memory Control Instruction
  145.         PR0
  146.         PR1
  147.         PR2
  148.         PR3
  149.  
  150.         ;; Panel Mode Control Instruction
  151.         PANEL   ON
  152.  
  153.         PRS
  154.         PG0
  155.         PEX
  156.         CPD
  157.         SPD
  158.  
  159.         PANEL   OFF
  160.  
  161.         ;; Memory Extension Instruction
  162.         CDF     1
  163.         CIF     4
  164.         CDF CIF 6
  165.         RDF
  166.         RIF
  167.         RIB
  168.         RMF
  169.  
  170.         ;;
  171.         ;; Pseudo Instruction
  172.         ;;
  173.         CPU     6100
  174.  
  175.         DC      07777
  176.         DC      "IM6100" 0xd 012
  177.  
  178.         ;; DECIMAL / OCTAL
  179.         OCTAL
  180.         DC      2525
  181.         DECIMAL
  182.         DC      2525
  183.  
  184.         ;; LTORG
  185. LABB:
  186.         AND     L LABB
  187.         AND     L LABF
  188.         TAD     L LABG
  189.         TAD     L 01000
  190. LABF:
  191.         LTORG
  192. LABG:
  193.  
  194.