home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / PowerMacInterface / standard_file.icl < prev    next >
Encoding:
Modula Implementation  |  1996-03-01  |  2.3 KB  |  59 lines  |  [TEXT/3PRM]
  1. implementation module standard_file;
  2.  
  3. import mac_types;
  4.  
  5. SFGetFile :: !(!Int,!Int) !{#Char} !Int !Int !{#Char} !Int !{#Char} !Toolbox -> (!Bool,!Bool,!Int,!Int,!Int,!{#Char},!Toolbox);
  6. SFGetFile (h,v) prompt fileFilter numTypes typeList dlgHook string64 t
  7. = code (prompt=R74SD1,h=D0,v=A2,fileFilter=D2,numTypes=D3,typeList=U,dlgHook=D5,string64=U,t=O0D6U)
  8.     (good=A0,copy=A0,fType=A0,vRefNum=A0,version=A0,fName=I74A0,z=Z)
  9. {
  10.     instruction 0x52A3801E    |    rlwimi    r3,r21,16,0,15
  11.     instruction 0x38F60008    |    addi    r7,r22,8
  12.     call    .SFGetFile
  13.     instruction 0x8BA10000    |    lbz    r29,0(sp)
  14.     instruction 0x73BD0001    |    andi.    r29,r29,1
  15.     instruction 0x7FBD00D0    |    neg    r29,r29
  16.     instruction 0x8B810001    |    lbz    r28,1(sp)
  17.     instruction 0x739C0001    |    andi.    r28,r28,1
  18.     instruction 0x7F9C00D0    |    neg    r28,r28
  19.     instruction 0x83610002    |    lwz    r27,2(sp)
  20.     instruction 0xAB410006    |    lha    r26,6(sp)
  21.     instruction 0xAB210008    |    lha    r25,8(sp)
  22.     instruction 0x3AC1000A    |    addi    r22,sp,10
  23.     instruction 0x8BD60000    |    lbz    r30,0(r22)
  24.     instruction 0x93D70004    |    stw    r30,4(r23)
  25.     instruction 0x3AB70007    |    addi    r21,r23,7
  26.     instruction 0x4800000C    |    b    l2
  27.     instruction 0x84760001    | l1:    lwzu    r3,1(r22)
  28.     instruction 0x94750001    |    stwu    r3,1(r21)
  29.     instruction 0x37DEFFFF    | l2:    subic.    r30,r30,1
  30.     instruction 0x4080FFF4    |    bge    l1
  31. };
  32.  
  33. SFPutFile :: !(!Int,!Int) !{#Char} !{#Char} !Int !{#Char} !Toolbox -> (!Bool,!Bool,!Int,!Int,!Int,!{#Char},!Toolbox);
  34. SFPutFile (h,v) prompt origName dlgHook string64 t
  35. = code (prompt=R74SD1,h=D0,v=A2,origName=SD2,dlgHook=D3,string64=U,t=O0D4U)
  36.     (good=A0,copy=A0,fType=A0,vRefNum=A0,version=A0,fName=I74A0,z=Z)
  37. {
  38.     instruction 0x52A3801E    |    rlwimi    r3,r21,16,0,15
  39.     call    .SFPutFile
  40.     instruction 0x8BA10000    |    lbz    r29,0(sp)
  41.     instruction 0x73BD0001    |    andi.    r29,r29,1
  42.     instruction 0x7FBD00D0    |    neg    r29,r29
  43.     instruction 0x8B810001    |    lbz    r28,1(sp)
  44.     instruction 0x739C0001    |    andi.    r28,r28,1
  45.     instruction 0x7F9C00D0    |    neg    r28,r28
  46.     instruction 0x83610002    |    lwz    r27,2(sp)
  47.     instruction 0xAB410006    |    lha    r26,6(sp)
  48.     instruction 0xAB210008    |    lha    r25,8(sp)
  49.     instruction 0x3AC1000A    |    addi    r22,sp,10
  50.     instruction 0x8BD60000    |    lbz    r30,0(r22)
  51.     instruction 0x93D70004    |    stw    r30,4(r23)
  52.     instruction 0x3AB70007    |    addi    r21,r23,7
  53.     instruction 0x4800000C    |    b    l2
  54.     instruction 0x84760001    | l1:    lwzu    r3,1(r22)
  55.     instruction 0x94750001    |    stwu    r3,1(r21)
  56.     instruction 0x37DEFFFF    | l2:    subic.    r30,r30,1
  57.     instruction 0x4080FFF4    |    bge    l1
  58. };
  59.