Subversion Repositories pentevo

Rev

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

  1.         cpu     ipc-16
  2.         page    0
  3.  
  4.         org     x'100
  5.  
  6.         boc     stfl,.+3        ; 4002
  7.         boc     req0,.+4        ; 4103
  8.         boc     psign,.+5       ; 4204
  9.         boc     bit0,.+6        ; 4305
  10.         boc     bit1,.+7        ; 4406
  11.         boc     nreq0,.+8       ; 4507
  12.         boc     bit2,.+9        ; 4608
  13.         boc     contin,.+10     ; 4709
  14.         boc     link,.-10       ; 48f5
  15.         boc     ien,.-9         ; 49f6
  16.         boc     carry,.-8       ; 4af7
  17.         boc     nsign,.-7       ; 4bf8
  18.         boc     ovf,.-6         ; 4cf9
  19.         boc     jc13,.-5        ; 4dfa
  20.         boc     jc14,.-4        ; 4efb
  21.         boc     jc15,.-3        ; 4ffc
  22.         expect  1370
  23.         boc     link,.+130
  24.         endexpect
  25.  
  26.         jmp     .+2             ; 1901
  27.         jmp     .-2             ; 19fd
  28.         jmp     (2)             ; 1a00
  29.         jmp     (3)             ; 1b00
  30.         jmp     -128(ac2)       ; 1a80
  31.         jmp     127(ac3)        ; 1b7f
  32.         expect  1315
  33.         jmp     -129(ac2)
  34.         endexpect
  35.         expect  1320
  36.         jmp     128(ac3)
  37.         endexpect
  38.  
  39.         jmp     @.+2            ; 9901
  40.         jmp     @.-2            ; 99fd
  41.         jmp     @(2)            ; 9a00
  42.         jmp     @(3)            ; 9b00
  43.         jmp     @-128(ac2)      ; 9a80
  44.         jmp     @127(ac3)       ; 9b7f
  45.         expect  1315
  46.         jmp     @-129(ac2)
  47.         endexpect
  48.         expect  1320
  49.         jmp     @128(ac3)
  50.         endexpect
  51.  
  52.         jsr     .+2             ; 1501
  53.         jsr     .-2             ; 15fd
  54.         jsr     (2)             ; 1600
  55.         jsr     (3)             ; 1700
  56.         jsr     -128(ac2)       ; 1680
  57.         jsr     127(ac3)        ; 177f
  58.         expect  1315
  59.         jsr     -129(ac2)
  60.         endexpect
  61.         expect  1320
  62.         jsr     128(ac3)
  63.         endexpect
  64.  
  65.         jsr     @.+2            ; 9501
  66.         jsr     @.-2            ; 95fd
  67.         jsr     @(2)            ; 9600
  68.         jsr     @(3)            ; 9700
  69.         jsr     @-128(ac2)      ; 9680
  70.         jsr     @127(ac3)       ; 977f
  71.         expect  1315
  72.         jsr     @-129(ac2)
  73.         endexpect
  74.         expect  1320
  75.         jsr     @128(ac3)
  76.         endexpect
  77.  
  78.         rts     2               ; 8002
  79.         expect  1315
  80.         rts     -3
  81.         endexpect
  82.         expect  1320
  83.         rts     256
  84.         endexpect
  85.  
  86.         rti     2               ; 7c02
  87.         expect  1315
  88.         rti     -3
  89.         endexpect
  90.         expect  1320
  91.         rti     256
  92.         endexpect
  93.  
  94.         ; SKNE is one of the few instructions that
  95.         ; has same machine code as on IMP-16:
  96.  
  97.         skne    0,.+2           ; f101
  98.         skne    ac1,.-2         ; f5fd
  99.         skne    2,(2)           ; fa00
  100.         skne    ac3,(3)         ; ff00
  101.         skne    0,-128(ac2)     ; f280
  102.         skne    ac1,127(ac3)    ; f77f
  103.         expect  1315
  104.         skne    2,-129(ac2)
  105.         endexpect
  106.         expect  1320
  107.         skne    ac3,128(ac3)
  108.         endexpect
  109.  
  110.         skg     0,.+2           ; 9d01
  111.         skg     ac0,.-2         ; 9dfd
  112.         skg     0,(2)           ; 9e00
  113.         skg     ac0,(3)         ; 9f00
  114.         skg     0,-128(ac2)     ; 9e80
  115.         skg     ac0,127(ac3)    ; 9f7f
  116.         expect  1445
  117.         skg     1,(2)
  118.         endexpect
  119.         expect  1445
  120.         skg     ac2,(3)
  121.         endexpect
  122.         expect  1445
  123.         skg     3,.+5
  124.         endexpect
  125.         expect  1315
  126.         skg     0,-129(ac2)
  127.         endexpect
  128.         expect  1320
  129.         skg     ac0,128(ac3)
  130.         endexpect
  131.  
  132.         skaz    0,.+2           ; b901
  133.         skaz    ac0,.-2         ; b9fd
  134.         skaz    0,(2)           ; ba00
  135.         skaz    ac0,(3)         ; bb00
  136.         skaz    0,-128(ac2)     ; ba80
  137.         skaz    ac0,127(ac3)    ; bb7f
  138.         expect  1445
  139.         skaz    1,(2)
  140.         endexpect
  141.         expect  1445
  142.         skaz    ac2,(3)
  143.         endexpect
  144.         expect  1445
  145.         skaz    3,.+5
  146.         endexpect
  147.         expect  1315
  148.         skaz    0,-129(ac2)
  149.         endexpect
  150.         expect  1320
  151.         skaz    ac0,128(ac3)
  152.         endexpect
  153.  
  154.         isz     .+2             ; 8d01
  155.         isz     .-2             ; 8dfd
  156.         isz     (2)             ; 8e00
  157.         isz     (3)             ; 8f00
  158.         isz     -128(ac2)       ; 8e80
  159.         isz     127(ac3)        ; 8f7f
  160.         expect  1315
  161.         isz     -129(ac2)
  162.         endexpect
  163.         expect  1320
  164.         isz     128(ac3)
  165.         endexpect
  166.  
  167.         dsz     .+2             ; ad01
  168.         dsz     .-2             ; adfd
  169.         dsz     (2)             ; ae00
  170.         dsz     (3)             ; af00
  171.         dsz     -128(ac2)       ; ae80
  172.         dsz     127(ac3)        ; af7f
  173.         expect  1315
  174.         dsz     -129(ac2)
  175.         endexpect
  176.         expect  1320
  177.         dsz     128(ac3)
  178.         endexpect
  179.  
  180.         aisz    0,42            ; 782a
  181.         aisz    ac1,-42         ; 79d6
  182.         aisz    2,255           ; 7aff
  183.         aisz    ac3,-128        ; 7b80
  184.         expect  1320
  185.         aisz    2,256
  186.         endexpect
  187.         expect  1315
  188.         aisz    ac3,-129
  189.         endexpect
  190.  
  191.         ; untyped addresses (not from CODE segment)
  192.         ; result in using direct addressing if the
  193.         ; address is in the range 0..255:
  194.         ld      0,127           ; c07f
  195.  
  196.         ld      0,.+2           ; c101
  197.         ld      0,.+2(pc)       ; c101
  198.         ld      ac1,.-2         ; c5fd
  199.         ld      2,(2)           ; ca00
  200.         ld      ac3,(3)         ; cf00
  201.         ld      0,-128(ac2)     ; c280
  202.         ld      ac1,127(ac3)    ; c77f
  203.         expect  1315
  204.         ld      2,-129(ac2)
  205.         endexpect
  206.         expect  1320
  207.         ld      ac3,128(ac3)
  208.         endexpect
  209.  
  210.         ld      0,@.+2          ; a101
  211.         ld      0,@.+2(pc)      ; a101
  212.         ld      ac0,@.-2        ; a1fd
  213.         ld      0,@(2)          ; a200
  214.         ld      ac0,@(3)        ; a300
  215.         ld      0,@-128(ac2)    ; a280
  216.         ld      ac0,@127(ac3)   ; a37f
  217.         expect  1445
  218.         ld      1,@(2)
  219.         endexpect
  220.         expect  1445
  221.         ld      ac2,@(3)
  222.         endexpect
  223.         expect  1445
  224.         ld      3,@.+4
  225.         endexpect
  226.         expect  1315
  227.         ld      0,@-129(ac2)
  228.         endexpect
  229.         expect  1320
  230.         ld      0,@128(ac3)
  231.         endexpect
  232.  
  233.         st      0,.+2           ; d101
  234.         st      ac1,.-2         ; d5fd
  235.         st      2,(2)           ; da00
  236.         st      ac3,(3)         ; df00
  237.         st      0,-128(ac2)     ; d280
  238.         st      ac1,127(ac3)    ; d77f
  239.         expect  1315
  240.         st      2,-129(ac2)
  241.         endexpect
  242.         expect  1320
  243.         st      ac3,128(ac3)
  244.         endexpect
  245.  
  246.         st      0,@.+2          ; b101
  247.         st      ac0,@.-2        ; b1fd
  248.         st      0,@(2)          ; b200
  249.         st      ac0,@(3)        ; b300
  250.         st      0,@-128(ac2)    ; b280
  251.         st      ac0,@127(ac3)   ; b37f
  252.         expect  1445
  253.         st      1,@(2)
  254.         endexpect
  255.         expect  1445
  256.         st      ac2,@(3)
  257.         endexpect
  258.         expect  1445
  259.         st      3,@.+4
  260.         endexpect
  261.         expect  1315
  262.         st      0,@-129(ac2)
  263.         endexpect
  264.         expect  1320
  265.         st      ac0,@128(ac3)
  266.         endexpect
  267.  
  268.         lsex    0,.+2           ; bd01
  269.         lsex    ac0,.-2         ; bdfd
  270.         lsex    0,(2)           ; be00
  271.         lsex    ac0,(3)         ; bf00
  272.         lsex    0,-128(ac2)     ; be80
  273.         lsex    ac0,127(ac3)    ; bf7f
  274.         expect  1445
  275.         lsex    1,(2)
  276.         endexpect
  277.         expect  1445
  278.         lsex    ac2,(3)
  279.         endexpect
  280.         expect  1445
  281.         lsex    3,.+5
  282.         endexpect
  283.         expect  1315
  284.         lsex    0,-129(ac2)
  285.         endexpect
  286.         expect  1320
  287.         lsex    ac0,128(ac3)
  288.         endexpect
  289.  
  290.         and     0,.+2           ; a901
  291.         and     ac0,.-2         ; a9fd
  292.         and     0,(2)           ; aa00
  293.         and     ac0,(3)         ; ab00
  294.         and     0,-128(ac2)     ; aa80
  295.         and     ac0,127(ac3)    ; ab7f
  296.         expect  1445
  297.         and     1,(2)
  298.         endexpect
  299.         expect  1445
  300.         and     ac2,(3)
  301.         endexpect
  302.         expect  1445
  303.         and     3,.+5
  304.         endexpect
  305.         expect  1315
  306.         and     0,-129(ac2)
  307.         endexpect
  308.         expect  1320
  309.         and     ac0,128(ac3)
  310.         endexpect
  311.  
  312.         or      0,.+2           ; a501
  313.         or      ac0,.-2         ; a5fd
  314.         or      0,(2)           ; a600
  315.         or      ac0,(3)         ; a700
  316.         or      0,-128(ac2)     ; a680
  317.         or      ac0,127(ac3)    ; a77f
  318.         expect  1445
  319.         or      1,(2)
  320.         endexpect
  321.         expect  1445
  322.         or      ac2,(3)
  323.         endexpect
  324.         expect  1445
  325.         or      3,.+5
  326.         endexpect
  327.         expect  1315
  328.         or      0,-129(ac2)
  329.         endexpect
  330.         expect  1320
  331.         or      ac0,128(ac3)
  332.         endexpect
  333.  
  334.         add     0,.+2           ; e101
  335.         add     0,.+2(pc)       ; e101
  336.         add     ac1,.-2         ; e5fd
  337.         add     2,(2)           ; ea00
  338.         add     ac3,(3)         ; ef00
  339.         add     0,-128(ac2)     ; e280
  340.         add     ac1,127(ac3)    ; e77f
  341.         expect  1315
  342.         add     2,-129(ac2)
  343.         endexpect
  344.         expect  1320
  345.         add     ac3,128(ac3)
  346.         endexpect
  347.  
  348.         subb    0,.+2           ; 9101
  349.         subb    ac0,.-2         ; 91fd
  350.         subb    0,(2)           ; 9200
  351.         subb    ac0,(3)         ; 9300
  352.         subb    0,-128(ac2)     ; 9280
  353.         subb    ac0,127(ac3)    ; 937f
  354.         expect  1445
  355.         subb    1,(2)
  356.         endexpect
  357.         expect  1445
  358.         subb    ac2,(3)
  359.         endexpect
  360.         expect  1445
  361.         subb    3,.+5
  362.         endexpect
  363.         expect  1315
  364.         subb    0,-129(ac2)
  365.         endexpect
  366.         expect  1320
  367.         subb    ac0,128(ac3)
  368.         endexpect
  369.  
  370.         deca    0,.+2           ; 8901
  371.         deca    ac0,.-2         ; 89fd
  372.         deca    0,(2)           ; 8a00
  373.         deca    ac0,(3)         ; 8b00
  374.         deca    0,-128(ac2)     ; 8a80
  375.         deca    ac0,127(ac3)    ; 8b7f
  376.         expect  1445
  377.         deca    1,(2)
  378.         endexpect
  379.         expect  1445
  380.         deca    ac2,(3)
  381.         endexpect
  382.         expect  1445
  383.         deca    3,.+5
  384.         endexpect
  385.         expect  1315
  386.         deca    0,-129(ac2)
  387.         endexpect
  388.         expect  1320
  389.         deca    ac0,128(ac3)
  390.         endexpect
  391.  
  392.         li      0,42            ; 502a
  393.         li      ac1,-42         ; 51d6
  394.         li      2,255           ; 52ff
  395.         li      ac3,-128        ; 5380
  396.         expect  1320
  397.         li      2,256
  398.         endexpect
  399.         expect  1315
  400.         li      ac3,-129
  401.         endexpect
  402.  
  403.         rcpy    ac0,0           ; 5c00
  404.         rcpy    0,ac1           ; 5d00
  405.         rcpy    ac0,2           ; 5e00
  406.         rcpy    0,ac3           ; 5f00
  407.         rcpy    ac1,0           ; 5c40
  408.         rcpy    1,ac1           ; 5d40
  409.         rcpy    ac1,2           ; 5e40
  410.         rcpy    1,ac3           ; 5f40
  411.         rcpy    ac2,0           ; 5c80
  412.         rcpy    2,ac1           ; 5d80
  413.         rcpy    ac2,2           ; 5e80
  414.         rcpy    2,ac3           ; 5f80
  415.         rcpy    ac3,0           ; 5cc0
  416.         rcpy    3,ac1           ; 5dc0
  417.         rcpy    ac3,2           ; 5ec0
  418.         rcpy    3,ac3           ; 5fc0
  419.  
  420.         rxch    ac0,0           ; 6c00
  421.         rxch    0,ac1           ; 6d00
  422.         rxch    ac0,2           ; 6e00
  423.         rxch    0,ac3           ; 6f00
  424.         rxch    ac1,0           ; 6c40
  425.         rxch    1,ac1           ; 6d40
  426.         rxch    ac1,2           ; 6e40
  427.         rxch    1,ac3           ; 6f40
  428.         rxch    ac2,0           ; 6c80
  429.         rxch    2,ac1           ; 6d80
  430.         rxch    ac2,2           ; 6e80
  431.         rxch    2,ac3           ; 6f80
  432.         rxch    ac3,0           ; 6cc0
  433.         rxch    3,ac1           ; 6dc0
  434.         rxch    ac3,2           ; 6ec0
  435.         rxch    3,ac3           ; 6fc0
  436.  
  437.         xchrs   0               ; 1c00
  438.         xchrs   ac0             ; 1c00
  439.         xchrs   1               ; 1d00
  440.         xchrs   ac1             ; 1d00
  441.         xchrs   2               ; 1e00
  442.         xchrs   ac2             ; 1e00
  443.         xchrs   3               ; 1f00
  444.         xchrs   ac3             ; 1f00
  445.  
  446.         cfr     0               ; 0400
  447.         cfr     ac0             ; 0400
  448.         cfr     1               ; 0500
  449.         cfr     ac1             ; 0500
  450.         cfr     2               ; 0600
  451.         cfr     ac2             ; 0600
  452.         cfr     3               ; 0700
  453.         cfr     ac3             ; 0700
  454.  
  455.         crf     0               ; 0800
  456.         crf     ac0             ; 0800
  457.         crf     1               ; 0900
  458.         crf     ac1             ; 0900
  459.         crf     2               ; 0a00
  460.         crf     ac2             ; 0a00
  461.         crf     3               ; 0b00
  462.         crf     ac3             ; 0b00
  463.  
  464.         push    0               ; 6000
  465.         push    ac0             ; 6000
  466.         push    1               ; 6100
  467.         push    ac1             ; 6100
  468.         push    2               ; 6200
  469.         push    ac2             ; 6200
  470.         push    3               ; 6300
  471.         push    ac3             ; 6300
  472.  
  473.         pull    0               ; 6400
  474.         pull    ac0             ; 6400
  475.         pull    1               ; 6500
  476.         pull    ac1             ; 6500
  477.         pull    2               ; 6600
  478.         pull    ac2             ; 6600
  479.         pull    3               ; 6700
  480.         pull    ac3             ; 6700
  481.  
  482.         pushf                   ; 0c00
  483.  
  484.         pullf                   ; 1000
  485.  
  486.         radd    ac0,0           ; 6800
  487.         radd    0,ac1           ; 6900
  488.         radd    ac0,2           ; 6a00
  489.         radd    0,ac3           ; 6b00
  490.         radd    ac1,0           ; 6840
  491.         radd    1,ac1           ; 6940
  492.         radd    ac1,2           ; 6a40
  493.         radd    1,ac3           ; 6b40
  494.         radd    ac2,0           ; 6880
  495.         radd    2,ac1           ; 6980
  496.         radd    ac2,2           ; 6a80
  497.         radd    2,ac3           ; 6b80
  498.         radd    ac3,0           ; 68c0
  499.         radd    3,ac1           ; 69c0
  500.         radd    ac3,2           ; 6ac0
  501.         radd    3,ac3           ; 6bc0
  502.  
  503.         radc    ac0,0           ; 7400
  504.         radc    0,ac1           ; 7500
  505.         radc    ac0,2           ; 7600
  506.         radc    0,ac3           ; 7700
  507.         radc    ac1,0           ; 7440
  508.         radc    1,ac1           ; 7540
  509.         radc    ac1,2           ; 7640
  510.         radc    1,ac3           ; 7740
  511.         radc    ac2,0           ; 7480
  512.         radc    2,ac1           ; 7580
  513.         radc    ac2,2           ; 7680
  514.         radc    2,ac3           ; 7780
  515.         radc    ac3,0           ; 74c0
  516.         radc    3,ac1           ; 75c0
  517.         radc    ac3,2           ; 76c0
  518.         radc    3,ac3           ; 77c0
  519.  
  520.         rand    ac0,0           ; 5400
  521.         rand    0,ac1           ; 5500
  522.         rand    ac0,2           ; 5600
  523.         rand    0,ac3           ; 5700
  524.         rand    ac1,0           ; 5440
  525.         rand    1,ac1           ; 5540
  526.         rand    ac1,2           ; 5640
  527.         rand    1,ac3           ; 5740
  528.         rand    ac2,0           ; 5480
  529.         rand    2,ac1           ; 5580
  530.         rand    ac2,2           ; 5680
  531.         rand    2,ac3           ; 5780
  532.         rand    ac3,0           ; 54c0
  533.         rand    3,ac1           ; 55c0
  534.         rand    ac3,2           ; 56c0
  535.         rand    3,ac3           ; 57c0
  536.  
  537.         rxor    ac0,0           ; 5800
  538.         rxor    0,ac1           ; 5900
  539.         rxor    ac0,2           ; 5a00
  540.         rxor    0,ac3           ; 5b00
  541.         rxor    ac1,0           ; 5840
  542.         rxor    1,ac1           ; 5940
  543.         rxor    ac1,2           ; 5a40
  544.         rxor    1,ac3           ; 5b40
  545.         rxor    ac2,0           ; 5880
  546.         rxor    2,ac1           ; 5980
  547.         rxor    ac2,2           ; 5a80
  548.         rxor    2,ac3           ; 5b80
  549.         rxor    ac3,0           ; 58c0
  550.         rxor    3,ac1           ; 59c0
  551.         rxor    ac3,2           ; 5ac0
  552.         rxor    3,ac3           ; 5bc0
  553.  
  554.         cai     0,42            ; 702a
  555.         cai     ac1,-42         ; 71d6
  556.         cai     2,255           ; 72ff
  557.         cai     ac3,-128        ; 7380
  558.         expect  1320
  559.         cai     2,256
  560.         endexpect
  561.         expect  1315
  562.         cai     ac3,-129
  563.         endexpect
  564.  
  565.         shl     0,0             ; 2800
  566.         shl     ac1,1           ; 2902
  567.         shl     2,127           ; 2afe
  568.         shl     ac3,15          ; 2b1e
  569.         shl     0,0,0           ; 2800
  570.         shl     ac1,1,0         ; 2902
  571.         shl     2,127,0         ; 2afe
  572.         shl     ac3,15,0        ; 2b1e
  573.         shl     0,0,1           ; 2801
  574.         shl     ac1,1,1         ; 2903
  575.         shl     2,127,1         ; 2aff
  576.         shl     ac3,15,1        ; 2b1f
  577.         expect  1320
  578.         shl     ac3,128
  579.         endexpect
  580.         expect  1320
  581.         shl     ac2,10,2
  582.         endexpect
  583.  
  584.         shr     0,0             ; 2c00
  585.         shr     ac1,1           ; 2d02
  586.         shr     2,127           ; 2efe
  587.         shr     ac3,15          ; 2f1e
  588.         shr     0,0,0           ; 2c00
  589.         shr     ac1,1,0         ; 2d02
  590.         shr     2,127,0         ; 2efe
  591.         shr     ac3,15,0        ; 2f1e
  592.         shr     0,0,1           ; 2c01
  593.         shr     ac1,1,1         ; 2d03
  594.         shr     2,127,1         ; 2eff
  595.         shr     ac3,15,1        ; 2f1f
  596.         expect  1320
  597.         shr     ac3,128
  598.         endexpect
  599.         expect  1320
  600.         shr     ac2,10,2
  601.         endexpect
  602.  
  603.         rol     0,0             ; 2000
  604.         rol     ac1,1           ; 2102
  605.         rol     2,127           ; 22fe
  606.         rol     ac3,15          ; 231e
  607.         rol     0,0,0           ; 2000
  608.         rol     ac1,1,0         ; 2102
  609.         rol     2,127,0         ; 22fe
  610.         rol     ac3,15,0        ; 231e
  611.         rol     0,0,1           ; 2001
  612.         rol     ac1,1,1         ; 2103
  613.         rol     2,127,1         ; 22ff
  614.         rol     ac3,15,1        ; 231f
  615.         expect  1320
  616.         rol     ac3,128
  617.         endexpect
  618.         expect  1320
  619.         rol     ac2,10,2
  620.         endexpect
  621.  
  622.         ror     0,0             ; 2400
  623.         ror     ac1,1           ; 2502
  624.         ror     2,127           ; 26fe
  625.         ror     ac3,15          ; 271e
  626.         ror     0,0,0           ; 2400
  627.         ror     ac1,1,0         ; 2502
  628.         ror     2,127,0         ; 26fe
  629.         ror     ac3,15,0        ; 271e
  630.         ror     0,0,1           ; 2401
  631.         ror     ac1,1,1         ; 2503
  632.         ror     2,127,1         ; 26ff
  633.         ror     ac3,15,1        ; 271f
  634.         expect  1320
  635.         ror     ac3,128
  636.         endexpect
  637.         expect  1320
  638.         ror     ac2,10,2
  639.         endexpect
  640.  
  641.         halt                    ; 0000
  642.  
  643.         sflg    ie1             ; 3180
  644.         sflg    ie2             ; 3280
  645.         sflg    ie3             ; 3380
  646.         sflg    ie4             ; 3480
  647.         sflg    ie5             ; 3580
  648.         sflg    ov              ; 3680
  649.         sflg    cy              ; 3780
  650.         sflg    link            ; 3880
  651.         sflg    ien             ; 3980
  652.         sflg    byte            ; 3a80
  653.         sflg    f11             ; 3b80
  654.         sflg    f12             ; 3c80
  655.         sflg    f13             ; 3d80
  656.         sflg    f14             ; 3e80
  657.  
  658.         pflg    ie1             ; 3100
  659.         pflg    ie2             ; 3200
  660.         pflg    ie3             ; 3300
  661.         pflg    ie4             ; 3400
  662.         pflg    ie5             ; 3500
  663.         pflg    ov              ; 3600
  664.         pflg    cy              ; 3700
  665.         pflg    link            ; 3800
  666.         pflg    ien             ; 3900
  667.         pflg    byte            ; 3a00
  668.         pflg    f11             ; 3b00
  669.         pflg    f12             ; 3c00
  670.         pflg    f13             ; 3d00
  671.         pflg    f14             ; 3e00
  672.  
  673.         nop                     ; 5c00
  674.  
  675.         ; PACE supports two different layouts of bottom page, selectable
  676.         ; via the BPS pin:
  677.  
  678.         assume  bps:1           ; now first and last 128 bytes of 64K address space
  679.  
  680.         ld      ac2,127         ; direct
  681.         expect  1315
  682.         ld      ac2,128         ; no longer direct
  683.         endexpect
  684.         expect  1320
  685.         ld      ac2,x'ff7f      ; not direct
  686.         endexpect
  687.         ld      ac2,x'ff80      ; direct
  688.