changeset 2426:5ade5dd9c3cb

Updated
author boisy
date Thu, 04 Feb 2010 15:17:15 +0000
parents 375bbafa44fa
children 69b4e5d37906
files 3rdparty/customboots/boisy/makefile 3rdparty/customboots/boisy/testadd.asm 3rdparty/customboots/boisy/testcwai.asm 3rdparty/customboots/boisy/testexg.asm 3rdparty/customboots/boisy/testmul.a 3rdparty/customboots/boisy/testmul0000.asm 3rdparty/customboots/boisy/testmulAA55.asm 3rdparty/customboots/boisy/testnop.asm 3rdparty/customboots/boisy/testtfr.asm
diffstat 9 files changed, 244 insertions(+), 848 deletions(-) [+]
line wrap: on
line diff
--- a/3rdparty/customboots/boisy/makefile	Wed Feb 03 04:57:52 2010 +0000
+++ b/3rdparty/customboots/boisy/makefile	Thu Feb 04 15:17:15 2010 +0000
@@ -7,7 +7,7 @@
 
 AFLAGS		+= -aNoTerm=1 -acoco3=1
 
-LFLAGS		+= -y -l=$(NITROS9DIR)/3rdparty/packages/drivewire/netlib/netlib.l -l=$(NITROS9DIR)/3rdparty/libs/alib/alib.l -l=../netlib/netlib.l -l=$(NITROS9DIR)/lib/sys6809l2.l 
+LFLAGS		+= -y -l=$(NITROS9DIR)/3rdparty/libs/alib/alib.l -l=$(NITROS9DIR)/lib/sys6809l2.l 
 3PDW68          = $(3RDPARTY)/packages/drivewire/6809l2
 3PBOISY         = $(3RDPARTY)/utils/boisy
 
@@ -34,8 +34,8 @@
 CMDS_DW		= $(3PDW68)/inetd $(3PDW68)/dw \
 		$(3PDW68)/telnet $(3PBOISY)/send
 
-CMDS_THESIS	= testmul0000 testmulAA55 testtfr testexg testadd testcwai testnop
-SRC_THESIS	= testmul0000.asm testmulAA55.asm testtfr.asm testexg.asm testadd.asm testcwai.asm testnop.asm
+CMDS_THESIS	= testmul testtfr testexg testadd testnop
+SRC_THESIS	= testmul.a testtfr.a testexg.a testadd.a testnop.a
 
 # We make our own bootfile and kernel track
 KERNEL		= $(MD)/rel_80 $(MD)/boot_dw3 $(MD)/krn
--- a/3rdparty/customboots/boisy/testadd.asm	Wed Feb 03 04:57:52 2010 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,135 +0,0 @@
-         ifp1
-         use   os9defs
-         endc
-
-tylg     set   Prgrm+Objct   
-atrv     set   ReEnt+rev
-rev      set   $00
-edition  set   1
-
-         mod   eom,name,tylg,atrv,start,size
-
-stack    rmb   200
-size     equ   .
-
-name     fcs   /testadd/
-         fcb   edition
-
-start
-         orcc  #IntMasks
-
-* set up appropriate registers for test
-         lda   #0
-
-VAL      equ   1
-
-top
-* 100 instructions in series
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         adda  #VAL
-         lbra  top
-
-         clrb
-         os9   F$Exit
-
-         emod
-eom      equ   *
-         end
--- a/3rdparty/customboots/boisy/testcwai.asm	Wed Feb 03 04:57:52 2010 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,26 +0,0 @@
-         ifp1
-         use   os9defs
-         endc
-
-tylg     set   Prgrm+Objct   
-atrv     set   ReEnt+rev
-rev      set   $00
-edition  set   1
-
-         mod   eom,name,tylg,atrv,start,size
-
-stack    rmb   200
-size     equ   .
-
-name     fcs   /testcwai/
-         fcb   edition
-
-start
-         cwai  #$FF
-         
-         clrb
-         os9   F$Exit
-
-         emod
-eom      equ   *
-         end
--- a/3rdparty/customboots/boisy/testexg.asm	Wed Feb 03 04:57:52 2010 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,140 +0,0 @@
-         ifp1
-         use   os9defs
-         endc
-
-tylg     set   Prgrm+Objct   
-atrv     set   ReEnt+rev
-rev      set   $00
-edition  set   1
-
-         mod   eom,name,tylg,atrv,start,size
-
-stack    rmb   200
-size     equ   .
-
-name     fcs   /testexg/
-         fcb   edition
-
-start
-         orcc  #IntMasks
-
-* set up appropriate registers for test
-
-* measure mul multiplying 0
-         lda   #0
-         ldb   #0
-
-* measure mul multiplying alternating bit patterns
-*         lda   #%01010101
-*         ldb   #%10101010
-
-top
-* 100 instructions in series
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         exg   a,b
-         lbra  top
-
-         clrb
-         os9   F$Exit
-
-         emod
-eom      equ   *
-         end
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/3rdparty/customboots/boisy/testmul.a	Thu Feb 04 15:17:15 2010 +0000
@@ -0,0 +1,241 @@
+tylg           set       $01     Prgrm+Objct
+atrv           set       $80+rev ReEnt+rev
+rev            set       $00
+edition        set       5
+
+               psect     testmul_a,tylg,atrv,edition,200,start
+
+               vsect
+multiplicand   rmb       1
+multiplier     rmb       1
+               endsect
+
+* capture two parameters
+start          clr       multiplicand,u
+               clr       multiplier,u
+
+* if no params, just go straight to multiplication
+               lda       ,x
+               cmpa      #C$CR
+               beq       go
+               
+* get first number
+               lbsr      DEC_BIN
+               stb       multiplicand,u
+               leax      ,y
+               lbsr      TO_NON_SP
+
+* if no second number, go straight to multiplication
+               cmpb      #C$CR
+               beq       go
+               lbsr      DEC_BIN
+               stb       multiplier,u
+
+go               
+               orcc      #IntMasks
+top               
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               ldd       multiplicand,u
+               mul
+               lbra      top
+               
+
+ 
+               endsect
\ No newline at end of file
--- a/3rdparty/customboots/boisy/testmul0000.asm	Wed Feb 03 04:57:52 2010 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,136 +0,0 @@
-         ifp1
-         use   os9defs
-         endc
-
-tylg     set   Prgrm+Objct   
-atrv     set   ReEnt+rev
-rev      set   $00
-edition  set   1
-
-         mod   eom,name,tylg,atrv,start,size
-
-stack    rmb   200
-size     equ   .
-
-name     fcs   /testmul/
-         fcb   edition
-
-start
-         orcc  #IntMasks
-
-* set up appropriate registers for test
-
-* measure mul multiplying 0
-         lda   #0
-         ldb   #0
-
-top
-* 100 instructions in series
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         bra   top
-
-         clrb
-         os9   F$Exit
-
-         emod
-eom      equ   *
-         end
--- a/3rdparty/customboots/boisy/testmulAA55.asm	Wed Feb 03 04:57:52 2010 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,136 +0,0 @@
-         ifp1
-         use   os9defs
-         endc
-
-tylg     set   Prgrm+Objct   
-atrv     set   ReEnt+rev
-rev      set   $00
-edition  set   1
-
-         mod   eom,name,tylg,atrv,start,size
-
-stack    rmb   200
-size     equ   .
-
-name     fcs   /testmul/
-         fcb   edition
-
-start
-         orcc  #IntMasks
-
-* set up appropriate registers for test
-
-* measure mul multiplying alternating bit patterns
-         lda   #%01010101
-         ldb   #%10101010
-
-top
-* 100 instructions in series
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         mul
-         bra   top
-
-         clrb
-         os9   F$Exit
-
-         emod
-eom      equ   *
-         end
--- a/3rdparty/customboots/boisy/testnop.asm	Wed Feb 03 04:57:52 2010 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,132 +0,0 @@
-         ifp1
-         use   os9defs
-         endc
-
-tylg     set   Prgrm+Objct   
-atrv     set   ReEnt+rev
-rev      set   $00
-edition  set   1
-
-         mod   eom,name,tylg,atrv,start,size
-
-stack    rmb   200
-size     equ   .
-
-name     fcs   /testmul/
-         fcb   edition
-
-start
-         orcc  #IntMasks
-
-* set up appropriate registers for test
-
-top
-* 100 instructions in series
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         nop
-         bra   top
-
-         clrb
-         os9   F$Exit
-
-         emod
-eom      equ   *
-         end
--- a/3rdparty/customboots/boisy/testtfr.asm	Wed Feb 03 04:57:52 2010 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,140 +0,0 @@
-         ifp1
-         use   os9defs
-         endc
-
-tylg     set   Prgrm+Objct   
-atrv     set   ReEnt+rev
-rev      set   $00
-edition  set   1
-
-         mod   eom,name,tylg,atrv,start,size
-
-stack    rmb   200
-size     equ   .
-
-name     fcs   /testtfr/
-         fcb   edition
-
-start
-         orcc  #IntMasks
-
-* set up appropriate registers for test
-
-* measure mul multiplying 0
-         lda   #0
-         ldb   #0
-
-* measure mul multiplying alternating bit patterns
-*         lda   #%01010101
-*         ldb   #%10101010
-
-top
-* 100 instructions in series
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         tfr   a,b
-         lbra  top
-
-         clrb
-         os9   F$Exit
-
-         emod
-eom      equ   *
-         end