0010 CALL RREV9114 @ SUB RREV9114 0020 ! This prints the ROM revision of the 9114 0030 ! Ver<870210> John R Baker 0040 A=DEVADDR('HP9114') 0050 IF A=-1 THEN BEEP @ END 0060 CLEAR :A @ V=DEVID$(A)[7]='B' @ SFLAG -23 0070 SEND UNL UNT MTA LISTEN A 0080 SEND SAD 5 DATA 49,242,165,9,17,V+64 END 0 0090 SEND SAD 14 0100 SEND DATA 52,54,198,1,142,192,0 0110 SEND DATA 166,133,173,159,255,230,90,42,247,53 END 182 0120 SEND UNT UNL 0130 SEND TALK A MLA SAD 16 0140 ENTER :LOOP USING '#,B';Q 0150 IF Q THEN BEEP @ DISP 'Drive error' @ GOTO 310 0160 SEND LISTEN A MTA SAD 5 END 13 UNT UNL 0170 SEND MLA TALK A SAD 14 0180 ENTER :LOOP USING '#,20A';A$ 0190 SEND UNT UNL TALK A MLA SAD 16 0200 ENTER :LOOP USING '#,B';Q 0210 SEND UNT UNL 0220 IF Q THEN BEEP @ GOTO 310 0230 B=NUM(A$[17,17]) 0240 C=NUM(A$[18,18]) 0250 D=B*256+C 0260 IF D=32935 THEN PRINT 'ROM rev. 09114-15514A' @ GOTO 310 ! 80A7 0270 IF D=44540 THEN PRINT 'ROM rev. 09114-15514B' @ GOTO 310 ! ADFC 0280 IF D=56193 THEN PRINT 'ROM rev. 09114-15515' @ GOTO 310 ! DB81 0290 IF D=56028 THEN PRINT 'ROM rev. 09114-15516' @ GOTO 310 ! DADC 0300 IF D=4237 THEN PRINT 'ROM rev. 09114-15521' ELSE PRINT 'unknown rev.' 0305 ! 108D 0310 CFLAG -23 @ END