home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / honeywellgcosc / hgboot.a < prev    next >
Text File  |  2020-01-01  |  1KB  |  63 lines
  1. 10$$n,j,moni
  2. 20$:IDENT:NEWEAGLE,TCARLIN   BUILD BOOT
  3. 30$:gmap:ndeck
  4. 40:lodm:.dmac
  5. 60:symref:.dvlri
  6. 70:symdef:open
  7. 80open:dopen:,,[*,fib,in,,.dvlri]
  8. 90begin:stz:cnt
  9. 100:eax2:inbuf
  10. 110:awdx:0,2,2
  11. 120loop:dlgxt:fib,vibot,eof,[rsz,64]
  12. 130:mlr:,(1)
  13. 140:adsc9:wksp,0,64
  14. 150:adsc9:0,0,64,2
  15. 160:awd:16,,2
  16. 170:aos:cnt
  17. 180:lda:=6
  18. 190:cmpa:cnt
  19. 200:tnz:loop
  20. 210:eax5:inbuf
  21. 220:lda:=o717717717720
  22. 230:rpt:96,1
  23. 240:asa:0,5
  24. 250:mlr
  25. 260:adsc9:inbuf,0,384
  26. 270:adsc6:otbuf,0,384
  27. 280:mme:geinos
  28. 290:sdia
  29. 300:zero:fc,dcw1
  30. 310:wdic
  31. 320:zero:fc,dcw2
  32. 330:zero:statr,0
  33. 340:mme:geroad
  34. 350* WRITE H*
  35. 360:aos:ctr
  36. 370:lda:ctr
  37. 380:sta:ptr
  38. 390:tra:begin
  39. 400eof:null
  40. 410:mme:gefini
  41. 420***************************
  42. 430*     DATA
  43. 440***************************
  44. 450dcw1:iotd:ptr,1
  45. 460ptr:zero:0,0
  46. 470fc:bci:1,0000HS
  47. 480dcw2:iotd:otbuf,64
  48. 490inbuf:bss:96
  49. 500otbuf:bss:64
  50. 510statr:dec:0,0
  51. 520ctr:dec:0
  52. 530cnt:dec:0
  53. 540mask:oct:077077077077
  54. 550wksp:bss:16
  55. 560vibot:bss:2
  56. 570fib:null
  57. 580:fibmac:in,gfrc,[nbuf,1,proar,wksp,0,medcod,6]
  58. 590:end
  59. 600$:execute:dump
  60. 610$:PRMFL:IN,R,S,TP-ANL/KERMIT/KERMIT.B
  61. 620$:PRMFL:HS,W,R,TP-ANL/KERMB
  62. 630$:endjob
  63.