home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / pdp11 / k11xm.mac < prev   
Text File  |  2020-01-01  |  777b  |  34 lines
  1.     .title    K11XM    Set virtual bit in JSW for Kermit-11 and XM execs
  2.     .ident    /1.0.01/
  3.  
  4. ;    19-May-86  11:20:33 Brian Nelson
  5.  
  6.  
  7.     .asect
  8.     .    =    44
  9.     .word    2000!1000        ; Virtual + overlayed
  10.  
  11.     .psect    $RTQUE    ,RW,D,GBL,REL,OVR
  12.     .psect    hnbuff    ,RW,D,LCL,REL,CON
  13. xmflow::
  14.     .blkb    2            ; Use /E:nnnn to expand
  15.     .psect    hnbend    ,RW,D,LCL,REL,CON
  16. xmftop::.blkb    2
  17.  
  18.     .psect    CLECTX    ,RW,D,GBL,REL,CON
  19.     .psect    MAPWIN    ,RW,D,GBL,REL,CON
  20.     .psect    $RWDAT    ,RW,D,GBL,REL,CON
  21.     .psect    $CODE     ,RO,I,LCL,REL,CON
  22.     .psect    $PDATA    ,RO,D,LCL,REL,CON
  23.     .psect    USERMD    ,RW,D,GBL,REL,CON
  24.     .psect    RTDIR1    ,RW,D,GBL,REL,CON
  25.     .psect    RTIODA    ,RW,D,LCL,REL,CON
  26.     .psect    SCCADA    ,RW,D,LCL,REL,CON
  27.     .psect    SCCAIN    ,RO,I,LCL,REL,CON
  28.     .psect    $code    ,ro,i,lcl,rel,con
  29.  
  30. xmstar::call    mapini
  31.     call    kermit            ; In case we force transfer address
  32.  
  33.     .end
  34.