3F200040: DINT   
3F200050: SETF   10h,0,0
3F200060: SETF   20h,0,1
3F200070: CLR    A0
3F200080: MOVE   A0,@64000D0h,0
3F2000B0: MOVI   FFh,A0
3F2000D0: MOVB   A0,@64000F0h
3F200100: MOVI   Fh,A0
3F200120: MOVB   A0,@64000E0h
3F200150: CLR    A0
3F200160: MOVE   A0,@62000D0h,0
3F200190: MOVI   4h,A0
3F2001B0: MOVE   A0,@62000F0h,0
3F2001E0: CLR    A8
3F2001F0: MOVI   1h,A0
3F200220: MOVB   A0,@64000F0h
3F200250: CLR    A0
3F200260: MOVE   A0,@C00000B0h,0
3F200290: MOVE   A0,@C0000080h,0
3F2002C0: MOVE   A0,@C0000100h,0
3F2002F0: MOVE   A0,@C0000110h,0
3F200320: MOVE   A0,@C0000120h,0
3F200350: MOVE   @64000D0h,A0,0
3F200380: BTST   2h,A0
3F200390: JAEQ   3F2006F0h
3F2006F0: MOVI   800Ch,A0
3F200720: MOVE   A0,@C00000B0h,0
3F200750: MOVE   @C00000B0h,A0,0
3F200780: MOVI   4000h,A0
3F2007A0: MOVE   A0,@C0000100h,0
3F2007D0: MOVE   @C00000B0h,A0,0
3F200800: MOVI   0h,A0
3F200820: MOVE   A0,@C0000100h,0
3F200850: MOVE   @C00000B0h,A0,0
3F200880: MOVI   Ch,A0
3F2008A0: MOVE   A0,@C00000B0h,0
3F2008D0: MOVE   @C00000B0h,A0,0
3F200900: MOVI   0h,SP
3F200930: MOVI   0h,A13
3F200960: CLR    B10
3F200970: MOVI   29Fh,B9
3F2009A0: MOVI   0h,B8
3F2009D0: MOVE   B10,*B8+,1
3F2009E0: DSJS   B9,3F2009D0h
3F2009D0: MOVE   B10,*B8+,1
3F2009E0: DSJS   B9,3F2009D0h
3F2009D0: MOVE   B10,*B8+,1
3F2009E0: DSJS   B9,3F2009D0h
3F2009D0: MOVE   B10,*B8+,1
3F2009E0: DSJS   B9,3F2009D0h
3F2009D0: MOVE   B10,*B8+,1
3F2009E0: DSJS   B9,3F2009D0h
3F2009D0: MOVE   B10,*B8+,1
3F2009E0: DSJS   B9,3F2009D0h
3F2009D0: MOVE   B10,*B8+,1
3F2009E0: DSJS   B9,3F2009D0h
3F2009D0: MOVE   B10,*B8+,1
3F2009E0: DSJS   B9,3F2009D0h
3F2009D0: MOVE   B10,*B8+,1
3F2009E0: DSJS   B9,3F2009D0h
