home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64utils / mlx (.txt) < prev    next >
Commodore BASIC  |  1988-12-29  |  4KB  |  101 lines
  1. 100 POKE 56,50:CLR:DIM IN$,I,J,A,B,A$,B$,A(7),N$
  2. 110 C4=48:C6=16:C7=7:Z2=2:Z4=254:Z5=255:Z6=256:Z7=127
  3. 120 FA=PEEK(45)+Z6*PEEK(46):BS=PEEK(55)+Z6*PEEK(56):H$="0123456789ABCDEF"
  4. 130 R$=CHR$(13):L$="[157]":S$=" ":D$=CHR$(20):Z$=CHR$(0):T$=""
  5. 140 SD=54272:FOR I=SD TO SD+23:POKE I,0:NEXT:POKE SD+24,15:POKE 788,52
  6. 150 PRINT"[147]"CHR$(142)CHR$(8):POKE 53280,15:POKE 53281,15
  7. 160 PRINT T$"   [164][164][164][164][164][164][164][164]  "SPC(28)"  [146] MLX II   "SPC(28)"            "
  8. 170 PRINT"   COMPUTE!'S MACHINE LANGUAGE EDITOR"
  9. 180 PRINT"[144]STARTING ADDRESS[151]";:GOSUB300:SA=AD:GOSUB1040:IF F THEN180
  10. 190 PRINT"[144]  ENDING ADDRESS[151]";:GOSUB300:EA=AD:GOSUB1030:IF F THEN190
  11. 200 INPUT"[144]CLEAR WORKSPACE [Y/N][151]";A$:IF LEFT$(A$,1)<>"Y"THEN220
  12. 210 PRINT"WORKING...";:FORI=BS TO BS+EA-SA+7:POKE I,0:NEXT:PRINT"DONE"
  13. 220 PRINTTAB(10)"[144] MLX COMMAND MENU [151]":PRINT T$"E[146]NTER DATA"
  14. 230 PRINT T$"D[146]ISPLAY DATA":PRINT T$"L[146]OAD DATA"
  15. 240 PRINT T$"S[146]AVE FILE":PRINT T$"Q[146]UIT[144]"
  16. 250 GET A$:IF A$=N$ THEN250
  17. 260 A=0:FOR I=1 TO 5:IF A$=MID$("EDLSQ",I,1)THEN A=I:I=5
  18. 270 NEXT:ON A GOTO420,610,690,700,280:GOSUB1060:GOTO250
  19. 280 PRINT" QUIT ":INPUT"[151]ARE YOU SURE [Y/N]";A$:IF LEFT$(A$,1)<>"Y"THEN220
  20. 290 POKE SD+24,0:END
  21. 300 IN$=N$:AD=0:INPUTIN$:IFLEN(IN$)<>4THENRETURN
  22. 310 B$=IN$:GOSUB320:AD=A:B$=MID$(IN$,3):GOSUB320:AD=AD*256+A:RETURN
  23. 320 A=0:FOR J=1 TO 2:A$=MID$(B$,J,1):B=ASC(A$)-C4+(A$>"@")*C7:A=A*C6+B
  24. 330 IF B<0 OR B>15 THEN AD=0:A=-1:J=2
  25. 340 NEXT:RETURN
  26. 350 B=INT(A/C6):PRINT MID$(H$,B+1,1);:B=A-B*C6:PRINT MID$(H$,B+1,1);:RETURN
  27. 360 A=INT(AD/Z6):GOSUB350:A=AD-A*Z6:GOSUB350:PRINT":";
  28. 370 CK=INT(AD/Z6):CK=AD-Z4*CK+Z5*(CK>Z7):GOTO390
  29. 380 CK=CK*Z2+Z5*(CK>Z7)+A
  30. 390 CK=CK+Z5*(CK>Z5):RETURN
  31. 400 PRINT"STARTING AT[151]";:GOSUB300:IF IN$<>N$ THEN GOSUB1030:IF F THEN400
  32. 410 RETURN
  33. 420 PRINT" ENTER DATA ":GOSUB400:IF IN$=N$ THEN220
  34. 430 OPEN3,3:PRINT
  35. 440 POKE198,0:GOSUB360:IF F THEN PRINT IN$:PRINT"[145]";
  36. 450 FOR I=0 TO 24 STEP 3:B$=S$:FOR J=1 TO 2:IF F THEN B$=MID$(IN$,I+J,1)
  37. 460 PRINT""B$L$;:IF I<24THEN PRINT"[146]";
  38. 470 GET A$:IF A$=N$ THEN470
  39. 480 IF(A$>"/"ANDA$<":")OR(A$>"@"ANDA$<"G")THEN540
  40. 490 IF A$=R$ AND((I=0)AND(J=1)OR F)THEN PRINT B$;:J=2:NEXT:I=24:GOTO550
  41. 500 IF A$="" THEN PRINT B$:J=2:NEXT:I=24:NEXT:F=0:GOTO440
  42. 510 IF(A$="")ANDF THENPRINT B$L$;:GOTO540
  43. 520 IF A$<>L$ AND A$<>D$ OR((I=0)AND(J=1))THEN GOSUB1060:GOTO470
  44. 530 A$=L$+S$+L$:PRINT B$L$;:J=2-J:IF J THEN PRINT L$;:I=I-3
  45. 540 PRINT A$;:NEXT J:PRINT S$;
  46. 550 NEXT I:PRINT:PRINT"[145]";:INPUT#3,IN$:IF IN$=N$ THEN CLOSE3:GOTO220
  47. 560 FOR I=1 TO 25 STEP3:B$=MID$(IN$,I):GOSUB320:IF I<25 THEN GOSUB380:A(I/3)=A
  48. 570 NEXT:IF A<>CK THEN GOSUB1060:PRINT"[144] ERROR: REENTER LINE [151]":F=1:GOTO440
  49. 580 GOSUB1080:B=BS+AD-SA:FOR I=0 TO 7:POKE B+I,A(I):NEXT
  50. 590 AD=AD+8:IF AD>EA THEN CLOSE3:PRINT"** END OF ENTRY **[144]":GOTO700
  51. 600 F=0:GOTO440
  52. 610 PRINT"[147] DISPLAY DATA ":GOSUB400:IF IN$=N$ THEN220
  53. 620 PRINT"PRESS: SPACE[146] TO PAUSE, RETURN[146] TO BREAK[151]"
  54. 630 GOSUB360:B=BS+AD-SA:FORI=BTO B+7:A=PEEK(I):GOSUB350:GOSUB380:PRINT S$;
  55. 640 NEXT:PRINT"";:A=CK:GOSUB350:PRINT
  56. 650 F=1:AD=AD+8:IF AD>EA THENPRINT"** END OF DATA **":GOTO220
  57. 660 GET A$:IF A$=R$ THEN GOSUB1080:GOTO220
  58. 670 IF A$=S$ THEN F=F+1:GOSUB1080
  59. 680 ONFGOTO630,660,630
  60. 690 PRINT" LOAD DATA ":OP=1:GOTO710
  61. 700 PRINT" SAVE FILE ":OP=0
  62. 710 IN$=N$:INPUT"FILENAME[151]";IN$:IF IN$=N$ THEN220
  63. 720 F=0:PRINT"[144]T[146]APE OR D[146]ISK: [151]";
  64. 730 GET A$:IF A$="T"THEN PRINT"T":GOTO880
  65. 740 IF A$<>"D"THEN730
  66. 750 PRINT"D":OPEN15,8,15,"I0:":B=EA-SA:IN$="0:"+IN$:IF OP THEN810
  67. 760 OPEN 1,8,8,IN$+",P,W":GOSUB860:IF A THEN220
  68. 770 AH=INT(SA/256):AL=SA-(AH*256):PRINT#1,CHR$(AL);CHR$(AH);
  69. 780 FOR I=0 TO B:PRINT#1,CHR$(PEEK(BS+I));:IF ST THEN800
  70. 790 NEXT:CLOSE1:CLOSE15:GOTO940
  71. 800 GOSUB1060:PRINT"[144]ERROR DURING SAVE:[151]":GOSUB860:GOTO220
  72. 810 OPEN 1,8,8,IN$+",P,R":GOSUB860:IF A THEN220
  73. 820 GET#1,A$,B$:AD=ASC(A$+Z$)+256*ASC(B$+Z$):IF AD<>SA THEN F=1:GOTO850
  74. 830 FOR I=0 TO B:GET#1,A$:POKE BS+I,ASC(A$+Z$):IF ST AND(I<>B)THEN F=2:AD=I:I=B
  75. 840 NEXT:IF ST<>64 THEN F=3
  76. 850 CLOSE1:CLOSE15:ON ABS(F>0)+1 GOTO960,970
  77. 860 INPUT#15,A,A$:IF A THEN CLOSE1:CLOSE15:GOSUB1060:PRINT"ERROR: "A$
  78. 870 RETURN
  79. 880 POKE183,PEEK(FA+2):POKE187,PEEK(FA+3):POKE188,PEEK(FA+4):IFOP=0THEN920
  80. 890 SYS 63466:IF(PEEK(783)AND1)THEN GOSUB1060:PRINT" FILE NOT FOUND ":GOTO690
  81. 900 AD=PEEK(829)+256*PEEK(830):IF AD<>SA THEN F=1:GOTO970
  82. 910 A=PEEK(831)+256*PEEK(832)-1:F=F-2*(A<EA)-3*(A>EA):AD=A-AD:GOTO930
  83. 920 A=SA:B=EA+1:GOSUB1010:POKE780,3:SYS 63338
  84. 930 A=BS:B=BS+(EA-SA)+1:GOSUB1010:ON OP GOTO950:SYS 63591
  85. 940 GOSUB1080:PRINT"** SAVE COMPLETED **":GOTO220
  86. 950 POKE147,0:SYS 63562:IF ST<>64 THEN970
  87. 960 GOSUB1080:PRINT"** LOAD COMPLETED **":GOTO220
  88. 970 GOSUB1060:PRINT"[144]ERROR DURING LOAD:[151]":ON F GOSUB980,990,1000:GOTO220
  89. 980 PRINT"INCORRECT STARTING ADDRESS (";:GOSUB360:PRINT")":RETURN
  90. 990 PRINT"LOAD ENDED AT ";:AD=SA+AD:GOSUB360:PRINT D$:RETURN
  91. 1000 PRINT"TRUNCATED AT ENDING ADDRESS":RETURN
  92. 1010 AH=INT(A/256):AL=A-(AH*256):POKE193,AL:POKE194,AH
  93. 1020 AH=INT(B/256):AL=B-(AH*256):POKE174,AL:POKE175,AH:RETURN
  94. 1030 IF AD<SA OR AD>EA THEN1050
  95. 1040 IF(AD>511 AND AD<40960)OR(AD>49151 AND AD<53248)THEN GOSUB1080:F=0:RETURN
  96. 1050 GOSUB1060:PRINT" INVALID ADDRESS [144]":F=1:RETURN
  97. 1060 POKE SD+5,31:POKE SD+6,208:POKE SD,240:POKE SD+1,4:POKE SD+4,33
  98. 1070 FOR S=1 TO 100:NEXT:GOTO1090
  99. 1080 POKE SD+5,8:POKE SD+6,240:POKE SD,0:POKE SD+1,90:POKE SD+4,17
  100. 1090 FOR S=1 TO 100:NEXT:POKE SD+4,0:POKE SD,0:POKE SD+1,0:RETURN
  101.