1 REM (C) 1988-1993, BY 'PUTERWARE
10 REM CHECK MTOP< 2000H & TEST 2000H MEMORY FOR WRITE ENABLE
20 IF MTOP > 2000H THEN ?"MTOP MUST BE BELOW 2000H!":END
30 A=0 : XBY(2000H) = 5AH : A = XBY(2000H)
40 IF A <> 5AH THEN ?"WRITE ENABLE PSEUDO-EPROM":END
50 A = CBY(2000H) : IF A = 5AH THEN 100
60 ?"PSEUDO-EPROM MUST BE ENABLED BOTH AS RAM AND EPROM!":END
100 ?"LOADING HEX.L ROUTINE...",
110 READ OFSET:ETRY=OFSET:REM ENTRY POINT AFTER LOADING
120 DO
130 READ A:IF A=9999H THEN OFSET=A
140 IF OFSET<>9999H THEN XBY(OFSET)=A
145 OFSET=OFSET+1
150 WHILE OFSET<>999AH
160 DBY(1EH)=0
170 DBY(1FH)=0:?"...HEX.L LOADED OK"
180 INPUT"PROMT CHAR? 1=Y,2=N : ",A
190 IF A=1 THEN DBY(21H)=0FFH ELSE DBY(21H)=80H
195 REM IF THE ENTRY POINT HAS CHANGED, THE NEXT LINE MUST BE UPDATED
200 IF ETRY = 2120H THEN CALL 2121H:GOTO 300
210 ?"ENTRY POINT IS INCORRECT!":END
300 IF DBY(1EH)=073H THEN 350
310 ?"CKSUM ERROR":END
350 ?"HEXFILE LOADED OK, THE SYSTEM WILL NOW GO IDLE-"
360 ?"WRITE-PROTECT PSEUDO-EPROM AND RESET"
370 IDLE
400 END
500 DATA 2120H,1EH,31H,0CBH,30H,08H,07H,7DH,3EH,74H,80H,12H
501 DATA 00H,30H,74H,05H,12H,00H,30H,79H,07H,0E3H,09H,0B4H
502 DATA 0DH,02H,80H,0E8H,0B4H,3AH,0F6H,7EH,00H,31H,0A0H,0F8H
503 DATA 31H,0A0H,0F5H,83H,31H,0A0H,0C3H,35H,1EH,0F5H,82H,0E5H
504 DATA 83H,35H,1FH,0F5H,83H,31H,0A0H,0B4H,01H,0BH,30H,2FH
505 DATA 04H,0E4H,02H,00H,30H,75H,1EH,73H,22H,31H,0A0H,0F0H
506 DATA 0A3H,0D8H,0FAH,0EEH,64H,0FFH,24H,01H,0FDH,31H,0A0H,0B5H
507 DATA 05H,02H,21H,23H,7BH,21H,79H,8DH,0D2H,34H,74H,06H
508 DATA 12H,00H,30H,30H,2FH,04H,0E4H,02H,00H,30H,85H,37H
509 DATA 1EH,22H,42H,41H,44H,20H,43H,48H,45H,43H,4BH,53H
510 DATA 55H,4DH,2DH,41H,42H,4FH,52H,54H,22H,0E3H,09H,31H
511 DATA 0AFH,0C4H,0FFH,0E3H,09H,31H,0AFH,2FH,0CEH,2EH,0CEH,22H
512 DATA 0C3H,94H,2FH,83H,22H,00H,01H,02H,03H,04H,05H,06H
513 DATA 07H,08H,09H,00H,00H,00H,00H,00H,00H,00H,0AH,0BH
514 DATA 0CH,0DH,0EH,0FH,31H,0FCH,7BH,21H,79H,0DBH,0D2H,34H
515 DATA 74H,06H,12H,00H,30H,31H,0FCH,22H,52H,45H,41H,44H,59H
516 DATA 20H,54H,4FH,20H,50H,52H,4FH,47H,52H,41H,4DH,2EH,2EH
517 DATA 2EH,53H,45H,4EH,44H,20H,48H,45H,58H,20H,46H,49H,4CH
518 DATA 45H,22H,74H,07H,12H,00H,30H,22H,74H,3FH,12H,00H,30H
519 DATA 22H,74H,40H,12H,00H,30H,22H,0DH,0AH,0AH,52H,6FH,6DH
520 DATA 20H,55H,74H,69H,6CH,69H,74H,69H,65H,73H,20H,56H
521 DATA 2EH,4AH,20H,28H,52H,4FH,4DH,4AH,29H,0DH,0AH,20H,20H
522 DATA 43H,6FH,70H,79H,77H,72H,69H,74H,65H,20H,31H,39H,38H
523 DATA 38H,2DH,31H,39H,39H,33H,0DH,0AH,20H,20H,20H,20H,20H
524 DATA 62H,79H,20H,60H,70H,75H,74H,65H,72H,57H,61H,72H,65H
525 DATA 0DH,0AH,22H,7BH,22H,79H,0EH,0D2H,34H,74H,06H,12H
526 DATA 00H,30H,22H,0E4H,02H,00H,30H,51H,02H,0B4H,41H,00H,40H
527 DATA 09H,51H,08H,9999H