test_gm.vtl

100 E=0 ) error count
110 ) test poke / peek
120 A=&+100
130 @=A,1
140 ;=(A@0)#1 #=200
150 ?=".";
160 @=A,2
170 ;=(A@0)#2 #=200
180 ?=".";
190 #=220
200 ?="poke / peek test faild"
210 E=E+1
220 ?=E
230 ) hex number literal
240 ;=1=01 ?="."; #=390
260 ;=9=09 ?="."; #=390
280 ;=10=0A ?="."; #=390
300 ;=15=0F ?="."; #=390
320 ;=241=0F1 ?="."; #=390
340 ;=65535=0FFFF ?="."; #=390
350 ;=65535=-1 ?="."; #=390
360 ;=-1=0FFFF ?="."; #=390
365 ;=-0=(-1+1) ?="."; #=390
370 ?="hex number literal test faild"
380 E=E+1
390 ?=E
400 ) print char test
410 ) this is not a test but must cause odd behavior if bugs
420 $=46
430 ) user ml routine test
431 )   8a      txa
432 )   2039fd  jsr  CONOUT
433 )   a912    lda #12
434 )   a234    ldx #34
435 )   60      rts
440 A=&+2
450 @=A,08A A=A+1 ) new poke syntax
460 @=A,020 A=A+1
470 @=A,039 A=A+1
480 @=A,0FD A=A+1
490 @=A,0A9 A=A+1
500 @=A,012 A=A+1
510 @=A,0A2 A=A+1
520 @=A,034 A=A+1
530 @=A,060
540 >=&+2,46 ) 46 is '.'
550 ??=>
590 ) test print hex format
600 I=0
610 ?$=I
620 ?=".";
630 I=I+17
640 ;=I>255 #=610
650 ??=01234
660 ?=".";
670 ?="HELLO/"
680 ?="WORLD/"
690 ?="HELLO/" ?="WORLD/"
700 ?="HELLO-";
710 ?="WORLD-";
720 ?="HELLO-"; ?="WORLD-";
730 ?=1 ?=2
740 A=3 ?=A
750 ?$=4 ?$=5
760 A=6 ?$=A
770 ??=7 ??=8
780 A=9 ??=A
790 ?=10 ?=" "
800 ?=11 ?=" ";
810 ?=" " ?=12
820 ?=" "; ?=13
830 ?=1 ?=2  ?=3   ?=4    ?=5     ?=6  
840 ?="" A=10
850 ;=A>11 ?="A="; ?=A ?=", A is greater than or equals to 11"
860 A=A+1
870 ;=A>11 ?="A="; ?=A ?=", A is greater than or equals to 11"
880 A=A+1
890 ;=A>11 ?="A="; ?=A ?=", A is greater than or equals to 11"
900 :1)=01234
910 :2)=0CDEF
920 ?=1 ?=2 !=950 ?=7 ?=8
930 ?=9
940 #=980
950 ?=3 !=970 ?=6 ] ?=99
960 ?=99
970 ?=4 ?=5 ] ?=99
980 ?=""
990 ;=("a"+1="b") ?="a + 1 = b"
1000 I=1 {
1010 ?="I="; ?=I ?="... ";
1020 I=I+1
1030 }=I>10 ?=""
1040 ?=-1 ?=0FFFF ?=(0-1) ?=07FFF+08000
1050 A=07FFE
1060 ?=A ?=" "; A=A+1 ?=A ?=" "; A=A+1 ?=A ?=" "; A=A+1 ?=A ?=" "; A=A+1 ?=A ?=" "; A=A+1
1070 ?=2519*13+2=32749
1080 ?=32749/13=2519
1090 ?=%=2
1100 ?=-32749/13=-2519
1110 ?=%=-2
1120 ?=32749/-13=-2519
1130 ?=%=-2
1140 ?=-32749/-13=2519
1150 ?=%=2
1160 ?=1>1
1170 ?=1=1
1180 ?=-1<1
1190 ?=1>-1
1200 ?=-1>-1
1210 ?=-1=-1
1220 ?=1<1
1230 ?=-1>1 
1240 ?=-1=1
1250 ?=-1<-1
1260 ?=1=-1
1270 ?=1<-1
1280 A=&+20 <=A,0AB12 ?=A@0=012 ?=A@1=0AB ) poke 16bit version
9000 ) === total report ===
9010 ;=E>1 ?="total number of errors is "; ?=E
9020 ?=""