X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2FFUNC%2Fiotest.casl;fp=as%2FFUNC%2Fiotest.casl;h=0000000000000000000000000000000000000000;hb=58ee37be62a5e359d0f6eb603cc86b5692f74b90;hp=af25ff30d5efe85615e465828ada1b8165d07878;hpb=85744703060a90c21ee325d3a692f80233bc281f;p=YACASL2.git diff --git a/as/FUNC/iotest.casl b/as/FUNC/iotest.casl deleted file mode 100644 index af25ff3..0000000 --- a/as/FUNC/iotest.casl +++ /dev/null @@ -1,20 +0,0 @@ -IOTEST START - OUT OBUF1,OLEN1 -LOOP IN IOBUF,IOLEN - LD GR1,IOLEN - JZE RETURN - OUT OBUF2,OLEN2 - OUT IOBUF,IOLEN - OUT OBUF3,OLEN3 - JUMP LOOP -RETURN RET -; Memory -OBUF1 DC 'LET''S START. TYPE IN' -OLEN1 DC 20 -OBUF2 DC 'YOU TYPED' -OLEN2 DC 9 -OBUF3 DC 'WHAT''S NEXT?' -OLEN3 DC 12 -IOBUF DS 64 -IOLEN DS 1 - END