image of READY prompt

Wang2200.org

Listing of file='\$P/U9' on disk='vmedia/mvp-diag-3.5.wvd.zip'

# Sector 1102, program filename = '$P/U9'
0020 PRINT AT(9,0);"$UNPACK (FIELD FORM, CONT.)............. <--- TESTING"
0030 DIM F$2,A$5,X(16),Z$64,B$1,Q$(17)
0040 FOR L=1TO 2
0050 A$=HEX(2B32C2A22E)
   : G$=HEX(2002300140015001)
0060 $UNPACK(F=G$)A$TO X(1),X(2),X(3),X(4)
0070 FOR I=1TO 4
   : IF X(I)<>2THEN 9000
   : NEXT I
0080 A$="+0000"
   : F$=HEX(2205)
0090 $UNPACK(F=F$)A$TO X(1)
   : IF X(1)<>0THEN 9000
0100 F$=HEX(3204)
   : $UNPACK(F=F$)STR(A$,2)TO X(2)
0110 IF X(2)<>0THEN 9000
   : INIT(00)Z$
0120 F$=HEX(5F40)
   : $UNPACK(F=F$)Z$TO X(3)
0130 IF X(3)<>0THEN 9000
   : Z$="-"
   : F$=HEX(2240)
   : X=-9E-2
0140 FOR I=64TO 2STEP -1
   : STR(Z$,I)="90"
0150 $UNPACK(F=F$)Z$TO Y
   : IF X<>YTHEN 9000
0160 X=X*10
   : NEXT I
0170 F$=HEX(5F40)
   : INIT(00)Z$
   : B$=HEX(F0)
   : STR(Z$,64)=HEX(10)
   : X=1E-15
0180 FOR I=0TO 20STEP .5
   : $UNPACK(F=F$)Z$TO Y
0190 ADDC(STR(Z$,1,64-I),B$)
   : ROTATE(B$,4)
0200 IF Y<>XTHEN 9000
   : X=X*10
   : NEXT I
0210 A$=HEX(123456789D)
   : F$=HEX(5105)
0220 $UNPACK(F=F$)STR(A$,1,5)TO X
0230 IF X<>-12345678.9THEN 9000
0240 G$=HEX(23102310)
   : C$=HEX(10001000)
0250 FOR I=1TO 4
   : READ Y
0260 FOR J=1TO 16
   : READ X(J)
   : NEXT J
   : RESTORE
0270 $PACK(F=G$)Q$()FROMY,X()
0280 $UNPACK(F=G$)Q$()TO X(),Y
0290 FOR J=1TO 16
   : READ X
   : IF X(J)<>XTHEN 9000
   : NEXT J
0300 READ X
   : IF Y<>XTHEN 9000
   : RESTORE
0310 ADD(G$,C$)
   : NEXT I
0320 DATA 0,.123,-.001,-123456789012.3,567,.02,1000.001,-5.234,-99887,-1,-12,1
     23,1234,-12345,123456,1234567.1,-12345678.901
0330 NEXT L
0340 Z$=HEX(012345678901234567890123456789)
   : $UNPACK(F=HEX(60016101600262026204))Z$TO A,B,C,D,E
   : IF A<>1OR B<>2.3OR C<>4567OR D<>89.01OR E<>234567.89THEN 9000
0350 $UNPACK(F=HEX(6002))STR(Z$,1,1)TO X
   : ERRORIF ERR<>76THEN 9000
   : GOTO 370
0360 GOTO 9000
0370 $UNPACK(F=HEX(6002))Z$TO A$
   : ERRORIF ERR<>74THEN 9000
   : GOTO 390
0380 GOTO 9000
0390 $UNPACK(F=HEX(A002))Z$TO X
   : ERRORIF ERR<>74THEN 9000
   : GOTO 8990
0395 GOTO 9000
8990 GOTO 9020
9000 E(8)=E(8)+1
9010 PRINT AT(9,41,15);E(8);"ERRORS"
   : GOTO 9030
9020 IF E(8)>0THEN 9010
   : PRINT AT(9,41,15);"OK"
9030 LOAD DC T"$P/U10"