;MACHINE CODE SCREEN PLOT USING 
;MOS ROUTINES
;AND ASSEMBLED ON GEN80

DON:     EQU  0FBA8H ;SCHPAD LINE
DOF:     EQU  0FBA9H ;TYPE LOCATIONS
DON2:    EQU  0FBAAH 
DOF2:    EQU  0FBABH
PL2X:    EQU  0FB96H ;X,Y COORDINATE
PL2Y:    EQU  0FB98H ;LOCATIONS
         LD   A,0CH  ;CLEAR
         RST  8
         DEFB 9EH    ;SCREEN
         LD   A,80
         LD   (PL2X),A ;SET UP START
         LD   A,28
         LD   (PL2Y),A ;POINTS
         LD   A,0FFH
         LD   (DON),A  ;AND
         LD   A,0
         LD   (DOF),A
         LD   (DON2),A ;LINE
         LD   (DOF2),A ;TYPE
         LD   BC,(LENGTH) ;DATA LENGTH
         LD   HL,POINTS   ;DATA START
         JR   LOAD        ;JUMP
DISP:    RST  8
         DEFB 0C8H
LOAD:    LD   IX,(PL2X)   ;TO HERE.MOVE
         LD   IY,(PL2Y) ;START TO REGS
         LD   DE,PL2X ;LOAD NEXT POINT
         LDI          ;INTO SCRATCH PAD
         LD   DE,PL2Y
         LDI
         CP   C      ;SEE IF THAT IS ALL
         JR   Z,DCHK ;DOUBLE CHECK
         JR   DISP   ;NO: DO IT AGAIN
DCHK:    CP   B     ;FOR>255 DATA POINTS 
         JR   NZ,DISP ;KEEP GOING 
LOOP     JP   LOOP     ;END HERE
POINTS:  DEFB 85,30,98,36 ;DATA START
         DEFB 98,38,106,39
         DEFB 107,40,108,39
         DEFB 112,40,109,42
         DEFB 109,43,110,42
         DEFB 111,43,112,44
         DEFB 113,57,114,58
         DEFB 114,59,113,60
         DEFB 113,61,114,62
         DEFB 112,63,112,65
         DEFB 111,66,111,67
         DEFB 112,68,114,68
         DEFB 113,69,112,70
         DEFB 116,70,116,71
         DEFB 117,71,118,72
         DEFB 119,73,119,74
         DEFB 118,74,118,76
         DEFB 117,77,118,78
         DEFB 119,77,120,76
         DEFB 119,80,117,80
         DEFB 116,79,115,80
         DEFB 115,83,118,83
         DEFB 114,89,111,89
         DEFB 110,90,107,90
         DEFB 106,89,104,89
         DEFB 104,90,105,91
         DEFB 104,92,103,92
         DEFB 102,91,102,89
         DEFB 101,88,100,89
         DEFB 100,90,99,91
         DEFB 94,91,93,90
         DEFB 93,88,92,87
         DEFB 91,86,91,85
         DEFB 90,84,89,83
         DEFB 90,83,90,81
         DEFB 91,81,92,82
         DEFB 93,81,94,80
         DEFB 98,79,92,79
         DEFB 91,78,90,77
         DEFB 87,77,86,76
         DEFB 85,75,84,76
         DEFB 82,76,81,77
         DEFB 78,77,76,76
         DEFB 76,72,77,71
         DEFB 80,70,79,69
         DEFB 79,68,75,64
         DEFB 73,64,73,61
         DEFB 74,61,75,60
         DEFB 75,59,76,58
         DEFB 82,58,83,59
         DEFB 84,60,86,60
         DEFB 87,61,87,60
         DEFB 87,58,86,57
         DEFB 85,56,83,56
         DEFB 81,54,82,54
         DEFB 79,50,76,49
         DEFB 74,47,75,48
         DEFB 81,48,82,49
         DEFB 84,49,85,48
         DEFB 86,47,82,47
         DEFB 81,46,76,46
         DEFB 75,45,74,44
         DEFB 71,44,70,43
         DEFB 69,42,70,41
         DEFB 75,41,75,40
         DEFB 70,35,69,35
         DEFB 69,36,70,34
         DEFB 75,35,75,34
         DEFB 73,31,74,31
         DEFB 77,33,78,32
         DEFB 76,30,78,30
         DEFB 79,29,77,28
         DEFB 28,80
LENGTH:  DEFW 290 ;ENTER LENGTH HERE
         END
             
6,30,78,30
         DEFB 79,29,77,28