1* From: http://www.programmersheaven.com/zone5/cat462/3642.htm 2* For 68000 assembler manual, see http://www.ece.iit.edu/ftp/242/Asm.doc 3* 4* test driver for BD32 programming command 5* Scott Howard February 1992 6* Format: TEST <parameter 1> [<parameter 2> ...] 7* simply echoes the command line parameters back to the user 8 9 opt nol 10 include ipd.inc 11 opt l 12 dc.l TEST execution address 13signon dc.b 'TEST PROGRAM for BD32 programming drivers' 14CRLF dc.b 13,10,0 <cr>, <lf>, null 15 even 16 17* following is the mainline routine for the driver 18 19TEST move.l a0,a1 get argv in a1 20 move.l d0,d2 get argc 21 lea.l signon(PC),a0 print signon string 22 moveq.l #BD_PUTS,d0 use 'putstring' function in BD32 23 bgnd 24 cmpi.l #2,d2 arg count < 2? 25 bcc test_1 26 moveq.l #1,d1 bail out - error code 1 27 bra test_error 28test_1 moveq.l #BD_PUTS,d0 puts () system call 29 movea.l (a1)+,a0 point to next string 30 bgnd 31 moveq.l #' ',d1 print space between each one 32 moveq.l #BD_PUTCHAR,d0 33 bgnd 34 subq #1,d2 35 bne test_1 loop till done 36 lea.l CRLF(PC),a0 point to <cr> <lf> string 37 moveq.l #BD_PUTS,d0 display it on user screen 38 bgnd 39 clr.l d1 indicate 'no error' to BD32 40test_error moveq.l #BD_QUIT,d0 all done - quit 41 bgnd 42 43 END TEST 44