Subversion Repositories pentevo

Rev

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

  1. ;;;
  2. ;;;     Test HP Nanoprocessor
  3. ;;;
  4.  
  5.         CPU     NANO
  6.  
  7.         ;; A. Accumulator Group
  8.         SBS     0
  9.         SBZ     1
  10.         SBN     2
  11.         CBN     3
  12.         INB
  13.         IND
  14.         DEB
  15.         DED
  16.         CLA
  17.         CMA
  18.         LSA
  19.         RSA
  20.         SES
  21.         SEZ
  22.         LDR     0x80
  23.  
  24.         ;; B. Register Transfer Group
  25.         LDA     4
  26.         STA     5
  27.         LDI     6
  28.         STI     7
  29.         STR     8,192
  30.  
  31.         ;; C. Extend Register Group
  32.         STE
  33.         CLE
  34.  
  35.         ;; D. Interrupt Group
  36.         DSI
  37.         ENI
  38.  
  39.         ;; E. Comparator Group
  40.         SLT
  41.         SEQ
  42.         SAZ
  43.         SLE
  44.         SGE
  45.         SNE
  46.         SAN
  47.         SGT
  48.  
  49.         ;; F. Input/Output Group
  50.         INA     9
  51.         OTA     10
  52.         EXPECT  1320            ; Range overflow
  53.         OTA     15
  54.         ENDEXPECT
  55.         OTR     11,64
  56.         EXPECT  1320            ; Range overflow
  57.         OTR     15,100
  58.         ENDEXPECT
  59.         STC     0
  60.         EXPECT  1320            ; Range overflow
  61.         STC     7
  62.         ENDEXPECT
  63.         CLC     1
  64.         SFS     2
  65.         SFZ     3
  66.         RTI
  67.         RTE
  68.         NOP
  69.         JAI     4
  70.         JAS     5
  71.  
  72.         ;; G. Program Control Group
  73. LOOP:
  74.         JMP     LOOP
  75.         JSB     SUB
  76. SUB:
  77.         RTS
  78.         RSE
  79.         JMP     1920
  80.  
  81.         EXPECT  1925
  82.         ORG     2048
  83.         NOP
  84.         ENDEXPECT
  85.