'
'       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


You are viewing proxied material from infinitelyremote.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.