home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Assempro 1987.07.12 / Lowe_Assempro_1987_07_12.img / DEMO / VDI.S < prev   
Encoding:
Text File  |  1985-11-20  |  2.2 KB  |  123 lines
  1.  TEXT
  2.  lea     ap1resv,a3
  3.  clr.l   (a3)+
  4.  clr.l   (a3)+
  5.  clr.l   (a3)+
  6.  clr.l   (a3)
  7.  lea     contrl,a3
  8.  move.w  #10,(a3)+ ;appl_init
  9.  clr.w   (a3)+
  10.  move.w  #1,(a3)+
  11.  clr.l   (a3)
  12.  bsr     aes
  13.  lea     contrl,a3
  14.  move.w  #77,(a3)+ ;graf_handle
  15.  clr.w   (a3)+
  16.  move.w  #5,(a3)+
  17.  clr.l   (a3)
  18.  bsr     aes
  19.  lea     grhandle,a3
  20.  move.w  intout,(a3)
  21.  lea     contrl,a3
  22.  move.w  #100,(a3) ;open_vwork
  23.  clr.w   2(a3)
  24.  move.w  #11,6(a3)
  25.  move.w  grhandle,12(a3)
  26.  lea     intin,a3
  27.  moveq   #9,d3
  28. loop   move.w  #1,(a3)+
  29.  dbra    d3,loop
  30.  move.w  #2,(a3)
  31.  bsr     vdi
  32.  lea     contrl,a3
  33.  move.w  #3,(a3) ;clear
  34.  clr.w   2(a3)
  35.  clr.w   6(a3)
  36.  move.w  grhandle,12(a3)
  37.  bsr     vdi
  38.  lea     contrl,a3
  39.  move.w  #17,(a3)
  40.  clr.w   2(a3)
  41.  move.w  #1,6(a3)
  42.  move.w  grhandle,12(a3)
  43.  lea     intin,a3
  44.  move.w  #1,(a3)
  45.  bsr     vdi
  46.  lea     contrl,a3
  47.  move.w  #6,(a3)
  48.  move.w  #5,2(a3)
  49.  clr.w   6(a3)
  50.  move.w  grhandle,12(a3)
  51.  lea     ptsin,a3
  52.  move    #100,(a3)+
  53.  move    #100,(a3)+
  54.  move    #540,(a3)+
  55.  move    #100,(a3)+
  56.  move.w  #540,(a3)+
  57.  move    #300,(a3)+
  58.  move    #100,(a3)+
  59.  move.w  #300,(a3)+
  60.  move    #100,(a3)+
  61.  move    #100,(a3)+
  62.  bsr     vdi
  63.  move.w  #7,-(a7)
  64.  trap    #1
  65.  addq.l  #2,a7
  66.  CLR.W   -(SP)
  67.  TRAP    #1
  68.  ADDQ.L  #2,SP
  69.  rts
  70. aes     lea     aespb,a3
  71.  move.l  a3,d1
  72.  add.w   #24,a3
  73.  exg     a3,a7
  74.  pea     addrout
  75.  pea     addrin
  76.  pea     intout
  77.  pea     intin
  78.  pea     global
  79.  pea     contrl
  80.  exg     a3,a7
  81.  move.w  #$c8,d0
  82.  trap    #2
  83.  rts
  84. vdi     lea     vdipb,a3
  85.  move.l  a3,d1
  86.  add.w   #20,a3
  87.  exg     a3,a7
  88.  pea     ptsout
  89.  pea     intout
  90.  pea     ptsin
  91.  pea     intin
  92.  pea     contrl
  93.  exg     a3,a7
  94.  move.w  #$73,d0
  95.  trap    #2
  96.  rts
  97.  DATA
  98. vdipb   dc.l contrl,intin,ptsin,intout,ptsout
  99. grhandle:dc.w   1
  100. aespb   dc.l    contrl,global,intin,intout,addrin,addrout
  101. contrl:
  102. opcode  dc.w    0
  103. sintin  dc.w    0
  104. sintout dc.w    0
  105. saddrin:dc.w    0
  106. saddrout:dc.l   0
  107.         dc.w    0,0,0,0,0
  108. global:
  109. apversion:dc.w  0
  110. opcount:dc.w    0
  111. apid    dc.w    0
  112. apprivate:dc.l  0
  113. apptree:dc.l    0
  114. ap1resv:dc.l    0,0,0,0
  115.  BSS
  116. intin   ds.w    128
  117. ptsin   ds.w    128
  118. intout  ds.w    128
  119. ptsout  ds.w    128
  120. addrin  ds.w    128
  121. addrout ds.w    128
  122.  end
  123.