'
'	RAM OUTPUT TO ASSEMBLY SOURCE - CONVERSION PROGRAM
'
'
'	PRINT "FORMAT FOR INPUT FILE NAME = d:\path\filename"
'	PRINT "THE EXTENTION IS ASSUMED .RAM FOR INPUT, .ASM FOR OUTPUT FILE"
'	LINE INPUT "ENTER FILE NAME:"  ; RAMNAME$
'
	RAMNAME$ = COMMAND$
'
	OPEN "C:" + RAMNAME$ + ".RAM" FOR INPUT  AS #10
	OPEN "C:" + RAMNAME$ + ".ASM" FOR OUTPUT AS #20
'
	OPTION BASE 1
'
	CLS
        PRINT "STARTING CONVERSION OF C:" + RAMNAME$ + ".RAM"
 	PRINT #20,"         ORG   $C000"
        PRINT #20,"IMAGE:                    ;VCSTRIP PROGRAM"
        PRINT #20,";                   "
'
	WHILE NOT EOF(10)
	  INPUT #10,LINEX$
	  BYTES12$ = MID$(LINEX$,01,4)
	  BYTES34$ = MID$(LINEX$,06,4)
	  BYTES56$ = MID$(LINEX$,11,4)
	  BYTES78$ = MID$(LINEX$,16,4)
'
          IF BYTES12$ =  "67C0" THEN ENDFLAG! = 1
	  IF BYTES12$ =  "*--*" GOTO SKIPVAL
          IF BYTES12$ =  "    " GOTO SKIPVAL
          IF BYTES12$ =  ""     GOTO SKIPVAL
       	  IF BYTES12$ <> "    " AND BYTES34$ = "    " THEN
'	  PRINT     ";" + BYTES12$
	  PRINT #20,";" + BYTES12$
	  ELSE
	  DB$ = "         DB  $"  + MID$(BYTES12$,1,2) + _
                           ", $"  + MID$(BYTES12$,3,2) + _
 	                   ", $"  + MID$(BYTES34$,1,2) + _
                           ", $"  + MID$(BYTES34$,3,2) + _
	                   ", $"  + MID$(BYTES56$,1,2) + _
                           ", $"  + MID$(BYTES56$,3,2) + _
 	                   ", $"  + MID$(BYTES78$,1,2) + _
                           ", $"  + MID$(BYTES78$,3,2)
          IF ENDFLAG! => 1 THEN ENDFLAG! = ENDFLAG! + 1
' 	  PRINT DB$
	  PRINT #20,DB$
'
SKIPVAL:
	  END IF
	IF ENDFLAG! > 8 GOTO ENDLUP
'
	WEND
ENDLUP:
        PRINT #20,";                         "
	PRINT #20,"         ORG  $D000       "
        PRINT #20,"START:   MOVD %$6000, R$35"
	PRINT #20,"         MOVD %IMAGE, R$37"
	PRINT #20,"         MOVD %$07FF, R$39"
	PRINT #20,"START1:  LDA  *R$37       "
        PRINT #20,"         STA  *R$35       "
	PRINT #20,"         INC  R$35        "
	PRINT #20,"         ADC  %$00, R$34  "
        PRINT #20,"         INC  R$37        "
	PRINT #20,"         ADC  %$00, R$36  "
	PRINT #20,"         DECD R$39        "
        PRINT #20,"         JC   START1      "
        PRINT #20,"         DINT             "	
	PRINT #20,"         IDLE             "
	PRINT #20,"                         ;"
	PRINT #20,"         ORG  $FFD0       "
	PRINT #20,"                          "
        PRINT #20,"         DB   $D0, $00, $D0, $00, $D0, $00"
        PRINT #20,"         DB   $D0, $00, $D0, $00, $D0, $00"
        PRINT #20,"         DB   $D0, $00, $D0, $00, $D0, $00"
        PRINT #20,"         DB   $D0, $00, $D0, $00, $D0, $00"
        PRINT #20,"         DB   $D0, $00, $D0, $00, $D0, $00"
        PRINT #20,"         DB   $D0, $00, $D0, $00, $D0, $00"
        PRINT #20,"         DB   $D0, $00, $D0, $00, $D0, $00"
        PRINT #20,"         DB   $D0, $00, $D0, $00, $D0, $00"
'
        PRINT #20,"         END"
'
	CLOSE
'
	PRINT "  "
	PRINT "END OF CONVERSION PROGRAM"
'
	STOP
	END