Listing of file='TTTA010' on disk='vmedia/731-0110A.wvd.zip'
# Sector 161, program filename = 'TTTA010' 0010 REM TTTA010 03/31/83, 2741 EMULATOR, COPYRIGHT WANG LABS, 1980 0030 REM %--DEFINE AND SET VARIABLES 0040 COM X5 : X5=0 : IF STR(Z$,44,1)="3"THEN X5=500 0050 COM P(3),G1$4,G3$16,A5$3,B$(3)1,D$(3),L,E,E1,M,B$1,C$1,A,B,C 0060 SELECT PRINT 005, CO 005, INPUT 001, CI 001 0069 REM .test 27B or MXE response 0070 IF STR(Z$,47,1)="1"THEN 100 : A5$="A"&STR(Z$,29,2) : SELECT #6<A5$> 0075 LINPUT "MXE PORT ",-A5$ : SELECT #6<A5$> 0080 LOAD T#0,"TTYA011"4000,9000BEG 4000 0099 REM %.27B/28B TC Board 0100 ON VAL(STR(Z$,48))-48SELECT #6 01C;#6 01D;#6 01E;#6 01F 0110 P(1)=-1 : REM /SET PRINTER ACTIVE 0120 P(2)=0 : IF STR(Z$,43,1)="1"THEN 130 : P(2)=-1 : REM /SET INPUT ACTIVE 0130 P(3)=0 : IF STR(Z$,44,1)="1"THEN 160 : P(3)=-1 : REM /SET OUTPUT ACTIVE 0140 REM ONLY FOR LOADER 0150 DIM B2$(16),B3$(16) 0160 D$=HEX(010A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A) 0170 D$(1)=STR(D$,1,3) : D$(2)=STR(D$,1,4) 0196 G1$=HEX(010A2020) 0198 G3$=STR(Z$,51) : REM /.special keyboard meanings for ASK?2741 0199 REM ...=HEX(5BC75DC35CCC5FC42020) 0280 REM %--RESET T.C. HARDWARE 0300 $GIO #6(4580,Q2$) 0320 REM %--SET MICROCODE PARAMETER VECTOR (CCV) 0330 $GIO CCV #6(0120 0201 1212 4402 A000 440C,Q2$)STR(Z$,1,20) 0340 IF STR(Q2$,8,1)=HEX(10)THEN 2000 0345 REM %--LOAD AND SET CODE CONVERSION TABLES, IF ANY 0350 INIT(00)B2$(),B3$() 0360 A$=STR(W$,9,8) 0365 IF A$=" "THEN 3005 0370 DATA LOAD DC OPEN T#0,A$ 0380 DATA LOAD DC #0,B2$(),B3$() 0382 REM -- 2741 Parameters 0384 N$="2741 Terminal" : M=4 : REM / SET MODE FLAG TO SEND BID 0385 IF STR(Z$,46,1)<>"2"THEN 390 0386 N$="2741 Host" : M=1 : REM / SET MODE FLAG TO AWAIT BID 0390 $GIO SND TBL #6(4404 A000 440C,Q2$)B2$() 0400 $GIO RCV TBL #6(4405 A000 440C,Q2$)B3$() 0420 REM %--START RECEIVE 0430 $GIO #6(4408,Q2$) 1000 REM %--LOAD EMULATOR PROGRAM 1020 A$=STR(W$,1,8) : REM /EMULATOR MAINLINE NAME 1022 $IF ON /000,1050 1030 LOAD DC T#0,"ASKSHELL" 1040 REM ...System at least a VP 1050 $GIO/005(7601,Q2$) 1060 B$=Q2$ : AND (B$,20) : IF B$<>HEX(20)THEN 1030 1070 STR(W$,49)="TTT*MVP" 1080 PRINT "MVP" 1100 GOTO 1030 2000 STOP "CHECK 2228B, OP62, OR OP62B DEVICE ADDRESS" 3005 STOP "2741 CODE CONVERSION TABLE NOT SPECIFIED" 4000 GOTO 110 : REM /.Logic overlaid by TTYA011 for MXE controller