home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / TT.M < prev    next >
Encoding:
Text File  |  1990-06-16  |  1.4 KB  |  3 lines
  1. ⓪ MODULE tt;⓪ ⓪ FROM SYSTEM IMPORT ASSEMBLER;⓪ ⓪ PROCEDURE ToSuper;⓪"BEGIN⓪$ASSEMBLER⓪(MOVEM.L D1/D2/A1/A2,-(A7)⓪(MOVEQ   #1,D0⓪(MOVE.L  D0,-(A7)        ; Super (1)⓪(MOVE    #$20,-(A7)⓪(TRAP    #1⓪(TST     D0⓪(BNE     wasSuper⓪(; wir sind im User-Mode⓪(MOVE.W  D0,4(A7)        ; Super (0)⓪(TRAP    #1⓪(ADDQ.L  #6,A7⓪(MOVEM.L (A7)+,D1/D2/A1/A2⓪(MOVE.L  (A7)+,A0        ; Rücksprungadr. nach A0⓪(MOVE.L  A7,USP⓪(MOVE.L  D0,A7⓪(MOVE    SR,D0⓪(ANDI    #$CFFF,D0⓪(JMP     (A0)⓪$wasSuper⓪(; wir sind schon im Supervisor-Mode⓪(ADDQ.L  #6,A7⓪(MOVE    SR,D0⓪(MOVEM.L (A7)+,D1/D2/A1/A2⓪$END⓪"END ToSuper;⓪ ⓪ PROCEDURE bla;⓪"BEGIN⓪$HALT⓪"END bla;⓪"⓪ BEGIN⓪"(*⓪"ASSEMBLER⓪(BREAK⓪(JSR     ToSuper⓪(BREAK⓪"END⓪"*)⓪"bla;⓪"bla;⓪"bla⓪ END tt.⓪ ə
  2. (* $FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$0000029A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685AÇ$00000035T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$000002A2$00000294$000002B2$000002FC$000002EF$00000035$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685A$FFEE685AÿÇé*)
  3.