case20.asm

这是一个68k的编译器

	fsngt           (a2)
	fsnle           (a2)
	fsnlt           (a2)
	fsoge           (a2)
	fsogl           (a2)
	fsogt           (a2)
	fsole           (a2)
	fsolt           (a2)
	fsor            (a2)
	fsseq           (a2)
	fssf            (a2)
	fssne           (a2)
	fsst            (a2)
	fst             (a2)
	fsueq           (a2)
	fsuge           (a2)
	fsugt           (a2)
	fsule           (a2)
	fsult           (a2)
	fsun            (a2)
	fsgldiv.d	(a0),fp0
	fsgldiv.x	fp0,fp1
	fsglmul.d	(a0),fp0
	fsglmul.x	fp0,fp1
	fsin.x          fp0
	fsin.d          (a0),fp0
	fsin.x          fp0,fp1
	fsincos.d	(a0),fp0:fp1
	fsincos.x	fp0,fp1:fp2
	fsinh.x         fp0
	fsinh.d         (a0),fp0
	fsinh.x         fp0,fp1
	fsqrt.x         fp0
	fsqrt.d         (a0),fp0
	fsqrt.x         fp0,fp1
	fsub.d          (a0),fp0
	fsub.x          fp0,fp1
	ftan.x          fp0
	ftan.d          (a0),fp0
	ftan.x          fp0,fp1
	ftanh.x         fp0
	ftanh.d         (a0),fp0
	ftanh.x         fp0,fp1
	ftentox.x	fp0
	ftentox.d	(a0),fp0
	ftentox.x	fp0,fp1
	ftrapeq
	ftrapeq.w       #immed
	ftrapeq.l       #immed
	ftrapf
	ftrapf.w        #immed
	ftrapf.l        #immed
	ftrapge
	ftrapge.w       #immed
	ftrapge.l       #immed
	ftrapgl
	ftrapgl.w       #immed
	ftrapgl.l       #immed
	ftrapgle
	ftrapgle.w      #immed
	ftrapgle.l      #immed
	ftrapgt
	ftrapgt.w      #immed
	ftrapgt.l      #immed
	ftraple
	ftraple.w      #immed
	ftraple.l      #immed
	ftraplt
	ftraplt.w      #immed
	ftraplt.l      #immed
	ftrapne
	ftrapne.w      #immed
	ftrapne.l      #immed
	ftrapnge
	ftrapnge.w      #immed
	ftrapnge.l      #immed
	ftrapngl
	ftrapngl.w      #immed
	ftrapngl.l      #immed
	ftrapngle
	ftrapngle.w      #immed
	ftrapngle.l      #immed
	ftrapngt
	ftrapngt.w      #immed
	ftrapngt.l      #immed
	ftrapnle
	ftrapnle.w      #immed
	ftrapnle.l      #immed
	ftrapnlt
	ftrapnlt.w      #immed
	ftrapnlt.l      #immed
	ftrapoge
	ftrapoge.w      #immed
	ftrapoge.l      #immed
	ftrapogl
	ftrapogl.w      #immed
	ftrapogl.l      #immed
	ftrapogt
	ftrapogt.w      #immed
	ftrapogt.l      #immed
	ftrapole
	ftrapole.w      #immed
	ftrapole.l      #immed
	ftrapolt
	ftrapolt.w      #immed
	ftrapolt.l      #immed
	ftrapor
	ftrapor.w      #immed
	ftrapor.l      #immed
	ftrapseq
	ftrapseq.w      #immed
	ftrapseq.l      #immed
	ftrapsf
	ftrapsf.w      #immed
	ftrapsf.l      #immed
	ftrapsne
	ftrapsne.w      #immed
	ftrapsne.l      #immed
	ftrapst
	ftrapst.w      #immed
	ftrapst.l      #immed
	ftrapt
	ftrapt.w      #immed
	ftrapt.l      #immed
	ftrapueq
	ftrapueq.w      #immed
	ftrapueq.l      #immed
	ftrapuge
	ftrapuge.w      #immed
	ftrapuge.l      #immed
	ftrapugt
	ftrapugt.w      #immed
	ftrapugt.l      #immed
	ftrapule
	ftrapule.w      #immed
	ftrapule.l      #immed
	ftrapult
	ftrapult.w      #immed
	ftrapult.l      #immed
	ftrapun
	ftrapun.w       #immed
	ftrapun.l       #immed
	ftest.d         (a0)
	ftest.x         fp0
	ftwotox.x	fp0
	ftwotox.d       (a0),fp0
	ftwotox.x	fp0,fp1
*
*       PMMU
*
pbcclabel
	pbbs.w          pbcclabel
	pbbs.l          pbcclabel
	pbbs            pbcclabel
	pbls            pbcclabel
	pbss            pbcclabel
	pbas            pbcclabel
	pbws            pbcclabel
	pbis            pbcclabel
	pbgs            pbcclabel
	pbcs            pbcclabel
	pbbc            pbcclabel
	pblc            pbcclabel
	pbsc            pbcclabel
	pbac            pbcclabel
	pbwc            pbcclabel
	pbic            pbcclabel
	pbgc            pbcclabel
	pbcc            pbcclabel
pdbcclabel
	pdbbs.w         d0,pdbcclabel
	pdbbs           d0,pdbcclabel
	pdbls           d0,pdbcclabel
	pdbss           d0,pdbcclabel
	pdbas           d0,pdbcclabel
	pdbws           d0,pdbcclabel
	pdbis           d0,pdbcclabel
	pdbgs           d0,pdbcclabel
	pdbcs           d0,pdbcclabel
	pdbbc           d0,pdbcclabel
	pdblc           d0,pdbcclabel
	pdbsc           d0,pdbcclabel
	pdbac           d0,pdbcclabel
	pdbwc           d0,pdbcclabel
	pdbic           d0,pdbcclabel
	pdbgc           d0,pdbcclabel
	pdbcc           d0,pdbcclabel
	pflusha
	pflush          d0{immed}
	pflush          $F{immed}
	pflush          sfc{immed}
	pflush          dfc{immed}
	pflush          d0{immed},(a2)
	pflushg         d0,$3
	pflushg         d0,$3,(a2)
	pflushr         (a3)
	ploadr          d0,(a2)
	ploadw          d0,(a2)
	pmove.b         (a4),tc
	pmove.w         (a4),tc
	pmove.l         (a4),tc
	pmove           (a4),tc
	pmove.b         tc,(a5)
	pmove.w         tc,(a5)
	pmove.l         tc,(a5)
	pmove           tc,(a5)
	prestore        (sp)+
	psave           -(sp)
	psbs.b          (a6)
	psbs            (a6)
	psls            (a6)
	psss            (a6)
	psas            (a6)
	psws            (a6)
	psis            (a6)
	psgs            (a6)
	pscs            (a6)
	psbc            (a6)
	pslc            (a6)
	pssc            (a6)
	psac            (a6)
	pswc            (a6)
	psic            (a6)
	psgc            (a6)
	pscc            (a6)
	ptestr          d0,(a2),5
	ptestr          d0,(a2),5,A1
	ptestw          d0,(a2),5
	ptestw          d0,(a2),5,A2
	ptrapbs
	ptrapbs.w               #immed
	ptrapbs.l               #immed
	ptrapls
	ptrapls.w               #immed
	ptrapls.l               #immed
	ptrapss
	ptrapss.w               #immed
	ptrapss.l               #immed
	ptrapas
	ptrapas.w               #immed
	ptrapas.l               #immed
	ptrapws
	ptrapws.w               #immed
	ptrapws.l               #immed
	ptrapis
	ptrapis.w               #immed
	ptrapis.l               #immed
	ptrapgs
	ptrapgs.w               #immed
	ptrapgs.l               #immed
	ptrapcs
	ptrapcs.w               #immed
	ptrapcs.l               #immed
	ptrapbc
	ptrapbc.w               #immed
	ptrapbc.l               #immed
	ptraplc
	ptraplc.w               #immed
	ptraplc.l               #immed
	ptrapsc
	ptrapsc.w               #immed
	ptrapsc.l               #immed
	ptrapac
	ptrapac.w               #immed
	ptrapac.l               #immed
	ptrapwc
	ptrapwc.w               #immed
	ptrapwc.l               #immed
	ptrapic
	ptrapic.w               #immed
	ptrapic.l               #immed
	ptrapgc
	ptrapgc.w               #immed
	ptrapgc.l               #immed
	ptrapcc
	ptrapcc.w               #immed
	ptrapcc.l               #immed
	pvalid.l        tc,(a2)
	pvalid          tc,(a2)
	pvalid.l        a3,(a2)
	pvalid          a4,(a2)
*
*       register tests
*
	pmove           tc,d0
	pmove           drp,(a0)
	pmove           srp,(a0)
	pmove           crp,(a0)
	pmove           cal,d0
	pmove           val,d0
	pmove           scc,d0
	pmove           bad0,d0
	pmove           bad1,d0
	pmove           bad2,d0
	pmove           bad3,d0
	pmove           bad4,d0
	pmove           bad5,d0
	pmove           bad6,d0
	pmove           bad7,d0
	pmove           bac0,d0
	pmove           bac1,d0
	pmove           bac2,d0
	pmove           bac3,d0
	pmove           bac4,d0
	pmove           bac5,d0
	pmove           bac6,d0
	pmove           bac7,d0
	pmove           psr,d0
	pmove           pcsr,d0


	pmove           d0,tc
	pmove           (a0),drp
	pmove           (a0),srp
	pmove           (a0),crp
	pmove           d0,cal
	pmove           d0,val
	pmove           d0,scc
	pmove           d0,bad0
	pmove           d0,bad1
	pmove           d0,bad2
	pmove           d0,bad3
	pmove           d0,bad4
	pmove           d0,bad5
	pmove           d0,bad6
	pmove           d0,bad7
	pmove           d0,bac0
	pmove           d0,bac1
	pmove           d0,bac2
	pmove           d0,bac3
	pmove           d0,bac4
	pmove           d0,bac5
	pmove           d0,bac6
	pmove           d0,bac7
*       pmove           d0,psr
*       pmove           d0,pcsr
	dc.b	1,2,3,4,5,6,7,8,9,0,1,2,3
	dc.b	1,2,3,4,5,6,7,8,9,0,1,2
	dc.b	1,2,3,4,5,6,7,8,9,0,1
	dc.b	1,2,3,4,5,6,7,8,9,0
	dc.b	1,2,3,4,5,6,7,8,9
	dc.b	1,2,3,4,5,6,7,8
	dc.b	1,2,3,4,5,6,7
	dc.b	1,2,3,4,5,6
	dc.b	1,2,3,4,5
	dc.b	1,2,3,4
	dc.b	1,2,3
	dc.b	1,2
	dc.b	1
*
	dc.w    1,2,3,4,5,6,7,8,9,0,1,2,3
	dc.w    1,2,3,4,5,6,7,8,9,0,1,2
	dc.w    1,2,3,4,5,6,7,8,9,0,1
	dc.w    1,2,3,4,5,6,7,8,9,0
	dc.w    1,2,3,4,5,6,7,8,9
	dc.w    1,2,3,4,5,6,7,8
	dc.w    1,2,3,4,5,6,7
	dc.w    1,2,3,4,5,6
	dc.w    1,2,3,4,5
	dc.w    1,2,3,4
	dc.w    1,2,3
	dc.w    1,2
	dc.w    1

	dc.l    1,2,3,4,5,6,7,8,9,0,1,2,3
	dc.l    1,2,3,4,5,6,7,8,9,0,1,2
	dc.l    1,2,3,4,5,6,7,8,9,0,1
	dc.l    1,2,3,4,5,6,7,8,9,0
	dc.l    1,2,3,4,5,6,7,8,9
	dc.l    1,2,3,4,5,6,7,8
	dc.l    1,2,3,4,5,6,7
	dc.l    1,2,3,4,5,6
	dc.l    1,2,3,4,5
	dc.l    1,2,3,4
	dc.l    1,2,3
	dc.l    1,2
	dc.l    1

	end
	nam
	name
	opt     nol             listing off
*
*       this shouldn't be listed
*
	opt     l               turn listing back on
	pag
	page
	spc
	ttl
	ds.b    5
	ds.w    5
	ds.l    5
	ds      5
fconst  fequ    $1321
	fopt

	org     $F
	dc.b    1
	org     $FF
	dc.b    1
	org     $FFF
	dc.b    1
	org     $FFFF
	dc.b    1
	org     $FFFFF
	dc.b    1
	org     $FFFFFF
	dc.b    1
	org     $FFFFFFF
	dc.b    1
	org     $FFFFFFFF
	dc.b    1

	dc.b    'string'
	dc.w    'string'
	dc.l    'string'
junk    equ     $12345678
*
*       68030 Pmove's to Transparent Translation registers
*
	pmove   junk,tt0
	pmove   junk,tt1
	pmove   tt0,junk
	pmove   tt1,junk
*
*	bug fix test for static field scanning
*
	pflush  d0{5}
	pflush  d0{5},(a0)
*
*	variations on pmove for 68030
*
	pmove   #3456,tc
	pmovefd #3456,tc	TLB flush disabled (68030 only)
*
*	generic co-processor support (1st expr. is always co-proc id)
*
	cpdbcc		7,d0,*
	cpbcc		6,44,*
	cpgen		5,$ffff,(a0)+
	cprestore	4,(sp)
	cpsave		3,-(sp)
	cpscc		2,63,(a0)
	cptrapcc	1,63
	cptrapcc.w	0,$10,#100
	cptrapcc.l	0,$15,#$12345678