ASMB,R,L,T
      NAM RODSK 91711-16101  REV 1926  790429 
      SUP 
* 
      ENT RODSK 
      EXT .ENTR 
* 
EFPP  NOP 
RODSK NOP 
      JSB .ENTR 
      DEF EFPP
* 
* 
* 
*  FLOATING POINT PROCESSOR INSTRUCTION SET EXECUTION 
*  -------------------------------------------------- 
* 
      CLA            CLEAR ERR COUNTER
      STA EFPP,I
      LDA LPCT       SET LOOP COUNTER 
      STA LOPCT 
* 
* 
      SKP 
* 
*  SINGLE PRECISION FLOATING POINT INSTRUCTIONS 
* 
START DLD D001
      OCT 105000     FAD
      DEF D002
      CPA D100
      SOC 
      JSB ERR 
      CPB D100+1
      RSS 
      JSB ERR 
* 
      DLD D001+1
      OCT 105000
      DEF D002+1
      CPA D101
      SOC 
      JSB ERR 
      CPB D101+1
      RSS 
      JSB ERR 
* 
      DLD D002
      OCT 105020     FSB
      DEF D003
      CPA D102
      SOC 
      JSB ERR 
      CPB D102+1
      RSS 
      JSB ERR 
* 
      DLD D002+1
      OCT 105020
      DEF D003+1
      CPA D103
      SOC 
      JSB ERR 
      CPB D103+1
      RSS 
      JSB ERR 
* 
      SKP 
* 
      DLD D003
      OCT 105040     FMP
      DEF D004
      CPA D104
      SOC 
      JSB ERR 
      CPB D104+1
      RSS 
      JSB ERR 
* 
      DLD D003+1
      OCT 105040
      DEF D004+1
      CPA D105
      SOC 
      JSB ERR 
      CPB D105+1
      RSS 
      JSB ERR 
* 
      DLD D004
      OCT 105060     FDV
      DEF D005
      CPA D106
      SOC 
      JSB ERR 
      CPB D106+1
      RSS 
      JSB ERR 
* 
      DLD D004+1
      OCT 105060
      DEF D005+1
      CPA D107
      SOC 
      JSB ERR 
      CPB D107+1
      RSS 
      JSB ERR 
* 
      SKP 
* 
      DLD D005
      OCT 105100     FIX
      CPA D108
      SOC 
      JSB ERR 
* 
      DLD D005+1
      OCT 105100
      CPA D108+1
      SOS 
      JSB ERR 
* 
      DLD D006
      OCT 105100
      CPA D108+2
      SOC 
      JSB ERR 
* 
      LDA D006
      CLO 
      OCT 105120     FLOAT
      CPA D109
      SOC 
      JSB ERR 
      CPB D109+1
      RSS 
      JSB ERR 
* 
      LDA D006+1
      OCT 105120
      CPA D110
      SOC 
      JSB ERR 
      CPB D110+1
      RSS 
      JSB ERR 
* 
      LDA D007
      OCT 105120
      CPA D111
      SOC 
      JSB ERR 
      CPB D111+1
      RSS 
      JSB ERR 
* 
      SKP 
* 
      DLD D001
      OCT 105104     FIXD 
      CPA D112
      SOS 
      JSB ERR 
      CPB D112+1
      RSS 
      JSB ERR 
* 
      DLD D001+1
      OCT 105104
      CPA D113
      SOC 
      JSB ERR 
      CPB D113+1
      RSS 
      JSB ERR 
* 
      DLD D003
      OCT 105104
      CPA D114
      SOS 
      JSB ERR 
      CPB D114+1
      RSS 
      JSB ERR 
* 
      DLD D004
      OCT 105124     FLOATD 
      CPA D115
      SOC 
      JSB ERR 
      CPB D115+1
      RSS 
      JSB ERR 
* 
      DLD D005
      OCT 105124
      CPA D116
      SOC 
      JSB ERR 
      CPB D116+1
      RSS 
      JSB ERR 
* 
      DLD D006
      OCT 105124
      CPA D117
      SOC 
      JSB ERR 
      CPB D117+1
      RSS 
      JSB ERR 
* 
      SKP 
* 
* 
*  DOUBLE PRECISION FLOATING POINT INSTRUCTIONS 
* 
      OCT 105001      XADD
      DEF RES 
      DEF D001
      DEF D001+1
      DLD RES 
      CPA D200
      SOC 
      JSB ERR 
      CPB D200+1
      RSS 
      JSB ERR 
      LDA RES+2 
      CPA D200+2
      RSS 
      JSB ERR 
* 
      OCT 105001
      DEF RES 
      DEF D002
      DEF D002+1
      DLD RES 
      CPA D201
      SOC 
      JSB ERR 
      CPB D201+1
      RSS 
      JSB ERR 
      LDA RES+2 
      CPA D201+2
      RSS 
      JSB ERR 
* 
      OCT 105001
      DEF RES 
      DEF D003
      DEF D003+1
      DLD RES 
      CPA D202
      SOC 
      JSB ERR 
      CPB D202+1
      RSS 
      JSB ERR 
      LDA RES+2 
      CPA D202+2
      RSS 
      JSB ERR 
* 
      SKP 
* 
      OCT 105021      XSUB
      DEF RES 
      DEF D004
      DEF D004+1
      DLD RES 
      CPA D203
      SOC 
      JSB ERR 
      CPB D203+1
      RSS 
      JSB ERR 
      LDA RES+2 
      CPA D203+2
      RSS 
      JSB ERR 
* 
      OCT 105021
      DEF RES 
      DEF D005
      DEF D005+1
      DLD RES 
      CPA D204
      SOC 
      JSB ERR 
      CPB D204+1
      RSS 
      JSB ERR 
      LDA RES+2 
      CPA D204+2
      RSS 
      JSB ERR 
* 
      OCT 105021
      DEF RES 
      DEF D006
      DEF D001
      DLD RES 
      CPA D205
      SOC 
      JSB ERR 
      CPB D205+1
      RSS 
      JSB ERR 
      LDA RES+2 
      CPA D205+2
      RSS 
      JSB ERR 
* 
      SKP 
* 
      OCT 105041      XMPY
      DEF RES 
      DEF D001+1
      DEF D002
      DLD RES 
      CPA D206
      SOS 
      JSB ERR 
      CPB D206+1
      RSS 
      JSB ERR 
      LDA RES+2 
      CPA D206+2
      RSS 
      JSB ERR 
* 
      OCT 105041
      DEF RES 
      DEF D002+1
      DEF D003
      DLD RES 
      CPA D207
      SOC 
      JSB ERR 
      CPB D207+1
      RSS 
      JSB ERR 
      LDA RES+2 
      CPA D207+2
      RSS 
      JSB ERR 
* 
      OCT 105041
      DEF RES 
      DEF D003+1
      DEF D004
      DLD RES 
      CPA D208
      SOC 
      JSB ERR 
      CPB D208+1
      RSS 
      JSB ERR 
      LDA RES+2 
      CPA D208+2
      RSS 
      JSB ERR 
* 
      SKP 
* 
      OCT 105061      XDIV
      DEF RES 
      DEF D004+1
      DEF D005
      DLD RES 
      CPA D209
      SOC 
      JSB ERR 
      CPB D209+1
      RSS 
      JSB ERR 
      LDA RES+2 
      CPA D209+2
      RSS 
      JSB ERR 
* 
      OCT 105061
      DEF RES 
      DEF D005+1
      DEF D006
      DLD RES 
      CPA D210
      SOC 
      JSB ERR 
      CPB D210+1
      RSS 
      JSB ERR 
      LDA RES+2 
      CPA D210+2
      RSS 
      JSB ERR 
* 
      OCT 105061
      DEF RES 
      DEF D001
      DEF D001+1
      DLD RES 
      CPA D211
      SOS 
      JSB ERR 
      CPB D211+1
      RSS 
      JSB ERR 
      LDA RES+2 
      CPA D211+2
      RSS 
      JSB ERR 
* 
      SKP 
* 
      OCT 105101      XFXS
      DEF D001
      CPA D212
      SOC 
      JSB ERR 
* 
      OCT 105101
      DEF D006+1
      CPA D212+1
      SOC 
      JSB ERR 
* 
      OCT 105101
      DEF D001+1
      CPA D212+2
      SOS 
      JSB ERR 
* 
      OCT 105105      XFXD
      DEF D002
      CPA D213
      SOS 
      JSB ERR 
      CPB D213+1
      RSS 
      JSB ERR 
* 
      OCT 105105
      DEF D005
      CPA D214
      SOC 
      JSB ERR 
      CPB D214+1
      RSS 
      JSB ERR 
* 
      OCT 105105
      DEF D006+1
      CPA D215
      SOC 
      JSB ERR 
      CPB D215+1
      RSS 
      JSB ERR 
* 
      SKP 
* 
      LDA D002
      OCT 105121      XFTS
      DEF RES 
      DLD RES 
      CPA D216
      SOC 
      JSB ERR 
      CPB D216+1
      RSS 
      JSB ERR 
      LDA RES+2 
      CPA D216+2
      RSS 
      JSB ERR 
* 
      LDA D003
      OCT 105121
      DEF RES 
      DLD RES 
      CPA D217
      SOC 
      JSB ERR 
      CPB D217+1
      RSS 
      JSB ERR 
      LDA RES+2 
      CPA D217+2
      RSS 
      JSB ERR 
* 
      LDA D007
      OCT 105121
      DEF RES 
      DLD RES 
      CPA D218
      SOC 
      JSB ERR 
      CPB D218+1
      RSS 
      JSB ERR 
      LDA RES+2 
      CPA D218+2
      RSS 
      JSB ERR 
* 
      SKP 
* 
      DLD D001
      OCT 105125      XFTD
      DEF RES 
      DLD RES 
      CPA D219
      SOC 
      JSB ERR 
      CPB D219+1
      RSS 
      JSB ERR 
      LDA RES+2 
      CPA D219+2
      RSS 
      JSB ERR 
* 
      DLD D003
      OCT 105125
      DEF RES 
      DLD RES 
      CPA D220
      SOC 
      JSB ERR 
      CPB D220+1
      RSS 
      JSB ERR 
      LDA RES+2 
      CPA D220+2
      RSS 
      JSB ERR 
* 
      DLD D007
      OCT 105125
      DEF RES 
      DLD RES 
      CPA D221
      SOC 
      JSB ERR 
      CPB D221+1
      RSS 
      JSB ERR 
      LDA RES+2 
      CPA D221+2
      RSS 
      JSB ERR 
* 
      SKP 
* 
      ISZ LOPCT       UPDATE LOOP COUNTER 
      JMP START 
      JMP RODSK,I 
* 
* 
ERR   NOP          INCREMENT ERR COUNT & RETURN 
      ISZ EFPP,I
      NOP 
      JMP ERR,I 
* 
LPCT  DEC -100
LOPCT OCT 0 
* 
      SKP 
* 
D001  OCT 040000
      OCT 040370
D002  OCT 052525
      OCT 052770
D003  OCT 121254
      OCT 066122
D004  OCT 121113
      OCT 044005
D005  OCT 130702
      OCT 054477
D006  OCT 115062
      OCT 040371
D007  OCT 000000
      OCT 000012
* 
* 
D100  OCT 045252
      OCT 145772
D101  OCT 052770
      OCT 121254
D102  OCT 052525
      OCT 052770
D103  OCT 052770
      OCT 121254
D104  OCT 042122
      OCT 076527
D105  OCT 074746
      OCT 114012
D106  OCT 046246
      OCT 073711
D107  OCT 063513
      OCT 050220
D108  OCT 0 
      OCT 077777
      OCT 0 
D109  OCT 115062
      OCT 000036
D110  OCT 040371
      OCT 000036
D111  OCT 0 
      OCT 0 
D112  OCT 077777
      OCT 177777
D113  OCT 0 
      OCT 0 
D114  OCT 077777
      OCT 177777
D115  OCT 121113
      OCT 044076
D116  OCT 130702
      OCT 054476
D117  OCT 115062
      OCT 040076
      SKP 
RES   OCT 0 
      OCT 0 
      OCT 0 
* 
* 
D200  OCT 040370
      OCT 052525
      OCT 052770
D201  OCT 052525
      OCT 052770
      OCT 121254
D202  OCT 121254
      OCT 066122
      OCT 130113
D203  OCT 121113
      OCT 044005
      OCT 130702
D204  OCT 130702
      OCT 054474
      OCT 150062
D205  OCT 115062
      OCT 040371
      OCT 0 
D206  OCT 077777
      OCT 177777
      OCT 177776
D207  OCT 101242
      OCT 067312
      OCT 101633
D208  OCT 130263
      OCT 003057
      OCT 016307
D209  OCT 105054
      OCT 063261
      OCT 117015
D210  OCT 107711
      OCT 033204
      OCT 034371
D211  OCT 0 
      OCT 0 
      OCT 0 
D212  OCT 0 
      OCT 000020
      OCT 077777
D213  OCT 077777
      OCT 177777
D214  OCT 177307
      OCT 004545
D215  OCT 0 
      OCT 000020
D216  OCT 052525
      OCT 0 
      OCT 000036
D217  OCT 121254
      OCT 0 
      OCT 000036
D218  OCT 0 
      OCT 0 
      OCT 0 
D219  OCT 040000
      OCT 040370
      OCT 000076
D220  OCT 121254
      OCT 066122
      OCT 000076
D221  OCT 050000
      OCT 0 
      OCT 000010
      END 
                                                                                            